;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\207" [require lisp-mnt custom-declare-group nameless nil "Customization group for nameless." :group emacs custom-declare-variable nameless-prefix funcall function #[0 "\300\207" [#1=":"] 1 #1#] "Prefix displayed instead of package namespace." :type string nameless-global-aliases #[0 "\300\207" [(("fl" . "font-lock"))] 1] "Alist from aliases to namespaces.\nThis alist is used everywhere. It is designed for namespaces you\nuse commonly. To apply aliases specific to a file, set the\n`nameless-aliases' variable with `add-file-local-variable'.\n\nEach element of this list should have the form (ALIAS . NAMESPACE),\nboth strings. For example, if you set this variable to\n ((\"fl\" . \"font-lock\"))\nthen expressions like (font-lock-add-keywords nil kwds) will be\ndisplayed as (fl/add-keywords nil kwds) instead.\n\nFurthermore typing `fl' followed by `\\[nameless-insert-name]' will\nautomatically insert `font-lock-'." (alist string string)] 6) #@274 Alist from aliases to namespaces. This variable takes the same syntax and has the same effect as `nameless-global-aliases'. Aliases set here take priority over those in `nameless-global-aliases'. This variable is designed to be used as a file-local or dir-local variable. (defvar nameless-aliases nil (#$ . 1500)) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313%\210\314\315\316\317#\210\304\320\306\307\321DD\322\312\323%\210\300\324\302\325#\210\304\326\306\307\327DD\330\312\313%\210\304\331\306\307\332DD\333\312\334%\207" [put nameless-aliases safe-local-variable #[257 "\3001\301C\302\303\304\305\306\307!\310\"\311\312%\"\210\211\242\2620\207\210\313\207" [(error) t mapc make-byte-code 257 "\211@;\205 \211A;?\205\300\301\240\207" vconcat vector [nil] 3 "\n\n(fn CELL)" nil] 9 "\n\n(fn X)"] custom-declare-variable nameless-discover-current-name funcall function #[0 "\300\207" [t] 1] "If non-nil, discover package name automatically.\nIf nil, `nameless-current-name' must be set explicitly, or left as nil,\nin which case only namespaces from `nameless-global-aliases' and\n`nameless-aliases' are used." :type boolean custom-declare-face nameless-face ((t :inherit font-lock-type-face)) "Face used on `nameless-prefix'" nameless-affect-indentation-and-filling #[0 "\300\207" [outside-strings] 1] "If non-nil, code is indented and filled according to what you see.\nIf nil, code is indented and filled according to its actual content.\nIf the value is `outside-strings', behave like nil inside strings\nand behave like t otherwise.\n\nAfter changing this variable, you must reenable `nameless-mode'\nfor it to take effect." (choice (const :tag "Always affect indentation" t) (const :tag "Don't affect indentation" nil) (const :tag "Only outside strings" outside-strings)) nameless-current-name symbolp nameless-private-prefix #[0 "\300\207" [nil] 1] "If non-nil, private symbols are displayed with a double prefix.\nFor instance, the function `foobar--internal-impl' will be\ndisplayed as `::internal-impl', instead of `:-internal-impl'." nameless-separator #[0 "\300\207" [#1="-"] 1 #1#] "Separator used between package prefix and rest of symbol.\nThe separator is hidden along with the package name. For\ninstance, setting it to \"/\" means that `init/bio' will be\ndisplayed as `:bio' (assuming `nameless-current-name' is\n\"init\"). The default is \"-\", since this is the\nseparator recommended by the Elisp manual.\n\nValue can also be nil, in which case the separator is never hidden." (choice string (constant nil))] 6) #@70 Return a list that composes S if passed to `compose-region'. (fn S) (defalias 'nameless--make-composition #[257 "\300\301\302\303\"\"A\207" [apply append mapcar #[257 "\300D\207" [(Br . Bl)] 3 "\n\n(fn X)"]] 6 (#$ . 4074)]) #@66 Compose the matched region and return a face spec. (fn DISPLAY) (defalias 'nameless--compose-as #[257 "\205w\305\306\224\307\"?\205w\305\306\224\310\"?\205w\311 \312\313\314\315\316!\317\"\320$\216 \2054 \321=?\2064\320\322 8?)\262\nP\306\224\306\225 \205J\f\323\313!\324\325O\232\211\203[\313\224\262\313\225\262\nP\262\203k\326\327!#\210\202t\330\310D#\210\331\266\205\207" [nameless-mode nameless-affect-indentation-and-filling nameless-prefix nameless-private-prefix nameless-separator get-text-property 1 composition display match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 outside-strings syntax-ppss match-string -1 nil compose-region nameless--make-composition add-text-properties (face nameless-face)] 11 (#$ . 4307)]) (defvar nameless--font-lock-keywords nil nil) (make-variable-buffer-local 'nameless--font-lock-keywords) (defalias 'nameless--ensure #[0 "\212\300ed\")\207" [font-lock-fontify-region] 3]) #@60 Remove font-lock keywords set by `nameless--add-keywords'. (defalias 'nameless--remove-keywords #[0 "\301\302\"\210\302\303 \207" [nameless--font-lock-keywords font-lock-remove-keywords nil nameless--ensure] 3 (#$ . 5300)]) #@171 Add font-lock keywords displaying ALIAS as DISPLAY. ALIAS may be nil, in which case it refers to `nameless-current-name'. (fn (alias . display) [(alias . display) ...]) (defalias 'nameless--add-keywords #[128 "\302\300!\210\303\304BB\305\306\"\211\307\310\311#\266\312 \207" [font-lock-extra-managed-props nameless--font-lock-keywords make-local-variable composition display mapcar #[257 "\300A!\301\302@D\303BBB\207" [nameless--name-regexp 1 nameless--compose-as (prepend)] 5 "\n\n(fn X)"] font-lock-add-keywords nil t nameless--ensure] 6 (#$ . 5533)]) (defvar nameless-current-name nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local nameless-current-name put safe-local-variable stringp] 4) #@39 Is point L inside an arglist? (fn L) (defalias 'nameless--in-arglist-p #[257 "\212\211b\210\3011,\302 \210\303\304!\210\305\306\307!)\262\206(\303\304!\210\310\306\307!)\2620\202.\210\311)\207" [inhibit-changing-match-data (error) backward-up-list forward-sexp -1 "[a-z-]lambda\\_>" t looking-at "\\(cl-\\)?def" nil] 4 (#$ . 6275)]) #@385 Insert `nameless-current-name' or the alias at point. If point is immediately after an alias configured in `nameless-aliases' or `nameless-global-aliases', replace it with the full name for that alias. Otherwise, insert `nameless-current-name'. If NOERROR is nil, signal an error if the alias at point is not configured, or if `nameless-current-name' is nil. (fn &optional NOERROR) (defalias 'nameless-insert-name #[256 "\304\305\306`Sf!\"\203E`\212\307\310!\210\311\312w\210`)\211{\211\205*\313\"\206)\313 \"A\211\203;|\210\211\314\261\210\315\202D?\205D\316\317\"\207\n\203P\n \261\210\315\207\211?\205X\316\320!\207" [nameless-aliases nameless-global-aliases nameless-current-name nameless-separator string-match "\\s_\\|\\sw" string forward-sexp -1 "^[:alnum:]" nil assoc "-" t user-error "No name for alias `%s', see `nameless-aliases'" "No name for current buffer, see `nameless-current-name'"] 8 (#$ . 6625) nil]) #@202 Insert the name of current package, with a hyphen. If point is in an argument list, or if we're typing an escaped character, insert the current character literally instead. (fn &optional SELF-INSERT) (defalias 'nameless-insert-name-or-self-insert #[256 "`\301\302!\210\206?\206\211\206`Sf\303=\206\304!?\2052\305 \210\211`|\210\306\307!?\2052\301\302!\207" [nameless-current-name call-interactively self-insert-command 92 nameless--in-arglist-p undo-boundary nameless-insert-name noerror] 4 (#$ . 7573) "P"]) (put 'nameless-insert-name-or-self-insert 'delete-selection t) #@49 Return a regexp of the current name. (fn NAME) (defalias 'nameless--name-regexp #[257 "\301\302!\303R\207" [nameless-separator "\\_<@?\\(" regexp-quote "\\)\\(\\s_\\|\\sw\\)"] 5 (#$ . 8165)]) #@78 Remove from string S any disply or composition properties. Return S. (fn S) (defalias 'nameless--filter-string #[257 "\211G\300\301\302$\210\207" [remove-text-properties 0 (composition nil display nil)] 7 (#$ . 8366)]) #@59 Set font-lock-keywords after `hack-local-variables-hook'. (defalias 'nameless--after-hack-local-variables #[0 "\303 \210\304\305\306\205\307BC \n#\"\207" [nameless-current-name nameless-global-aliases nameless-aliases nameless--remove-keywords apply nameless--add-keywords append nil] 6 (#$ . 8595)]) #@95 Non-nil if Nameless mode is enabled. Use the command `nameless-mode' to change this variable. (defvar nameless-mode nil (#$ . 8906)) (make-variable-buffer-local 'nameless-mode) #@267 Toggle Nameless mode on or off. With a prefix argument ARG, enable Nameless mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil, and toggle it if ARG is `toggle'. \{nameless-mode-map} (fn &optional ARG) (defalias 'nameless-mode #[256 "\303 \304=\203 ?\202\305!\306V\211\203N \2048\n\2038\3071,\310\311\312 \"0\202.\210\313\2038\314\315\316\312 #\317\320\321\322B\323\313$\210\324 \210\325\326\324\313\327$\210\202k\330\331\332!\323\"\211\331\332!=\204a\333\332\"\210\210\334\326\324\327#\210\335 \210\336\337\203u\340\202v\341\"\210\342\343!\203\232\303 \203\212\211\303 \232\203\232\344\345\346\203\225\347\202\226\350#\266\210\351 \210\207" [nameless-mode nameless-current-name nameless-discover-current-name current-message toggle prefix-numeric-value 0 (error) string-match "\\.el\\'" lm-get-package-name nil replace-regexp-in-string "\\(-mode\\)?\\(-tests?\\)?\\.[^.]*\\'" "" advice--add-function :filter-return #[0 "\300\301!\207" [advice--buffer-local filter-buffer-substring-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local filter-buffer-substring-function] 4 "\n\n(fn GV--VAL)"] nameless--filter-string nameless--after-hack-local-variables add-hook hack-local-variables-hook local advice--remove-function advice--buffer-local filter-buffer-substring-function advice--set-buffer-local remove-hook nameless--remove-keywords run-hooks nameless-mode-hook nameless-mode-on-hook nameless-mode-off-hook called-interactively-p any " in current buffer" message "Nameless mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 9090) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar nameless-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [nameless-mode-hook variable-documentation put "Hook run after entering or leaving `nameless-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4) #@29 Keymap for `nameless-mode'. (defvar nameless-mode-map (byte-code "\300\301BC\302!\203\211\202\211<\203\303!\202\304\305\"\207" [[3 67108909] nameless-insert-name keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 11124)) (byte-code "\301\302\303\304\211%\210\305\306\302\304#\210\307\306\302\310#\210\311\312!\207" [nameless-mode-map add-minor-mode nameless-mode " :" nil defalias nameless-mode-from-hook make-obsolete "1.0.0" provide nameless] 6)