?? linuxdoc+emacs+ispell-howto-7.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>它會先詢問要輸出的標題是什麼，若您沒有提供，則頁首就不會顯現(xiàn)標題。再來是日期，作者，作者的電子郵件帳號與 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 "<!doctype linuxdoc system>\n<article>\n<title>")
(insert title)
(insert "</title>\n<author>\nAuthor: ") (insert author) (insert "<newline>\n")
(if (> (length email) 0)
(progn
(insert "<htmlurl url=\"mailto:")
(insert email) (insert "\" name=\"") (insert email)
(insert "\"><newline>\n")))
(if (> (length home) 0)
(progn
(insert "<htmlurl url=\"http://")
(insert home) (insert "\" name=\"") (insert home)
(insert "\">\n<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 "<newline>\n")
(if (> (length email-translator) 0)
(progn
(insert "<htmlurl url=\"mailto:")
(insert email-translator) (insert "\" name=\"")
(insert email-translator)
(insert "\"><newline>\n")))
(if (> (length home-translator) 0)
(progn
(insert "<htmlurl url=\"http://")
(insert home-translator) (insert "\" name=\"")
(insert home-translator)
(insert "\"><newline>\n")))))
(insert "</author>\n<date>\n")
(insert date)
(insert "\n</date>\n\n<abstract>\n")
(setq point-beginning (point))
(insert "\n</abstract>\n<toc>\n\n<sect>\n<p>\n\n\n</sect>\n\n</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 + -