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¨¢Comments(0)¨¢emacs
¤³¤Î¥Ö¥í¥°¤Ë¥³¥á¥ó¥È¤¹¤ë¤Ë¤Ï¥í¥°¥¤¥ó¤¬É¬ÍפǤ¹¡£
¤µ¤ó¥í¥°¥¢¥¦¥È
¤³¤Îµ»ö¤Ë¤Ïµö²Ä¥æ¡¼¥¶¤·¤«¥³¥á¥ó¥È¤¬¤Ç¤¤Þ¤»¤ó¡£