use format el

[don.git] / posts / org_mode_mutt_capture.mdwn

diff --git a/posts/org_mode_mutt_capture.mdwn b/posts/org_mode_mutt_capture.mdwn
index 92975c725f48f1ef01eb9e8b5e3c707081880bcf..c6f4c95404bc3aedb405bd5e20d14e62aa16e48e 100644 (file)
--- 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.