;ELC ;;; Compiled by daniel@waffles on Fri Nov 21 07:57:20 2014 ;;; from file /Users/daniel/.emacs.d/elpa/cider-20141120.1746/cider-browse-ns.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cider-repl cider-client cider-interaction] 2) (defvar cider-browse-ns-buffer "*Browse NS*") (defvar cider-browse-ns-current-ns nil nil) (make-variable-buffer-local 'cider-browse-ns-current-ns) #@58 Decorate TEXT with a clickable keymap and function face. (defalias 'cider-browse-ns-properties #[(text) "\302\303\304\305\306\307 &\207" [text cider-browse-ns-mouse-map propertize font-lock-face font-lock-function-name-face mouse-face highlight keymap] 8 (#$ . 792)]) (defvar cider-browse-ns-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210)\207" [map cider-popup-buffer-mode-map make-sparse-keymap set-keymap-parent define-key [return] cider-browse-ns-operate-on-point "^" cider-browse-ns-all "n" next-line "p" previous-line] 4)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [cider-browse-ns-mode-hook variable-documentation put purecopy "Hook run when entering browse-ns mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp cider-browse-ns-mode-map definition-name cider-browse-ns-mode] 5) (defvar cider-browse-ns-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [cider-browse-ns-mode-map variable-documentation put purecopy "Keymap for `cider-browse-ns-mode'." boundp cider-browse-ns-mode-syntax-table definition-name cider-browse-ns-mode] 5) (defvar cider-browse-ns-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cider-browse-ns-mode-syntax-table variable-documentation put purecopy "Syntax table for `cider-browse-ns-mode'." cider-browse-ns-mode-abbrev-table definition-name cider-browse-ns-mode] 5) (defvar cider-browse-ns-mode-abbrev-table (progn (define-abbrev-table 'cider-browse-ns-mode-abbrev-table nil) cider-browse-ns-mode-abbrev-table)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [cider-browse-ns-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `cider-browse-ns-mode'." cider-browse-ns-mode derived-mode-parent special-mode] 5) #@241 Major mode for browsing Clojure namespaces. \{cider-browse-ns-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `cider-browse-ns-mode-hook', as the final step during initialization. (defalias 'cider-browse-ns-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324\325\"\204V =\204V\326\325 C#\210\327 !\210\330\f!\210 \330!!\210\307\"\306\331!\210\332\306\333!\210\307\306\334!\210\332)\335\336!\207" [delay-mode-hooks major-mode mode-name cider-browse-ns-mode-map cider-browse-ns-mode-syntax-table parent make-local-variable t special-mode cider-browse-ns-mode "browse-ns" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table electric-indent-chars nil truncate-lines cider-browse-ns-current-ns run-mode-hooks cider-browse-ns-mode-hook cider-browse-ns-mode-abbrev-table local-abbrev-table clojure-mode-syntax-table buffer-read-only] 6 (#$ . 2856) nil]) #@93 Reset contents of BUFFER. Then display TITLE at the top and ITEMS are indented underneath. (defalias 'cider-browse-ns-list #[(buffer title items) "rq\210\306 \210\307\310 \210\311\n\312\313#c\210\314 \210 \315\211\2030 @\316\f\261\210\314 \210 A\211\204*eb*\207" [buffer inhibit-read-only title items item --dolist-tail-- cider-browse-ns-mode t erase-buffer propertize font-lock-face cider-doc-strong-face newline nil " "] 5 (#$ . 4072)]) (defvar cider-browse-ns-mouse-map (make-sparse-keymap)) (define-key cider-browse-ns-mouse-map [mouse-1] 'cider-browse-ns-handle-mouse) #@38 List all NAMESPACE's vars in BUFFER. (defalias 'cider-browse-ns #[(namespace) "r\304\305\"q\210\306 !\307p \310\311\n\"#\210\312\303!\210 \211*\207" [cider-browse-ns-buffer namespace vars cider-browse-ns-current-ns cider-popup-buffer t cider-sync-request:ns-vars cider-browse-ns-list mapcar #[(var) "\301\302\303!\"\207" [var format "/%s" cider-browse-ns-properties] 4] make-local-variable] 6 (#$ . 4664) (list (completing-read "Browse namespace: " (cider-sync-request:ns-list)))]) #@39 List all loaded namespaces in BUFFER. (defalias 'cider-browse-ns-all #[nil "r\303\304\"q\210\305 \306p\307\310\311 \"#\210\312\302!\210\313\211*\207" [cider-browse-ns-buffer names cider-browse-ns-current-ns cider-popup-buffer t cider-sync-request:ns-list cider-browse-ns-list "All loaded namespaces" mapcar #[(name) "\301!\207" [name cider-browse-ns-properties] 2] make-local-variable nil] 6 (#$ . 5156) nil]) #@53 Expand browser according to thing at current point. (defalias 'cider-browse-ns-operate-on-point #[nil "\302\303 \304 \"\305 \306U\203\307\202-\310\311\"\203&\312\313\314 \315\306\"#!\202-\316\317\320\321#!)\207" [line cider-browse-ns-current-ns buffer-substring-no-properties line-beginning-position line-end-position line-number-at-pos 1 nothing-to-do string-match " +/\\(.+\\)" cider-doc-lookup format "%s/%s" match-string cider-browse-ns replace-regexp-in-string " " ""] 7 (#$ . 5576) nil]) #@27 Handle mouse click EVENT. (defalias 'cider-browse-ns-handle-mouse #[(event) "\300 \207" [cider-browse-ns-operate-on-point] 1 (#$ . 6085) "e"]) (provide 'cider-browse-ns)