aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.emacs.d/rul-lisp/packages/rul-org.el28
1 files changed, 2 insertions, 26 deletions
diff --git a/.emacs.d/rul-lisp/packages/rul-org.el b/.emacs.d/rul-lisp/packages/rul-org.el
index d076948..3787769 100644
--- a/.emacs.d/rul-lisp/packages/rul-org.el
+++ b/.emacs.d/rul-lisp/packages/rul-org.el
@@ -84,39 +84,15 @@
("L" "Web Link" entry
(file+headline org-refile-path "Read later")
- "* %?[[%:link][%:description]] %(progn (setq rul/delete-frame-after-capture 1) \"\")\n %:initial\n \nCaptured On: %U"
+ "* %?[[%:link][%:description]] \"\")\n %:initial\n \nCaptured On: %U"
)
("l" "Web Link with Selection" entry
(file+headline org-refile-path "Read later")
- "* [[%:link][%:description]] %(progn (setq rul/delete-frame-after-capture 1) \"\")\n %:initial\n \nCaptured On: %U")
+ "* [[%:link][%:description]] \n %:initial\n \nCaptured On: %U")
)))
-(defvar rul/delete-frame-after-capture 0 "Whether to delete the last frame after the current capture")
-
-(defun rul/delete-frame-if-necessary ()
- "Delete the last frame if necessary."
- (cond
- ((= rul/delete-frame-after-capture 0) nil)
- ((> rul/delete-frame-after-capture 1)
- (setq rul/delete-frame-after-capture (- rul/delete-frame-after-capture 1)))
- (t
- (setq rul/delete-frame-after-capture 0)
- (delete-frame))))
-
-(defun rul/org-capture-before ()
- "Function to run before org capture."
- (setq rul/delete-frame-after-capture (1+ rul/delete-frame-after-capture)))
-
-(defun rul/org-capture-after ()
- "Function to run after org capture."
- (rul/delete-frame-if-necessary))
-
-(advice-add 'org-capture-finalize :after 'rul/delete-frame-if-necessary)
-(advice-add 'org-capture-kill :after 'rul/delete-frame-if-necessary)
-(advice-add 'org-capture-refile :after 'rul/delete-frame-if-necessary)
-
;; REFILE ;;
; Targets include this file and any file contributing to the agenda - up to 3 levels deep
nihil fit ex nihilo