top  Index  Search  Changes  RSS  Login

MutualLink

ファイルAからファイルBを作るとBからAへのリンクが自動作成されますが、 このとき、AからBへのリンクを自動で作ることはできませんか? - 2ch2:786


;; 叩き台. howm-test050906 で試し.
(defun my-howm-create-and-link (&optional which-template)
  "新規メモを作成して相互にリンクする."
  (interactive "p")
  (let ((b (current-buffer))
        (p (point)))
    (prog1
        (howm-create which-template)
      (let ((f (buffer-file-name)))
        (when (and f (buffer-file-name b))
          (with-current-buffer b
            (goto-char p)
            (insert (format howm-template-file-format
                            (abbreviate-file-name f))
                    "\n")))))))

  • 2005-09-28 (水) 18:50:50 Anonymous : xyzzyでは最後の行をこうしなければうまくいきませんでした
  "\n"))))(undo)(forward-char 2))))
(Please LogIn to post comments.)

Last modified:2008/03/09 14:08:37
Keyword(s):
References:[併用ツール]