diff options
author | expez <expez@expez.com> | 2015-04-23 19:18:40 +0200 |
---|---|---|
committer | expez <expez@expez.com> | 2015-04-25 14:29:38 +0200 |
commit | 85d16c8a514191fe1364883e73605afc15dfa4a9 (patch) | |
tree | 6999ad54dd93a7449ab9c791ca5cd48802bd45c8 /cider-browse-ns.el | |
parent | 0d30e6fe2b5b0fd5d8682142c5b9c21be1d75a4d (diff) |
Mark private functions in cider-browse-ns
Diffstat (limited to 'cider-browse-ns.el')
-rw-r--r-- | cider-browse-ns.el | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 4c83c627..41d92c9d 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -45,9 +45,9 @@ (defvar cider-browse-ns-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map cider-popup-buffer-mode-map) - (define-key map "d" #'cider-browse-ns-doc-at-point) - (define-key map "s" #'cider-browse-ns-find-at-point) - (define-key map [return] #'cider-browse-ns-doc-at-point) + (define-key map "d" #'cider-browse-ns--doc-at-point) + (define-key map "s" #'cider-browse-ns--find-at-point) + (define-key map [return] #'cider-browse-ns--doc-at-point) (define-key map "^" #'cider-browse-ns-all) (define-key map "n" #'next-line) (define-key map "p" #'previous-line) @@ -55,7 +55,7 @@ (defvar cider-browse-ns-mouse-map (let ((map (make-sparse-keymap))) - (define-key map [mouse-1] #'cider-browse-ns-handle-mouse) + (define-key map [mouse-1] #'cider-browse-ns--handle-mouse) map)) (define-derived-mode cider-browse-ns-mode special-mode "browse-ns" @@ -68,14 +68,14 @@ (setq-local truncate-lines t) (setq-local cider-browse-ns-current-ns nil)) -(defun cider-browse-ns-properties (text) +(defun cider-browse-ns--properties (text) "Decorate TEXT with a clickable keymap and function face." (propertize text 'font-lock-face 'font-lock-function-name-face 'mouse-face 'highlight 'keymap cider-browse-ns-mouse-map)) -(defun cider-browse-ns-list (buffer title items) +(defun cider-browse-ns--list (buffer title items) "Reset contents of BUFFER. Then display TITLE at the top and ITEMS are indented underneath." (with-current-buffer buffer (cider-browse-ns-mode) @@ -96,11 +96,11 @@ (interactive (list (completing-read "Browse namespace: " (cider-sync-request:ns-list)))) (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t) (let ((vars (cider-sync-request:ns-vars namespace))) - (cider-browse-ns-list (current-buffer) + (cider-browse-ns--list (current-buffer) namespace (mapcar (lambda (var) (format "%s" - (cider-browse-ns-properties var))) + (cider-browse-ns--properties var))) vars)) (setq-local cider-browse-ns-current-ns namespace)))) @@ -110,11 +110,11 @@ (interactive) (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t) (let ((names (cider-sync-request:ns-list))) - (cider-browse-ns-list (current-buffer) - "All loaded namespaces" - (mapcar (lambda (name) - (cider-browse-ns-properties name)) - names)) + (cider-browse-ns--list (current-buffer) + "All loaded namespaces" + (mapcar (lambda (name) + (cider-browse-ns--properties name)) + names)) (setq-local cider-browse-ns-current-ns nil)))) (defun cider-browse-ns--var-at-point () @@ -122,21 +122,21 @@ (when (string-match " +\\(.+\\)" line) (format "%s/%s" cider-browse-ns-current-ns (match-string 1 line))))) -(defun cider-browse-ns-doc-at-point () +(defun cider-browse-ns--doc-at-point () "Expand browser according to thing at current point." (interactive) (-when-let (var (cider-browse-ns--var-at-point)) - (cider-doc-lookup var))) + ((cider-doc-lookup var)))) -(defun cider-browse-ns-find-at-point () +(defun cider-browse-ns--find-at-point () (interactive) (when-let (var (cider-browse-ns--var-at-point)) (cider-find-var current-prefix-arg var))) -(defun cider-browse-ns-handle-mouse (event) +(defun cider-browse-ns--handle-mouse (event) "Handle mouse click EVENT." (interactive "e") - (cider-browse-ns-doc-at-point)) + (cider-browse-ns--doc-at-point)) (provide 'cider-browse-ns) |