muse-mode
2009ǯ09·î25Æü
EmacsMuse(2) : LaTeX publish¤Î»þ¤Þ¤È¤â¤Êfigure´Ä¶¤ò»È¤¤¤¿¤¤
¥¿¥¤¥È¥ëÄ̤ê¤Ê¤ó¤À¤±¤É¦Ò(^¡þ^;)
´üËö¤ÇÊó¹ð½ñ¤ÎºîÀ®¤Ç¤É¡¼¤·¤Æ¤âºÙ¤«¤¤ÀßÄꤷ¤Ê¤¤¤È¤Ï¤ß½Ð¤·¤Æº¤¤Ã¤¿¥Á¥ã¥ó¤Ë¤Ê¤Ã¤Á¤ã¤Ã¤¿¤Î¤Çºî¤Ã¤Æ¤ß¤¿¡£ËÜÅö¤ÏÀ¸LaTeX¤Ç½ñ¤¯¤Î¤¬¶Ú¤Ê¤ó¤À¤í¡¼¤±¤É¡¢Äù¤á¤Þ¤Ç¤â¤¦°ì½µ´Ö¤â¤Ê¤¤¡£¡¦¡¬¡¬¡¦(¡æ¢þ¡å)¡¦¡¬¡¬¡¦¡£
(defun muse-publish-figure-tag (beg end &optional attr) (let* ( (position (cdr (assoc "position" attrs))) (caption (cdr (assoc "caption" attrs))) (label (cdr (assoc "label" attrs))) (center (cdr (assoc "center" attrs))) (centerp (and (stringp center) (string= center "t"))) ) (if (muse-style-derived-p 'latex) (progn (muse-publish-ensure-block beg end) (goto-char beg) (insert (concat "\\begin{figure}" ¡¡¡¡¡¡¡¡¡¡ (if (stringp position) ¡¡¡¡¡¡¡¡¡¡¡¡¡¡(concat "[" position "]\n") "\n"))) (if centerp (insert "\\begin{center}\n")) (goto-char end) (if (stringp label) ¡¡¡¡¡¡¡¡¡¡ (insert (concat "\\label{" label "}\n"))) (if (stringp caption) (insert (concat "\\caption{" caption "}\n"))) (if centerp (insert "\\end{center}\n")) (insert "\\end{figure}") (muse-publish-mark-read-only beg (point)))))) (add-to-list 'muse-publish-markup-tags '("figure" t t nil muse-publish-figure-tag))
highfrontier at 17:24¡ÃPermalink¨¢Comments(0)
EmacsMuse : LaTeX publish¤Î¤È¤¡ÉÍ׻ݡɤò»È¤¤¤¿¤¤
¥¿¥¤¥È¥ëÄ̤ê¤Ê¤ó¤À¤±¤É¥«¥¹¥¿¥à¥¿¥°
<abstract>¤Ç°Ï¤ß¤¿¤«¤Ã¤¿¤Î¤Ç
°Ê²¼¤Î¤è¤¦¤Ë¤ä¤Ã¤Æ¤ß¤¿¡£
appendix¤âƱÍͤˤ·¤Æºî¤ì¤ë¡£ EmacsMuse¤òº£Æü»Ï¤á¤Æ»È¤Ã¤¿¤ó¤ÇËÜÍè¤Î¤ä¤êÊýÃΤé¤Ê¤¤¤ó¤À¤±¤É¡Ê´À(setq muse-latex-markup-strings (acons 'begin-abstract "\\begin{abstract}" muse-latex-markup-strings)) (setq muse-latex-markup-strings (acons 'end-abstract "\\end{abstract}" muse-latex-markup-strings)) (defun muse-publish-abstract-tag (beg end) (muse-publish-ensure-block beg end) (goto-char beg) (insert (muse-markup-text 'begin-abstract)) (goto-char end) (insert (muse-markup-text 'end-abstract)) (muse-publish-mark-read-only beg (point))) (add-to-list 'muse-publish-markup-tags '("abstract" t nil nil muse-publish-abstract-tag))
highfrontier at 02:51¡ÃPermalink¨¢Comments(0)