From mboxrd@z Thu Jan 1 00:00:00 1970 From: stardiviner Subject: [PATCH] ob-clojure-literate remove dependency on dash Date: Sun, 15 Apr 2018 21:29:04 +0800 Message-ID: <87o9ikppi7.fsf@gmail.com> Reply-To: numbchild@gmail.com Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55620) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1f7hic-0006LT-49 for emacs-orgmode@gnu.org; Sun, 15 Apr 2018 09:29:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1f7hiX-0007d4-LP for emacs-orgmode@gnu.org; Sun, 15 Apr 2018 09:29:22 -0400 Received: from [183.249.134.91] (port=4608 helo=dark.localdomain) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1f7hiW-0007aB-Rf for emacs-orgmode@gnu.org; Sun, 15 Apr 2018 09:29:17 -0400 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 --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-ob-clojure-literate.el-remove-dash-dependence.patch Content-Transfer-Encoding: quoted-printable From=200edc3d8f2b6fe4a99e11286efe7eb49dc3596cbe Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sun, 15 Apr 2018 19:40:12 +0800 Subject: [PATCH] * ob-clojure-literate.el: remove dash dependence. =2D-- contrib/lisp/ob-clojure-literate.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-= literate.el index 5dec2ad9b..15b0e3745 100644 =2D-- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -21,7 +21,6 @@ (require 'ob-clojure) (require 'cider) =2D(require 'dash) =20 (defgroup ob-clojure-literate nil "Clojure's Org-mode Literate Programming." @@ -63,17 +62,17 @@ If it is a directory, `ob-clojure-literate' will try to= create Clojure project a =20 (defun ob-clojure-literate-get-session-list () "Return a list of available started CIDER REPL sessions list." =2D (-map 'buffer-name =2D ;; for multiple connections case. =2D ;; get global value instead of buffer local. =2D (default-value 'cider-connections) =2D )) + (mapcar 'buffer-name + ;; for multiple connections case. + ;; get global value instead of buffer local. + (default-value 'cider-connections) + )) =20 (defun ob-clojure-literate-set-session () "Set session name for buffer local." ;; if default session is the only one in connections list. (if (and (=3D (length (ob-clojure-literate-get-session-list)) 1) =2D (-contains-p (ob-clojure-literate-get-session-list) ob-clojur= e-literate-default-session)) + (member ob-clojure-literate-default-session (ob-clojure-literat= e-get-session-list))) (setq-local ob-clojure-literate-session ob-clojure-literate-default-= session) ;; if have any connections, choose one from them. (if (ob-clojure-literate-any-connection-p) @@ -129,7 +128,7 @@ If it is a directory, `ob-clojure-literate' will try to= create Clojure project a (not (null ob-clojure-literate-session))) ;; return back to original file. (if (not (and (=3D (length (ob-clojure-literate-get-session-list)) 1) =2D (-contains-p (ob-clojure-literate-get-session-list) = ob-clojure-literate-default-session))) + (member ob-clojure-literate-default-session (ob-clojur= e-literate-get-session-list)))) (save-window-excursion (find-file (expand-file-name (concat ob-clojure-literate-proje= ct-location "ob-clojure/src/ob_clojure/core.clj"))) (with-current-buffer "core.clj" @@ -149,7 +148,7 @@ If it is a directory, `ob-clojure-literate' will try to= create Clojure project a ;; Empty all CIDER connections to avoid `cider-current-connection' ret= urn any connection. ;; FIXME: when try to enable, `cider-connections' is local and nil. ;; (if (and (=3D (length (ob-clojure-literate-get-session-list)) 1) =2D ;; (-contains-p (ob-clojure-literate-get-session-list) ob-c= lojure-literate-default-session))) + ;; (member ob-clojure-literate-default-session (ob-clojure-li= terate-get-session-list)))) ;; (unless (local-variable-if-set-p 'cider-connections) ;; (make-local-variable 'cider-connections)) ;; (setq-local cider-connections '()) =2D-=20 2.17.0 --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable =2D-=20 [ stardiviner ] don't need to convince with trends. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 =20=20=20=20=20=20 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAlrTU6AACgkQG13xyVro msPHVgf+OKf8XtzBRpZIJF4JYNr7P7DRhF7wKyvWjcxZ44S2aZrorxvDAXSOV77w 47DJf1CK2axFSjnS/Wam2LWxypMvUBaP6dc7LVbPjdSRrriWel5H5kpbMQ/TBtLq Ew65GilU2EYohu8+MQqsaAiohBSTq9+YqTc3TkbVzEQBlmDr5AfzuChxARNbNXFq y8ok9+840+s6UXH9gkATOIr2E0jKImjQMYo3VJuBI/c9ATOk0BsvHJYYPl+CAa1Z t/8iA+UX7GjrV+lmD56MTSvNzqXIXTySaXbvRnBhBqZM8IWXvlJxnDVigdg1snH1 LCjMk7n2A/MtBvddW3Qhz8ppyg7tOA== =kLOU -----END PGP SIGNATURE----- --==-=-=--