(defun org-confirm-elisp-link-function--no-confirm-my-org-file (prompt) "自分が書いたorgファイルの(のディレクトリにある)elispリンクはconfirmなし。 それ以外のディレクトリではconfirmする。" (or (string-match "/sync/memo/\\|/sync/junk/" (or (buffer-file-name) "")) (member (buffer-name) '("*trace-output*")) (y-or-n-p prompt))) (setq org-confirm-elisp-link-function 'org-confirm-elisp-link-function--no-confirm-my-org-file) (setq org-confirm-shell-link-function 'org-confirm-elisp-link-function--no-confirm-my-org-file)