EmacsMuse : LaTeX publish¤Î¤È¤­¡ÉÍ׻ݡɤò»È¤¤¤¿¤¤¨¢linux´Ä¶­¤ÇWindows¤Çºî¤Ã¤¿ÆüËܸì¥Õ¥¡¥¤¥ë̾Æþ¤êzip¤Î²òÅà¤Î»ÅÊý

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 

¥³¥á¥ó¥È¤¹¤ë

¤³¤Î¥Ö¥í¥°¤Ë¥³¥á¥ó¥È¤¹¤ë¤Ë¤Ï¥í¥°¥¤¥ó¤¬É¬ÍפǤ¹¡£

EmacsMuse : LaTeX publish¤Î¤È¤­¡ÉÍ׻ݡɤò»È¤¤¤¿¤¤¨¢linux´Ä¶­¤ÇWindows¤Çºî¤Ã¤¿ÆüËܸì¥Õ¥¡¥¤¥ë̾Æþ¤êzip¤Î²òÅà¤Î»ÅÊý