From c66a4ea87956939c78c0499d64403ae7c1b066d9 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Thu, 9 Jan 2014 17:45:09 -0800 Subject: [PATCH] use format el --- posts/org_mode_mutt_capture.mdwn | 46 +++++++++++++++++--------------- 1 file changed, 24 insertions(+), 22 deletions(-) diff --git a/posts/org_mode_mutt_capture.mdwn b/posts/org_mode_mutt_capture.mdwn index 92975c7..c6f4c95 100644 --- a/posts/org_mode_mutt_capture.mdwn +++ b/posts/org_mode_mutt_capture.mdwn @@ -13,28 +13,30 @@ before refiling finishes. The following to Zack's code (which I previously modified to work with org-mode >= 0.8) waits to close the frame until you've finished refiling. - (require 'org-protocol) - (add-hook 'org-capture-mode-hook 'delete-other-windows) - (setq my-org-protocol-flag nil) - (defadvice org-capture-finalize (after delete-frame-at-end activate) - "Delete frame at remember finalization" - (progn (if my-org-protocol-flag (delete-frame)) - (setq my-org-protocol-flag nil))) - (defadvice org-capture-refile (around delete-frame-after-refile activate) - "Delete frame at remember refile" - (if my-org-protocol-flag - (progn - (setq my-org-protocol-flag nil) - ad-do-it - (delete-frame)) - ad-do-it) - ) - (defadvice org-capture-kill (after delete-frame-at-end activate) - "Delete frame at remember abort" - (progn (if my-org-protocol-flag (delete-frame)) - (setq my-org-protocol-flag nil))) - (defadvice org-protocol-capture (before set-org-protocol-flag activate) - (setq my-org-protocol-flag t)) +[[!format el """ +(require 'org-protocol) +(add-hook 'org-capture-mode-hook 'delete-other-windows) +(setq my-org-protocol-flag nil) +(defadvice org-capture-finalize (after delete-frame-at-end activate) + "Delete frame at remember finalization" + (progn (if my-org-protocol-flag (delete-frame)) + (setq my-org-protocol-flag nil))) +(defadvice org-capture-refile (around delete-frame-after-refile activate) + "Delete frame at remember refile" + (if my-org-protocol-flag + (progn + (setq my-org-protocol-flag nil) + ad-do-it + (delete-frame)) + ad-do-it) + ) +(defadvice org-capture-kill (after delete-frame-at-end activate) + "Delete frame at remember abort" + (progn (if my-org-protocol-flag (delete-frame)) + (setq my-org-protocol-flag nil))) +(defadvice org-protocol-capture (before set-org-protocol-flag activate) + (setq my-org-protocol-flag t)) +"""]] Now, the frame automatically disappears after you refile it, keeping my refile.org clean. -- 2.39.2