emacs

2013ǯ02·î19Æü

iPhone¤Çorg-mode¤ò´èÄ¥¤Ã¤Æ»È¤¦

iPhoneËÜÂΤΥ¢¥×¥ê¤ò»È¤ï¤º¥µ¡¼¥Ð¡¼¾å¤Îemacs¤ò¾ï¤Ë³«¤¤¤¿¤Þ¤Þ¤Ë¤·¤Æ»È¤¦¼Â¸³¡£

³¤­¤òÆɤà

¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 17:20¡ÃPermalink¨¢Comments(0)

2010ǯ01·î28Æü

mmm-mode¤Çgcc¤ÎMD¡Êmachine description¡Ë¥Õ¥¡¥¤¥ë¤òÊÔ½¸¤¹¤ë3

»öÁ°½àÈ÷

mmm-mode ¤ò http://sourceforge.net/projects/mmm-mode/ ¤«¤é¥À¥¦¥ó¥í¡¼¥É¤·¡¢configure ¡õ make install ¤·¤Æ¤ª¤¯

.emacs¤Ë°Ê²¼¤ÎÀßÄê

 	
(setq auto-mode-alist (append (list
                               '(".md" . emacs-lisp-mode)
                              auto-mode-alist)))
;; mmm-mode
(require 'mmm-mode)
(setq mmm-global-mode 'maybe)
;; md mode
(mmm-add-classes
 '((md
    :submode asm-mode
    :front "\"@"
    :back "\""
    :insert ((?t md nil @ "\"@"
                 @ "\n" _ "\n" @ "\"" @))
    )))
(mmm-add-mode-ext-class nil "\\.md?\\'" 'md))

"@²þ¹Ô¡¡¡Á¡¡"¤Ï¥¢¥»¥ó¥Ö¥éÊ£¿ô¹Ô¤À¤«¤é¤¤¤¤¤¬¡¢

"{ ¡Á¡¡}"¤ÇC++-mode¤â¤ä¤ê¤¿¤¤¤Î¤À¤¬¡Ä¤À¤ì¤«Äɵ­¤¹¤ëÊýË¡¶µ¤¨¤Æ¤¯¤À¤µ¤¤m(._.)m ¤ª¤Í¤¬¤¤



¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 16:50¡ÃPermalink¨¢Comments(0)

2009ǯ10·î19Æü

¥Ç¥Õ¥©¥ë¥È¤Îemacs¤òÊѤ¨¤ë

# update-alternatives --config emacs

`emacs' ¤òÄ󶡤¹¤ë 2 ¸Ä¤Î alternatives ¤¬¤¢¤ê¤Þ¤¹¡£

ÁªÂò»è alternative
-----------------------------------------------
1 /usr/bin/emacs-snapshot
*+ 2 /usr/bin/emacs22

¥Ç¥Õ¥©¥ë¥È[*] ¤Î¤Þ¤Þ¤Ë¤¹¤ë¤Ë¤Ï Enter¡¢¤µ¤â¤Ê¤±¤ì¤ÐÁªÂò»è¤ÎÈÖ¹æ¤Î¥­¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤: 1
'emacs' ¤òÄ󶡤¹¤ë¤¿¤á¤Ë '/usr/bin/emacs-snapshot' ¤ò»È¤¤¤Þ¤¹¡£
#

¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 14:09¡ÃPermalink¨¢Comments(0)

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>¤Ç°Ï¤ß¤¿¤«¤Ã¤¿¤Î¤Ç °Ê²¼¤Î¤è¤¦¤Ë¤ä¤Ã¤Æ¤ß¤¿¡£
(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))
appendix¤âƱÍͤˤ·¤Æºî¤ì¤ë¡£ EmacsMuse¤òº£Æü»Ï¤á¤Æ»È¤Ã¤¿¤ó¤ÇËÜÍè¤Î¤ä¤êÊýÃΤé¤Ê¤¤¤ó¤À¤±¤É¡Ê´À

¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 02:51¡ÃPermalink¨¢Comments(0)

2009ǯ09·î24Æü

wl-biff¤òÀßÄꤷ¤¿

GMail¤Î¥á¡¼¥ë¤òoffileimap¤ÇMaildir¤Ç¼è¤ê¹þ¤ó¤Ç¤¤¤ë¤Î¤Çbiff¤ÎÀßÄê¤ò°Ê²¼¤Î¤è¤¦¤Ë¤·¤¿¡£
;; WL-BIFF
(setq wl-biff-check-folder-list
      '(
	"./data/Maildir/XXX/root"
	"./data/Maildir/YYY/root"
	"./data/Maildir/ZZZ/INBOX"
	))
(setq wl-modeline-biff-state-on
      (propertize "[¢©]" 'face display-time-mail-face))
(add-to-list 'global-mode-string
	     '(wl-modeline-biff-status wl-modeline-biff-state-on 
				       wl-modeline-biff-state-off))
(defadvice wl-mode-line-buffer-identification (around dont-show-biff activate)
  (let ((wl-biff-check-folder-list nil))
    ad-do-it))


¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 16:58¡ÃPermalink¨¢Comments(0)

anthy.el¤Ç¸ÄÊÌ¥­¡¼¤ËON/OFF¤ò³ä¤êÅö¤Æ¤ë

anthy.el¤Ç¥È¥°¥ë¤¸¤ã¤Ê¤¯ÊÑ´¹¤ÎON/OFF¤¬¤·¤¿¤«¤Ã¤¿¤Î¤Ç°Ê²¼¤Î¤è¤¦¤Ë¤·¤Æ¤ß¤¿¡£
(defun anthy-mode-force-on (&optional arg)
  "Force Start Anthy conversion system."
  (interactive "P")
  (anthy-check-agent)
  (anthy-mode-on))
(defun anthy-mode-force-off (&optional arg)
  "Force End Anthy conversion system."
  (interactive "P")
  (anthy-check-agent)
  (anthy-mode-off))
(global-set-key [henkan] 'anthy-mode-force-on)
(global-set-key [muhenkan] 'anthy-mode-force-off)


¤³¤Î¥¨¥ó¥È¥ê¡¼¤ò¤Ï¤Æ¤Ê¥Ö¥Ã¥¯¥Þ¡¼¥¯¤ËÄɲÃ
highfrontier at 16:07¡ÃPermalink¨¢Comments(0)