about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el265
1 files changed, 0 insertions, 265 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el b/configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el
deleted file mode 100644
index bcb843eef880..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/cider-20180908.1925/cider-ns.el
+++ /dev/null
@@ -1,265 +0,0 @@
-;;; cider-ns.el --- Namespace manipulation functionality -*- lexical-binding: t -*-
-
-;; Copyright © 2013-2018 Bozhidar Batsov, Artur Malabarba and CIDER contributors
-;;
-;; Author: Bozhidar Batsov <bozhidar@batsov.com>
-;;         Artur Malabarba <bruce.connor.am@gmail.com>
-
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;; This file is not part of GNU Emacs.
-
-;;; Commentary:
-
-;; Smart code refresh functionality based on ideas from:
-;; http://thinkrelevance.com/blog/2013/06/04/clojure-workflow-reloaded
-;;
-;; Note that refresh with clojure.tools.namespace.repl is a smarter way to
-;; reload code: the traditional way to reload Clojure code without restarting
-;; the JVM is (require ... :reload) or an editor/IDE feature that does the same
-;; thing.
-;;
-;; This has several problems:
-;;
-;; If you modify two namespaces which depend on each other, you must remember to
-;; reload them in the correct order to avoid compilation errors.
-;;
-;; If you remove definitions from a source file and then reload it, those
-;; definitions are still available in memory.  If other code depends on those
-;; definitions, it will continue to work but will break the next time you
-;; restart the JVM.
-;;
-;; If the reloaded namespace contains defmulti, you must also reload all of the
-;; associated defmethod expressions.
-;;
-;; If the reloaded namespace contains defprotocol, you must also reload any
-;; records or types implementing that protocol and replace any existing
-;; instances of those records/types with new instances.
-;;
-;; If the reloaded namespace contains macros, you must also reload any
-;; namespaces which use those macros.
-;;
-;; If the running program contains functions which close over values in the
-;; reloaded namespace, those closed-over values are not updated (This is common
-;; in web applications which construct the "handler stack" as a composition of
-;; functions.)
-
-;;; Code:
-
-(require 'subr-x)
-
-(require 'cider-client)
-(require 'cider-popup)
-(require 'cider-stacktrace)
-
-(define-obsolete-variable-alias 'cider-save-files-on-cider-ns-refresh 'cider-ns-save-files-on-refresh "0.18")
-(defcustom cider-ns-save-files-on-refresh 'prompt
-  "Controls whether to prompt to save Clojure files on `cider-ns-refresh'.
-If nil, files are not saved.
-If 'prompt, the user is prompted to save files if they have been modified.
-If t, save the files without confirmation."
-  :type '(choice (const prompt :tag "Prompt to save files if they have been modified")
-                 (const nil :tag "Don't save the files")
-                 (const t :tag "Save the files without confirmation"))
-  :group 'cider
-  :package-version '(cider . "0.15.0"))
-
-(defconst cider-ns-refresh-log-buffer "*cider-ns-refresh-log*")
-
-(define-obsolete-variable-alias 'cider-refresh-show-log-buffer 'cider-ns-refresh-show-log-buffer "0.18")
-(defcustom cider-ns-refresh-show-log-buffer nil
-  "Controls when to display the refresh log buffer.
-If non-nil, the log buffer will be displayed every time `cider-ns-refresh' is
-called.  If nil, the log buffer will still be written to, but will never be
-displayed automatically.  Instead, the most relevant information will be
-displayed in the echo area."
-  :type '(choice (const :tag "always" t)
-                 (const :tag "never" nil))
-  :group 'cider
-  :package-version '(cider . "0.10.0"))
-
-(define-obsolete-variable-alias 'cider-refresh-before-fn 'cider-ns-refresh-before-fn "0.18")
-(defcustom cider-ns-refresh-before-fn nil
-  "Clojure function for `cider-ns-refresh' to call before reloading.
-If nil, nothing will be invoked before reloading.  Must be a
-namespace-qualified function of zero arity.  Any thrown exception will
-prevent reloading from occurring."
-  :type 'string
-  :group 'cider
-  :package-version '(cider . "0.10.0"))
-
-(define-obsolete-variable-alias 'cider-refresh-after-fn 'cider-ns-refresh-after-fn "0.18")
-(defcustom cider-ns-refresh-after-fn nil
-  "Clojure function for `cider-ns-refresh' to call after reloading.
-If nil, nothing will be invoked after reloading.  Must be a
-namespace-qualified function of zero arity."
-  :type 'string
-  :group 'cider
-  :package-version '(cider . "0.10.0"))
-
-(defun cider-ns-refresh--handle-response (response log-buffer)
-  "Refresh LOG-BUFFER with RESPONSE."
-  (nrepl-dbind-response response (out err reloading status error error-ns after before)
-    (cl-flet* ((log (message &optional face)
-                    (cider-emit-into-popup-buffer log-buffer message face t))
-
-               (log-echo (message &optional face)
-                         (log message face)
-                         (unless cider-ns-refresh-show-log-buffer
-                           (let ((message-truncate-lines t))
-                             (message "cider-ns-refresh: %s" message)))))
-      (cond
-       (out
-        (log out))
-
-       (err
-        (log err 'font-lock-warning-face))
-
-       ((member "invoking-before" status)
-        (log-echo (format "Calling %s\n" before) 'font-lock-string-face))
-
-       ((member "invoked-before" status)
-        (log-echo (format "Successfully called %s\n" before) 'font-lock-string-face))
-
-       ((member "invoked-not-resolved" status)
-        (log-echo "Could not resolve refresh function\n" 'font-lock-string-face))
-
-       (reloading
-        (log-echo (format "Reloading %s\n" reloading) 'font-lock-string-face))
-
-       ((member "reloading" (nrepl-dict-keys response))
-        (log-echo "Nothing to reload\n" 'font-lock-string-face))
-
-       ((member "ok" status)
-        (log-echo "Reloading successful\n" 'font-lock-string-face))
-
-       (error-ns
-        (log-echo (format "Error reloading %s\n" error-ns) 'font-lock-warning-face))
-
-       ((member "invoking-after" status)
-        (log-echo (format "Calling %s\n" after) 'font-lock-string-face))
-
-       ((member "invoked-after" status)
-        (log-echo (format "Successfully called %s\n" after) 'font-lock-string-face))))
-
-    (with-selected-window (or (get-buffer-window cider-ns-refresh-log-buffer)
-                              (selected-window))
-      (with-current-buffer cider-ns-refresh-log-buffer
-        (goto-char (point-max))))
-
-    (when (member "error" status)
-      (cider--render-stacktrace-causes error))))
-
-(defun cider-ns-refresh--save-project-buffers ()
-  "Ensure modified project buffers are saved before certain operations.
-Its behavior is controlled by `cider-save-files-on-cider-ns-refresh'."
-  (when-let* ((project-root (clojure-project-dir)))
-    (when cider-save-files-on-cider-ns-refresh
-      (save-some-buffers
-       (eq cider-save-files-on-cider-ns-refresh t)
-       (lambda ()
-         (and
-          (derived-mode-p 'clojure-mode)
-          (string-prefix-p project-root
-                           (file-truename default-directory)
-                           (eq system-type 'windows-nt))))))))
-
-;;;###autoload
-(defun cider-ns-reload (&optional prompt)
-  "Send a (require 'ns :reload) to the REPL.
-
-With an argument PROMPT, it prompts for a namespace name.  This is the
-Clojure out of the box reloading experience and does not rely on
-org.clojure/tools.namespace.  See Commentary of this file for a longer list
-of differences.  From the Clojure doc: \":reload forces loading of all the
-identified libs even if they are already loaded\"."
-  (interactive "P")
-  (let ((ns (if prompt
-                (string-remove-prefix "'" (read-from-minibuffer "Namespace: " (clojure-find-ns)))
-              (clojure-find-ns))))
-    (cider-interactive-eval (format "(require '%s :reload)" ns))))
-
-;;;###autoload
-(defun cider-ns-reload-all (&optional prompt)
-  "Send a (require 'ns :reload-all) to the REPL.
-
-With an argument PROMPT, it prompts for a namespace name.  This is the
-Clojure out of the box reloading experience and does not rely on
-org.clojure/tools.namespace.  See Commentary of this file for a longer list
-of differences.  From the Clojure doc: \":reload-all implies :reload and
-also forces loading of all libs that the identified libs directly or
-indirectly load via require\"."
-  (interactive "P")
-  (let ((ns (if prompt
-                (string-remove-prefix "'" (read-from-minibuffer "Namespace: " (clojure-find-ns)))
-              (clojure-find-ns))))
-    (cider-interactive-eval (format "(require '%s :reload-all)" ns))))
-
-;;;###autoload
-(defun cider-ns-refresh (&optional mode)
-  "Reload modified and unloaded namespaces on the classpath.
-
-With a single prefix argument, or if MODE is `refresh-all', reload all
-namespaces on the classpath unconditionally.
-
-With a double prefix argument, or if MODE is `clear', clear the state of
-the namespace tracker before reloading.  This is useful for recovering from
-some classes of error (for example, those caused by circular dependencies)
-that a normal reload would not otherwise recover from.  The trade-off of
-clearing is that stale code from any deleted files may not be completely
-unloaded.
-
-With a negative prefix argument, or if MODE is `inhibit-fns', prevent any
-refresh functions (defined in `cider-ns-refresh-before-fn' and
-`cider-ns-refresh-after-fn') from being invoked."
-  (interactive "p")
-  (cider-ensure-connected)
-  (cider-ensure-op-supported "refresh")
-  (cider-ns-refresh--save-project-buffers)
-  (let ((clear? (member mode '(clear 16)))
-        (refresh-all? (member mode '(refresh-all 4)))
-        (inhibit-refresh-fns (member mode '(inhibit-fns -1))))
-    (cider-map-repls :clj
-      (lambda (conn)
-        ;; Inside the lambda, so the buffer is not created if we error out.
-        (let ((log-buffer (or (get-buffer cider-ns-refresh-log-buffer)
-                              (cider-make-popup-buffer cider-ns-refresh-log-buffer))))
-          (when cider-ns-refresh-show-log-buffer
-            (cider-popup-buffer-display log-buffer))
-          (when inhibit-refresh-fns
-            (cider-emit-into-popup-buffer log-buffer
-                                          "inhibiting refresh functions\n"
-                                          nil
-                                          t))
-          (when clear?
-            (cider-nrepl-send-sync-request '("op" "refresh-clear") conn))
-          (cider-nrepl-send-request
-           (nconc `("op" ,(if refresh-all? "refresh-all" "refresh")
-                    "print-length" ,cider-stacktrace-print-length
-                    "print-level" ,cider-stacktrace-print-level)
-                  (when (cider--pprint-fn)
-                    `("pprint-fn" ,(cider--pprint-fn)))
-                  (when (and (not inhibit-refresh-fns) cider-ns-refresh-before-fn)
-                    `("before" ,cider-ns-refresh-before-fn))
-                  (when (and (not inhibit-refresh-fns) cider-ns-refresh-after-fn)
-                    `("after" ,cider-ns-refresh-after-fn)))
-           (lambda (response)
-             (cider-ns-refresh--handle-response response log-buffer))
-           conn))))))
-
-;;;###autoload
-(define-obsolete-function-alias 'cider-refresh 'cider-ns-refresh "0.18")
-
-(provide 'cider-ns)
-;;; cider-ns.el ends here