📄 linuxdoc+emacs+ispell-howto-7.html

📁 Linux初学者最好的老师就是howto了。相当于函数man。
💻 HTML
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
 <META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
 <TITLE>LinuxDoc+Emacs+Ispell-HOWTO 中文版: Insert-sgml-header程式之□例</TITLE>
 <LINK HREF="LinuxDoc+Emacs+Ispell-HOWTO-6.html" REL=previous>
 <LINK HREF="LinuxDoc+Emacs+Ispell-HOWTO.html#toc7" REL=contents>
</HEAD>
<BODY>
Next
<A HREF="LinuxDoc+Emacs+Ispell-HOWTO-6.html">Previous</A>
<A HREF="LinuxDoc+Emacs+Ispell-HOWTO.html#toc7">Contents</A>
<HR>
<H2><A NAME="insert-sgml-header"></A> <A NAME="s7">7. <CODE>Insert-sgml-header</CODE>程式之□例</A>   </H2>

<P>读者在撰写一份 Linux Documentation Project 文件时，可以使用下列程式来启动自动插入自订的页首。
<P>
<P>透过一 <EM>mini-buffer</EM>，上述程式会要求读者提供一些或许必要的资讯。
<P>它会先询问要输出的标题是什麽，若您没有提供，则页首就不会显现标题。再来是日期，作者，作者的电子邮件帐号与 home page （最後两项可随意填入）。
<P>接著它会询问翻译者的名字。若无，请直接键入 <EM>Return</EM>。若有，程式就会接著询问译者的电子邮件帐号及 home page （同样也是随意填入）。
<P>再来它会把您的输入存入 current buffer，包括任何您输入的资讯格式，及摘要和第一章的标签。之後它会将游标导向您要键入摘要的的地方。
<P>
<PRE>
(defun insert-sgml-header ()
  "Inserts the header for a LinuxDoc document"
  (interactive)
  (let (title author email home translator email-translator home-translator date 
              starting-point)
    (setq title (read-from-minibuffer "Title: "))
    (if (> (length title) 0)
        (progn 
          (setq date (read-from-minibuffer "Date: ")
                author (read-from-minibuffer "Author: ")
                email (read-from-minibuffer "Author e-mail: ")
                home (read-from-minibuffer "Author home page: http://")
                translator (read-from-minibuffer "Translator: "))
          (insert "&lt;!doctype linuxdoc system>\n&lt;article>\n&lt;title>")
          (insert title)
          (insert "&lt;/title>\n&lt;author>\nAuthor: ") (insert author) (insert "&lt;newline>\n")
          (if (> (length email) 0)
              (progn
                (insert "&lt;htmlurl url=\"mailto:")
                (insert email) (insert "\" name=\"") (insert email)
                (insert "\">&lt;newline>\n")))
          (if (> (length home) 0)
              (progn
                (insert "&lt;htmlurl url=\"http://")
                (insert home) (insert "\" name=\"") (insert home)
                (insert "\">\n&lt;newline>")))
          (if (> (length translator) 0)
              (progn
                (setq email-translator (read-from-minibuffer "Translator e-mail: ")
                      home-translator (read-from-minibuffer "Translator home page: http://"))
                (insert "Translator : ") 
                (insert translator) 
                (insert "&lt;newline>\n")
                (if (> (length email-translator) 0)
                    (progn 
                      (insert "&lt;htmlurl url=\"mailto:") 
                      (insert email-translator) (insert "\" name=\"") 
                      (insert email-translator)
                      (insert "\">&lt;newline>\n")))
                (if (> (length home-translator) 0)
                    (progn 
                      (insert "&lt;htmlurl url=\"http://") 
                      (insert home-translator) (insert "\" name=\"")
                      (insert home-translator)
                      (insert "\">&lt;newline>\n")))))
          (insert "&lt;/author>\n&lt;date>\n")
          (insert date)
          (insert "\n&lt;/date>\n\n&lt;abstract>\n")
          (setq point-beginning (point))
          (insert "\n&lt;/abstract>\n&lt;toc>\n\n&lt;sect>\n&lt;p>\n\n\n&lt;/sect>\n\n&lt;/article>\n")
          (goto-char point-beginning)
          ))))
 
</PRE>
<HR>
Next
<A HREF="LinuxDoc+Emacs+Ispell-HOWTO-6.html">Previous</A>
<A HREF="LinuxDoc+Emacs+Ispell-HOWTO.html#toc7">Contents</A>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -