ã³ãã³ãã©ã¤ã³ããMessage-IDãæå®ãã¦ã¡ã¼ã«ãéãæ¹æ³ããããOrgModeï¼Emacsï¼ãããéããããã«ããã
ThunderLink :: Thunderbird向けアドオンãå ¥ããããã£ãããã ãã§
thunderbird.exe -thunderlink thunderlink://messageid=ã¡ãã»ã¼ã¸ID
ã¨ãã風ã«-thunderlinkãªãã·ã§ã³ã使ã£ã¦èµ·åããã°æå®ããã¡ã¼ã«ãéããã
Thunderbirdãèµ·åãã¦ããªãã£ããååã¡ã¼ã«ã¦ã£ã³ãã¦ããæ¢ã«èµ·åæ¸ã¿ãªã対象ã¡ã¼ã«ãé¸æãããç¶æ
ã«ãªãã
説æã§ã¯OSã®ã·ã§ã«ã«url handleré¢é£ä»ããããã«æ¸ããã¦ããããå¿
è¦ã§ãªããã°ãããªãã¦è¯ãã
ã¨ããã®ããå
ã
ããããã£ãã®ããOrgMode(on NTEmacs)ã«ããã¦ãã¡ã¼ã«æ¬æã§ã¯ãªãã¡ã¼ã«ã¸ã®ãªã³ã¯ãåãè¾¼ã¿ãããã ã£ãã®ã§ãthunderlinkãEmacsããéããããã«ããã
ã¾ããffapã§ãªã³ã¯ãèªèããããã«ffap-url-regexpãä¿®æ£ã
(setq ffap-url-regexp (replace-regexp-in-string "mailto:" "thunderlink:\\\\|mailto:" ffap-url-regexp)) ;; for ThunderLink
次ã«èªèããURLãéãããã®è¨å®ãããã
;; âCygwinå°ç¨ãCygwinãããªãå ´åã¯é©å®ä¿®æ£ããã (defun browse-url-thunderlink (url &optional new-window) (interactive (browse-url-interactive-arg "URL: ")) (if (string-match "^thunderlink://" url) (progn (start-process (concat "thunderbird " url) nil "cygstart" "thunderbird.exe" "-thunderlink" url) t) nil) ) (unless (listp browse-url-browser-function) (setq browse-url-browser-function (list (cons "." browse-url-browser-function)))) (add-to-list 'browse-url-browser-function '("^thunderlink:" . browse-url-thunderlink))
ã§ãOrgModeã«ã対å¿ã
(add-hook 'org-load-hook #'(lambda () (add-to-list 'org-link-types "thunderlink") (org-make-link-regexps) (add-hook 'org-open-link-functions 'browse-url-thunderlink) ))