From mboxrd@z Thu Jan 1 00:00:00 1970 From: stardiviner Subject: [PATCH] ob-clojure-literate.el need to improve the toggle way Date: Wed, 14 Mar 2018 16:22:22 +0800 Message-ID: <0c995f79-db56-89ca-e034-78ecd945f9ac@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------3CCC89C3DF953ABED955570C" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41153) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ew1g6-0005q3-LA for emacs-orgmode@gnu.org; Wed, 14 Mar 2018 04:22:31 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ew1g3-0001pD-H5 for emacs-orgmode@gnu.org; Wed, 14 Mar 2018 04:22:30 -0400 Received: from mail-io0-x234.google.com ([2607:f8b0:4001:c06::234]:43730) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ew1g3-0001ot-8G for emacs-orgmode@gnu.org; Wed, 14 Mar 2018 04:22:27 -0400 Received: by mail-io0-x234.google.com with SMTP id l12so3323453ioc.10 for ; Wed, 14 Mar 2018 01:22:27 -0700 (PDT) Received: from [0.0.0.0] ([119.28.89.243]) by smtp.gmail.com with ESMTPSA id g12sm1277652iob.18.2018.03.14.01.22.24 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Wed, 14 Mar 2018 01:22:25 -0700 (PDT) Content-Language: en-US List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: org-mode This is a multi-part message in MIME format. --------------3CCC89C3DF953ABED955570C Content-Type: multipart/alternative; boundary="------------C5C7AFA06F298ECC3E9C4731" --------------C5C7AFA06F298ECC3E9C4731 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit I need to updated my ob-clojure-literate.el toggle functions. --------------C5C7AFA06F298ECC3E9C4731 Content-Type: text/html; charset=utf-8 Content-Transfer-Encoding: 7bit

I need to updated my ob-clojure-literate.el toggle functions.

--------------C5C7AFA06F298ECC3E9C4731-- --------------3CCC89C3DF953ABED955570C Content-Type: text/x-patch; name="0001-ob-clojure-literate.el-ob-clojure-literate-enable-ob.patch" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename*0="0001-ob-clojure-literate.el-ob-clojure-literate-enable-ob.pa"; filename*1="tch" >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 --------------3CCC89C3DF953ABED955570C Content-Type: text/x-patch; name="0002-ob-clojure-literate.el-ob-clojure-literate-mode-disa.patch" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename*0="0002-ob-clojure-literate.el-ob-clojure-literate-mode-disa.pa"; filename*1="tch" >From c4c9868ffd08a6d8f9672b1e5706b7630fc8c48b Mon Sep 17 00:00:00 2001 From: stardiviner Date: Wed, 14 Mar 2018 16:17:06 +0800 Subject: [PATCH 2/2] * ob-clojure-literate.el (ob-clojure-literate-mode): disable by default. Don't enable `ob-clojure-literate-mode' by default. --- contrib/lisp/ob-clojure-literate.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-literate.el index a7ab1894d..ee3c39dfb 100644 --- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -315,7 +315,7 @@ reset `RESULT' to `nil'." (define-minor-mode ob-clojure-literate-mode "A minor mode to toggle `ob-clojure-literate'." :require 'ob-clojure-literate - :init-value t + :init-value nil :lighter " clj-lp" :group 'ob-clojure-literate :keymap ob-clojure-literate-mode-map -- 2.16.2 --------------3CCC89C3DF953ABED955570C--