>From fa02d9ceb892626aa37a911d85d9074353b56bdf Mon Sep 17 00:00:00 2001 From: stardiviner Date: Wed, 14 Mar 2018 16:13:05 +0800 Subject: [PATCH 1/2] * ob-clojure-literate.el (ob-clojure-literate-enable, ob-clojure-literate-disable) put advice into ob-clojure-literate-mode trigger functions. --- contrib/lisp/ob-clojure-literate.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-literate.el index b6fedee7a..a7ab1894d 100644 --- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -264,8 +264,6 @@ Then you need to assign image variable to this :file value like: (list body params) ; return modified argument list )) -(advice-add 'org-babel-expand-body:clojure :filter-args #'ob-clojure-literate-inject-code) - ;;; support :results graphics :dir "data/image" :file "incanter-plot.png" (defun ob-clojure-literate-support-graphics-result (result) "Support :results graphics :dir \"data/images\" :file \"incanter-plot.png\" @@ -276,8 +274,6 @@ reset `RESULT' to `nil'." (setq result nil)) result)) -(advice-add 'org-babel-execute:clojure :filter-return #'ob-clojure-literate-support-graphics-result) - (defvar ob-clojure-literate-mode-map (let ((map (make-sparse-keymap))) @@ -297,12 +293,16 @@ reset `RESULT' to `nil'." (ob-clojure-literate-set-local-cider-connections ob-clojure-literate-mode) (ob-clojure-literate-set-local-session ob-clojure-literate-mode) (advice-add 'org-babel-execute:clojure :before #'ob-clojure-literate-cider-do-not-find-ns) + (advice-add 'org-babel-expand-body:clojure :filter-args #'ob-clojure-literate-inject-code) + (advice-add 'org-babel-execute:clojure :filter-return #'ob-clojure-literate-support-graphics-result) (message "ob-clojure-literate minor mode enabled."))) ;;;###autoload (defun ob-clojure-literate-disable () "Disable Org-mode buffer locally for `ob-clojure-literate'." (advice-remove 'org-babel-execute:clojure #'ob-clojure-literate-cider-do-not-find-ns) + (advice-remove 'org-babel-expand-body:clojure #'ob-clojure-literate-inject-code) + (advice-remove 'org-babel-execute:clojure #'ob-clojure-literate-support-graphics-result) (setq-local cider-buffer-ns ob-clojure-literate-original-ns) (ob-clojure-literate-set-local-cider-connections ob-clojure-literate-mode) (ob-clojure-literate-set-local-session ob-clojure-literate-mode) -- 2.16.2