;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\301\310!\210\301\311!\210\301\312!\210\313\301\314!\210\301\315!\210\301\316!\210\301\317!\207" [iedit-toggle-key-default require mode-local lispy-tags help-fns edebug etags outline avy newcomment lispy-inline nil delsel swiper pcase hydra] 2) #@50 Forward to (`looking-back' REGEXP). (fn REGEXP) (defalias 'lispy-looking-back #[257 "\300\301 \"\207" [looking-back line-beginning-position] 4 (#$ . 423)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lispy-looking-back speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@48 The input overlay for mapping transformations. (defvar lispy-map-input-overlay nil (#$ . 731)) #@47 The target start for mapping transformations. (defvar lispy-map-target-beg 1 (#$ . 832)) #@45 The target end for mapping transformations. (defvar lispy-map-target-len 1 (#$ . 927)) #@39 Store the buffer-local outline start. (defvar lispy-outline-header ";;" (#$ . 1020)) (make-variable-buffer-local 'lispy-outline-header) (defvar lispy-map-format-function nil) (custom-declare-group 'lispy nil "List navigation and editing for the Lisp family." :group 'bindings :prefix "lispy-") #@20 Opening delimiter. (defvar lispy-left "[([{]" (#$ . 1320)) #@20 Closing delimiter. (defvar lispy-right "[])}]" (#$ . 1385)) #@20 Outline delimiter. (defvar lispy-outline "^;;\\(?:;[^#]\\|\\*+\\)" (#$ . 1451)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\300\313\302\303\314DD\315\306\307\310\311&\210\300\316\302\303\317DD\320\306\307\310\311&\210\300\321\302\303\322DD\323\306\307\310\311&\210\300\324\302\303\325DD\326\306\307\310\311&\210\300\327\302\303\330DD\331\310\311\306\332&\210\300\333\302\303\334DD\335\306\307\310\311&\210\300\336\302\303\337DD\340\306\341%\210\300\342\302\303\343DD\344\306\345%\210\300\346\302\303\347DD\350\306\351%\210\300\352\302\303\353DD\354\306\355%\210\300\356\302\303\357DD\360\306\361%\210\300\362\302\303\363DD\364\306\365%\210\366\367\370\371\310\372%\210\366\373\374\375\310\372%\210\366\376\377\375\310\372%\207" [custom-declare-variable lispy-no-space funcall function #[0 "\300\207" [nil] 1] "When non-nil, don't insert a space before parens/brackets/braces/colons." :type boolean :group lispy make-variable-buffer-local lispy-lax-eval #[0 "\300\207" [t] 1] "When non-nil, fix \"unbound variable\" error by setting the it to nil.\nThis is useful when hacking functions with &optional arguments.\nSo evaling (setq mode (or mode major-mode)) will set mode to nil on\nthe first eval, and to major-mode on the second eval." lispy-verbose #[0 "\300\207" [t] 1] "If t, lispy will display some messages on error state.\nThese messages are similar to \"Beginning of buffer\" error for\n`backward-char' and can safely be ignored." lispy-verbose-verbs #[0 "\300\207" [t] 1] "If t, verbs produced by `lispy-defverb' will have a hint in the echo area.\nThe hint will consist of the possible nouns that apply to the verb." lispy-close-quotes-at-end-p #[0 "\300\207" [nil] 1] "If t, when pressing the `\"' at the end of a quoted string, it will move you past the end quote." lispy-helm-columns #[0 "\300\207" [(70 80)] 1] "Max lengths of tag and tag+filename when completing with `helm'." (list integer integer) lispy-no-permanent-semantic #[0 "\300\207" [nil] 1] "When t, `lispy' will not enable function `semantic-mode' when it's off." lispy-completion-method #[0 "\300\207" [ivy] 1] "Method to select a candidate from a list of strings." (choice (const :tag "Ivy" ivy) (const :tag "Helm" helm) (const :tag "Ido" ido) (const :tag "Default" default)) lispy-visit-method #[0 "\300\207" [ffip] 1] "Method to switch to a file in the current project." (choice (const :tag "Find File in Project" ffip) (const :tag "Projectile" projectile)) lispy-avy-style-char #[0 "\300\207" [pre] 1] "Method of displaying the overlays for a char during visual selection." (choice (const :tag "Pre" pre) (const :tag "At" at) (const :tag "At full" at-full) (const :tag "Post" post)) lispy-avy-style-paren #[0 "\300\207" [at] 1] "Method of displaying the overlays for a paren during visual selection." (choice (const :tag "Pre" pre) (const :tag "At" at) (const :tag "At full" at-full) (const :tag "Post" post)) lispy-avy-style-symbol #[0 "\300\207" [pre] 1] "Method of displaying the overlays for a symbol during visual selection." (choice (const :tag "Pre" pre) (const :tag "At" at) (const :tag "At full" at-full) (const :tag "Post" post)) lispy-avy-keys #[0 "\300\301\302\"\207" [number-sequence 97 122] 3] "Keys for jumping." (repeat :tag "Keys" (character :tag "char")) custom-declare-face lispy-command-name-face ((((class color) (background light)) :background "#d8d8f7" :inherit font-lock-function-name-face) (((class color) (background dark)) :background "#333333" :inherit font-lock-function-name-face)) "Face for Elisp commands." lispy-faces lispy-cursor-face ((((class color) (background light)) :background "#000000" :foreground "#ffffff") (((class color) (background dark)) :background "#ffffff" :foreground "#000000")) "Face for `lispy-view-test'." lispy-test-face ((t (:inherit lispy-face-hint)))] 8) (defvar lispy-mode-map (make-sparse-keymap)) #@27 List of registered verbs. (defvar lispy-known-verbs nil (#$ . 5335)) #@69 When set to t, function `lispy-right' will not clean up whitespace. (defvar lispy-ignore-whitespace nil (#$ . 5410)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable lispy-compat funcall function #[0 "\300\207" [(edebug)] 1] "List of package compatibility options.\nEnabling them adds overhead, so make sure that you are actually\nusing those packages." :type (repeat (choice (const :tag "god-mode" god-mode) (const :tag "magit-blame-mode" magit-blame-mode) (const :tag "edebug" edebug) (const :tag "cider" cider) (const :tag "macrostep" macrostep)))] 6) #@107 Store the old values of `outline-regexp' and `outline-level'. `lispy-mode' overrides those while it's on. (defvar lispy-old-outline-settings nil (#$ . 6001)) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\313&\210\302\317\304\305\320DD\321\310\311\312\313&\210\302\322\304\305\323DD\324\310\311\312\325&\210\302\326\304\305\327DD\330\310\311\312\313&\210\302\331\304\305\332DD\333\310\311\312\313&\210\302\334\304\305\335DD\336\310\311\312\313&\210\302\337\304\305\340DD\341\310\311\312\313&\207" [make-variable-buffer-local lispy-old-outline-settings custom-declare-variable lispy-safe-delete funcall function #[0 "\300\207" [nil] 1] "When non-nil, killing/deleting an active region keeps delimiters balanced.\nThis applies to `lispy-delete', `lispy-kill-at-point', `lispy-paste', and\n`lispy-delete-backward'. This also applies to `lispy-yank' when\n`delete-selection-mode' is non-nil." :group lispy :type boolean lispy-safe-copy #[0 "\300\207" [nil] 1] "When non-nil, `lispy-new-copy' won't copy unbalanced delimiters in a region." lispy-safe-paste #[0 "\300\207" [nil] 1] "When non-nil, `lispy-paste' and `lispy-yank' will add missing delimiters." lispy-safe-threshold #[0 "\300\207" [1500] 1] "The max size of an active region that lispy will try to keep balanced.\nThis only applies when `lispy-safe-delete', `lispy-safe-copy', and/or\n`lispy-safe-paste' are non-nil." number lispy-safe-actions-ignore-strings #[0 "\300\207" [t] 1] "When non-nil, don't try to act safely in strings.\nAny unmatched delimiters inside of strings will be copied or deleted. This only\napplies when `lispy-safe-delete', `lispy-safe-copy', and/or `lispy-safe-paste'\nare non-nil." lispy-safe-actions-ignore-comments #[0 "\300\207" [t] 1] "When non-nil, don't try to act safely in comments.\nAny unmatched delimiters inside of comments will be copied or deleted. This only\napplies when `lispy-safe-delete', `lispy-safe-copy', and/or `lispy-safe-paste'\nare non-nil." lispy-safe-actions-no-pull-delimiters-into-comments #[0 "\300\207" [nil] 1] "When non-nil, don't pull unmatched delimiters into comments when deleting.\nThis prevents the accidental unbalancing of expressions from commenting out\ndelimiters. This only applies when `lispy-safe-delete', `lispy-safe-copy',\nand/or `lispy-safe-paste' are non-nil." lispy-insert-space-after-wrap #[0 "\300\207" [t] 1] "When non-nil, insert a space after the point when wrapping.\nThis applies to the commands that use `lispy-pair'."] 8) #@12 (fn A B) (defalias 'lispy-dir-string< #[514 "\300\301\"\203\300\301\"\203\231\207\302\207\300\301\"?\205\231\207" [string-match "/$" t] 5 (#$ . 8547)]) #@11 (fn FS) (defalias 'lispy--normalize-files #[257 "\300\301\302\303\304$\305\"\207" [cl-sort cl-set-difference ("./" "../") :test equal lispy-dir-string<] 7 (#$ . 8720)]) #@12 (fn STR) (defalias 'lispy--completion-common-len #[257 "\300\301\302#\303=\203\304\301\"\207\301\207" [get-text-property 0 face completions-common-part next-property-change] 5 (#$ . 8898)]) #@96 Try to complete a partial file name in STR at PT. Depends on `default-directory'. (fn STR PT) (defalias 'lispy--complete-fname-1 #[514 "\300\301\302\"r\211q\210\303\304\"\216c\210\305 \210\306 \307\310@A@\"\3118\"\205B\312@!Z\313\314\313\315\307\310 @\nA@\"\311\n8\"\"\"E\266\202*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] comint-mode comint-filename-completion all-completions buffer-substring-no-properties 2 lispy--completion-common-len delete "../" "./"] 15 (#$ . 9100)]) #@56 Completion source for `completion-at-point-functions'. (defalias 'lispy-complete-fname-at-point #[0 "\300 \205\"\301\302!\211\203\303\304@`\"`\"\202 ``\305\306\307\310\"!E\262\207" [lispy--in-string-p bounds-of-thing-at-point filename lispy--complete-fname-1 buffer-substring-no-properties lispy--normalize-files all-completions "" read-file-name-internal] 7 (#$ . 9672)]) #@89 Non-nil if Lispy mode is enabled. Use the command `lispy-mode' to change this variable. (defvar lispy-mode nil (#$ . 10057)) (make-variable-buffer-local 'lispy-mode) #@1113 Minor mode for navigating and editing LISP dialects. This is a minor mode. If called interactively, toggle the `Lispy mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `lispy-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. When `lispy-mode' is on, most unprefixed keys, i.e. [a-zA-Z+-./<>], conditionally call commands instead of self-inserting. The condition (called special further on) is one of: - the point is before "(" - the point is after ")" - the region is active For instance, when special, "j" moves down one sexp, otherwise it inserts itself. When special, [0-9] call `digit-argument'. When `lispy-mode' is on, "[" and "]" move forward and backward through lists, which is useful to move into special. \{lispy-mode-map} (fn &optional ARG) (defalias 'lispy-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\203\261\315\316!\210\317\320!\210\317\321!\210\322\323!\210\n B\324\303!\210\325 \326\267\202\226\324\327!\210\330\3310\324\302!\210\332\202\240\315\333!\210\3341\324\302!\210\310\311O\202\240\324\327!\210\335\3360\324\302!\210\337\324\340!\210\341 \202\240\324\302!\210\310\311O\342\343!\203\275\344\345\3002B\"\210\202\275\f\203\275\f@\fA\311\346\347\203\307\350\202\310\351\"\210\342\343!\203\352\306 \203\334\211\306 \232\203\352\352\353\203\346\354\202\347\355\356#\210\210\357 \210\207" [lispy-mode local-minor-modes outline-regexp outline-level lispy-old-outline-settings major-mode current-message toggle 1 nil t boundp delq require eldoc eldoc-remove-command special-lispy-eval special-lispy-x eldoc-add-command lispy-space make-local-variable lispy-outline-level #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (latex-mode 85 clojure-mode 104 python-mode 124)) lispy-outline "^\\(?:%\\*+\\|\\\\\\(?:sub\\)?section{\\)" "%" "\\(?:%\\*+\\|\\\\\\(?:sub\\)?section{\\)" le-clojure (lispy-clojure-complete-at-point cider-complete-at-point) "^#\\*+" "#" "#\\*+" outline-heading-end-regexp "\n" called-interactively-p any mapc lispy-raise-minor-mode run-hooks lispy-mode-hook lispy-mode-on-hook lispy-mode-off-hook message "Lispy mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update lispy-outline-header completion-at-point-functions lispy-known-verbs] 6 (#$ . 10231) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lispy-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\207" [lispy-mode-map lispy-mode-hook variable-documentation put "Hook run after entering or leaving `lispy-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode lispy-mode " LY"] 6) #@59 Make MODE the first on `minor-mode-map-alist'. (fn MODE) (defalias 'lispy-raise-minor-mode #[257 "\211\236\211\205\211\301\"B\211\207" [minor-mode-map-alist delq] 6 (#$ . 13505)]) #@184 Execute N times the BODYFORM unless an error is signaled. Return nil if couldn't execute BODYFORM at least once. Otherwise return the amount of times executed. (fn N &rest BODYFORM) (defalias 'lispy-dotimes '(macro . #[385 "\300\301\302\303\304\305\306\307\310\311 E BB E\312BBBEE\207" [let ((i 0)) catch 'result condition-case e progn while <= (cl-incf i) ((error (when (eq (car e) 'buffer-read-only) (message "Buffer is read-only: %s" (current-buffer))) (cl-decf i) (and (> i 0) i)))] 13 (#$ . 13699)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lispy-dotimes lisp-indent-function 1 put edebug-form-spec (form body)] 5) #@58 More intuitive (`save-excursion' BODY). (fn &rest BODY) (defalias 'lispy-save-excursion '(macro . #[128 "\300\301\302BDC\303BB\207" [let out save-excursion ((when (lispy-bolp) (back-to-indentation)) out)] 5 (#$ . 14355)])) (byte-code "\300\301\302\303#\300\207" [function-put lispy-save-excursion lisp-indent-function 0] 4) #@67 Ensure that BODY is executed from start of list. (fn &rest BODY) (defalias 'lispy-from-left '(macro . #[128 "\300\301!\302\303BC\304\305BB\306\307B\304\310\311BB\312BBEF\207" [cl-gensym "at-start" let ((lispy--leftp)) unless ((lispy-different)) unwind-protect lispy-save-excursion eq ((lispy--leftp)) ((lispy-different))] 11 (#$ . 14687)])) #@73 Temporarily override BINDING and execute BODY. (fn BINDING &rest BODY) (defalias 'lispy-flet '(macro . #[385 "@\300\301!!\302\303\304DDDC\305\306\307\304D\310\nABEBB\307\304DEEE\207" [cl-gensym symbol-name let symbol-function quote unwind-protect progn fset lambda] 12 (#$ . 15041)])) (byte-code "\300\301\302\303#\300\207" [function-put lispy-flet lisp-indent-function 1] 4) #@60 Remove LST's first N elements and return them. (fn LST N) (defalias 'lispy-multipop '(macro . #[514 "\300\301\302DE\303\304\305BBE\303\306\307\310D\303\n\304\f\307 EEEE\311BBEF\207" [if <= length prog1 setq (nil) setcdr nthcdr 1- (nil)] 17 (#$ . 15437)])) #@57 The directory where all of the lispy files are located. (defvar lispy-site-directory (file-name-directory load-file-name) (#$ . 15713)) #@43 Disable all verbs except VERB. (fn VERB) (defalias 'lispy-disable-verbs-except #[257 "\301\302\303\"\"\207" [lispy-known-verbs mapc #[257 "\211\300!\207" [-1] 3 "\n\n(fn V)"] remq] 6 (#$ . 15855)]) #@19 Remove modifiers. (defalias 'lispy-quit #[0 "\300\301!\207" [lispy-disable-verbs-except nil] 2 (#$ . 16062) nil]) #@95 Define the verb NAME. GRAMMAR is a list of nouns that work with this verb. (fn NAME GRAMMAR) (defalias 'lispy-defverb '(macro . #[514 "\300\301\302\"!\300\301\303\"!\301\304\305!#\301\306\"\300\301\307\"!\301\310\311\312\n\313##\314\315\316\301\317\305!\f#F\320\321 DD\315\322BB\323\n\324\n\325\326\327\330\331\332\333D\334BBBE\335\336\321DDD\337BB\331\340\341\342\331\343\344\345DE\346BBBEE\257\347BBBBBB\350\351\352\353 \354\355\356\321D\257E\321DE\341\357\321D\360BB\361\321D\362BBE\323 \316\363\331\364D\365B\366BF\257\367\370\321D \371BBBBD\257 \207" [intern format "lispy-%s-mode" "lispy-%s-mode-map" "%s verb.\n\n \\{lispy-%s-mode-map}" capitalize " [%s]" "lispy-%s-verb" "[%s]: %s" mapconcat car " " progn defvar nil "Non-nil if Lispy-%s mode is enabled.\nUse the command `%s' to change this variable." make-variable-buffer-local quote ((make-sparse-keymap)) defun (&optional arg) (interactive (list (or current-prefix-arg 'toggle))) let ((last-message (current-message))) setq if (eq arg 'toggle) not ((> (prefix-numeric-value arg) 0)) cond lispy-disable-verbs-except ((t nil)) (called-interactively-p 'any) unless (and (current-message) (not (equal last-message (current-message)))) when lispy-verbose-verbs message ((message "")) ((force-mode-line-update)) mapc lambda (x) lispy-define-key (car x) (cadr x) :disable memq (lispy-known-verbs) push (lispy-known-verbs) (interactive) bound-and-true-p (-1) (1) with-no-warnings add-minor-mode (nil nil)] 31 (#$ . 16182)])) #@43 Return t if after variable `lispy-right'. (defalias 'lispy-right-p #[0 "\301\302 \"\207" [lispy-right looking-back line-beginning-position] 3 (#$ . 17727)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lispy-right-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@43 Return t if before variable `lispy-left'. (defalias 'lispy-left-p #[0 "\301!\207" [lispy-left looking-at] 2 (#$ . 18030)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lispy-left-p speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@142 Move forward list ARG times or until error. Return t if moved at least once, otherwise call function `lispy-right' and return nil. (fn ARG) (defalias 'lispy-forward #[257 "\211\301U\203 \302\262\303 \210\304 \211\203\211ATb\210\210`\301\3052[\3061A\211T\211\262X\203<`dU\2036\307\310!\210\311 \210\202\"0\202Z\211@\312=\203M\313\314p\"\210S\262\301V\205X\2620\262\211\203{`U\204{\315\316 \"\204\201\317 \210\311 \210`U\203\201\320\321\322!\210\207`\207" [lispy-right 0 2000 lispy--exit-string lispy--bounds-comment result (error) error "Reached end of buffer" forward-list buffer-read-only message "Buffer is read-only: %s" looking-back line-beginning-position backward-list nil lispy--out-forward 1] 7 (#$ . 18299) "p"]) #@130 Move backward list ARG times or until error. If couldn't move backward at least once, move up backward and return nil. (fn ARG) (defalias 'lispy-backward #[257 "\211\301U\203 \302\262\303 \210\304 \211\203\211@b\210\210`\301\3052Z\3061@\211T\211\262X\203;`eU\2035\307\310!\210\311 \210\202!0\202Y\211@\312=\203L\313\314p\"\210S\262\301V\205W\2620\262\211\203x`U\204x\315!\204\217\316 \210\311 \210`U\203\217\317\3201\206\321\322!\210\311 0\210\207\210b\210\323\324!\210\207`\207" [lispy-left 0 2000 lispy--exit-string lispy--bounds-comment result (error) error "Reached beginning of buffer" backward-list buffer-read-only message "Buffer is read-only: %s" looking-at forward-list nil (error) lispy--out-forward 1 up-list -1] 7 (#$ . 19057) "p"]) #@85 Move outside list forwards ARG times. Return nil on failure, t otherwise. (fn ARG) (defalias 'lispy-right #[257 "\302 \210\303\300!\203\203\3041\305 0\210\202\210\306 \203\"\307!\207\310 !\203+\311 \207\312!\207" [abbrev-mode lispy-outline lispy--remember boundp (error) expand-abbrev region-active-p lispy-mark-right looking-at lispy-outline-right lispy--out-forward] 3 (#$ . 19840) "p"]) #@98 Call `lispy--out-forward' with ARG unless in string or comment. Self-insert otherwise. (fn ARG) (defalias 'lispy-right-nostring #[257 "\300 \204 \301\302\303 \"\203\304!\207\305!\207" [lispy--in-string-or-comment-p looking-back "?\\\\" line-beginning-position self-insert-command lispy--out-forward] 4 (#$ . 20250) "p"]) #@85 Move outside list forwards ARG times. Return nil on failure, t otherwise. (fn ARG) (defalias 'lispy-left #[257 "\301 \210\302 \203\f\303!\207\304!\203\305 \207\306!\206&\3071$\310\311!0\207\210\312\207" [lispy-outline lispy--remember region-active-p lispy-mark-left looking-at lispy-outline-left lispy--out-backward (error) up-list -1 nil] 3 (#$ . 20583) "p"]) #@75 Call `lispy--out-forward', then ARG times `newline-and-indent'. (fn ARG) (defalias 'lispy-out-forward-newline #[257 "\300\301!\210\302\3032<\3041\"\211T\211\262X\203\305 \210\202 0\202;\211@\306=\203.\307\310p\"\210S\262\302V\2059\2620\207" [lispy--out-forward 1 0 result (error) newline-and-indent buffer-read-only message "Buffer is read-only: %s"] 6 (#$ . 20959) "p"]) #@69 Point where `lispy-move-end-of-line' should go when already at eol. (defvar lispy-meol-point 1 (#$ . 21354)) #@166 Forward to `move-end-of-line' unless already at end of line. Then return to the point where it was called last. If this point is inside string, move outside string. (defalias 'lispy-move-end-of-line #[0 "`\301\302 =\2031\303 \211\262\203\211Ab\207W\2056\304 Y\2056b\210\303 \211\262\2056\211Ab\207`\305\306!\207" [lispy-meol-point nil line-end-position lispy--bounds-string line-beginning-position move-end-of-line 1] 4 (#$ . 21470) nil]) #@55 Forward to `move-beginning-of-line'. Reveal outlines. (defalias 'lispy-move-beginning-of-line #[0 "\300 \210n\203\n\301 \207\302\303!\207" [lispy--ensure-visible back-to-indentation move-beginning-of-line 1] 2 (#$ . 21929) nil]) #@191 Move to the next REGEXP in DIRECTION, COUNT times. DIRECTION is either 'forward or 'backward. Return the amount of successful moves, or nil otherwise. (fn REGEXP DIRECTION &optional COUNT) (defalias 'lispy--re-search-in-code #[770 "\211\206\300\262\301!\302=\203\303V\203\304\202)\305\202)\303V\203(\305\202)\304`\302=\203A\303V\203A\306!\203A\303\225b\210\303V\203\\\307\310#\203\\\311 \204AS\262\202A\301!U\203i\211b\210\307\207\302=\203s\303\224b\210Z\207" [1 abs forward 0 re-search-forward re-search-backward looking-at nil t lispy--in-string-or-comment-p] 10 (#$ . 22166)]) #@98 Move inside list ARG times. Don't enter strings or comments. Return nil if can't move. (fn ARG) (defalias 'lispy-flow #[257 "\302 \210`\303\304 \203\305\306!\203\307\310#\262\202C\305!\203*\307\310#\262\202C\311 \312 \"\203C\313u\210\307 \314#\211\262\203C\303u\210\211\206Kb\210\303\207" [lispy-left lispy-right lispy--remember nil lispy-bolp looking-at ";" lispy--re-search-in-code forward looking-back line-beginning-position -1 backward] 7 (#$ . 22792) "p"]) #@52 Move down ARG times inside current list. (fn ARG) (defalias 'lispy-down #[257 "\304 \210\305 \203\351`\306 U\211\203\307 \210\212\310\311w\210m)\204\336\312\313 !\203n\314\3152i\3161O\211T\211\262X\203J\317\320!\203-\321 \210\322\320!\210\321 \210\202-0\202h\211@\323=\203[\324\325p\"\210S\262\314V\205f\2620\266\202\336\326\327!\203\203\330 \210\320\224b\210\331\332 !\210\202\336\314\3152\334\3331\302\211T\211\262X\203\275\334\320!\210\321 \210\335 \203\257\332 ATb\210\336\311w\210\202\267\334\337!\210\334\340!\210\321 \210\202\2140\202\333\211@\323=\203\316\324\325p\"\210S\262\314V\205\331\2620\266\211\203\345\307 \210\210\202\216\326!\203\341!\210`\342\341\320!\203\343\320!\210\202 \211b\210\321 \210)\210\202\216\344\n\345 \"\203$`\341!\204 \211b\210\210\202\216\326 !\2044n\203\206\326\346!\203\206`\314\3152\201\3471g\211T\211\262X\203b\350\320!\210\326 !\203X`\262\202>b\210\351\352!\210\202>0\202\200\211@\323=\203s\324\325p\"\210S\262\314V\205~\2620\266\202\216\341\320!\210\343\320!\210\353 \207" [lispy-left lispy-ignore-whitespace lispy-right lispy-outline lispy--remember region-active-p region-beginning exchange-point-and-mark " \n" nil lispy--symbolp lispy--string-dwim 0 result (error) lispy-slurp 1 lispy-different lispy-barf buffer-read-only message "Buffer is read-only: %s" looking-at "[\n ]+\\(;\\)" deactivate-mark lispy--mark lispy--bounds-comment (error) forward-sexp lispy--in-comment-p "\n" 2 -1 lispy-forward t lispy-backward looking-back line-beginning-position ";" (error) outline-next-visible-heading error "Last outline reached" lispy--ensure-visible] 7 (#$ . 23282) "p"]) #@50 Move up ARG times inside current list. (fn ARG) (defalias 'lispy-up #[257 "\303 \210\304 \203\374`\305 U\211\204\306 \210\212\307\310x\210o)\204\361\311\312\212\3131,\314\315!0\210\202-\210`)\"\203E\316 \210\315\224b\210\317\320 !\210\306 \210\202\361\321\322 !\203\226\323\3242\221\3251w\211T\211\262X\203r\326\315!\203U\327 \210\330\315!\210\327 \210\202U0\202\220\211@\331=\203\203\332\333p\"\210S\262\323V\205\216\2620\266\202\361\323\3242\357\3341\325\211T\211\262X\203\320\314\315!\210\327 \210\335 \203\302\320 @Sb\210\336\310x\210\202\312\314\337!\210\314\340!\210\327 \210\202\2370\202\356\211@\331=\203\341\332\333p\"\210S\262\323V\205\354\2620\266\211\204\370\306 \210\210\202\237\341!\203`\342!\204\f\211b\210\210\202\237\311 \343 \"\2035\342!\210`\342\315!\203+\344\315!\266\202\237\211b\210\327 \266\202\237\341\n!\204En\203\227\341\345!\203\227`\323\3242\222\3461x\211T\211\262X\203s\347\315!\210\341\n!\203i`\262\202Ob\210\350\351!\210\202O0\202\221\211@\331=\203\204\332\333p\"\210S\262\323V\205\217\2620\266\202\237\342\315!\210\344\315!\210\352 \207" [lispy-left lispy-right lispy-outline lispy--remember region-active-p region-beginning exchange-point-and-mark "\n " nil looking-back "^ *\\(;\\)[^\n]*[\n ]*" (error) backward-sexp 1 deactivate-mark lispy--mark lispy--bounds-comment lispy--symbolp lispy--string-dwim 0 result (error) lispy-slurp lispy-different lispy-barf buffer-read-only message "Buffer is read-only: %s" (error) lispy--in-comment-p "\n" 2 -1 looking-at lispy-backward line-beginning-position lispy-forward ";" (error) outline-previous-visible-heading error "First outline reached" lispy--ensure-visible] 7 (#$ . 24983) "p"]) #@43 Ring for point and mark position history. (defvar lispy-pos-ring (make-ring 100) (#$ . 26739)) #@46 Store the current point and mark in history. (defalias 'lispy--remember #[0 "\301!\302U\211?\205\303\302\"\304 \2032\305 \306 @\307\223\306 A\307\223B\204-\211\232?\2051\310\"\207\204>\311 \232?\205C\310\311 \"\207" [lispy-pos-ring ring-length 0 ring-ref region-active-p lispy--bounds-dwim make-marker nil ring-insert point-marker] 7 (#$ . 26840)]) #@104 Move point to ARGth previous position. If position isn't special, move to previous or error. (fn ARG) (defalias 'lispy-back #[257 "\301\3022u\3031[\211T\211\262X\203V\304!\301U\203\"\305\306!\210\202 \307\301\"\304!\301U\204?\310\301\"\232\203?\307\301\"\210\202&\211:\203L\311!\266\202 \312 \210\211b\266\202 0\202t\211@\313=\203g\314\315p\"\210S\262\301V\205r\2620\207" [lispy-pos-ring 0 result (error) ring-length lispy-complain "At beginning of point history" ring-remove ring-ref lispy--mark deactivate-mark buffer-read-only message "Buffer is read-only: %s"] 6 (#$ . 27214) "p"]) #@42 Make a knight-like move: down and right. (defalias 'lispy-knight-down #[0 "\302\303 \"\203\304 \210\202\305 !\204\306\307!\210`\212\310 \210\311 )\3122N\313y\210`AY\2039b\210\314\312\313\"\210\202$\305\315 P!\203$\316\225Sb\210\314\312\317\"\210\202$\207" [lispy-right lispy-left looking-back line-beginning-position lispy-different looking-at lispy-backward 1 lispy-beginning-of-defun lispy--bounds-list done nil throw "\\s-*" 0 t] 5 (#$ . 27838) nil]) #@40 Make a knight-like move: up and right. (defalias 'lispy-knight-up #[0 "\302\303 \"\203\304 \210\202\305 !\204\306\307!\210`\212\310 \210\311 )\3122O\313\314!\210`@W\203:b\210\315\312\316\"\210\202$\305\317 P!\203$\314\225Sb\210\315\312\320\"\210\202$\207" [lispy-right lispy-left looking-back line-beginning-position lispy-different looking-at lispy-backward 1 lispy-beginning-of-defun lispy--bounds-list done beginning-of-line 0 throw nil "\\s-*" t] 5 (#$ . 28312) nil]) #@47 Switch to the different side of current sexp. (defalias 'lispy-different #[0 "\302 \203\303 \304 U\204\305 \207\306\307 \"\203\310 \207\311 !\203$\312 \207\313\314!\207" [lispy-right lispy-left region-active-p region-beginning region-end exchange-point-and-mark looking-back line-beginning-position backward-list looking-at forward-list user-error "Unexpected"] 3 (#$ . 28804) nil]) #@39 Kill line, keeping parens consistent. (defalias 'lispy-kill #[0 "\302\303 \204\304\305!\203\212\306\225b\210\303 )\203\307 \207\310 \211\262\203T`@=\2034\311@A\"\312V\203T\211A\313 V\203M`@=\203J\314@A\"\207\307 \207\314`AS\"\207\304\315!\203d\314\306\224\306\225\"\210\316 \207\304!\203z\317 \320 \"\203z\321\312!\210\322\312!\207\304 !\203\316\323 \262\311@A\"\312V\203\226\314@A\"\207\211@\313 }\210`\3241\247\325 0\202\253\210\202\272\203\272`V\203\272`\262\202\235\304\326!\203\304\306\225\262eb\210~\210\314`\"\207`\313 \302`W\203\375\3271\351\330\312!\210\331\302w\210\3320\202\353\210\302\203\375\333 \211\262\203\322\211Ab\210\202\322\334\302w\210\314`\"\207" [lispy-right lispy-left nil lispy--in-comment-p looking-at " *;" 0 kill-line lispy--bounds-string count-lines 1 line-end-position kill-region " *\n" lispy--indent-for-tab looking-back line-beginning-position delete-char backward-delete-char lispy--bounds-list (error) forward-list "[ ]*;[^\n]*$" (error) forward-sexp " " t lispy--bounds-comment " "] 7 (#$ . 29201) nil]) #@54 Kill ARG words, keeping parens consistent. (fn ARG) (defalias 'lispy-kill-word #[257 "\211\300W\203 \301[!\207\302\300\3032z\3041`\211T\211\262X\203[m\2041\302fz\305>\2041\306u\210\202\307 \2049\310 \210\311 \211\262\203T\214@TAS}\210\312\306!\210~\210)\202\312\306!\210\2020\202y\211@\313=\203l\314\315p\"\210S\262\300V\205w\2620\207" [0 lispy-backward-kill-word nil result (error) (119 95) 1 lispy-bolp delete-horizontal-space lispy--bounds-string kill-word buffer-read-only message "Buffer is read-only: %s"] 7 (#$ . 30299) "p"]) #@63 Kill ARG words backward, keeping parens consistent. (fn ARG) (defalias 'lispy-backward-kill-word #[257 "\300`\300\301\3022\3031\364\211T\211\262X\203\357\304\300x\262`Sfz\305>\203b\306\307\310 \"\262\2038\301\224\301\225|\210\202\f\311v\210\312`\"\210\313 \203\f\314\307\310 \"\262\204\f\315\307\310 \"\262\203\f\316\311!\210\202\f`|\210\301U\204x\317\320!\204x\321c\210\311u\210o\204\213`Sfz\322>\204\213\311u\210\202x\323 \211\262\203\350\214\317\324!\203\252\301\225A=\203\252ASb\210\202\273@V\203\273AW\203\273b\210@T`}\210\312\311v\210\314\307\310 \"\262\204\336\315\307\310 \"\262\203\336\311u\210`d\"\210~\210)\202\f\325\326!\210\202\f0\202 \211@\327=\203\330\331p\"\210S\262\301V\205 \2620\207" [nil 0 result (error) " \n" (119 95) "\\_<\\s_+" looking-back line-beginning-position -1 kill-region lispy--in-string-p "\\\\\\\\" "\\\\" delete-char looking-at " \\|$" " " (119 95) lispy--bounds-string "\\s-+\"" backward-kill-word 1 buffer-read-only message "Buffer is read-only: %s"] 10 (#$ . 30868) "p"]) #@47 Kill until the end of current string or list. (defalias 'lispy-kill-sentence #[0 "\301 \302!\204\302\303!\203\304@A\"\207\305 \206\306 \262\304`AS\"\207" [lispy-left lispy--bounds-dwim looking-at "\"" kill-region lispy--bounds-string lispy--bounds-list] 4 (#$ . 31947) nil]) #@60 Like regular `yank', but quotes body when called from "|". (defalias 'lispy-yank #[0 "\302\303 \304 \203\305\301!\203 \203\306\307 \310 \"\210\311!\207\312f\313=\2035`Sf\313=\2035\311\314\315\316#!\207\317`!\210\311!\207" [this-command delete-selection-mode yank lispy--maybe-safe-current-kill region-active-p boundp lispy--maybe-safe-delete-region region-beginning region-end insert-for-yank nil 34 replace-regexp-in-string "\"" "\\\\\"" push-mark] 6 (#$ . 32239) nil]) #@52 Save the current buffer string for writing a test. (defalias 'lispy-buffer-kill-ring-save #[0 "\300c\210\301\302\303\304ed\"\"!\210\305\306!\207" ["|" kill-new format "%S" buffer-substring-no-properties delete-char -1] 6 (#$ . 32728) nil]) #@162 When cursor is adjacent to an opening or closing pair, `lispy-delete' or `lispy-delete-backward' toward the delimiter will kill the whole sexp (string or list). (defvar lispy-delete-sexp-from-within nil (#$ . 32975)) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\207" [defvaralias lispy-delete-atom-from-within lispy-delete-sexp-from-within nil (saved-value saved-variable-comment) put make-obsolete-variable "2018-04-15"] 7) #@29 Delete ARG sexps. (fn ARG) (defalias 'lispy-delete #[257 "\303\304W\203\f\305[!\207\306 \203\307\310 \311 \"\207\312 \211\262\203\263`TA=\2034\211@b\210\205J\313!\207\314\315!\203K`\316\\A=\203G\211@b\207\317\316!\207\314\320!\203c\321\322\323 \"\262\203c\324u\210\317\316!\207\325\326\327\"\206J\314\330!\203t\317\316!\207\314\321!\203\214\321\322\323 \"\262\203\214\324u\210\317\316!\207`@=\203\242\211@A|\210`\331\303w\210\211`|\207\212\332u\210\333 )\203\260\317!\207\334 \207\335 \203\311\336 \203\305\337 \211@A|\207\317!\207\314 !\203\333\302\332!\210\205J\313!\207\314\n!\203\340 \210\304\3412\3421\211T\211\262X\203\375\343 \210\202\3550\202\211@\344=\203\345\346p\"\210S\262\304V\205\2620\207l\203G\317\332!\210`\331\303w\210\211`|\210l\206@n\206@\336 \206@`Sf\347=?\205F\331c\207\317!\207" [lispy-delete-sexp-from-within lispy-right lispy-left nil 0 lispy-delete-backward region-active-p lispy--maybe-safe-delete-region region-beginning region-end lispy--bounds-string lispy-delete looking-at "\\\\\"" 2 delete-char "\"" "\\\\" looking-back line-beginning-position -1 lispy--delete-pair-in-string "\\\\\\\\(" "\\\\\\\\)" "\\\\\\\\" " " 1 lispy--in-string-or-comment-p lispy--exit-string lispy--in-comment-p lispy-bolp lispy--bounds-comment lispy--delete-leading-garbage result (error) lispy--delete buffer-read-only message "Buffer is read-only: %s" 32] 7 (#$ . 33495) "p"]) #@160 Delete any syntax before an opening delimiter such as '. Delete backwards to the closest whitespace char or opening delimiter or to the beginning of the line. (defalias 'lispy--delete-leading-garbage #[0 "`\301\302\303Q!\210\304\225b\210`|\207" [lispy-left re-search-backward "[[:space:]]\\|" "\\|^" 0] 5 (#$ . 34955)]) #@25 Delete spaces backward. (defalias 'lispy--delete-whitespace-backward #[0 "`\300\301x\210`|\207" [" " nil] 3 (#$ . 35283)]) #@101 When cursor is near top of screen when calling `lispy-delete-backward', recenter cursor with arg. (defvar lispy-delete-backward-recenter -20 (#$ . 35414)) #@99 From ")|", delete ARG sexps backwards. Otherwise (`backward-delete-char-untabify' ARG). (fn ARG) (defalias 'lispy-delete-backward #[257 "\306\307W\203\310[!\266\202\336\311 \203 \312\313 \314 \"\266\202\336o\204\335\315 \211\262\203\214`@=\204\214`@Z\316=\203L\211Ab\210\203\210\317!\266\202\336\320\321@\"\204\\\320\322@\"\203t`\307\224b\210\323\321\322\"\204o\211b\210\324!\210\266\202\336\320\325@\"\203\204\326\327!\266\202\336\324!\210\210\202\336\330 !\203\261 \331P\320\332 \"\262\203\251\307\224\307\225|\266\202\336\333\334!\266\202\336\335 \203\336\320\332 \"\262\203\321\307\224Se]\307\225|\210\337 \266\202\336\330\340!\203\f\341\320\332 \"\262\203\f`\342\306x\210`|\210\343\320\332 \"\262\203\375\337 \266\202\336`\344\316!\210\345 \210\211b\266\202\336\324!\266\202\336\346\320\332 \"\262\203'\324!\266\202\336\n\347P\320\332 \"\262\203B\330\350!\203B\324!\266\202\336\320\n\332 \"\203[ \f>\204t\351\320\332 \"\262\203t\n\347P\320\332 \"\262\203\372\330 !\204t\330\352!\203\372`\353!\210\320\n\332 \"\204\204\354 \210\355\306x\210\356\357`!\360\"\203\227\306u\210\202\210`|\210\330\347!\204\316\361 \204\316\320\n\332 \"\203\272\330 !\204\272\330\352!\203\316 \320\332 \"\262\204\316\362\363!\204\316\364 \210`\262\361 \204\360\330 !\204\360\365\306x\210\320\n\332 \"\203\360`|\266\202\336\211b\210\337 \266\202\336 \320\332 \"\262\203\351\320\332 \"\262\204\344\316!\210\317\316!\266\202\336`Sf\366=\203B\334u\210\315 \211@A|\210\367 \210\330\347!\204;\347c\210\337 \266\202\336\362\370!\203q\330\n!\204q`\371u\210\315 @|\266\367 \210 \320\332 \"\262\204j\364 \210\337 \266\202\336\361 \203\303\332 `|\210o\204\335l\204\240\212\334u\210\335 )\203\240\334u\210\372 \211@A|\266\333\316!\210\202\274\326\316!\210l\204\274\330\n!\204\274 \320\332 \"\262\204\274\364 \210\337 \266\202\336\373\320\332 \"\262\203\331\307\224\327\\`|\266\202\336\324!\210\210\374 \203\375`!\375\376 !Z\377W\203@\203\201A1\201B@!0\210\202\210\330 !\205\201C ?\205\201D \207" [lispy-delete-sexp-from-within lispy-outline lispy-right major-mode lispy-clojure-modes lispy-left nil 0 lispy-delete use-region-p lispy--maybe-safe-delete-region region-beginning region-end lispy--bounds-string 1 lispy-delete-backward looking-back "\\\\\\\\(" "\\\\\\\\)" lispy--delete-pair-in-string backward-delete-char-untabify "[^\\]\\\\[^\\]" backward-delete-char 2 looking-at ".*\n" line-beginning-position delete-char -1 lispy--in-comment-p "^ +" lispy--indent-for-tab "$" "; +" " ;" "^" lispy--out-forward lispy--normalize-1 "\\\\." " " " *$" "[\\?]." "\"" lispy-backward lispy--skip-delimiter-preceding-syntax-backward " " plist-get text-properties-at read-only lispy-bolp lispy-after-string-p "> " just-one-space " \n" 34 lispy--delete-whitespace-backward "\" " -2 lispy--bounds-comment "[^ ] +" buffer-file-name line-number-at-pos window-start 5 lispy-delete-backward-recenter (error) recenter lispy--in-string-or-comment-p indent-sexp] 7 (#$ . 35577) "p"]) #@101 Mark the quoted string or the list that includes the point. Extend region when it's aleardy active. (defalias 'lispy-mark #[0 "\300 \206\f\301 \206\f\302 \211\205\303!\207" [lispy--bounds-comment lispy--bounds-string lispy--bounds-list lispy--mark] 3 (#$ . 38698) nil]) #@89 Mark list from special position. When ARG is more than 1, mark ARGth element. (fn ARG) (defalias 'lispy-mark-list #[257 "\303\304!\203 \305 \210\211\306V\203\307 \210\310S!\210\202\214\211\311U\203=\312 \313@@f\314=\2031\315\2022\306\\ASB!\266\202\214\316 \203[\317 \210\320 \203T\321 \210\322\323w\210\202\214\324\323w\210\202\214\325!\203i\313\312 !\210\202\214\326 \327 \"\203|\313\312 !\210\330 \210\202\214\331 \203\214\325\332!\203\214\313\333 !\210\334\211\207" [lispy-left lispy-right this-command called-interactively-p interactive lispy--remember 1 lispy-mark-car lispy-down 0 lispy--bounds-dwim lispy--mark 35 2 region-active-p deactivate-mark lispy--in-comment-p beginning-of-line " " nil ",@'`" looking-at looking-back line-beginning-position lispy-different lispy-bolp ";" lispy--bounds-comment lispy-mark-list] 6 (#$ . 38979) "p"]) #@48 When t, `lispy-mark-symbol' will exit `iedit'. (defvar lispy-bind-var-in-progress nil (#$ . 39858)) (make-variable-buffer-local 'lispy-bind-var-in-progress) #@22 Mark current symbol. (defalias 'lispy-mark-symbol #[0 "\302\203\303 \210\302\304\305!\210\306 \207\307 \203<\310\311!\2037\312\225\211\262\2037\313\314\315 \"\2037\312\224b\210\316`!\210\211b\207\317\320 !\207\321 \204U\322 \211\262\203U`TAU\203U\317!\207\323\324!\203k\325 \204k\326\302!\210\304\327!\210\330 \207\310\331!\203\301\332\313\315 \"\262\203\214\321 \204\214\326\302!\210\304\327!\210\330 \207`\333\302w\210\326\302!\210\310\332!\203\236\304 \207\3341\266\335\336!\210\325 \203\262\335\337!\210\202\246\327u0\207\210\340\341!\210\342 \210\211b\207\321 \203\365\322 \3431\343\304 \210\211\205\341`AV\205\341\211Ab\210\344\345!0\207\210\342 \210\335\332!\210\327u\210\326\302!\210\304 \207\313 \315 \"\203\346\302x\210\326\302!\210\347\350!\210\325 \203\347\337!\210\202 \351u\207\310 !\203(\317\212\327u\210\352 )!\207\317\352 !\207" [lispy-bind-var-in-progress lispy-right nil lispy-map-done forward-sexp 2 lispy-mark-symbol lispy--in-comment-p looking-at "\\(?:\\w\\|\\s_\\)*'" 0 looking-back "`\\(?:\\w\\|\\s_\\)*" line-beginning-position set-mark lispy--mark lispy--bounds-comment region-active-p lispy--bounds-string lispy-after-string-p "\"" lispy--in-string-or-comment-p set-mark-command -1 exchange-point-and-mark " *[[({]" "\\sw\\|\\s_" "(){}[] \"\n" (error) re-search-forward "[][(){} \n]" "[() \n]" message "No further symbols found" deactivate-mark (error) error "`forward-sexp' went through string bounds" "}]) \n" re-search-backward "[][{}() \n]" 1 lispy--bounds-dwim] 5 (#$ . 40021) nil]) #@61 Kill the quoted string or the list that includes the point. (defalias 'lispy-kill-at-point #[0 "\301 \203\f\302\303 \304 \"\207\305 \206\306 \206\307 \203$\310@A{!\207\311@A\"\207" [buffer-read-only region-active-p lispy--maybe-safe-kill-region region-beginning region-end lispy--bounds-comment lispy--bounds-string lispy--bounds-list kill-new kill-region] 4 (#$ . 41580) nil]) #@42 Copy marked region or sexp to kill ring. (defalias 'lispy-new-copy #[0 "\300 \203\301\302 \303 \"\202\304 \211\3051\306\307!0\202\210\310\232?\205&\311!\207" [region-active-p lispy--maybe-safe-region region-beginning region-end lispy--string-dwim (error) current-kill 0 nil kill-new] 4 (#$ . 41975) nil]) #@72 Whether "(" should insert only the left paren in strings and comments. (defvar lispy-parens-only-left-in-string-or-comment t (#$ . 42296)) #@803 Return (lambda (arg)(interactive "P")...) using LEFT RIGHT. PRECEDING-SYNTAX-ALIST should be an alist of `major-mode' to a list of regexps. The regexps correspond to valid syntax that can precede LEFT in each major mode. When this function is called: - with region active: Wrap region with LEFT RIGHT. - with region active and arg 1: Wrap region with LEFT RIGHT and put the point after LEFT followed by a space. - with arg nil: Insert LEFT RIGHT. - with arg negative: Wrap as many sexps as possible until the end of the line with LEFT RIGHT. - with arg 0: Wrap as many sexps as possible with LEFT RIGHT. - with the universal arg: Wrap one sexp with LEFT RIGHT. - with arg positive: Wrap that number of sexps with LEFT RIGHT or as many as possible. (fn LEFT RIGHT PRECEDING-SYNTAX-ALIST) (defalias 'lispy-pair #[771 "\300\301\302\303\304\305\306  E\307BB\310\311\n\312 F\313BB\314\315\316\317\320\321BB\322BBB\323\311E\324BBBBD\325\311\fDD\326\327\330\fD\311E\331\332\333\334!D\335BB\336BBBBBB\337\340\341 D\342BB\343\311E\344\345\332\316\346\347\350DD\351BBB\352BB\257\257\257\207" [lambda (arg) (interactive "P") (cond ((not arg)) ((listp arg) (setq arg 1)) (t (setq arg (prefix-numeric-value arg)))) cond (region-active-p) lispy--surround-region ((when (and (lispy-looking-back lispy-left) (or (lispy-left-p) (> (or arg 0) 0))) (insert " ")) (backward-char 1)) (and (lispy--in-string-p) (lispy-looking-back "\\\\\\\\")) insert "\\\\" ((backward-char 3)) (lispy--in-string-or-comment-p) if and lispy-parens-only-left-in-string-or-comment string= ("(") ((= 40 (aref (this-command-keys-vector) 0))) (insert "(") ((backward-char 1)) (lispy-after-string-p "?\\") (not arg) (lispy--indent-for-tab) lispy--delimiter-space-unless (unless (or (eolp) (lispy--in-string-p) (looking-at "\n\\|)\\|}\\|\\]")) (just-one-space) (backward-char 1)) when looking-at regexp-quote ((insert " ") (backward-char)) ((backward-char)) t unless lispy--not-at-sexp-p ((when (lispy--bounds-dwim) (goto-char (car (lispy--bounds-dwim))))) (lispy--indent-for-tab) (save-excursion (lispy-slurp arg)) (when (or (looking-at lispy-right) (and (eolp) (looking-back lispy-right (1- (point))))) (backward-char)) lispy-insert-space-after-wrap not lispy--in-empty-list-p ((not (eolp))) ((just-one-space) (backward-char))] 25 (#$ . 42442)]) #@219 An alist of `major-mode' to a list of regexps. Each regexp describes valid syntax that can precede an opening paren in that major mode. These regexps are used to determine whether to insert a space for `lispy-parens'. (defvar lispy-parens-preceding-syntax-alist '((lisp-mode "[#`',.@]+" "#[0-9]*" "#[.,Ss+-]" "#[0-9]+[=Aa]") (emacs-lisp-mode "[#`',@]+" "#s" "#[0-9]+=") (clojure-mode "[`'~@]+" "#" "#\\?@?") (clojurescript-mode "[`'~@]+" "#" "#\\?@?") (clojurec-mode "[`'~@]+" "#" "#\\?@?") (cider-repl-mode "[`'~@]+" "#" "#\\?@?") (cider-clojure-interaction-mode "[`'~@]+" "#" "#\\?@?") (scheme-mode "[#`',@]+" "#hash") (t "[`',@]+")) (#$ . 44793)) #@223 An alist of `major-mode' to a list of regexps. Each regexp describes valid syntax that can precede an opening bracket in that major mode. These regexps are used to determine whether to insert a space for `lispy-brackets'. (defvar lispy-brackets-preceding-syntax-alist '((clojure-mode "[`']" "#[A-z.]*") (clojurescript-mode "[`']" "#[A-z.]*") (clojurec-mode "[`']" "#[A-z.]*") (cider-repl-mode "[`']" "#[A-z.]*") (cider-clojure-interaction-mode "[`']" "#[A-z.]*") (scheme-mode "[#`',@]+" "#hash") (t)) (#$ . 45450)) #@219 An alist of `major-mode' to a list of regexps. Each regexp describes valid syntax that can precede an opening brace in that major mode. These regexps are used to determine whether to insert a space for `lispy-braces'. (defvar lispy-braces-preceding-syntax-alist '((clojure-mode "[`'^]" "#[:]*[A-z.:]*") (clojurescript-mode "[`'^]" "#[:]*[A-z.:]*") (clojurec-mode "[`'^]" "#[:]*[A-z.:]*") (cider-repl-mode "[`'^]" "#[:]*[A-z.:]*") (cider-clojure-interaction-mode "[`'^]" "#[:]*[A-z.:]*") (t)) (#$ . 45972)) (byte-code "\300\301\302\303\304\305#\306#\210\300\307\302\310\311\312#\313#\210\300\314\302\315\316\317#\320#\207" [defalias lispy-parens lispy-pair "(" ")" lispy-parens-preceding-syntax-alist "`lispy-pair' with ()." lispy-brackets "[" "]" lispy-brackets-preceding-syntax-alist "`lispy-pair' with []." lispy-braces "{" "}" lispy-braces-preceding-syntax-alist "`lispy-pair' with {}."] 6) #@201 Insert a pair of quotes around the point. When the region is active, wrap it in quotes instead. When inside string, if ARG is nil quotes are quoted, otherwise the whole string is unquoted. (fn ARG) (defalias 'lispy-quotes #[257 "\301\302 \203\203 \303 \207\304 \207\305 \211\262\2039`@U\2049\203&\303 \207\2033\306\307!\2033\310u\207\311c\210\312u\207\203@\304 \207\313\314!\203J\315\310!\207\316\317!\210\320c\210\306\321!\204]\322 \210\323u\210\323u\207" [lispy-close-quotes-at-end-p nil region-active-p lispy-unstringify lispy-stringify lispy--bounds-string looking-at "\"" 1 "\\\"\\\"" -2 lispy-after-string-p "?\\" self-insert-command lispy--space-unless "^\\|\\s-\\|\\s(\\|[#]" "\"\"" "\n\\|)\\|}\\|\\]\\|$" just-one-space -1] 4 (#$ . 46873) "P"]) #@52 Exit the current sexp, and start a new sexp below. (defalias 'lispy-parens-down #[0 "\3001'\301\302!\210\303\304!\203\302\224b\210\305c\210\306 \210\307u\202%\310c\210\306 \210\307u0\207\210\311 \207" [(error) lispy--out-forward 1 looking-at "\n *\\()\\)" "()" lispy--indent-for-tab -1 "\n()" indent-new-comment-line] 2 (#$ . 47652) nil]) #@384 Insert one space, with position depending on ARG. If ARG is 2, amend the current list with a space from current side. If ARG is 3, switch to the different side beforehand. If jammed between parens, "(|(" unjam: "(| (". If after an opening delimiter and before a space (after wrapping a sexp, for example), do the opposite and delete the extra space, "(| foo)" to "(|foo)". (fn ARG) (defalias 'lispy-space #[257 "\302\300!\203 \203 \303 \207\304 \203\305 b\210\306 \210\307c\207\310 \203%\311\312!\207\211\313=\203?\314 \2033\315 \210\316u\210\317 ?\205\247\320 \207\211\321=\204N\211\322=\203c\315 \210\323 !\203]\324u\210\325 \210\316u\207\316u\210\325 \207 \326\327 \"\262\203\220\330\224\206t`Sf\331=\204\220\323\332!\203\211`\333\324w\210`|\207\311\312!\210\316u\207\311\312!\210\323 !\205\247\334\326\327 \"\262\205\247\316u\207" [edebug-active lispy-left boundp edebug-step-mode region-active-p region-end deactivate-mark " " lispy--in-string-or-comment-p call-interactively self-insert-command 4 lispy--leftp lispy-different -1 lispy-bolp newline-and-indent 2 3 looking-at nil just-one-space looking-back line-beginning-position 0 92 "[[:space:]]" "[:space:]" "[[({] "] 5 (#$ . 48002) "p"]) #@158 If true (the default), then add a space before inserting a colon following `lispy-colon-no-space-regex'. To disable this behavior, set this variable to nil. (defvar lispy-colon-p t (#$ . 49230)) #@168 Overrides REGEX that `lispy-colon' will consider for `major-mode'. `lispy-colon' will insert " :" instead of ":" unless `lispy-no-space' is t or `looking-back' REGEX. (defvar lispy-colon-no-space-regex '((lisp-mode . "\\s-\\|[:^?#]\\|ql\\|\\(?:\\s([[:word:]-]*\\)")) (#$ . 49432)) #@11 Insert :. (defalias 'lispy-colon #[0 "\203\303\304 \n\"A\206\305!\210\306c\207" [lispy-colon-p major-mode lispy-colon-no-space-regex lispy--space-unless assoc "\\s-\\|\\s(\\|[#:^?]" ":"] 4 (#$ . 49719) nil]) #@11 Insert ^. (defalias 'lispy-hat #[0 "\300\301!\210\302c\207" [lispy--space-unless "\\s-\\|\\s(\\|[:?]\\|\\\\" "^"] 2 (#$ . 49938) nil]) (defalias 'lispy-at #[0 "\300\301!\210\302c\207" [lispy--space-unless "\\s-\\|\\s(\\|[:?]\\|\\\\\\|~\\|," "@"] 2 nil nil]) #@164 Insert ' ARG times. When the region is active and marks a string, unquote it. Otherwise, when the region is active, toggle ' at the start of the region. (fn ARG) (defalias 'lispy-tick #[257 "\300 \203\301 \207\302 \203\303\304!\207\305\306!\210\307!\207" [lispy--string-markedp lispy-unstringify region-active-p lispy-toggle-char 39 lispy--space-unless "\\s-\\|\\s(\\|[~#:?'`]\\|\\\\" self-insert-command] 3 (#$ . 50203) "p"]) #@84 Insert _ ARG times. For Clojure modes, toggle #_ sexp comment. (fn &optional ARG) (defalias 'lispy-underscore #[256 "\211\206\302\262 >\203.\303 \211\204\304 \210\305\306!\203#\307\310!\210\202&\306c\210\211?\205-\304 \207\311!\207" [major-mode lispy-clojure-modes 1 lispy--leftp lispy-different lispy-after-string-p "#_" delete-char -2 self-insert-command] 4 (#$ . 50642) "p"]) #@11 Insert `. (defalias 'lispy-backtick #[0 "\300 \203\n\301\302\303\"\207\304\305!\210\302c\207" [region-active-p lispy--surround-region "`" "'" lispy--space-unless "\\s-\\|\\s(\\|[:?`']\\|\\\\"] 3 (#$ . 51039) nil]) #@97 Insert ~ ARG times. When the region is active, toggle a ~ at the start of the region. (fn ARG) (defalias 'lispy-tilde #[257 "\300 \203 \301\302!\207\303!\207" [region-active-p lispy-toggle-char 126 self-insert-command] 3 (#$ . 51260) "p"]) #@52 Toggle CHAR at the start of the region. (fn CHAR) (defalias 'lispy-toggle-char #[257 "\301 \302\212\211@b\210\302f=\203\303\304!\202c*\207" [deactivate-mark lispy--bounds-dwim nil delete-char 1] 4 (#$ . 51509)]) #@11 Insert #. (defalias 'lispy-hash #[0 " >\204\f\302>\203\303\304\305 \"\262\203\306\307!\210\310c\207\311\312!\210\310c\207" [major-mode lispy-clojure-modes (nrepl-repl-mode cider-clojure-interaction-mode) "\\sw #" looking-back line-beginning-position backward-delete-char 2 "#" lispy--space-unless "\\s-\\|\\s(\\|[#:?'`,]\\\\?"] 4 (#$ . 51735) nil]) #@17 Insert newline. (defalias 'lispy-newline-and-indent #[0 "\303\267\202\304\305 \207\306\211 \207\307\211 \207\310 \207\311\n!\203,\312\313x\210\314 \210\312\313w\210\315 \207\310 \207" [major-mode this-command lispy-left #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lisp-interaction-mode 6 cider-clojure-interaction-mode 11 cider-repl-mode 16 inferior-emacs-lisp-mode 21)) eval-last-sexp eval-print-last-sexp cider-eval-print-last-sexp cider-repl-newline-and-indent lispy-newline-and-indent-plain looking-at ",@'`#" nil newline-and-indent indent-sexp] 3 (#$ . 52099) nil]) #@74 When in minibuffer, exit it. Otherwise forward to `newline-and-indent'. (defalias 'lispy-newline-and-indent-plain #[0 "\304 \203\305 \207\306\267\202\"\307 \207\310 \207\311 \207\312 \207\313 \207\314\211 \207\315 \204O\n>\2038\316\317\320 \"\262\202@\321\317\320 \"\262\203O\212\322\224b\210\313 \210)\202R\313 \210\323\212\324\325!\210\326\212\327\325!)`ZW?\205h\330 *\207" [major-mode this-command lispy-clojure-modes lispy-ignore-whitespace minibufferp exit-minibuffer #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cider-repl-mode 14 slime-repl-mode 17 sly-mrepl-mode 20 comint-mode 23 python-mode 26 inferior-emacs-lisp-mode 29)) cider-repl-return slime-repl-return sly-mrepl-return comint-send-input newline-and-indent ielm-return lispy--in-string-or-comment-p "[^#`'@~][#`'@~]+" looking-back line-beginning-position "[^#`',@|][#`',@]+" 0 t lispy--out-backward 1 50000 forward-list indent-sexp] 5 (#$ . 52725) nil]) #@100 Add ARG lines after the current expression. When ARG is nagative, add them above instead (fn ARG) (defalias 'lispy-open-line #[257 "\212\302!\203 \303 \210\202\304 \305 \"\204\306\307!\210\211\310V\203%\311!\2020\303\312!\210\311[!\210\313 )\207" [lispy-left lispy-right looking-at forward-list looking-back line-beginning-position lispy--out-forward 1 0 newline -1 lispy--indent-for-tab] 4 (#$ . 53712) "p"]) #@23 Insert a new heading. (defalias 'lispy-meta-return #[0 "`\301 \203\302\210\303 \266\202F\304 \203%\305\306!\203%\307 \310 |\266\202F\311 \210\212\312\313!\210`U)\203?\312\313!\210\303 \266\202F\303 \210\314u\266\315\316 \313]\317\"\320\261\210\321 \207" [lispy-outline-header lispy--in-comment-p nil newline lispy-bolp looking-at " *$" line-beginning-position line-end-position lispy-beginning-of-defun forward-list 1 -1 make-string lispy-outline-level 42 " " beginning-of-line] 4 (#$ . 54139) nil]) #@679 Do a context-aware exit, then `newline-and-indent', N times. Exit branches: - When in the minibuffer, exit the minibuffer. - When in a string, exit the string. - When ")|", do nothing. - When " |)", exit the list and normalize it. - When "|(", move to the other side of the list. - When there's a ")" on the current line before the point, move there. - Otherwise, move to the end of the line. This should generally be useful when generating new code. If you find yourself with: (foo (bar (baz 1 2 "3|"))) calling this function consecutively, you will get a chance to add arguments to all the functions, while maintaining the parens in a pretty state. (fn &optional N) (defalias 'lispy-alt-line #[256 "\211\206\303\262\304\300!\203\203\305 \210\306\307\3102\347\3111\315\211T\211\262X\203\310\312 \307V\2035\313 \210\202\302\314 \211\262\203SA\315 V\203KAb\202PAb\210\306\204\302\316 \317 \"\204\302\320 !\203t`Sf\321=\204mn\203\302\301\303!\210\202\302\320\n!\203\200\322 \210\202\302\323\316\317 \"\262\203\241\324 \315 \325#\203\232\326u\210\202\302\327\303!\210\202\302\330 \204\302\203\256Ab\210\315 \331 A^`SW\203\301\332 \210\202\264\210\333 \210\2020\202\346\211@\334=\203\331\335\336p\"\210S\262\307V\205\344\2620\207" [abbrev-mode lispy-right lispy-left 1 boundp expand-abbrev nil 0 result (error) minibuffer-depth exit-minibuffer lispy--bounds-string line-end-position looking-back line-beginning-position looking-at 32 lispy-different "^ +" re-search-forward t -1 move-end-of-line lispy--in-comment-p lispy--bounds-list forward-sexp newline-and-indent buffer-read-only message "Buffer is read-only: %s"] 7 (#$ . 54662) "p"]) #@37 Convert current string to one line. (defalias 'lispy-string-oneline #[0 "`Sf\300=\203 \301u\210\302\211\303\304 \211\262!\262@A|\210\305\306\307#c\207" [34 -1 nil lispy--string-dwim lispy--bounds-string replace-regexp-in-string "\n" "\\\\n"] 6 (#$ . 56368) nil]) #@42 Wrap around `iedit'. (fn &optional ARG) (defalias 'lispy-iedit #[256 "\302\303!\210\203\f\300\304!\207\305 !\203\306u\210\211\203\300\307!\207\300 \207" [iedit-mode lispy-left require iedit nil looking-at 1 0] 3 (#$ . 56643) "P"]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable lispy-occur-backend funcall function #[0 "\300\207" [ivy] 1] "Method to navigate to a line with `lispy-occur'." :type (choice (const :tag "Ivy" ivy) (const :tag "Helm" helm))] 6) #@60 Start position of the top level sexp during `lispy-occur'. (defvar lispy--occur-beg 1 (#$ . 57144)) #@58 End position of the top level sexp during `lispy-occur'. (defvar lispy--occur-end 1 (#$ . 57250)) #@62 Return the candidates for `lispy-occur'. (fn &optional BND) (defalias 'lispy--occur-candidates #[256 "\211\206\212n\203\303!\204\304 \210\305 )\262\306\307@A\212 b\210`\nW\203@\310\311T\211\262\312 \313 {#B\262\314y\210\202#)\211\237\207" [lispy-left lispy--occur-beg lispy--occur-end looking-at beginning-of-defun lispy--bounds-dwim -1 nil format "%-3d %s" line-beginning-position line-end-position 1] 8 (#$ . 57354)]) #@44 Initial candidate regex for `lispy-occur'. (defalias 'lispy--occur-preselect #[0 "\301\302\303`!\303!Z\"\207" [lispy--occur-beg format "^%d" line-number-at-pos] 5 (#$ . 57799)]) #@40 Goto line X for `lispy-occur'. (fn X) (defalias 'lispy-occur-action-goto-paren #[257 "\305!\262b\210 \306=\203\n\202 \307\310\230\203-y\210\311 \210\312\f\313 \314#\205`\315\224b\207y\210\312\316!\313 \314#\210\317 \211\262\203D\211b\207\320\f\321 \314#\203Q\315\224b\207\312\f\313 \314#\203^\315\224b\207\311 \207" [lispy--occur-beg lispy-occur-backend helm-input ivy-text lispy-left read helm nil "" back-to-indentation re-search-forward line-end-position t 0 ivy--regex lispy--in-string-or-comment-p re-search-backward line-beginning-position] 7 (#$ . 57984)]) #@40 Goto line X for `lispy-occur'. (fn X) (defalias 'lispy-occur-action-goto-end #[257 "\302!\262b\210\211y\210\303\304 !\305 \306#\207" [lispy--occur-beg ivy-text read re-search-forward ivy--regex line-end-position t] 5 (#$ . 58572)]) #@40 Goto line X for `lispy-occur'. (fn X) (defalias 'lispy-occur-action-goto-beg #[257 "\300!\205 \301\224b\207" [lispy-occur-action-goto-end 0] 3 (#$ . 58814)]) #@62 Make a fake cursor for each `lispy-occur' candidate. (fn X) (defalias 'lispy-occur-action-mc #[257 "\237\303\211A\262\242\211\262\203* b\210\304!y\210\305\306\n!\307 \310#\210\203\311 \210\202\266\312\313!\207" [ivy--old-cands lispy--occur-beg ivy-text nil read re-search-forward ivy--regex line-end-position t mc/create-fake-cursor-at-point multiple-cursors-mode 1] 7 (#$ . 58981)]) (ivy-set-actions 'lispy-occur '(("m" lispy-occur-action-mc "multiple-cursors") ("j" lispy-occur-action-goto-beg "goto start") ("k" lispy-occur-action-goto-end "goto end"))) #@100 Select a line within current top level sexp. See `lispy-occur-backend' for the selection back end. (defalias 'lispy-occur #[0 "\301 \210\302\267\202A\303\304!\210\305\306\307\"\210\305\310\307\"\210\311\216\304\312\313\314\315 B\316BB\317\320 \321\322&)\207\323\216\324\325\315 \317\320 \326\327\330\331\332\333\334\335&\f)\207\336\337\"\207" [lispy-occur-backend swiper--init #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (helm 9 ivy 44)) require helm add-hook helm-move-selection-after-hook lispy--occur-update-input-helm helm-update-hook #[0 "\300 \210\301\302\303\"\210\301\304\303\"\207" [swiper--cleanup remove-hook helm-move-selection-after-hook lispy--occur-update-input-helm helm-update-hook] 3] :sources (name . "this defun") candidates lispy--occur-candidates ((action . lispy-occur-action-goto-paren) (match-strict lambda (x) (ignore-errors (string-match (ivy--regex helm-input) x)))) :preselect lispy--occur-preselect :buffer "*lispy-occur*" #[0 "\302 \210?\205\n b\207" [ivy-exit swiper--opoint swiper--cleanup] 1] ivy-read "pattern: " :require-match t :update-fn #[0 "\302 \303H\"\207" [ivy-text ivy-last lispy--occur-update-input 23] 4] :action lispy-occur-action-goto-paren :caller lispy-occur error "Bad `lispy-occur-backend': %S"] 13 (#$ . 59558) nil]) #@59 Update selection for `lispy-occur' using `helm' back end. (defalias 'lispy--occur-update-input-helm #[0 "\301\302\303 \304 \"\"\207" [helm-input lispy--occur-update-input buffer-substring-no-properties line-beginning-position line-end-position] 5 (#$ . 60882)]) #@119 Update selection for `ivy-occur'. INPUT is the current input text. STR is the full current candidate. (fn INPUT STR) (defalias 'lispy--occur-update-input #[514 "\304 \210\305!\306\307\"\203\310\311\312\"!\202\312\313\314H!r\315\316\"\216\317@\320\"\210 b\210\211\312V\262\203@y\210`\nX\204@\321 \210\322\323 \324 T\"\325\326\327#\210\325\330\314H#\210\211 B\210\331\324 \332#\210\333 \n#*\207" [ivy-last lispy--occur-beg lispy--occur-end swiper--overlays swiper--cleanup ivy--regex string-match "^[0-9]+" string-to-number match-string 0 internal--before-with-selected-window 12 make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord recenter make-overlay line-beginning-position line-end-position overlay-put face swiper-line-face window re-search-forward t swiper--add-overlays] 11 (#$ . 61152)]) #@126 Grow current marked symbol by ARG words forwards. Return the amount of successful grow steps, nil instead of zero. (fn ARG) (defalias 'lispy--sub-slurp-forward #[257 "\300\301!\205Y\302\303!A\304\305\3062U\3071;\211T\211\262X\2036`\262\310v\210`V\203b\210\311\306S\"\210\2020\202T\211@\312=\203G\313\314p\"\210S\262\305V\205R\2620\262\266\202\207" [looking-at "\\s_" bounds-of-thing-at-point symbol nil 0 result (error) 1 throw buffer-read-only message "Buffer is read-only: %s"] 8 (#$ . 62025)]) #@121 Grow current marked symbol by ARG backwards. Return the amount of successful grow steps, nil instead of zero. (fn ARG) (defalias 'lispy--sub-slurp-backward #[257 "\300\301\302 \"\262\205^\303\304!@\305\306\3072Z\3101@\211T\211\262X\203;`\262\311v\210`W\203b\210\312\307S\"\210\2020\202Y\211@\313=\203L\314\315p\"\210S\262\306V\205W\2620\262\266\202\207" ["\\s_" looking-back line-beginning-position bounds-of-thing-at-point symbol nil 0 result (error) -1 throw buffer-read-only message "Buffer is read-only: %s"] 8 (#$ . 62554)]) #@320 Grow current sexp by ARG sexps. If ARG is zero, grow as far as possible. If ARG is -1, grow until the end or beginning of the line. If it is not possible to slurp to the end of the line, slurp as far as possible within the line. If before a multi-line list, slurp to the end of the line where that list ends. (fn ARG) (defalias 'lispy-slurp #[257 "\302 \203'`\303 U\203\211\304U\203Z\304\3052K\30611\211T\211\262\307X\203,\310\307!\210\202\3070\202J\211@\311=\203=\312\313p\"\210S\262\304V\205H\2620\262\205&\314\315!?\205\366\202\211\316U\203\252\314\317P!?\205&\304\3052\242\3201\210\211T\211\262\307X\203\203\310\307!\210\202r\3070\202\241\211@\311=\203\224\312\313p\"\210S\262\304V\205\237\2620\262\205\366\202`\314\321!\204\310\212\322 b\210\314 !?\205\304\321\323\324 \"\262)\203\314\325!\207\314\326!\203\333\304\225b\210\327 Ab\207\304\3052\3301\372\211T\211\262X\203\365\310\307!\210\202\3440\202\211@\311=\203\312\313p\"\210S\262\304V\205\2620\207\211\304U\203c\304\3052T\3311:\211T\211\262\307X\2035\310\316!\210\202$\3070\202S\211@\311=\203F\312\313p\"\210S\262\304V\205Q\2620\262\205&\314\332!?\205&\202\211\316U\203\266\333\323\324 \"\262?\205&\304\3052\256\3341\224\211T\211\262\307X\203\217\310\316!\210\202~\3070\202\255\211@\311=\203\240\312\313p\"\210S\262\304V\205\253\2620\262\205&\202i\314 !\204\307\321\323\324 \"\262\204\323\212\303 b\210\314\321!)\203\327\335!\207\212\336\337x\210\340 )\203\353\336\337x\210\327 @b\207\304\3052$\3411\n\211T\211\262X\203\310\316!\210\202\3640\202#\211@\311=\203\312\313p\"\210S\262\304V\205!\2620\262\207\323\324 \"\203\211\304U\203\206`\304\3052q\3421W\211T\211\262\307X\203R\343 \210\344 \210\202?\3070\202p\211@\311=\203c\312\313p\"\210S\262\304V\205n\2620\262\203\202`U\204\202`\262\2026\210\202\364\211\316U\203\325\314\345\346Q!\204\364\304\3052\315\3471\263\211T\211\262\307X\203\256\343 \210\202\236\3070\202\314\211@\311=\203\277\312\313p\"\210S\262\304V\205\312\2620\262\204\214\202\364\304\3052 \3501\363\211T\211\262X\203\356\343 \210\202\3360\202\f\211@\311=\203\377\312\313p\"\210S\262\304V\205\n\2620\266\202\364\314 !\203\364\211\304U\203i\304\3052V\3511<\211T\211\262\307X\2037\352 \210\202'\3070\202U\211@\311=\203H\312\313p\"\210S\262\304V\205S\2620\262\203\364\332\323\324 \"\262\203\202\364\211\316U\203\272\333\323\324 \"\262\204\364\304\3052\262\3531\230\211T\211\262\307X\203\223\352 \210\202\203\3070\202\261\211@\311=\203\244\312\313p\"\210S\262\304V\205\257\2620\262\204o\202\364\304\3052\362\3541\330\211T\211\262X\203\323\352 \210\202\3030\202\361\211@\311=\203\344\312\313p\"\210S\262\304V\205\357\2620\266\344 \207" [lispy-right lispy-left region-active-p region-end 0 result (error) 1 forward-sexp buffer-read-only message "Buffer is read-only: %s" looking-at "\\'" -1 "*$" (error) "\\s_" region-beginning looking-back line-beginning-position lispy--sub-slurp-forward "[\n ]+;" lispy--bounds-comment (error) (error) "\\`" "^[[:space:]]*" (error) lispy--sub-slurp-backward " \n" nil lispy--in-comment-p (error) (error) lispy--slurp-forward lispy--reindent "\\(" "\\|$\\)" (error) (error) (error) lispy--slurp-backward (error) (error)] 7 (#$ . 63118) "p"]) #@49 Move current sexp or region into the next sexp. (defalias 'lispy-down-slurp #[0 "\303 \304 \305 n\306\307 !\203\310 \210\212\311\312!\205\313\312!\210`)\211\205_\211b\210\314@A?$\210\212\315u\210\n\316P\317\320 \"\262\203G\321 \210\203\\\322\317\320 \"\262\203\\\323\224\323\225|\210\324 )\262)\207" [deactivate-mark lispy-left lispy-right lispy--bounds-dwim lispy--leftp region-active-p nil looking-at forward-sexp lispy-forward 1 lispy-backward lispy--teleport -1 " +" looking-back line-beginning-position just-one-space "^ +" 0 indent-sexp] 10 (#$ . 66521) nil]) #@273 Move current sexp or region into the previous sexp. If the point is by itself on a line or followed only by right delimiters, slurp the point into the previous list. This can be of thought as indenting the code to the next level and adjusting the parentheses accordingly. (defalias 'lispy-up-slurp #[0 "\303 \211\304=\205\212\305!\210\306 \210`)\211\205\211\212\307 !\210`)U\203)``B\202+\310 \311 \312\313 \"\206>\311 \205>`\314 U\315\211\211\315\302 \210@b\210\204U\316\317!\204s\320\321!\210\203d\322!\202\341\203mA\202o@b\202\341`\262\323 \210`\262@b\210\324 \262\212Ab\210\206\216`Sfc\210b\210\325\317!\210b\210\326 )\327 \203\247\330 \210\210``A@Z\\\331\324 ` @Z\317$\\B\262\203\312\322!\210\203\324Ab\202\341\311 \203\336\306 \202\341@b)\207" [lispy-right lispy-left deactivate-mark lispy--empty-line-p right re-search-forward lispy-different re-search-backward lispy--bounds-dwim region-active-p looking-back line-beginning-position region-end nil lispy-backward 1 lispy-complain "No list above to slurp into" lispy--mark forward-list buffer-size backward-delete-char indent-sexp lispy-bolp back-to-indentation -] 16 (#$ . 67116) nil]) #@178 Indent the line if it is incorrectly indented or act as `lispy-up-slurp'. If indenting does not adjust indentation or move the point, call `lispy-up-slurp' ARG times. (fn ARG) (defalias 'lispy-indent-adjust-parens #[257 "\300 `\301 \205 \302 \303 B\304 \210\300 U\205c`U\205c\211\203(\305!\210\2025\306 \2045\307`!\210\310\311!\210\312\211W\203I\313\314 \266\211T\262\2027\266\211?\205c\301 \205c\3151`\316 0\210\202a\210\317 \207" [buffer-chars-modified-tick region-active-p region-beginning region-end indent-for-tab-command lispy--mark lispy--empty-line-p set-mark lispy-slurp -1 0 nil lispy-up-slurp (error) lispy-different deactivate-mark] 8 (#$ . 68322) "p"]) #@83 When in comment, move to the comment start. Otherwise, move to the previous sexp. (defalias 'lispy--backward-sexp-or-comment #[0 "\300 \203 \301 @b\210\202\302\303!\210\304\305x\207" [lispy--in-comment-p lispy--bounds-comment forward-sexp -1 " \n" nil] 2 (#$ . 69015)]) #@81 When before comment, move to the comment end. Otherwise, move to the next sexp. (defalias 'lispy--forward-sexp-or-comment #[0 "\212\300\301w\210\302 )\203\300\301w\210\303 Ab\207\304\305!\207" [" \n" nil lispy--in-comment-p lispy--bounds-comment forward-sexp 1] 2 (#$ . 69294)]) #@55 Shrink current sexp or region by ARG sexps. (fn ARG) (defalias 'lispy-barf #[257 "\302 \203\210\303 \304!\305!`\306 U\203\310\211\203b\307\3102a\3111G\211T\211\262X\203B\312\313\314 \315#\203:\316u\210\202!\317\310\"\210\202!0\202`\211@\320=\203S\321\322p\"\210S\262\307V\205^\2620\207\323 \203|\324 @b\210`\314 U\203x\324 Ab\207\325\326x\207T\262\307\3102\270\3271\236\211T\211\262X\203\231\330 \210\202\2110\202\267\211@\320=\203\252\321\322p\"\210S\262\307V\205\265\2620\266`@W\203\305@b\210\331 \207\211\203\307\3102\3321\373\211T\211\262X\203\366\333\334\306 \315#\203\356\335u\210\202\325\317\310\"\210\202\3250\202\211@\320=\203\321\322p\"\210S\262\307V\205\2620\207\323 \2030\324 Ab\210\314 \306 U\203,@b\207\325\326w\207\214e\306 }\210T\262\307\3102r\3361X\211T\211\262X\203S\331 \210\202C0\202q\211@\320=\203d\321\322p\"\210S\262\307V\205o\2620\266\323 \203\201\324 @b\210\202\205\337\335!\210~)\207\340\341!\206\342\343 \"\203\317\307\3102\316\3441\264\211T\211\262X\203\257\345 \210\202\2370\202\315\211@\320=\203\300\321\322p\"\210S\262\307V\205\313\2620\207\340 !\205\307\3102 \3461\363\211T\211\262X\203\356\347 \210\202\3360\202\f\211@\320=\203\377\321\322p\"\210S\262\307V\205\n\2620\262\207" [lispy-right lispy-left region-active-p lispy--bounds-dwim lispy--string-dwim lispy--symbolp region-end 0 result (error) re-search-backward "\\sw\\s_+" region-beginning t 1 throw buffer-read-only message "Buffer is read-only: %s" lispy--in-comment-p lispy--bounds-comment " \n" nil (error) lispy--backward-sexp-or-comment lispy--forward-sexp-or-comment (error) re-search-forward "\\s_+\\sw" -1 (error) forward-sexp looking-at "()" looking-back line-beginning-position (error) lispy--barf-backward (error) lispy--barf-forward] 9 (#$ . 69581) "p"]) #@267 Barfs or slurps current sexp so that visually, the delimiter at point moves to the right. When cursor is at lispy-right, will slurp ARG sexps forwards. ((a)| b c) -> ((a b)| c) When lispy-left, will barf ARG sexps forwards. (|(a b) c) -> (a |(b) c) (fn ARG) (defalias 'lispy-slurp-or-barf-right #[257 "\301 \203`\302 U\203\303!\207\304!\207\305\306 \"\203 \303!\207\304!\207" [lispy-right region-active-p region-end lispy-slurp lispy-barf looking-back line-beginning-position] 4 (#$ . 71476) "p"]) #@267 Barfs or slurps current sexp so that visually, the delimiter at point moves to the left. When cursor is at lispy-right, will barf ARG sexps backwards. (a (b c)|) -> (a (b)| c) When lispy-left, will slurp ARG sexps forwards. (a |(b) c) -> (|(a b) c) (fn ARG) (defalias 'lispy-slurp-or-barf-left #[257 "\301 \203`\302 U\203\303!\207\304!\207\305!\203\303!\207\304!\207" [lispy-left region-active-p region-beginning lispy-slurp lispy-barf looking-at] 3 (#$ . 71999) "p"]) #@50 Splice ARG sexps into containing list. (fn ARG) (defalias 'lispy-splice #[257 "\303\3042\312\3051\260\211T\211\262X\203\253\306 \307\310 \203=\212\211Ab\210\311 !\210`A|\210)\212\211@b\210\312\n!\210\211@`|\210)\202\246\313 \204\246\314\n!\203d\212\211Ab\210\315\316!\210)\317 \210\315\320!\210\321\320!\210\322\320!\210\202\246\323 \324 \"\203\216\306 \262\315\316!\210\211@b\210`\312\n\307\325#\210\211`|\266\322\320!\210\326 \210\202\246\327 \262\212\211Ab\210\315\316!\210)\212\211@b\210\315\320!\210))\210\202 0\202\311\211@\330=\203\274\331\332p\"\210S\262\303V\205\307\2620\207" [deactivate-mark lispy-right lispy-left 0 result (error) lispy--bounds-dwim nil region-active-p re-search-backward re-search-forward lispy-splice-let looking-at delete-char -1 lispy--delete-leading-garbage 1 lispy-forward lispy-backward looking-back line-beginning-position t forward-list lispy--bounds-list buffer-read-only message "Buffer is read-only: %s"] 8 (#$ . 72493) "p"]) #@18 (fn ITEM TREE) (defalias 'lispy-find #[514 "\211\204\300\207\211:\203\301@\"\206\301A\"\207=\207" [nil lispy-find] 5 (#$ . 73494)]) #@47 Join the current `let' into the parent `let'. (defalias 'lispy-splice-let #[0 "\212\302\303!\205\304\305!\205\302\303!)\205\210 >\203\306 \207\212\307\310!\210\311\312 !)\313\314\212\315\305!\210\311\312 !)\"\212\307\310!\210`)\212\315\305!\210\316 \210`S)\212\317 \210\320\321!\210)\211|\210\322 \210\323\310!\210\324\325\326\"\"\203\203\302\327!\204\203\302\330!\203\331\332!\210\304\305!\210\333 \210\202\203\334\335!\210\336 \266\337\207" [major-mode lispy-clojure-modes looking-at "(let" lispy--out-backward 1 lispy-splice-let-clojure lispy-flow 2 lispy--read lispy--string-dwim mapcar #[257 "\211:\203\211@\207\207" [] 2 "\n\n(fn X)"] lispy-up lispy-different forward-list delete-char -1 newline-and-indent lispy-left cl-find-if make-closure #[257 "\301\300\"\207" [V0 lispy-find] 4 "\n\n(fn V)"] "(let\\*" "(\\(let\\)" replace-match "(let*" indent-sexp error "unexpected" lispy--normalize-1 t] 8 (#$ . 73646)]) #@60 Join the current Clojure `let' form into the parent `let'. (defalias 'lispy-splice-let-clojure #[0 "\212\300\301!\210`T)\212\302\301!\210\303 \210`S)\212\304 \210\305\306!\210)\211|\210\307c\210\310\311!\210\312 \210\313\207" [lispy-flow 1 lispy-up lispy-different forward-list delete-char -1 "\n" lispy--out-backward 2 lispy--normalize-1 t] 4 (#$ . 74591)]) #@95 Barf to the closest sexp before the point. When ARG is non-nil, barf from the left. (fn ARG) (defalias 'lispy-barf-to-point #[257 "\211\204 \301!\203 \302u\207\303 A@?\206\"\304 \211\205 \211@`U?\262?\205n\305 \302\306 \210\203:\305 U\204:\307\262\310 \210\203V\212\311\312!\210\313\312!\210)\211\203i\314\312!\210\202i\212\313\312!\210)\315 \210\301\316!\203i\317\312!\210\320\312!\266\202\207" [lispy-right looking-at nil syntax-ppss lispy--bounds-string line-number-at-pos lispy-split t lispy--normalize-1 lispy-up 1 lispy-splice lispy-delete-backward join-line " $" delete-char lispy--reindent] 5 (#$ . 74957) "P"]) #@47 Reverse the current list or region selection. (defalias 'lispy-reverse #[0 "\301 \302 \303\304\305\306!\"!\307@A|\210\211G\310=\203$\311@\237!\210\202-\311\237!\210\312\310!\210\2053\313 )\207" [deactivate-mark lispy--leftp lispy--bounds-dwim lispy--read format "(%s)" lispy--string-dwim nil 1 lispy--insert lispy-splice lispy-different] 7 (#$ . 75601) nil]) #@86 Use current sexp or region as replacement for its parent. Do so ARG times. (fn ARG) (defalias 'lispy-raise #[257 "\301\3022\254\3031\222\211T\211\262X\203\215\304 \305 \306\211\211\212\307\310!)\311 \203)\312 \210\210\2041\313 \210\314 \262\300 \210\307\310!\210\314 \262\211AA|\210\211@@|\210\203`\315@`\"\210\316@`B!\210\202}\305 \211\204i\313 \210\317\320\"\216\212\321 )\311 \203z\312 \210\210)\210\305 =\204\207\313 \210)\266\202 0\202\253\211@\322=\203\236\323\324p\"\210S\262\301V\205\251\2620\207" [deactivate-mark 0 result (error) region-active-p lispy--leftp nil lispy--out-forward 1 lispy-bolp back-to-indentation lispy-different lispy--bounds-dwim indent-region lispy--mark make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] indent-sexp buffer-read-only message "Buffer is read-only: %s"] 11 (#$ . 75976) "p"]) #@115 Use current sexps as replacement for their parent. The outcome when ahead of sexps is different from when behind. (defalias 'lispy-raise-some #[0 "`\302 \204U\303!\203)\304\305!\204\211b\210\306\307!\210\202U\310u\210\311`!\210\211b\210\202U\312 \313 \"\203Q\304\305!\204A\211b\210\306\307!\210\202U\314 \210\305u\210\311`!\210\211b\210\202U\315\316!\210\317\305!\210\320 \207" [lispy-left lispy-right region-active-p looking-at lispy--out-forward 1 lispy-complain "Not enough depth to raise" -1 set-mark looking-back line-beginning-position backward-list error "Unexpected" lispy-raise deactivate-mark] 4 (#$ . 76875) nil]) #@155 Replace (...(,,,|( with (,,,(...|( where ... and ,,, is arbitrary code. When ARG is more than 1, pull ARGth expression to enclose current sexp. (fn ARG) (defalias 'lispy-convolute #[257 "\301\212\302T!)\203\224\212\303T!)\203\224\301\211\304 \211\204\305 \210\306\307\"\216\212`\262\303!\262\303\310!\210\311B``B\"\210\312!)\313 \203F\314 \210\210)\210\304 \211\204R\305 \210\306\315\"\216\212\305 \210`\262\302!\262\302\310!\210\311B``B\"\210\3161{\305 0\210\202|\210\312T!)\313 \203\211\314 \210\211\262)\262\266\202\202\227\317\320!)\207" [deactivate-mark nil lispy--out-forward lispy--out-backward lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] 1 lispy--swap-regions lispy--reindent lispy-bolp back-to-indentation #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] (error) error "Not enough depth to convolute"] 8 (#$ . 77518) "p"]) #@65 Convolute and move left. Useful for propagating `let' bindings. (defalias 'lispy-convolute-left #[0 "\300 \203 \301\302!\210\303\302!\207\304\305!\207" [region-active-p lispy-convolute 1 lispy-left user-error "region must be active"] 2 (#$ . 78477) nil]) #@37 Command to use with `lispy-repeat'. (defvar lispy-repeat--command nil (#$ . 78739)) #@40 Prefix arg to use with `lispy-repeat'. (defvar lispy-repeat--prefix-arg nil (#$ . 78829)) #@43 Repeat last command with last prefix arg. (defalias 'lispy-repeat #[0 "\305>\204\n\206 \306  \207" [last-command lispy-repeat--command last-prefix-arg lispy-repeat--prefix-arg current-prefix-arg (special-lispy-repeat lispy-repeat) 1] 2 (#$ . 78925) nil]) #@13 Join sexps. (defalias 'lispy-join #[0 "`\302\303\304 \"\203&\305\306!\205\222\307 \210\310\306!\210b\210\311\306!\210\312\306!\210\313\306!\207\314 !\203U\315\306!\205\222\316 \210\311\306!\210Sb\210\310\306!\210\212\306u\210\301\317!\210\320 )\321 \203T\322 \210\207\323 \211\262\205\222\212\211@b\210\324\302x\210`Sf\325=\205v`S@T|\210\326)\206\222\212\211Ab\210\324\302w\210\314\327!\205\221\211AS`T|\210\326)\207" [lispy-right lispy-left nil looking-back line-beginning-position lispy-forward 1 backward-list delete-char backward-delete-char lispy--out-forward lispy--reindent looking-at lispy-backward forward-list 2 lispy--normalize-1 lispy-bolp back-to-indentation lispy--bounds-string " \n" 34 t "\""] 5 (#$ . 79195) nil]) #@14 Split sexps. (defalias 'lispy-split #[0 "\301\211\211\302 \203 \303 \207\304 \211\262\203+`@U\204+\305c\210l\203%\306\307!\210\310u\210\311 \207\212\312\307!`Sf\262\313\310!\210\301f\262)\203M\314\"c\210\315u\210\316\307!\210\311 \210\317!\205X\320 \207" [lispy-left nil lispy--in-comment-p indent-new-comment-line lispy--bounds-string "\"\"" delete-char 1 -1 newline-and-indent lispy--out-forward forward-list string -2 lispy-right looking-at indent-sexp] 6 (#$ . 79947) nil]) #@107 Move current expression up ARG times. Don't exit parent list. Also works from inside the list. (fn ARG) (defalias 'lispy-move-up #[257 "\303!\204\304 \305 \"\204\306 \204\303\n!\203\307!\207`\310\311!\210`Z\307!\210\211u\207" [lispy-left lispy-right lispy-outline looking-at looking-back line-beginning-position region-active-p lispy--move-up-special lispy--out-backward 1] 4 (#$ . 80445) "p"]) #@109 Move current expression down ARG times. Don't exit parent list. Also works from inside the list. (fn ARG) (defalias 'lispy-move-down #[257 "\303!\204\304 \305 \"\204\306 \204\303\n!\203\307!\207`\310\311!\210`Z\307!\210\211u\207" [lispy-left lispy-right lispy-outline looking-at looking-back line-beginning-position region-active-p lispy--move-down-special lispy--out-backward 1] 4 (#$ . 80860) "p"]) #@127 Swap the marked region ARG positions up. Precondition: the region is active and the point is at `region-beginning'. (fn ARG) (defalias 'lispy--move-up-region #[257 "\301\302!\203\212\303 b\210\301\304!)\206\313\305\304!\2035\306 \307\310!\210\306 \262\311\"\210\307\312`!\210A@Zu\207\211\313U\203\271\306 \212\300 \210\3141M\315 \210\3160\202Q\210\202Y\203Y\306 \202\\edB)\307@b\210\317\320@\316#\203\257\300 \210\321 \203z\322 \262\202\225\307f\323=\203\207\307u\210\324 \210\307f\325>\203\221\307u\210\306 \262\311\"\210\307\211@b\210\312`!\210A@Zu\266\202\266\307\326!\266\327 \207\306 \310!\210\326\311\306 \"@!\266\327 \207" [deactivate-mark looking-at "\\_<" region-end "-" lispy-after-string-p lispy--bounds-dwim nil lispy-up lispy--swap-regions set-mark 1 (error) up-list t re-search-backward "[^ \n`'#({[]" lispy--in-comment-p lispy--bounds-comment 34 backward-sexp (41 93 125) lispy--mark exchange-point-and-mark] 8 (#$ . 81281)]) #@74 Move current expression up ARG times. Don't exit parent list. (fn ARG) (defalias 'lispy--move-up-special #[257 "\301 \211\204\302!\204\303 \210\304 \203\305!\210\2027\302!\203(\306!\210\2027\307\310 !\210\311!\210\312 \210\303 \210\211?\205>\303 \207" [lispy-outline lispy--leftp looking-at lispy-different region-active-p lispy--move-up-region lispy-move-outline-up lispy--mark lispy--bounds-dwim lispy-move-up deactivate-mark] 4 (#$ . 82269)]) #@12 (fn ARG) (defalias 'lispy-move-outline-up #[257 "\301\302!\210\303\3042|\3051b\211T\211\262X\203]\306 \212\307u\210\306 )X\203X\310 \311\312!\210\310 \232\204F\211@e=\203N\212eb\210\313!)\204N@b\266\202 \314\"\210\211@b\266\266\202 0\202{\211@\315=\203n\316\317p\"\210S\262\303V\205y\2620\207" [lispy-outline require zoutline 0 result (error) lispy-outline-level -1 lispy--bounds-outline zo-up 1 looking-at lispy--swap-regions buffer-read-only message "Buffer is read-only: %s"] 9 (#$ . 82738) nil]) #@129 Swap the marked region ARG positions down. Precondition: the region is active and the point is at `region-beginning'. (fn ARG) (defalias 'lispy--move-down-region #[257 "\301\302!\203\212\303 b\210\304\305!)\206\313\212\303 b\210\304\302!)\203?\306 \307\310!\210\306 \262\311\"\210\211Ab\210\307\312`!\210@AZu\207\211\313U\203\270\306 \212\300 \210\3141W\315 \210\3160\202[\210\202c\203c\306 \202fedB)\307Ab\210\317\320AS`]\316#\203\261\300 \210\321 \203\207\322 \262\202\226`Sf\323>\203\222\324u\210\306 \262\311\"\210\307\211Ab\210\312`!\210A@Z\206\256\313[u\207\325!\210\326 \207\306 \310!\210\325\311\306 \"A!\210\327 \262\207" [deactivate-mark lispy-after-string-p "-" region-end looking-at "\\_>" lispy--bounds-dwim nil lispy-down lispy--swap-regions set-mark 1 (error) up-list t re-search-forward "[^ \n]" lispy--in-comment-p lispy--bounds-comment (40 34 91 123) -1 lispy--mark exchange-point-and-mark lispy-different] 8 (#$ . 83278)]) #@76 Move current expression down ARG times. Don't exit parent list. (fn ARG) (defalias 'lispy--move-down-special #[257 "\301 \211\204\302!\204\303 \210\304 \203\305!\210\202\226\302!\203\207\306\3072\202\3101h\211T\211\262X\203c\311 \312ATb\210\311 \211\262\203[\232\204[\313\"\210\211A@ZTu\266\202*@b\266\202*0\202\201\211@\314=\203t\315\316p\"\210S\262\306V\205\2620\266\202\226\317\320 !\210\321!\210\322 \210\303 \210\211?\205\235\303 \207" [lispy-outline lispy--leftp looking-at lispy-different region-active-p lispy--move-down-region 0 result (error) lispy--bounds-outline nil lispy--swap-regions buffer-read-only message "Buffer is read-only: %s" lispy--mark lispy--bounds-dwim lispy-move-down deactivate-mark] 8 (#$ . 84263)]) #@39 Move region left ARG times. (fn ARG) (defalias 'lispy-move-left #[257 "\301\3022\265\3031\233\211T\211\262X\203\226\212\3041 \305 \210\3060\202\"\210\307)\203 \310 \311 \312 \313!\307@A|\210\314\315!\204\\\314\316!\203P\317 \203P\320 `T|\210\202\\\314\321!\203\\\322\224\322\225|\210\300 \210\323\322!\210`\262c\210\324 \210\325\307x\210\326`\"\210\203\212\307\327!\210\203\221\330 \266\202 \203\221\331 \210\266\202 0\202\264\211@\332=\203\247\333\334p\"\210S\262\301V\205\262\2620\207" [deactivate-mark 0 result (error) (error) up-list t nil region-active-p lispy--leftp lispy--bounds-dwim lispy--string-dwim looking-at " *;" "\n" lispy-bolp line-beginning-position "\\([\n ]+\\)[^\n ;]" 1 lispy--out-backward newline-and-indent " \n" indent-region set-mark exchange-point-and-mark lispy-different buffer-read-only message "Buffer is read-only: %s"] 10 (#$ . 85046) "p"]) #@40 Move region right ARG times. (fn ARG) (defalias 'lispy-move-right #[257 "\301\3022\264\3031\232\211T\211\262X\203\225\212\3041 \305 \210\3060\202\"\210\307)\203 \310 \311 \312 \313!\307@A|\210\314\315!\204\\\314\316!\203P\317 \203P\320 `T|\210\202\\\314\321!\203\\\322\224\322\225|\210\323\322!\210\300 \210\324 \210\325 \210`\262c\210\326`\"\210\203\211\307\327!\210\203\220\330 \266\202 \203\220\324 \210\266\202 0\202\263\211@\331=\203\246\332\333p\"\210S\262\301V\205\261\2620\207" [deactivate-mark 0 result (error) (error) up-list t nil region-active-p lispy--leftp lispy--bounds-dwim lispy--string-dwim looking-at " *;" "\n" lispy-bolp line-beginning-position "\\([\n ]+\\)[^\n ;]" 1 lispy--out-backward lispy-different newline-and-indent indent-region set-mark exchange-point-and-mark buffer-read-only message "Buffer is read-only: %s"] 10 (#$ . 85967) "p"]) #@187 Move region or all the following sexps in the current list right. This can be of thought as dedenting the code to the previous level and adjusting the parentheses accordingly. (fn ARG) (defalias 'lispy-dedent-adjust-parens #[257 "\301 \211\302=\203l\303!\204\304!\210\305u\210\306\3072k\3101Q\211T\211\262X\203L\303\311!\2032\312\313!\210\212\305y\210\314\210\315 )\204C\316\317!\210\314u\210\320 \210\2020\202j\211@\321=\203]\322\323p\"\210S\262\306V\205h\2620\207\324 \203u\325!\207\211?\205\213\326`!\210\327\306!\210\325!\210\330 \210\331 \207" [lispy-right lispy--empty-line-p right looking-at re-search-forward -1 0 result (error) "$" error "No longer in sexp" nil lispy--in-comment-p lispy-delete-backward 1 newline-and-indent buffer-read-only message "Buffer is read-only: %s" region-active-p lispy-move-right set-mark lispy-slurp lispy-different deactivate-mark] 7 (#$ . 86881) "p"]) #@91 Clone sexp ARG times. When the sexp is top level, insert an additional newline. (fn ARG) (defalias 'lispy-clone #[257 "\302 \303!`\304 \203\\\305\3062[\3071A\211T\211\262X\203<\310`\311 U\203.\211!\266\202\312 \210\211!\210\312 \266\2020\202Z\211@\313=\203M\314\315p\"\210S\262\305V\205X\2620\207\316!\203C@b\210n\203\263\316\317!\203\263\305\3062\256\3201\224\211T\211\262X\203\217c\210\321 \210\321 \210\202y0\202\255\211@\313=\203\240\314\315p\"\210S\262\305V\205\253\2620\266\211b\207n\203\212Ab\210\316\322!)\203\305\3062\3231\350\211T\211\262X\203\343c\210\324 \210\325\326!\210\202\3140\202\211@\313=\203\364\314\315p\"\210S\262\305V\205\377\2620\207\305\3062>\3271$\211T\211\262X\203c\210\324 \210\202\f0\202=\211@\313=\2030\314\315p\"\210S\262\305V\205;\2620\266\211b\207\330 \331 \"\203\325\212\332 \210n\205V\316\317!)\203\231\305\3062\230\3331~\211T\211\262X\203y\321 \210\324 \210c\210\202c0\202\227\211@\313=\203\212\314\315p\"\210S\262\305V\205\225\2620\207\305\3062\324\3341\272\211T\211\262X\203\265\324 \210c\210\202\2420\202\323\211@\313=\203\306\314\315p\"\210S\262\305V\205\321\2620\207\335\336!\207" [lispy-left lispy-right lispy--bounds-dwim lispy--string-dwim region-active-p 0 result (error) #[257 "\301\212\302 \210\211c\210\303 *\207" [deactivate-mark nil newline lispy--indent-for-tab] 2 "\n\n(fn STR)"] region-end exchange-point-and-mark buffer-read-only message "Buffer is read-only: %s" looking-at "(defun" (error) newline "\n;; =>" (error) newline-and-indent lispy-move-down 1 (error) looking-back line-beginning-position backward-list (error) (error) error "Unexpected"] 9 (#$ . 87809) "p"]) #@40 Collect comments for `lispy--oneline'. (defvar lispy--oneline-comments nil (#$ . 89565)) #@53 Reduce with FUNC all lists in EXPR. (fn FUNC EXPR) (defalias 'lispy-mapcan-tree #[514 "\211\204\300\207\301!\203)\211G\302V\203)\303\304\305\302H\"\305\306\307\"A\"\"\"\207\211<\203;\305@\"\305A\"\"\207\207" [nil vectorp 0 apply vector lispy-mapcan-tree mapcar identity] 11 (#$ . 89660)]) #@175 Remove newlines from EXPR. When IGNORE-COMMENTS is not nil, don't remove comments. Instead keep them, with a newline after each comment. (fn EXPR &optional IGNORE-COMMENTS) (defalias 'lispy--oneline #[513 "\300\301\302\"\"\207" [lispy-mapcan-tree make-closure #[514 "\302\232\203\207\303!\203'\300\204 B\207\211@\304\232\203!B\207\305BB\207\306!\203@\300\204@\307\310\311\312\313AA@#EB\207B\207" [V0 lispy--oneline-comments (ly-raw newline) lispy--raw-comment-p (ly-raw newline) (ly-raw newline) lispy--raw-string-p ly-raw string replace-regexp-in-string "\n" "\\\\n"] 8 "\n\n(fn X Y)"]] 6 (#$ . 89975)]) #@75 Squeeze current sexp into one line. Comments will be moved ahead of sexp. (defalias 'lispy-oneline #[0 "\303 \203#\304 \305!@A|\210\306\307\310\311\312\313#\314#\261\210\315 \210\316 \207\317!\2045\320 \321 \"\2045\322\323!\210\324 \305!\317!\325@A|\210\326 \203L\327 \210\325\3301[\331\332!!0\202]\210\325\211\262\203o\333\334\n\"\210\335!\210\202\272\336\325\311\337\313#\325:\203\240@\262\340\341\"\203\223\211\323\224\325OB\262\202\231\337Q\262A\262\202w\266\211\203\257\307\310\337#\337\261\210\342\343\314#\323\325Oc\266\205\300\344 \207" [lispy-left lispy-right lispy--oneline-comments lispy--in-comment-p lispy--bounds-comment lispy--string-dwim ";; " mapconcat identity split-string "[ \n]*;;[ \n]*" t " " beginning-of-line back-to-indentation looking-at looking-back line-beginning-position lispy--out-backward 1 lispy--bounds-dwim nil region-active-p deactivate-mark (error) lispy--oneline lispy--read mapc #[257 "\300!\210\301 \207" [lispy--insert newline] 3 "\n\n(fn X)"] lispy--insert "" "\n" string-match "^ *\\(;\\)" replace-regexp-in-string "\n *" backward-list] 11 (#$ . 90611) nil]) #@116 Spread current sexp over multiple lines. When ARG is `fill', do nothing for short expressions. (fn &optional ARG) (defalias 'lispy-multiline #[256 "\302!\204\303 \304 \"\204\305\306!\210\307 \211\204\310 \210\311\312\"\216\212\313 \314!\315!\316!\317\320=\2058G\321W?\205\244<\204D\317\262\322\323\"\204Q\324\235\203\204`\325\306!\210\326\306!\203x`V\203x\302\327!\204V\302\330!\203V\331\332!\210\333u\210\202V\211b\210\334 \262\266\205\202\246@A|\210\335\336\337\316!\"!\262\340!\203\241\341\342\"\262\343!\266\205)\344 \203\257\345 \210\211\262)\207" [lispy-left lispy-right looking-at looking-back line-beginning-position lispy--out-backward 1 lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] lispy--bounds-list lispy--string-dwim read lispy--read nil fill 80 cl-some listp (ly-raw newline) lispy-forward lispy-flow "]\\|)\\|\n" " *" replace-match "\n" -1 indent-sexp butlast cl-mapcan #[257 "\211\300>\203 \211C\207\211\301D\207" [(ly-raw clojure-map clojure-set) (ly-raw newline)] 3 "\n\n(fn Y)"] vectorp apply vector lispy--insert lispy-bolp back-to-indentation] 12 (#$ . 91767) "p"]) #@74 List of constructs for which the first 3 elements are on the first line. (defvar lispy--multiline-take-3 '(defvar defun defmacro defcustom defgroup defvar-local declare-function define-key nth throw define-error defadvice defhydra defsubst) (#$ . 92973)) (byte-code "\300\301!\210\302\303\301CC\304\305#\210\306\307\310\"\305\"\210\207" [make-variable-buffer-local lispy--multiline-take-3 nil mode-local-bind (mode-variable-flag t) clojure-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 lispy--multiline-take-3 make-local-variable] 2]] 5) #@142 List of constructs for which the first 3 elements are on the first line. The third one is assumed to be the arglist and will not be changed. (defvar lispy--multiline-take-3-arg '(defun defmacro declare-function define-error defadvice defhydra defsubst) (#$ . 93556)) #@74 List of constructs for which the first 2 elements are on the first line. (defvar lispy--multiline-take-2 '(defface define-minor-mode condition-case while incf car cdr > >= < <= /= = eq equal incf decf cl-incf cl-decf catch require provide setq cons when if unless interactive assq delq assoc declare lambda remq make-variable-buffer-local bound-and-true-p called-interactively-p lispy-dotimes cond case cl-case defalias 1+ 1- dotimes dolist boundp fboundp macrop null consp oddp zerop plusp minusp kbd not pop listp or and) (#$ . 93829)) (byte-code "\300\301!\210\302\303\301BC\304\305#\210\306\307\310\"\305\"\210\207" [make-variable-buffer-local lispy--multiline-take-2 (loop recur for fn def defn ns if -> ->> + + '- - '* * '/ > >= < <= = == or and not assoc! assoc assoc-in concat) mode-local-bind (mode-variable-flag t) clojure-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 lispy--multiline-take-2 make-local-variable] 2]] 5) #@110 List of constructs for which the first 2 elements are on the first line. The second one will not be changed. (defvar lispy--multiline-take-2-arg '(declare lambda make-variable-buffer-local bound-and-true-p called-interactively-p lispy-dotimes dotimes) (#$ . 94806)) #@177 Insert X in between each element of LST. Don't insert X when it's already there. When STEP is non-nil, insert in between each STEP elements instead. (fn X LST &optional STEP) (defalias 'lispy-interleave #[770 "\211\206\300\262GX\203\301\262\202\"S\233\262\233\301\241\210\237\301\203e@\232\2044B\262@GX\203D\301\262\202TS\233\262\233\301\241\210\211\262@\232\204$\211\237\244\262\202$\237\207" [1 nil] 11 (#$ . 95079)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable lispy-multiline-threshold funcall function #[0 "\300\207" [32] 1] "Don't multiline expresssions shorter than this when printed as a string." :type integer] 6) #@58 Replace quoted newlines with real ones in STR. (fn STR) (defalias 'lispy--translate-newlines #[257 "\300\301\302\"r\211q\210\303\304\"\216c\210eb\210\305\306\307\302#\2032`\310Z\206\"`Sf\311U\204\312\313\307\302#\210\202\314 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "\\\\n" nil 2 92 replace-match "\n" buffer-string] 6 (#$ . 95789)]) #@148 Transform a one-line EXPR into a multi-line. When QUOTED is not nil, assume that EXPR is quoted and ignore some rules. (fn EXPR &optional QUOTED) (defalias 'lispy--multiline-1 #[513 "\306!\203\307\310\311\312\313\"!\"\207<\204\207\203)\314\315\316#GW\203)\207\317\211\203\211A\262\242\262\211\320=\203\255@\211\321\267\202}\322\262\210\202\247B\262\210\202\247B\262\210\202\247\323\262\210\202\247B\262\210\202\247\320\324\325A@!E\262\210\202\247G\326U\204\212\327\330\"\210\203\224\327\331\"\210\320@\311A@@\332>@\"E\262\210\317\262\202+\306!\203\310\307\310\311\312\313\"!\"B\262\333B\262\202+\211\334\267\202 @\335\232\203\331A\262\211B\262\202+@\336\232\203\354A\262A@\337\232\203\374@AAB\262\211B\262\340B\262\202+\204S\211 >\203S\211B\262\203&\211A\262\242B\262\203K\211\n>\203=\211A\262\242B\262\202K\311\211A\262\242C!@B\262\341B\262\202+\204z\211 >\203z\211B\262\211\f>\203+\211A\262\242B\262\342B\262\202+\211\343>\203\315\203\315 0>\204\230@<\203\315@A<\203\315\211B\262\211A\262\242 0>\203\271\307\310\344\345\312\311\"\326#\"\202\300\344\346\312\347\"\"B\262\210\350B\262\202+\351!\203\333\211B\262\202+\211<\204\370\211B\262\211\247\203\360\352=\204+\353B\262\202+\311!\262\211\354\232\203\211@\232\204+\211B\262\202+\211B\262\355B\262\202+@\320=\203(\207@\356\232\203CA\203?\357A@!\203?\237\207A\237\207\237\207" [lispy-multiline-threshold lispy--multiline-take-3 lispy--multiline-take-3-arg lispy--multiline-take-2 lispy--multiline-take-2-arg major-mode vectorp apply vector lispy--multiline-1 mapcar identity lispy--prin1-to-string 0 emacs-lisp-mode nil ly-raw #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (empty 69 raw 76 dot 85 newline 94 comment 101 string 110)) (ly-raw empty) (ly-raw newline) string lispy--translate-newlines 2 error "Unexpected expr: %S" "Stray ly-raw in %S" (quote \` clojure-lambda) (ly-raw newline) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((ly-raw dot) 206 (ly-raw clojure-comma) 225)) (ly-raw newline) (ly-raw newline) (ly-raw newline) (ly-raw newline) (ly-raw newline) (ly-raw newline) (let let*) lispy-interleave (ly-raw newline) (ly-raw newline) #[257 "\211<\203\211@\300=\204\211@\301A!B\207\207" [ly-raw lispy--multiline-1] 4 "\n\n(fn X)"] (ly-raw newline) keywordp clojure-lambda (ly-raw newline) (ly-raw newline) (ly-raw newline) (ly-raw newline) lispy--raw-comment-p lispy-clojure-modes] 12 (#$ . 96236)]) #@111 Spread current sexp over multiple lines. When SILENT is non-nil, don't issue messages. (fn &optional SILENT) (defalias 'lispy-alt-multiline #[256 "\304!\204\305 \306 \"\204\307\310!\210\311 \312!\313!\314\315\"\316!\317 \232\2033?\205k\320\321!\207\n >\203Z\3221L\323!\323\324\325\n#!\2320\202R\210\326\327!\210\315\204Z\330\331\"\207@A|\210\332!\210\211\205k\333 \207" [lispy-left lispy-right major-mode lispy-elisp-modes looking-at looking-back line-beginning-position lispy--out-backward 1 lispy--bounds-dwim lispy--string-dwim lispy--read lispy--oneline t lispy--multiline-1 lispy--leftp message "No change" (error) read lispy--prin1-to-string 0 lispy-complain "Got an unreadable expr (probably overlay)" error "Got a bad transform: %S" lispy--insert backward-list] 13 (#$ . 98888) nil]) #@42 If t, `lispy-insert-1' will try to fill. (defvar lispy-do-fill nil (#$ . 99714)) #@26 Fill current expression. (defalias 'lispy-fill #[0 "\303!\204\304 \305 \"\203\306\307 )\207\310 \207" [lispy-left lispy-right lispy-do-fill looking-at looking-back line-beginning-position t lispy--normalize-1 fill-paragraph] 3 (#$ . 99801) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\207" [custom-declare-variable lispy-move-after-commenting funcall function #[0 "\300\207" [t] 1] "When non-nil, adjust point to next sexp after commenting out a\n sexp. If at last sexp in list, move out and backwards to\n enclosing sexp." :type boolean :group lispy lispy-comment-use-single-semicolon #[0 "\300\207" [nil] 1] "When non-nil, prefer single semicolons for comments at the\n right of the source code (after lispy-right or at eol)."] 8) #@40 Comment ARG sexps. (fn &optional ARG) (defalias 'lispy-comment #[256 "\211\206\305\262\211\305V\203\306 \203\307 \310@A\"\207\311\3122>\3131$\211T\211\262X\203\314\315 \203E\316\314!\210\317 \203\320\305!\266\202$\317 \203\230\321=\203d\322\323!\203d\324\325!\210\326c\210\305u\266\202$\322\327!\203w\325u\210\330c\210\305u\266\202$ \203\220\322\331!\203\220`\332\314x\210`|\210\333c\266\202$\334\305!\266\202$`Sf\335>\203\250\334\305!\266\202$\336\n!\203\330\337 \262 \203\272\340\305!\210\341@A\"\210 \203\317 \204\320\336\330!\203\324\320\305!\210\210\202$\342\f\343 \"\203 \203\372l\204\357\344 \210\345\314x\210\316\314!\210\346 \266\202$\344 \210\327c\210l\204\347 \210\350\305!\210\345\314x\210\305u\210\210\202$l\203)\316\314!\210 \203\346 \266\202$\336\351!\203c \203D\352 \203>\353c\210\202O\354c\210\202O\352 \204L\355c\210\353c\210\356\305!\203X\357 \210\360\311!\210\361c\266\202$\352 \203\261\362 \211\204w\341`\363 \"\210\202\251\211A\363 X\203\211\341`AS\"\210\202\251`\364 \365 \210\364 U\203\240l\204\240\365 \210\202\217\341`\"\210b\266\361\314w\266\202$\212\356\305!\205\271`)\211\262\203`\366\355\367#\203 \370\n`#\370\f`#U\203\350\341`\"\210\371\305!\210\372\305!\266\202$\211b\210\366\n\367#\210\325u\210\373\305!\210\341`\"\210\371\305!\210\372\305!\266\202$\341`S\"\210\320\305!\266\202$\334\305!\210\210\202$0\202=\211@\374=\2030\375\376p\"\210S\262\311V\205;\2620\207" [major-mode lispy-comment-use-single-semicolon lispy-left lispy-move-after-commenting lispy-right 1 lispy--in-comment-p lispy--bounds-comment uncomment-region 0 result (error) nil region-active-p comment-dwim lispy--in-string-or-comment-p lispy--out-backward emacs-lisp-mode lispy-after-string-p ";;; " delete-char -1 "###autoload" ";; " ";" "; " "; \n" " ;; " self-insert-command (92 35) looking-at lispy--bounds-dwim lispy-down comment-region looking-back line-beginning-position newline-and-indent "\n " just-one-space newline lispy--reindent " *[])}]" lispy-bolp ";;\n" ";\n" "\n" lispy--out-forward lispy--normalize-1 move-end-of-line " " lispy--bounds-list line-end-position line-number-at-pos forward-sexp re-search-forward t count-matches lispy-forward lispy-backward forward-list buffer-read-only message "Buffer is read-only: %s"] 9 (#$ . 100615) "p"]) #@120 Quote the quotes and backslashes in STR. Quote the newlines if QUOTE-NEWLINES is t. (fn STR &optional QUOTE-NEWLINES) (defalias 'lispy--quote-string #[513 "\300\301\302#\262\300\303\304#\262\211\203\300\305\306#\207\207" [replace-regexp-in-string "\\\\" "\\\\\\\\" "\"" "\\\\\"" "\n" "\\\\n"] 6 (#$ . 102998)]) #@90 Transform current sexp into a string. Quote newlines if ARG isn't 1. (fn &optional ARG) (defalias 'lispy-stringify #[256 "\211\206\301\262\302 `\303@\"\303A\"\304 \305 \306\203%\211\203%\307 \210\310 \203J\203D\311c\210\307 \210\311c\210\312u\210\211?\205\221\307 \202\221\313\314!\202\221\300 \210\315\301U?\"\262\315\301U?\"\262@A|\210\316\261\210\212\316\261\210)\205\221\317\316!\204\201\320u\210\321 \210\211\205\221`\322 U\205\221\307 )\207" [deactivate-mark 1 lispy--bounds-dwim buffer-substring-no-properties region-active-p lispy--leftp nil exchange-point-and-mark lispy--in-string-p "\\\"" -2 lispy-complain "can't do anything useful here" lispy--quote-string "\"" looking-at -1 lispy-mark-symbol region-end] 11 (#$ . 103324) "p"]) #@65 Call `lispy-stringify' with a non-1 argument to quote newlines. (defalias 'lispy-stringify-oneline #[0 "\300\301!\207" [lispy-stringify 0] 2 (#$ . 104110) nil]) #@26 Unquote string at point. (defalias 'lispy-unstringify #[0 "\301 \203)\302 \203%\303\304 \305 \306 \210\307`!\210\310!c\210\211\205#\311 )\207\312\313!\207\314 \304!\211\315`@ZO\316P\310!G@A|\210\212\310!c\210)\211u\207" [deactivate-mark region-active-p lispy--string-markedp nil lispy--string-dwim lispy--leftp delete-active-region set-mark read lispy-different lispy-complain "the current region isn't a string" lispy--bounds-string 0 "\""] 6 (#$ . 104277) nil]) #@214 When non-nil, `lispy-teleport' will consider all open parens in window. Otherwise, only parens within the current defun are considered. When you press "t" in `lispy-teleport', this will be bound to t temporarily. (defvar lispy-teleport-global nil (#$ . 104760)) #@63 Quit the minibuffer and run BODY afterwards. (fn &rest BODY) (defalias 'lispy-quit-and-run '(macro . #[128 "\300\301\302\303\211\304\303\305BBBF\306BBB\207" [progn (put 'quit 'error-message "") run-at-time nil lambda (put 'quit 'error-message "Quit") ((minibuffer-keyboard-quit))] 10 (#$ . 105028)])) #@71 Move ARG sexps into a sexp determined by `lispy-ace-paren'. (fn ARG) (defalias 'lispy-teleport #[257 "\212\306\307x\210`)\307\211\211C\307\310 \203.`\311 U\203#\312 \262\313\262\202'\311 \262\211\313\240\210\202\332\314 !\203\212\315\3162o\3171U\211T\211\262X\203P\320\321!\210\202>0\202n\211@\322=\203a\323\324p\"\210S\262\315V\205l\2620\262\204x\325\326!\210`\262)\202\332\327\n\330 \"\203\326\212\313\262\315\3162\306\3311\254\211T\211\262X\203\247\332!\210\202\2240\202\305\211@\322=\203\270\323\324p\"\210S\262\315V\205\303\2620\262\204\317\325\326!\210`\262)\202\332\325\326!\210\333\334 \"\335\336#\337 \205\354\340!\211\313=\203\242\205 \341B!\202 \321u\210\314\342!\204\3431\344 0\210\202\210\345u\210\346\242$*\262)\207" [deactivate-mark lispy-left lispy-right lispy-avy-keys avy-handler-function lispy-teleport-global "'" nil region-active-p region-end region-beginning t looking-at 0 result (error) forward-list 1 buffer-read-only message "Buffer is read-only: %s" error "Unexpected" looking-back line-beginning-position (error) backward-list delete 116 make-closure #[257 "\211\302=\203\303 \210\304\305\306\307#\210\310\311\211\312\313\300\301##\210\314 \207\315!\207" [V0 V1 116 avy--done put quit error-message "" run-at-time nil make-closure #[0 "\303\304\305\306#\210\307\301\242\203\310 \210\311\300!)\207" [V0 V1 lispy-teleport-global put quit error-message "Quit" t activate-mark lispy-teleport] 4] minibuffer-keyboard-quit avy-handler-default] 8 "\n\n(fn X)"] lispy-ace-paren 2 lispy--mark "(" (error) forward-sexp -1 lispy--teleport] 11 (#$ . 105338) "p"]) #@129 Jump to symbol within files in current directory. When ARG isn't nil, call `lispy-goto-projectile' instead. (fn &optional ARG) (defalias 'lispy-goto #[256 "\301 \210\211\302=\303>\203\304\202\305\306!)\207" [lispy-force-reparse deactivate-mark 2 (1 2) lispy--fetch-tags lispy--fetch-tags-projectile lispy--goto] 5 (#$ . 107011) "p"]) #@73 Jump to symbol within files in current directory and its subdiretories. (defalias 'lispy-goto-recursive #[0 "\300 \210\301 \302G\303V\203\202\304\305\"\306\"\207" [deactivate-mark lispy--fetch-tags-recursive lispy--select-candidate 30000 mapcar lispy--format-tag-line lispy--action-jump] 5 (#$ . 107360) nil]) #@95 Jump to symbol within current file. When ARG is non-nil, force a reparse. (fn &optional ARG) (defalias 'lispy-goto-local #[256 "\301 \210\211\302\303\304\305\306 C!\"\307\")\207" [lispy-force-reparse deactivate-mark lispy--select-candidate mapcar lispy--format-tag-line lispy--fetch-tags buffer-file-name lispy--action-jump] 6 (#$ . 107683) "P"]) #@103 Jump to Elisp commands within current file. When ARG is non-nil, force a reparse. (fn &optional ARG) (defalias 'lispy-goto-elisp-commands #[256 "\303 \210\211\304\305 C!\210\306\305 \"\307\310\311\312\313\314\315\316!\n>\204(\317\320\321\nD\"\210\322H\316 !\n>\204=\317\320\321 D\"\210\323H#\"\"\324\"\262)\207" [lispy-force-reparse lispy-db cl-struct-lispy-dbfile-tags deactivate-mark lispy--fetch-tags buffer-file-name gethash lispy--select-candidate mapcar lispy--format-tag-line delq nil cl-mapcar #[514 "\300\301\3028\262\"\266\202\205\211\207" [:user-visible-flag plist-get 2] 8 "\n\n(fn TAG PRETTY-TAG)"] type-of signal wrong-type-argument lispy-dbfile 4 2 lispy--action-jump] 14 (#$ . 108039) "P"]) #@61 Jump to symbol within files in (`projectile-project-root'). (defalias 'lispy-goto-projectile #[0 "\300 \210\301\302!\207" [deactivate-mark lispy--goto lispy--fetch-tags-projectile] 2 (#$ . 108774) nil]) #@64 Jump to definition of ARGth element of current list. (fn ARG) (defalias 'lispy-goto-def-down #[257 "\300\301 !\211GY\203\302\303#\2078\211:\2030\211@\304=\203)\211A@\262\202\211@\262\202\211\2038\305!\207\302\306!\207" [read lispy--string-dwim error "Out of range: %s/%s" quote lispy-goto-symbol "No symbol found"] 7 (#$ . 108983) "p"]) #@111 Jump to definition of selected element of current sexp. Sexp is obtained by exiting list ARG times. (fn ARG) (defalias 'lispy-goto-def-ace #[257 "\300!\210\301\302!\207" [lispy-ace-symbol call-interactively lispy-goto-symbol] 3 (#$ . 109346) "p"]) (byte-code "\301\302\"\203\f\303\304\305\"\210\301\207" [emacs-version version< "25.1" eval-after-load etags #[0 "\300\301\302\"\207" [add-to-list byte-compile-not-obsolete-vars find-tag-marker-ring] 3]] 3) #@228 An alist of `major-mode' to function for jumping to symbol. Each element is: (MAJOR-MODE FUNC &optional LIB). FUNC should take a string argument - a symbol to jump to. When LIB is non-nil, `require' it prior to calling FUNC. (defvar lispy-goto-symbol-alist '((clojure-mode lispy-goto-symbol-clojure le-clojure) (clojurescript-mode lispy-goto-symbol-clojurescript le-clojure) (scheme-mode lispy-goto-symbol-scheme le-scheme) (lisp-mode lispy-goto-symbol-lisp le-lisp) (python-mode lispy-goto-symbol-python le-python)) (#$ . 109812)) #@62 Go to definition of SYMBOL. SYMBOL is a string. (fn SYMBOL) (defalias 'lispy-goto-symbol #[257 "\304 \210\305\306 \"\210 \n>\203\307!\210\202<\310 \"A\311\204)\312\313 \"\266\202<A@\211\262\2036\314!\210@!\266\315 \207" [find-tag-marker-ring major-mode lispy-elisp-modes lispy-goto-symbol-alist deactivate-mark ring-insert point-marker lispy-goto-symbol-elisp assoc nil error "no handler for %S in `lispy-goto-symbol-alist'" require lispy--ensure-visible] 6 (#$ . 110352) (byte-code "\300\301\302\"\206 \303 C\207" [thing-at-point symbol t lispy--current-function] 3)]) #@50 Goto definition of an Elisp SYMBOL. (fn SYMBOL) (defalias 'lispy-goto-symbol-elisp #[257 "\301\302!\211\262\204\303\304!\207\203\305!\203\306!\207\307!\203H\3101+\311!0\207\210eb\210\312\313\314\"\301\315#\203>\316\317!\207\320\313\321\"!\210\322 \207\305!\203R\306!\207\323!\204`\324\325!!\203f\326\325!!\207\327\330\331\332\333\334!EE\335 \"\211\262\203\201\3368\337Hb\207\303\340\"\207" [current-prefix-arg nil intern-soft error "symbol not interned" boundp find-variable fboundp (error) find-function re-search-forward format "^(def.*%S" t move-beginning-of-line 1 lispy-complain "Don't know where `%S' is defined" pop-tag-mark featurep locate-library prin1-to-string find-library cl-find-if lambda (x) equal (car x) symbol-name lispy--fetch-this-file-tags 4 0 "Couldn't find definition of %s"] 9 (#$ . 110947)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable lispy-eval-display-style funcall function #[0 "\300\207" [message] 1] "Choose a function to display the eval result." :type (choice (const :tag "message" message) (const :tag "overlay" overlay))] 6) (defvar lispy-eval-alist '((python-mode lispy-eval-python le-python) (julia-mode lispy-eval-julia le-julia) (clojure-mode lispy-eval-clojure le-clojure))) #@55 The eval function may set this when there's an error. (defvar lispy-eval-error nil (#$ . 112235)) #@74 Eval last sexp. When ARG is 2, insert the result as a comment. (fn ARG) (defalias 'lispy-eval #[257 "\211\305=\203 \306 \207\307!\203\307 !\203\310 \207\311\n \"A\312\2039A@\203.\313A@!\210@\314=!\262\202=\315 \262\f\316=\203G\317!\207\320\321!\204U\313\322\312\323#\203\\\321\324 A\"\207\325\326!\207" [lispy-outline lispy-outline-header major-mode lispy-eval-alist lispy-eval-display-style 2 lispy-eval-and-comment looking-at lispy-eval-outline assoc nil require 3 lispy--eval-default message lispy-message fboundp cider--display-interactive-eval-result cider t lispy--bounds-dwim error "Please install CIDER 0.10 to display overlay"] 7 (#$ . 112339) "p"]) (defalias 'lispy--eval-default #[0 "\212\301\302 \"\204\303 \204\304\305!\210\306\307\310\311\312 !#)\207" [lispy-right looking-back line-beginning-position region-active-p lispy-forward 1 replace-regexp-in-string "%" "%%" lispy--eval lispy--string-dwim] 5]) (defalias 'lispy-forward-outline #[0 "`\301 \210\302!\203`V\205`\207\211b\210\303\207" [lispy-outline outline-next-heading looking-at nil] 3]) (defalias 'lispy-eval-current-outline #[0 "\212\301 \210\302 \210\303\304 *\207" [inhibit-message outline-back-to-heading lispy-eval-outline t save-buffer] 1 nil nil]) (defalias 'lispy-add-outline-title #[0 "\212\302\303!\210\304=\203\305\202\306\307\310\311\"!\203\312\303!\202(\211\313 T\314\"\315Q\262)\207" [major-mode outline-level lispy-outline-prev 1 python-mode "#" ";;" looking-at format "\\(%s\\*+ ?:$\\)" match-string-no-properties make-string 42 " :"] 5]) (defalias 'lispy-insert-outline-below #[0 "n\203l\204!\301\302!\203\303c\210\304u\210\202!db\210n\204!\305c\210`\306 \305\307x\210`|\210\303\305\261\210\310\311 )\207" [inhibit-message lispy-outline-next 1 "\n\n" -2 "\n" lispy-add-outline-title nil t save-buffer] 5 nil nil]) (defalias 'lispy-insert-outline-left #[0 "\300 \210\301\302!\210\303c\207" [lispy-insert-outline-below delete-char -4 " "] 2 nil nil]) #@102 Evaluate the current outline and its children. Return the result of the last evaluation as a string. (defalias 'lispy-eval-outline #[0 "\301 \302\303 \210\304 \262\305 \203 V\203\304 \262\202\n\207" [outline-level lispy-outline-level nil lispy--remember lispy-eval-single-outline lispy-forward-outline] 4 (#$ . 114342)]) (defalias 'lispy--eval-bounds-outline #[0 "\301 T\302\212\302u\210\303\304P\302\305#\203\306\224b\210\202db\210\307\302x\210`V\2039\310 \211\262\2039\211@b\210\311\302x\210\202 `)V\203E\211B\207B\207" [outline-regexp line-end-position nil re-search-forward "^" t 0 "\n" lispy--bounds-comment "\n "] 6]) (defalias 'lispy-eval-single-outline #[0 "\304 \305\306!!\211\204\307=\203\310\311 \"\203\312\313 \"\262\211\204&\314 !\207\211\315\232\2030\316\317!\207\320 \2066`Sf\321U\203lAb\210\214`\322\n\323\324#\203Q\325\224S\202Rd}\210eb\210\326\327 P!\204b\330 \210\331!\210)@b\210\207\316\332\333\334#!\207" [major-mode lispy-eval-error outline-regexp lispy-outline-header lispy--eval-bounds-outline lispy--eval lispy--string-dwim python-mode string-match "^\\(.*Error:.*\\)" match-string-no-properties 1 lispy-message "" message "(ok)" line-end-position 58 re-search-forward nil t 0 looking-at "\n" newline lispy--insert-eval-result replace-regexp-in-string "%" "%%"] 7]) #@106 Display STR in the echo area. If STR is too large, pop it to a buffer instead. (fn STR &optional POPUP) (defalias 'lispy-message #[513 "\211\204G\301V\204\302\303\"\304V\203-r\305\306!q\210\307 \210\310ed|\210c\210eb\210))\207\31116\312!0\207\210\312\313\314\315#!\207" [inhibit-read-only 4000 cl-count 10 14 pop-to-buffer "*lispy-message*" special-mode t (error) message replace-regexp-in-string "%" "%%"] 7 (#$ . 115685)]) #@39 Eval last sexp and insert the result. (defalias 'lispy-eval-and-insert #[0 "\301\302!\203\f\212\211 )\207\211 \207" [lispy-left #[0 "\301 \203`\302 U\203\303 \210\202\304\305 \"\204\306\307!\210\310\311 !\312 \210\211c\210\304\305 \"\2058\313 \2058\314\315!\207" [lispy-right region-active-p region-beginning exchange-point-and-mark looking-back line-beginning-position lispy-forward 1 lispy--eval lispy--string-dwim newline-and-indent lispy--major-mode-lisp-p lispy-alt-multiline t] 4] looking-at] 3 (#$ . 116130) nil]) #@52 Eval last sexp and insert the result as a comment. (defalias 'lispy-eval-and-comment #[0 "\303=\203 \304 \202 \305 \306!\307\212\310 \203+\311 \312 B\262`\311 U\203^\313 \210\202^\303=\203U\314 \211Ab\210\315\316!\204Q\317 \210\212\211@b\210\320 \210`\321 \210`{)c\210\210\202^\315 !\203^\322 \210\323\206d\n!\210l\204m\317 \210)\303=\204x\324\325!\210\211\205\326!\207" [major-mode lispy-left lispy-eval-error python-mode lispy-eval-python-str lispy--string-dwim lispy--eval nil region-active-p region-beginning region-end exchange-point-and-mark lispy-eval-python-bnd looking-at "\n *#" newline beginning-of-line back-to-indentation lispy-different lispy--insert-eval-result lispy--reindent 1 lispy--mark] 6 (#$ . 116671) nil]) (defalias 'lispy--major-mode-lisp-p #[0 "\303 \n\304#>\207" [major-mode lispy-elisp-modes lispy-clojure-modes append (scheme-mode lisp-mode)] 5]) #@12 (fn STR) (defalias 'lispy--insert-eval-result #[257 "\303\304\305\306\"!\204\307 \204$\310 \210\202$\311\224Tb\210\312 \262\211@A|\210\214\313\314 `\"\314 `|\210``}\210c\210\315 \210\316\317!\203F\320\321!\210\2029\212\322 \314 \"\203}\323 \203}i\324V\203g\3251f\326\327!0\210\202g\210eb\210\330G\331V\203v\317\202w\332\261\210\202W\322 \314 \"\203;\n\333=\203;i\334W\204\"\322\335\314 \"\203\356\336\337!\340\230\203\245\321\202\246\341\212\342\321!\210`T)\321u\210\3431\346`V\205\340\316\344!\203\320\345\346\303\327#\210\310 \210\347u\210\202\265\350!\210`V\203\265\310 \210\202\2650\266\202\350\266db\210\202\"\322\351\314 \"\203e\212\342\321!)=\203eT\321u\210`V\203\350\321!\210`V\203\310 \210\202\210\202\"\352 \210\353 eb\210\330c\210\211\311U\2034\332\2025\317c\266\202Web\210\354c\210\311y\210`dW\203Wl\204Q\355c\210\311y\210\202D)\356ed\"\210eb\210`dW\205p\211c\210\357\360!\210\202`\262)\207" [lispy-outline-header lispy-right major-mode nil looking-at format "\n *\\(%s\\) ?=>" lispy-bolp newline-and-indent 1 lispy--bounds-comment buffer-substring-no-properties line-beginning-position delete-trailing-whitespace lispy-after-string-p "\n" delete-char -1 looking-back lispy--major-mode-lisp-p 80 (error) lispy-alt-multiline t "=>" 70 " " python-mode 100 "[]}]" match-string 0 "]" -2 forward-list (error) ">" re-search-backward "<" -3 forward-sexp "[])]\\]" fill-paragraph line-number-at-pos "=> " " " lispy-comment-region beginning-of-line 2] 9 (#$ . 117575)]) #@109 Comment the region between BEG and END. Unlike `comment-region', ensure a contiguous comment. (fn BEG END) (defalias 'lispy-comment-region #[514 "b\210\301 \210G`W\205(c\210\\\262l\204!\302c\210T\262\301\303!\210\202\207" [lispy-outline-header beginning-of-line " " 2] 5 (#$ . 119121) "r"]) #@48 Eval last sexp and replace it with the result. (defalias 'lispy-eval-and-replace #[0 "\303 \304 \305!\306!@A|\210\307 \210\211c\210\310!\204.\311 \312 \"\204.\n\313>\204.\314\315!\210\205<\311 \312 \"\205<\316 \207" [lispy-left lispy-right major-mode lispy--leftp lispy--bounds-dwim lispy--string-dwim lispy--eval deactivate-mark looking-at looking-back line-beginning-position (python-mode julia-mode) lispy--out-backward 1 lispy-different] 7 (#$ . 119432) nil]) #@56 Message to echo when the current `cond' branch is nil. (defconst lispy--eval-cond-msg (byte-code "\300\301\302\303\304\305#\"\207" [format "%s: nil" propertize "cond" face font-lock-keyword-face] 6) (#$ . 119913)) #@46 Target window for `lispy-eval-other-window'. (defvar lispy-eval-other--window nil (#$ . 120133)) #@46 Target buffer for `lispy-eval-other-window'. (defvar lispy-eval-other--buffer nil (#$ . 120236)) #@58 Last window configuration for `lispy-eval-other-window'. (defvar lispy-eval-other--cfg nil (#$ . 120339)) #@66 Return t if the last eval window is still live with same buffer. (defalias 'lispy-eval--last-live-p #[0 "\303!\205\304! \232\205\305\306\307 \"\n\232\207" [lispy-eval-other--window lispy-eval-other--buffer lispy-eval-other--cfg window-live-p window-buffer cl-mapcan window-list frame-list] 3 (#$ . 120451)]) #@24 Last set `dolist' sym. (defvar lispy--eval-sym nil (#$ . 120771)) #@31 List data for a `dolist' sym. (defvar lispy--eval-data nil (#$ . 120843)) #@131 Produce an eval expression for dolist-type EXPR. EXPR is (SYM LST). SYM will take on each value of LST with each eval. (fn EXPR) (defalias 'lispy--dolist-item-expr #[257 "\211@\211=\204\211\303A@ \"\n\203*\n\211A\242\2119\203%\304D\202&\211L\207\303A@ \"\211\305L\207" [lispy--eval-sym lexical-binding lispy--eval-data lispy--eval-elisp-form quote nil] 6 (#$ . 120924)]) #@149 Produce an eval expression for mapcar-type LMDA EXPR. LMDA is (lambda (SYM) ...). SYM will take on each value of LST with each eval. (fn LMDA LST) (defalias 'lispy--mapcar-item-expr #[514 "@\211\302=\203AA@@\262\211=\204\211 \2032 \211A\242\2119\203-\303D\202.\211L\207\211\304L\207" [lispy--eval-sym lispy--eval-data closure quote nil] 7 (#$ . 121318)]) #@183 Eval current expression in the context of other window. In case the point is on a let-bound variable, add a `setq'. When ARG is non-nil, force select the window. (fn &optional ARG) (defalias 'lispy-eval-other-window #[256 "\306\307!\210\310 \311\312\"\216\212\313 *\262\314 \n>\204\315 \202G\204+\316 \203+ \202G\317\320!\211\203A\321 !\322\323\324 \" \202G\314\211\315 \314 \325>\203X\326\327\330!!!\202\340 ,>\203e\331\332!\202\340\333!r\311\334\"\216\335@\336\"\210\337-\"\262*\210\211.\232\203\212\326!\202\340\340\341!\203\236\341!\203\236\342\343G\"\202\340 \n>\203\325\211:\203\325\211@\247\203\325\211A\247\203\325\326\344\345\333!r\311\346\"\216\335@\336\"\210\347!*\262#!\202\340\326\350\351\352\344\353\"#!)\207" [aw-dispatch-always major-mode lispy-elisp-modes lispy-eval-other--window lispy-eval-other--buffer lispy-eval-other--cfg require ace-window save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] lispy--setq-expression nil selected-window lispy-eval--last-live-p aw-select " Ace - Eval in Window" window-buffer cl-mapcan window-list frame-list (lisp-mode scheme-mode) lispy-message lispy--eval prin1-to-string lispy-eval 1 internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord lispy--eval-elisp-form fboundp object-p message "(eieio object length %d)" format "%S\n%s" #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] lispy--string-dwim replace-regexp-in-string "%" "%%" "%S" lispy-clojure-modes lexical-binding lispy--eval-cond-msg] 13 (#$ . 121701) "P"]) #@38 Follow to `lispy--current-function'. (defalias 'lispy-follow #[0 "\300\301 !\207" [lispy-goto-symbol lispy--current-function] 2 (#$ . 123377) nil]) #@54 Display documentation for `lispy--current-function'. (defalias 'lispy-describe #[0 " >\203\303\304 !\305!\203\306!\207\307!\205\310!\207\n>\203-\311\312!\210\313\304 !\207\314\315\316\"!\207" [major-mode lispy-elisp-modes lispy-clojure-modes intern-soft lispy--current-function fboundp describe-function boundp describe-variable require cider-doc cider-doc-lookup lispy-complain format "%s isn't supported currently"] 4 (#$ . 123531) nil]) (defvar lispy-bof-last-point 1) #@40 Store point and mark to SYM. (fn SYM) (defalias 'lispy-pam-store #[257 "\300 \203\211`\301 BL\210\302 \207\211`L\207" [region-active-p mark deactivate-mark] 4 (#$ . 124023)]) #@45 Restore point and mark from FROM. (fn SYM) (defalias 'lispy-pam-restore #[257 "\211J\211:\203\211@b\210\300A!\207\211b\207" [set-mark] 4 (#$ . 124207)]) #@135 Forward to `beginning-of-defun' with ARG. Deactivate region. When called twice in a row, restore point and mark. (fn &optional ARG) (defalias 'lispy-beginning-of-defun #[256 "\301\302!\203.\303\304!\203.:\203@\202\211`V\205%\211\212\305 \210`)X\262\203.\306\300!\207\303\304!\206;\307\300!\210\310!\207" [lispy-bof-last-point called-interactively-p any looking-at "^(" forward-list lispy-pam-restore lispy-pam-store beginning-of-defun] 4 (#$ . 124371) "p"]) #@50 Visually select a char within the current defun. (defalias 'lispy-ace-char #[0 "\306\n\236A\206\n \306 \236A\206\f\306\307\310\311M\210\312\313\314\315!!\212\316\317!\210\320 )\321$,\207" [lispy-avy-keys avy-keys avy-keys-alist avy-styles-alist avy-style avy-command lispy-ace-char nil avy-resume #[0 "\301\302\303\304!!\212\305\306!\210\307 )\310$\207" [lispy-avy-style-char lispy--avy-do string read-char #1="Char: " lispy--out-backward 50 lispy--bounds-dwim #[0 "\300\207" [t] 1]] 5 nil nil] lispy--avy-do string read-char #1# lispy--out-backward 50 lispy--bounds-dwim #[0 "\300\207" [t] 1] avy-action lispy-avy-style-char] 5 (#$ . 124851) nil]) #@121 Jump to an open paren within the current defun. ARG can extend the bounds beyond the current defun. (fn &optional ARG) (defalias 'lispy-ace-paren #[256 "\211\206\306\262\307 \210\310 \210\306=\203\212\311\312!\210\313 )\202&\314 \315\316\317\"B\320\n\236A\2060 \320 \236A\2068\f\320\316\321\322\323\"M\210\324\325$,\207" [lispy-avy-keys avy-keys avy-keys-alist avy-styles-alist avy-style avy-command 1 lispy--remember deactivate-mark lispy--out-backward 50 lispy--bounds-dwim window-start window-end nil t lispy-ace-paren avy-resume make-closure #[0 "\303 \300\304\n$\207" [V0 lispy-left lispy-avy-style-paren lispy--avy-do #[0 "\300 ?\207" [lispy--in-string-or-comment-p] 1]] 5 nil nil] lispy--avy-do #[0 "\300 ?\207" [lispy--in-string-or-comment-p] 1] avy-action lispy-left lispy-avy-style-paren] 8 (#$ . 125520) "p"]) #@114 Jump to a symbol withing the current sexp and mark it. Sexp is obtained by exiting the list ARG times. (fn ARG) (defalias 'lispy-ace-symbol #[257 "\306\307 \203 \310 \210\202S!\210\311C\312\n\236A\206 \312 \236A\206&\f\312\311\313\314\315\"M\210\316=\203?\317\202@\320\211\321\322\323 \324$\240\210,\211\242\325=?\205h\311f\326=\204f\327\330!\204f\331u\210\332 )\207" [lispy-avy-keys avy-keys avy-keys-alist avy-styles-alist avy-style avy-command lispy--out-forward region-active-p deactivate-mark nil lispy-ace-symbol avy-resume make-closure #[0 " \303=\203\n\304\202 \305\300\306\307\310 \311 $\240)\207" [V0 lispy-avy-style-symbol avy--overlay-offset at -1 0 lispy--avy-do #1="[([{ ]\\(?:\\sw\\|\\s_\\|[\"'`#~,@]\\)" lispy--bounds-dwim #[0 "\212\300u\210\301 )?\207" [-1 lispy--in-string-or-comment-p] 1]] 6 nil nil] at -1 0 lispy--avy-do #1# lispy--bounds-dwim #[0 "\212\300u\210\301 )?\207" [-1 lispy--in-string-or-comment-p] 1] t 34 looking-at ". " 1 lispy-mark-symbol avy-action lispy-avy-style-symbol avy--overlay-offset] 9 (#$ . 126372) "p"]) #@84 Mark sub-word within a sexp. Sexp is obtained by exiting list ARG times. (fn ARG) (defalias 'lispy-ace-subword #[257 "\306 \203\307\310\311 \"\203\312\313 \313 \314\225\\B!\207\315\306 \203%\316 \210\202'S!\210\317\n\236A\2063 \317 \236A\206;\f\317\320\321\322M\210\323\324\325 \326$+\211\327=?\205\\\330\320w\210\331 )\207" [lispy-avy-keys avy-keys avy-keys-alist avy-styles-alist avy-style avy-command region-active-p string-match "\\`\\(\\sw+\\)\\s_" lispy--string-dwim lispy--mark region-beginning 1 lispy--out-forward deactivate-mark 'lispy-ace-subword nil avy-resume #[0 "\301\302\303 \304$\207" [lispy-avy-style-symbol lispy--avy-do #1="[([{ -/]\\(?:\\sw\\|\\s_\\|\\s(\\|[\"'`#]\\)" lispy--bounds-dwim #[0 "\300 ?\206\301\302\303 \"\262\207" [lispy--in-string-or-comment-p #2=".\"" looking-back line-beginning-position] 4]] 5 nil nil] lispy--avy-do #1# lispy--bounds-dwim #[0 "\300 ?\206\301\302\303 \"\262\207" [lispy--in-string-or-comment-p #2# looking-back line-beginning-position] 4] t "-([{ `'#" mark-word avy-action lispy-avy-style-symbol] 6 (#$ . 127462) "p"]) #@166 Visually select a match to REGEX within BND. Filter out the matches that don't match FILTER. Use STYLE function to update the overlays. (fn REGEX BND FILTER STYLE) (defalias 'lispy--avy-do #[1028 "\301!\210\302\303@A$\211\211\2032\211@\211@A@@Z\304V\203+\211\211@@@T\240\266A\266\202\202\210\305\306\267\202K\307\202L\310\202L\311\202L\312\202L\302\")\207" [avy-all-windows lispy--recenter-bounds nil avy--regex-candidates 1 avy-process #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pre 59 at 63 at-full 67 post 71)) avy--overlay-pre avy--overlay-at avy--overlay-at-full avy--overlay-post] 10 (#$ . 128574)]) #@116 Jump to a symbol withing the current sexp and delete it. Sexp is obtained by exiting the list ARG times. (fn ARG) (defalias 'lispy-ace-symbol-replace #[257 "\300!\210\301 \205\f\302\303!\207" [lispy-ace-symbol region-active-p lispy-delete 1] 3 (#$ . 129252) "p"]) #@52 Compute the outline level of the heading at point. (defalias 'lispy-outline-level #[0 "\212\301 \302\303\"\216\304\210\305\304\306#\203\307\310\311\312!\"\313]\202\312)\262)\207" [lispy-outline match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nil re-search-backward t cl-count 42 match-string 0 1] 5 (#$ . 129525)]) #@58 Call `outline-next-visible-heading' ARG times. (fn ARG) (defalias 'lispy-outline-next #[257 "\301 \210\302\3032K\30411\211T\211\262X\203,`\305\306!\210\307!\204(\211b\210\310\311!\210\210\202\f0\202J\211@\312=\203=\313\314p\"\210S\262\302V\205H\2620\207" [outline-regexp lispy--remember 0 result (error) outline-next-visible-heading 1 looking-at error "Past last outline" buffer-read-only message "Buffer is read-only: %s"] 6 (#$ . 129888) "p"]) #@62 Call `outline-previous-visible-heading' ARG times. (fn ARG) (defalias 'lispy-outline-prev #[257 "\301 \210\302 \210\303\3042N\30514\211T\211\262X\203/`\306\307!\210\310!\204+\211b\210\311\312!\210\210\2020\202M\211@\313=\203@\314\315p\"\210S\262\303V\205K\2620\207" [outline-regexp lispy--remember deactivate-mark 0 result (error) outline-previous-visible-heading 1 looking-at error "Past first outline" buffer-read-only message "Buffer is read-only: %s"] 6 (#$ . 130358) "p"]) #@39 Promote current outline level by one. (defalias 'lispy-outline-promote #[0 "\212\301 \210\302!\205\303\225b\210\304c)\207" [lispy-outline beginning-of-line looking-at 0 "*"] 2 (#$ . 130861) nil]) #@38 Demote current outline level by one. (defalias 'lispy-outline-demote #[0 "\212\303 \210\304!\205-\305\225\305\224Z G\306\307 \"ZTX\203$\310\311\312!\210\202,\305\225b\210\313\314!\210\315)\207" [lispy-outline lispy-outline-header this-command beginning-of-line looking-at 0 cl-count 42 lispy-outline-left lispy-complain "Can't demote outline" delete-char -1 t] 5 (#$ . 131066) nil]) #@12 Move left. (defalias 'lispy-outline-left #[0 "\302!\205\303 \210 S\211\304V\205\305\306\307\"\310\311#\262\207" [lispy-outline outline-level looking-at lispy--remember 0 re-search-backward format "^#\\*\\{1,%d\\} " nil t] 5 (#$ . 131460) nil]) #@13 Move right. (defalias 'lispy-outline-right #[0 "`\301\214\302 \210\301u\210\303\301\304#\203\305\224b\210\304\262\202b\210)\306 \210\207" [lispy-outline nil org-narrow-to-subtree re-search-forward t 0 lispy--ensure-visible] 6 (#$ . 131718) nil]) #@62 Goto the first variable `lispy-left' of the current outline. (defalias 'lispy-outline-goto-child #[0 "\212\302\303\304\305$\206 d)\302 \304#\203\306u\210\307 \207\310\311!\207" [lispy-outline lispy-left re-search-forward nil t 2 -1 lispy--ensure-visible lispy-complain "This outline has no children"] 5 (#$ . 131977) nil]) #@83 Indent code and hide/show outlines. When region is active, call `lispy-mark-car'. (defalias 'lispy-tab #[0 "\304\305 \203 \306 \207\307!\203B\310\311!\210\3121/\313K\314\315\"\216\313\316M\210\317\320!\210 \321 *\2620\207\322!\323\230\203;\324\311!\207\325@A\"\207\307\326\327 \"\211\262!\203j\330 \211@A\331\"\203`\332\"\207\333GS\\\334#\207\335 \207" [lispy-outline outline-regexp org-outline-regexp lispy-outline-header nil region-active-p lispy-mark-car looking-at outline-minor-mode 1 (error) org-unlogged-message make-closure #[0 "\301\300M\207" [V0 org-unlogged-message] 2] #[128 "\300\207" [nil] 2 "\n\n(fn &rest X)"] require org org-cycle-internal-local error-message-string "before first heading" outline-next-visible-heading signal format "^%s =>" lispy--bounds-comment overlays-in remove-overlays outline-flag-region visible lispy--normalize-1] 8 (#$ . 132311) nil]) #@82 Hide/show outline summary. When ARG isn't nil, show table of contents. (fn ARG) (defalias 'lispy-shifttab #[257 "\303\304!\210\305\306!\210\307K\310\311\"\216\307\312M\210\203\313 \210\202*\n\314=\203'\315\316 \210)\210)\317 \207" [outline-regexp org-outline-regexp org-cycle-global-status require org outline-minor-mode 1 org-unlogged-message make-closure #[0 "\301\300M\207" [V0 org-unlogged-message] 2] #[128 "\300\207" [nil] 2 "\n\n(fn &rest X)"] org-content overview contents org-cycle-internal-global recenter] 5 (#$ . 133218) "P"]) #@53 Turn the current function definition into a lambda. (defalias 'lispy-to-lambda #[0 "\212\300\301!)\203 \302 \210\301u\210`\303\304\212\305 )\306#\205)\211`\307Z|\210\211b\210\310c\210\211Sb\207" [lispy--out-backward 1 beginning-of-defun re-search-forward "(" forward-list t 2 "lambda"] 5 (#$ . 133773) nil]) #@56 Turn the current lambda or toplevel sexp into a defun. (defalias 'lispy-to-defun #[0 "\301\211\302 \211\204 \303 \210\304\305\"\216\212n)\306 \203\307 \210\211\262)\262\203O\310\311\312 \211\262!!\262\313\314\"\203O@A|\210\315\316@A\206F\317\320BBB!\210\321u\207`\322 \203X\323 \210\324\325 \"\203c\326 \210\327\330!\204o\331\332!\204c\327\330!\203y\333\202}\211b\210\301\262\203\241\334\335!\332u\210\336\337!\210\340\261\210\341 \210\342\261\210\343\344!\210\345\332!\207\327\346!\203\252\347 \207\350 \207" [lispy-right nil lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] lispy-bolp back-to-indentation lispy--read lispy--string-dwim lispy--bounds-dwim cl-every symbolp lispy--insert defun (ly-raw empty) ((ly-raw newline)) -1 region-active-p deactivate-mark looking-back line-beginning-position backward-list looking-at "(lambda" lispy--out-backward 1 t read-string "Function name: " delete-char 6 "defun " lispy-kill-at-point "#'" message "defun stored to kill ring" lispy-backward "(let" lispy--extract-let-as-defun lispy-extract-block] 7 (#$ . 134089) nil]) #@112 Extract the marked block as a defun. For the defun to have arguments, capture them with `lispy-bind-variable'. (defalias 'lispy-extract-defun #[0 "\300 \301!\302\303\304\"!\305\306\307!!\310C\310\211\211\310\240\210\311\312\313\"\"\262\314\315\316\242\"\2060\317\320ABBBB\262\315\321\242\"B\262@A|\210\322!\210\212\323 \210\322!\210\324c)\207" [lispy--bounds-dwim lispy--string-dwim lispy--read format "(progn %s)" make-symbol read-string "Function name: " nil lispy-mapcan-tree make-closure #[514 "\242\301=\203-A@\211@\211@AAC\302\303\"\232\203)\300AB\300\242B\240\210B\207B\207B\207" [V0 let delete (ly-raw newline)] 10 "\n\n(fn X Y)"] defun mapcar car (ly-raw empty) (ly-raw newline) cadr lispy--insert lispy-beginning-of-defun "\n\n"] 13 (#$ . 135256) nil]) (defalias 'lispy--extract-let-as-defun #[0 "\300 \301\302!!\303\304A@\"AAA\305\306\307!!\310\311\312\"\313BBBB@A|\210\314\311\315\"B!\210\212\316 \210\317\320\321\322!\"\203E\322\224b\210\314!\210\323c\210\324\325!\210\326 \210)\327 \207" [lispy--bounds-dwim lispy--read lispy--string-dwim delete (ly-raw newline) make-symbol read-string "Function name: " defun mapcar car (ly-raw newline) lispy--insert cadr lispy-beginning-of-defun looking-back ";;;###autoload\n" line-beginning-position 0 "\n\n" forward-sexp -1 lispy--reindent undo-boundary] 11]) #@75 Inline a function at the point of its call. Pass the ARG along. (fn ARG) (defalias 'lispy-flatten #[257 " >\203\n\303!\207\n>\204\304>\203\305\306!\210\307!\207\310=\203'\311 \207\312\313\314\"!\207" [major-mode lispy-elisp-modes lispy-clojure-modes lispy-flatten--elisp (nrepl-repl-mode cider-clojure-interaction-mode) require le-clojure lispy-flatten--clojure lisp-mode lispy-flatten--lisp lispy-complain format "%S isn't currently supported"] 5 (#$ . 136631) "P"]) #@57 Inline a function at the point of its call using `let'. (defalias 'lispy-let-flatten #[0 "\303!\203\n\304\202\305 \306 \"\203\307 \210\310\202\300\311!\312 \313!\314!\31510\316@!0\202A\317\320\321\322@!\322A!#!\210\310\262\211\205\237@b\210@A|\210\323@!\203]\324\325!\210\202\225\326\327A\"\330!\211@A@\304\203\331\332\333#\334BBB\202\216\211G\311U\203\213\211@\202\216\335B\336!\210)\266\337 \210\205\237@b\207" [lispy-left lispy-right print-quoted looking-at t looking-back line-beginning-position backward-list nil 1 lispy--bounds-list lispy--string-dwim lispy--read (unsupported-mode-error) lispy--function-str lispy-complain format "Can't flatten: symbol `%s' is defined in `%s'" lispy--prin1-fancy macrop error "macros not yet supported" cl-remove-if lispy--whitespacep lispy--function-parse let cl-mapcar list (ly-raw newline) progn lispy--insert lispy-multiline] 14 (#$ . 137119) nil]) #@194 Inline an Elisp function at the point of its call. The function body is obtained from `find-function-noselect'. With ARG, use the contents of `lispy-store-region-and-buffer' instead. (fn ARG) (defalias 'lispy-flatten--elisp #[257 "\303!\203\n\304\202\305 \306 \"\203\307 \210\310\202\300\311!\312 \313!\314!\2037r\315\316Nq\210\313\315\317N!)\202T\3201C\321@!0\202T\322\323\324\325@!\325A!#!\210\310\262\326@!\203c\327\330!!\202k\331\332\333A\"\"\205\246@b\210@A|\210\326@!\203\225\212\334!c\210n\203\216\335\336!\210)\337 \210\202\234\304\340!\210)\341 \210\205\246@b\207" [lispy-left lispy-right print-quoted looking-at t looking-back line-beginning-position backward-list nil 1 lispy--bounds-list lispy--string-dwim lispy--read lispy-store-bounds buffer region (unsupported-mode-error) lispy--function-str lispy-complain format "Can't flatten: symbol `%s' is defined in `%s'" lispy--prin1-fancy macrop macroexpand read lispy--flatten-function cl-remove-if lispy--whitespacep pp-to-string delete-char -1 indent-sexp lispy--insert lispy-alt-multiline] 12 (#$ . 138063)]) #@69 Transform current `cond' expression to equivalent `if' expressions. (defalias 'lispy-to-ifs #[0 "\300 \211\204 \301 \210\302\303\"\216\212\304 \305\306!!\211@\307=\204#\310\311@\"\210@A|\210\312\313\314A!!@!\266\202)\315 \203=\316 \210\210)\210\300 \211\204I\301 \210\302\317\"\216\212\320 )\315 \203Z\316 \210\211\262)\207" [lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] lispy--bounds-dwim lispy--read lispy--string-dwim cond error "%s isn't cond" lispy--fast-insert lispy--whitespace-trim lispy--cases->ifs lispy-bolp back-to-indentation #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] indent-sexp] 7 (#$ . 139182) nil]) #@28 Reverse of `lispy-to-ifs'. (defalias 'lispy-to-cond #[0 "\300 \211\204 \301 \210\302\303\"\216\212\304 \305\306!!\211@\307=\203%\310\311!B\2027\211@\312>\2032\313!\2027\314\315@\"@A|\210\316!\266\203)\317 \203K\320 \210\210)\210\300 \211\204W\301 \210\302\321\"\216\212\322 )\317 \203h\320 \210\211\262)\207" [lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] lispy--bounds-dwim lispy--read lispy--string-dwim if cond lispy--ifs->cases (case cl-case) lispy--case->cond error "Can't convert %s to cond" lispy--fast-insert lispy-bolp back-to-indentation #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] indent-sexp] 6 (#$ . 139914) nil]) #@32 Substitute let-bound variable. (defalias 'lispy-unbind-variable #[0 " >\203 \303 \207\304\305\211\306\307!\210\212\310\311!\210`\262\312\313!\210`\262)\313u\210\314\315\316 !#\210\317 \210\320\313!\210\321 \210\322 \210\323\313!\210\324\313!\210\325\326!\203O\327\224\327\225|\210\325\330!\203c\310\313!\210\331\313!\210\332 \210\202l\212\310\311!\210\333 \210)\334 )\207" [major-mode lispy-clojure-modes inhibit-message lispy-unbind-variable-clojure t nil require iedit lispy--out-backward 2 forward-list 1 iedit-start iedit-regexp-quote lispy--string-dwim lispy-mark-symbol lispy-move-down iedit-mode deactivate-mark lispy-left lispy-delete looking-at "[ \n]*" 0 ")" lispy-down lispy-raise-some lispy--normalize-1 undo-boundary] 7 (#$ . 140659) nil]) #@44 Subsititute let-bound variable in Clojure. (defalias 'lispy-unbind-variable-clojure #[0 "\300\301!\210\302 \210\303K\304\305\"\216\303\306M\210\307\310!\210)\210\311 \210\312\313!\210\307 \210\314 \210\315\313!\210\316 \210\302 \210\317\320!\210\321 \210\322\313!\207" [require iedit deactivate-mark message make-closure #[0 "\301\300M\207" [V0 message] 2] #[128 "\300\207" [nil] 2 "\n\n(fn &rest X)"] iedit-mode 0 lispy-mark-symbol lispy-move-down 1 exchange-point-and-mark lispy-slurp delete-active-region lispy--out-backward 2 lispy--normalize-1 lispy-flow] 4 (#$ . 141429) nil]) #@176 Bind current expression as variable. `lispy-map-done' is used to finish entering the variable name. The bindings of `lispy-backward' or `lispy-mark-symbol' can also be used. (defalias 'lispy-bind-variable #[0 "\304 \305!\306\307 \210\310 \210@A|\210\311\312\"c\210@b\210\313 \210\314 \210@\315\\\316\317u\210\320\321``\"\207" [lispy-bind-var-in-progress lispy-map-target-beg lispy-map-target-len lispy-map-format-function lispy--bounds-dwim lispy--string-dwim t deactivate-mark lispy-map-delete-overlay format "(let (( %s))\n)" indent-sexp forward-sexp 7 0 -1 identity lispy-map-make-input-overlay] 5 (#$ . 142020) nil]) #@47 Add ARG cursors using `lispy-down'. (fn ARG) (defalias 'lispy-cursor-down #[257 "\302\303!\210\304 \203\305=\204\306 \210\307 \207\310 !\203d\311\3122_\3131E\211T\211\262X\203@\314 \210\315\316!\210\304``T\"\2041\202$0\202^\211@\317=\203Q\320\321p\"\210S\262\311V\205\\\2620\266\202i\322\323\"\210\324 \207" [last-command lispy-left require multiple-cursors mc/all-fake-cursors lispy-cursor-down deactivate-mark mc/remove-fake-cursors looking-at 0 result (error) mc/create-fake-cursor-at-point lispy-down 1 buffer-read-only message "Buffer is read-only: %s" mc/mark-lines forwards mc/maybe-multiple-cursors-mode] 6 (#$ . 142658) "p"]) (eval-after-load 'multiple-cursors #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice mc/execute-command-for-all-fake-cursors (lispy-other-mode-mc nil t (advice lambda (cmd) (unless (and (eq cmd 'special-lispy-other-mode) (or (lispy-left-p) (lispy-right-p) (region-active-p))) ad-do-it))) around nil ad-activate] 5]) #@151 Add a cursor at a visually selected paren. Currently, only one cursor can be added with local binding. Any amount can be added with a global binding. (defalias 'lispy-cursor-ace #[0 "\301\302!\210\303 \210\304\305\306 \307 B\310$\210\311 \207" [lispy-avy-style-paren require multiple-cursors mc/create-fake-cursor-at-point lispy--avy-do "(" window-start window-end #[0 "\300 ?\207" [lispy--in-string-or-comment-p] 1] mc/maybe-multiple-cursors-mode] 5 (#$ . 143665) nil]) #@48 Store current buffer and `lispy--bounds-dwim'. (defalias 'lispy-store-region-and-buffer #[0 "\300\301\302p#\210\300\301\303\304 #\207" [put lispy-store-bounds buffer region lispy--bounds-dwim] 4 (#$ . 144143) nil]) #@92 Return nil if the frame isn't two vertical windows. In case it is, return the left window. (defalias 'lispy--vertical-splitp #[0 "\300 \211G\301U\205'\211@A@\302!\302!U\205%\303!\303!W\203$\207\211\266\202\207" [window-list 2 window-pixel-top window-pixel-left] 6 (#$ . 144364)]) #@50 (fn BND1 BND2 &optional BUF1 BUF2 DESC1 DESC2) (defalias 'lispy--ediff-regions #[1538 "\300 \301\206p\206 \302 #\301\206p\206\303 #\304\305!\210\306\307\310\311 \312 \232\2034\310\"\2029\310\"\313\"\"\210\314\315\316\317\320\321DF\"\207" [current-window-configuration lispy--make-ediff-buffer "-A-" "-B-" require ediff apply ediff-regions-internal append selected-window lispy--vertical-splitp (nil ediff-regions-linewise nil nil) add-hook ediff-after-quit-hook-internal lambda nil (setq ediff-after-quit-hook-internal nil) set-window-configuration] 16 (#$ . 144659) nil]) #@154 Comparable to `ediff-regions-linewise'. First region and buffer come from `lispy-store-region-and-buffer' Second region and buffer are the current ones. (defalias 'lispy-ediff-regions #[0 "\300\301N\204\n\302\303!\207\304\305 \300\306Np\300\301N$\207" [lispy-store-bounds buffer error "No bounds stored: call `lispy-store-region-and-buffer' for this" lispy--ediff-regions lispy--bounds-dwim region] 6 (#$ . 145263) nil]) #@40 Go right ARG times and mark. (fn ARG) (defalias 'lispy-mark-right #[257 "`\301 \302\303!\304 \210`U\204$`U\204$\305 \203A\306 \307 U\203A\310\311!\210V\2037\312B!\210\202=\312B!\210\313\202G\312\314 !\210\211)\207" [lispy-ignore-whitespace mark t lispy--out-forward deactivate-mark region-active-p region-beginning region-end lispy-complain "can't go any further" lispy--mark nil lispy--bounds-dwim] 7 (#$ . 145691) "p"]) #@39 Go left ARG times and mark. (fn ARG) (defalias 'lispy-mark-left #[257 "\300!\203 \301 \207`\302 U\205\303 \207" [lispy-mark-right lispy-different region-end exchange-point-and-mark] 3 (#$ . 146137) "p"]) #@32 Mark the car of current thing. (defalias 'lispy-mark-car #[0 "\300 \210\301 \302@f\303=\2032A\206`Sf\303=\2032\304\305\306\307 \"!G\310=\2032\311@TASB!\207@f\312=\203QA\206@`Sf\313=\203Q\311@TASB!\207\212@b\210\314\315!)\203f\316\310\225!\210Ab\207\317 \203\205`\320 U\203x\314\321!\206\260`\322 U\203\205\314\323!\206\260@b\210\324\325!\211\262\232\203\245`AW\203\245\302u\210\326\302w\210\202\211\211\203\255\311!\207\327\330!\207" [lispy--remember lispy--bounds-dwim nil 34 read format "(%s)" lispy--string-dwim 1 lispy--mark 96 39 looking-at "\\(['`,@]+\\)\\w" set-mark region-active-p region-end "\\_>" region-beginning "\\_<" bounds-of-thing-at-point sexp " " lispy-complain "can't descend further"] 6 (#$ . 146352) nil]) #@59 Stop edebugging, while saving current function arguments. (defalias 'lispy-edebug-stop #[0 " >\203c\303\302!\203_\n\203_\212\304\305!\210\306\307!\205]\310\225b\210\311\312!\210\313u\210\314\315!\210\316\317\316\320\321\322\321\323\321\324\321\325\326 \"\"\"\"\"\"\327 `\330\310\331\332\331\333\334\335\nDE\336D\337D\257#\210\340 \266\203)\207\341\315!\207\342=\205k\343 \207" [major-mode lispy-elisp-modes edebug-active boundp lispy-left 99 looking-at "(\\(?:cl-\\)?def\\(?:un\\|macro\\)" 0 search-forward "(" -1 forward-sexp 1 mapcar #[257 "\211:\203 \211@\262\211\300!\262B\207" [edebug-eval] 5 "\n\n(fn X!)"] #[257 "\211:\203\211@\207\207" [] 2 "\n\n(fn X)"] delq &allow-other-keys &key &optional &rest lispy--preceding-sexp current-window-configuration run-with-timer nil lambda mapc (lambda (x!) (set (car x!) (cdr x!))) quote set-window-configuration goto-char top-level self-insert-command clojure-mode lispy--clojure-debug-quit] 13 (#$ . 147119) nil]) #@260 Start/stop edebug of current thing depending on ARG. ARG is 1: `edebug-defun' on this function. ARG is 2: `eval-defun' on this function. ARG is 3: `edebug-defun' on the function from this sexp. ARG is 4: `eval-defun' on the function from this sexp. (fn ARG) (defalias 'lispy-edebug #[257 "\211\302U\203 >\203\303 \207\304=\203\305 \207\306\307\"\207\211\310U\203'\311\312!\207\313\314 !\211@\315!\203`\316\312\"\211@Arq\210\211b\210\317U\203M\303 \202^\320U\203Y\311\312!\202^\306\321\")\207\306\322\"\207" [major-mode lispy-elisp-modes 1 edebug-defun clojure-mode cider-debug-defun-at-point error "Can't debug for %S" 2 eval-defun nil lispy--read lispy--string-dwim fboundp find-definition-noselect 3 4 "Argument = %s isn't supported" "%s isn't bound"] 9 (#$ . 148107) "p"]) #@57 Eval current function arguments and jump to definition. (defalias 'lispy-debug-step-in #[0 " >\203\333\302 \211@\211\303>\203+A@\3048\242\305=\205*A@@\306!@L\210\307\304!\207\310!\2047\311!\203\324\211\312=\203K\306A@!\262\211AAB\262\313\314\211\315N\262\203\\\316!\202]\317\"!A\320\211\3212\317\211A\262\242\211\262\205\316\322\267\202\262\211A\262\242\262\306\211A\262\242!L\210\202h\211A\262\242\262\310!\203\247\323\306\"\202\250L\210\324\321\317\"\210\202h\211A\262\242\262\310!\203\310\306!\202\311L\210\202h0\210\325!\207\326\327\330\"!\207\331\267\202\357\332\333!\210\334 \207\332\335!\210\336 \207\326\327\337\"!\207" [major-mode lispy-elisp-modes lispy--setq-expression (mapcar mapc mapcan cl-remove-if cl-remove-if-not cl-find-if cl-find-if-not cl-some cl-every cl-any cl-notany) 2 lambda eval lispy-flow functionp macrop funcall copy-sequence help-function-arglist ad-advice-info ad-get-orig-definition t nil done #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (&optional 122 &rest 144)) mapcar throw lispy-goto-symbol lispy-complain format "%S isn't a function" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (clojure-mode 225 python-mode 232)) require le-clojure lispy--clojure-debug-step-in le-python lispy--python-debug-step-in "%S isn't currently supported"] 10 (#$ . 148914) nil]) #@86 Set ARGS to parts of EXPR. An equivalent of `cl-destructuring-bind'. (fn ARGS EXPR) (defalias 'lispy-destructuring-setq '(macro . #[514 "\305\211\305\306\305\211\307\206\310\"\210\237\262\311\312\313\314\"-BD\207" [cl--bind-lets cl--bind-forms cl--bind-defs cl--bind-block cl--bind-enquote nil cl-none cl--do-arglist (&aux) with-no-warnings progn mapcar #[257 "\300B\207" [setq] 3 "\n\n(fn X)"]] 9 (#$ . 150362)])) (byte-code "\300\301\302\303#\300\207" [function-put lispy-destructuring-setq lisp-indent-function 2] 4) #@42 Describe bindings that start with "C-4". (defalias 'lispy-describe-bindings-C-4 #[0 "\300\301!\207" [describe-bindings [67108916]] 2 (#$ . 150902) nil]) #@44 Change the current REPL working directory. (defalias 'lispy-cd #[0 "\301=\203\302\303!\304\305\"\302\306\307\"!\210\310!\207\311\312\"\207" [major-mode python-mode lispy--eval-python "import os; print(os.getcwd())" read-directory-name "cd: " format "os.chdir('%s')" message user-error "Unimplemented for %S"] 6 (#$ . 151061) nil]) (byte-code "\300\301!\302L\210\303\301!\304L\210\305\301!\306L\210\307\301!\310L\210\311\301!\312L\207" [(lambda (def-tmp-var) (defvar hydra-lispy-x/params def-tmp-var "Params of hydra-lispy-x.")) nil (nil nil :columns 3 :exit t :foreign-keys nil :hint nil) (lambda (def-tmp-var) (defvar hydra-lispy-x/docstring def-tmp-var "Docstring of hydra-lispy-x.")) "x" (lambda (def-tmp-var) (defvar hydra-lispy-x/heads def-tmp-var "Heads for hydra-lispy-x.")) (("b" lispy-bind-variable "bind variable" :exit t) ("c" lispy-to-cond "to cond" :exit t) ("C" lispy-cleanup "cleanup" :exit t) ("d" lispy-to-defun "to defun" :exit t) ("D" lispy-extract-defun "extract defun" :exit t) ("e" lispy-edebug "edebug" :exit t) ("f" lispy-flatten "flatten" :exit t) ("F" lispy-let-flatten "let-flatten" :exit t) ("h" lispy-describe "describe" :exit t) ("i" lispy-to-ifs "to ifs" :exit t) ("j" lispy-debug-step-in "debug step in" :exit t) ("k" lispy-extract-block "extract block" :exit t) ("l" lispy-to-lambda "to lambda" :exit t) ("m" lispy-cursor-ace "multi cursor" :exit t) ("n" lispy-cd nil :exit t) ("p" lispy-set-python-process "process" :exit t) ("r" lispy-eval-and-replace "eval and replace" :exit t) ("s" save-buffer nil :exit t) ("t" lispy-view-test "view test" :exit t) ("u" lispy-unbind-variable "unbind let-var" :exit t) ("v" lispy-eval-expression "eval" :exit t) ("B" lispy-store-region-and-buffer "store list bounds" :exit t) ("R" lispy-reverse "reverse" :exit t) ("T" lispy-ert "ert" :exit t) ("" lispy-x-more-verbosity nil :exit nil) ("?" lispy-x-more-verbosity "help" :exit nil)) (lambda (def-tmp-var) (defvar hydra-lispy-x/keymap def-tmp-var "Keymap for hydra-lispy-x.")) (keymap (63 . hydra-lispy-x/lispy-x-more-verbosity) (8 . hydra-lispy-x/lispy-x-more-verbosity) (84 . hydra-lispy-x/lispy-ert-and-exit) (82 . hydra-lispy-x/lispy-reverse-and-exit) (66 . hydra-lispy-x/lispy-store-region-and-buffer-and-exit) (118 . hydra-lispy-x/lispy-eval-expression-and-exit) (117 . hydra-lispy-x/lispy-unbind-variable-and-exit) (116 . hydra-lispy-x/lispy-view-test-and-exit) (115 . hydra-lispy-x/save-buffer-and-exit) (114 . hydra-lispy-x/lispy-eval-and-replace-and-exit) (112 . hydra-lispy-x/lispy-set-python-process-and-exit) (110 . hydra-lispy-x/lispy-cd-and-exit) (109 . hydra-lispy-x/lispy-cursor-ace-and-exit) (108 . hydra-lispy-x/lispy-to-lambda-and-exit) (107 . hydra-lispy-x/lispy-extract-block-and-exit) (106 . hydra-lispy-x/lispy-debug-step-in-and-exit) (105 . hydra-lispy-x/lispy-to-ifs-and-exit) (104 . hydra-lispy-x/lispy-describe-and-exit) (70 . hydra-lispy-x/lispy-let-flatten-and-exit) (102 . hydra-lispy-x/lispy-flatten-and-exit) (101 . hydra-lispy-x/lispy-edebug-and-exit) (68 . hydra-lispy-x/lispy-extract-defun-and-exit) (100 . hydra-lispy-x/lispy-to-defun-and-exit) (67 . hydra-lispy-x/lispy-cleanup-and-exit) (99 . hydra-lispy-x/lispy-to-cond-and-exit) (98 . hydra-lispy-x/lispy-bind-variable-and-exit) (kp-subtract . hydra--negative-argument) (kp-9 . hydra--digit-argument) (kp-8 . hydra--digit-argument) (kp-7 . hydra--digit-argument) (kp-6 . hydra--digit-argument) (kp-5 . hydra--digit-argument) (kp-4 . hydra--digit-argument) (kp-3 . hydra--digit-argument) (kp-2 . hydra--digit-argument) (kp-1 . hydra--digit-argument) (kp-0 . hydra--digit-argument) (57 . hydra--digit-argument) (56 . hydra--digit-argument) (55 . hydra--digit-argument) (54 . hydra--digit-argument) (53 . hydra--digit-argument) (52 . hydra--digit-argument) (51 . hydra--digit-argument) (50 . hydra--digit-argument) (49 . hydra--digit-argument) (48 . hydra--digit-argument) (45 . hydra--negative-argument) (21 . hydra--universal-argument)) (lambda (def-tmp-var) (defvar hydra-lispy-x/hint def-tmp-var "Dynamic hint for hydra-lispy-x.")) (format #("x:\nb: bind variable c: to cond C: cleanup\nd: to defun D: extract defun e: edebug\nf: flatten F: let-flatten h: describe\ni: to ifs j: debug step in k: extract block\nl: to lambda m: multi cursor p: process\nr: eval and replace t: view test u: unbind let-var\nv: eval B: store list bounds R: reverse\nT: ert ?: help" 3 4 (face hydra-face-blue) 24 25 (face hydra-face-blue) 45 46 (face hydra-face-blue) 56 57 (face hydra-face-blue) 77 78 (face hydra-face-blue) 98 99 (face hydra-face-blue) 108 109 (face hydra-face-blue) 129 130 (face hydra-face-blue) 150 151 (face hydra-face-blue) 162 163 (face hydra-face-blue) 183 184 (face hydra-face-blue) 204 205 (face hydra-face-blue) 221 222 (face hydra-face-blue) 242 243 (face hydra-face-blue) 263 264 (face hydra-face-blue) 274 275 (face hydra-face-blue) 295 296 (face hydra-face-blue) 316 317 (face hydra-face-blue) 334 335 (face hydra-face-blue) 355 356 (face hydra-face-blue) 376 377 (face hydra-face-blue) 387 388 (face hydra-face-blue) 408 409 (face hydra-face-red)))] 2) #@904 Call the head `lispy-bind-variable' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-bind-variable-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-bind-variable hydra--call-interactively-remap-maybe] 2 (#$ . 156260) nil]) #@898 Call the head `lispy-to-cond' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-to-cond-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-to-cond hydra--call-interactively-remap-maybe] 2 (#$ . 157470) nil]) #@898 Call the head `lispy-cleanup' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-cleanup-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-cleanup hydra--call-interactively-remap-maybe] 2 (#$ . 158662) nil]) #@899 Call the head `lispy-to-defun' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-to-defun-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-to-defun hydra--call-interactively-remap-maybe] 2 (#$ . 159854) nil]) #@904 Call the head `lispy-extract-defun' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-extract-defun-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-extract-defun hydra--call-interactively-remap-maybe] 2 (#$ . 161049) nil]) #@897 Call the head `lispy-edebug' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-edebug-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-edebug hydra--call-interactively-remap-maybe] 2 (#$ . 162259) nil]) #@898 Call the head `lispy-flatten' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-flatten-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-flatten hydra--call-interactively-remap-maybe] 2 (#$ . 163448) nil]) #@902 Call the head `lispy-let-flatten' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-let-flatten-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-let-flatten hydra--call-interactively-remap-maybe] 2 (#$ . 164640) nil]) #@899 Call the head `lispy-describe' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-describe-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-describe hydra--call-interactively-remap-maybe] 2 (#$ . 165844) nil]) #@897 Call the head `lispy-to-ifs' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-to-ifs-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-to-ifs hydra--call-interactively-remap-maybe] 2 (#$ . 167039) nil]) #@904 Call the head `lispy-debug-step-in' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-debug-step-in-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-debug-step-in hydra--call-interactively-remap-maybe] 2 (#$ . 168228) nil]) #@904 Call the head `lispy-extract-block' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-extract-block-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-extract-block hydra--call-interactively-remap-maybe] 2 (#$ . 169438) nil]) #@900 Call the head `lispy-to-lambda' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-to-lambda-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-to-lambda hydra--call-interactively-remap-maybe] 2 (#$ . 170648) nil]) #@901 Call the head `lispy-cursor-ace' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-cursor-ace-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-cursor-ace hydra--call-interactively-remap-maybe] 2 (#$ . 171846) nil]) #@893 Call the head `lispy-cd' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-cd-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-cd hydra--call-interactively-remap-maybe] 2 (#$ . 173047) nil]) #@909 Call the head `lispy-set-python-process' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-set-python-process-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-set-python-process hydra--call-interactively-remap-maybe] 2 (#$ . 174224) nil]) #@907 Call the head `lispy-eval-and-replace' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-eval-and-replace-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-eval-and-replace hydra--call-interactively-remap-maybe] 2 (#$ . 175449) nil]) #@896 Call the head `save-buffer' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/save-buffer-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body save-buffer hydra--call-interactively-remap-maybe] 2 (#$ . 176668) nil]) #@900 Call the head `lispy-view-test' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-view-test-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-view-test hydra--call-interactively-remap-maybe] 2 (#$ . 177854) nil]) #@906 Call the head `lispy-unbind-variable' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-unbind-variable-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-unbind-variable hydra--call-interactively-remap-maybe] 2 (#$ . 179052) nil]) #@906 Call the head `lispy-eval-expression' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-eval-expression-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-eval-expression hydra--call-interactively-remap-maybe] 2 (#$ . 180268) nil]) #@914 Call the head `lispy-store-region-and-buffer' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-store-region-and-buffer-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-store-region-and-buffer hydra--call-interactively-remap-maybe] 2 (#$ . 181484) nil]) #@898 Call the head `lispy-reverse' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-reverse-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-reverse hydra--call-interactively-remap-maybe] 2 (#$ . 182724) nil]) #@894 Call the head `lispy-ert' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-ert-and-exit #[0 "\302\303!\210\304 \210\305 \210\306\307\310\307!\207" [hydra-curr-body-fn this-command require hydra hydra-default-pre hydra-keyboard-quit hydra-lispy-x/body lispy-ert hydra--call-interactively-remap-maybe] 2 (#$ . 183916) nil]) #@907 Call the head `lispy-x-more-verbosity' in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/lispy-x-more-verbosity #[0 "\305\306!\210\307 \210\310\311 \210\312)\3131\314\315\314!0\210\202$\316\317!!\266\320 \321\"\210\322\f\323\324#\207" [hydra--ignore hydra-curr-body-fn this-command hydra-lispy-x/hint hydra-lispy-x/keymap require hydra hydra-default-pre t hydra-keyboard-quit hydra-lispy-x/body (quit error) lispy-x-more-verbosity hydra--call-interactively-remap-maybe message error-message-string hydra-show-hint hydra-lispy-x hydra-set-transient-map #[0 "\300 \210\301\207" [hydra-keyboard-quit nil] 1] nil] 4 (#$ . 185096) nil]) #@882 Call the body in the "hydra-lispy-x" hydra. The heads for the associated hydra are: "b": `lispy-bind-variable', "c": `lispy-to-cond', "C": `lispy-cleanup', "d": `lispy-to-defun', "D": `lispy-extract-defun', "e": `lispy-edebug', "f": `lispy-flatten', "F": `lispy-let-flatten', "h": `lispy-describe', "i": `lispy-to-ifs', "j": `lispy-debug-step-in', "k": `lispy-extract-block', "l": `lispy-to-lambda', "m": `lispy-cursor-ace', "n": `lispy-cd', "p": `lispy-set-python-process', "r": `lispy-eval-and-replace', "s": `save-buffer', "t": `lispy-view-test', "u": `lispy-unbind-variable', "v": `lispy-eval-expression', "B": `lispy-store-region-and-buffer', "R": `lispy-reverse', "T": `lispy-ert', "": `lispy-x-more-verbosity', "?": `lispy-x-more-verbosity' The body can be accessed via `hydra-lispy-x/body'. (defalias 'hydra-lispy-x/body #[0 "\306\307!\210\310 \210\311\312 \210\313)\314\n\315\"\210\316 \317\311#\210\f\211\207" [hydra--ignore hydra-curr-body-fn hydra-lispy-x/hint hydra-lispy-x/keymap current-prefix-arg prefix-arg require hydra hydra-default-pre nil hydra-keyboard-quit hydra-lispy-x/body hydra-show-hint hydra-lispy-x hydra-set-transient-map #[0 "\300 \210\301\207" [hydra-keyboard-quit nil] 1]] 4 (#$ . 186585) nil]) (defalias 'lispy-cleanup #[0 "\212\300\301\302\303#\203\304 \211@AT|\266\202)\305 \207" [re-search-forward "^;; =>" nil t lispy--bounds-comment save-buffer] 4 nil nil]) (defvar lispy-x--old-hint "") (defalias 'lispy-x-more-verbosity #[0 "\303\304\305\"\211\306\267\202!\307\304\310\311\n$\312\304\305\313#\207 \312\304\305\314#\207\315\207" [hydra-lispy-x/hint lispy-x--old-hint hydra-lispy-x/heads hydra-get-property hydra-lispy-x :verbosity #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 10 1 25)) hydra--format (nil nil :exit t :hint none) "\n_b_nd _c_nd _d_ef _e_de _f_la _h_elp _i_f _j_mp bl_k_ _l_mb _m_ul _r_ep _s_av _u_nb _v_t _B_nd _R_ev er_T_ _?_" hydra-set-property 1 2 nil] 6 nil nil]) #@33 Forward to `hydra-lispy-x/body' (defalias 'lispy-x #[0 "\300\301\302\303#\210\304 \207" [hydra-set-property hydra-lispy-x :verbosity 0 hydra-lispy-x/body] 4 (#$ . 188655) nil]) #@17 Call (`ert' t). (defalias 'lispy-ert #[0 "\300\301!\207" [ert t] 2 (#$ . 188838) nil]) #@31 Deactivate region and `undo'. (defalias 'lispy-undo #[0 "\300 \203 \301\302!\210\303 \207" [region-active-p deactivate-mark t undo] 2 (#$ . 188931) nil]) #@125 Recenter current sexp to first screen line, accounting for scroll-margin. If already there, return it to previous position. (defalias 'lispy-view #[0 "\301 \211\204 \302 \210\303\304\"\216\212\305\306 `\"\211U\204%n\2041\211TU\2031\307\310\311N\206-\312!\202:\313\310\311#\210\307\312!\262)\314 \203E\315 \210\211\262)\207" [scroll-margin lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] count-lines window-start recenter lispy-recenter :line 0 put lispy-bolp back-to-indentation] 6 (#$ . 189093) nil]) #@106 Return a cons of description and value for X. X is an item of a radio- or choice-type defcustom. (fn X) (defalias 'lispy--setq-doconst #[257 "\300<\205$\301!\211\262:\205$\211@\262\302!9\203\"\303D\202#B\207" [nil last prin1-to-string quote] 5 (#$ . 189680)]) #@41 Set variable at point, with completion. (defalias 'lispy-setq #[0 "\300\301\302!!\303\211\304!\205c\305N\211\262\205c:\203,@\306>\203,\307\310A\"\262\202<\311=\2038\312\262\202<\313\314!\210\315\316\317\"\"\211\205a\320\"\203V\320\"A\202Y\321!\262\322\323E!\262\207" [intern-soft thing-at-point symbol nil boundp custom-type (choice radio) mapcar lispy--setq-doconst boolean (("nil") ("t" . t)) error "Unrecognized custom type" ivy-read format "Set (%S): " assoc read eval setq] 8 (#$ . 189959) nil]) (byte-code "\300\301!\204 \302\301\303\"\210\302\304\300\305!\203\305\202\306\"\207" [fboundp macrop defalias #[257 "\300!\211:\205\211@\301=\206\211\211\242\302=\262\205\3038\304>\207" [indirect-function macro autoload 4 (macro t)] 5 "Non-nil if and only if OBJECT is a macro.\n\n(fn OBJECT)"] lispy--preceding-sexp elisp--preceding-sexp preceding-sexp] 4) #@61 Forward to find file in project depending on ARG. (fn ARG) (defalias 'lispy-visit #[257 "\302=\203 \303 \207 \204\301\304!\210\211\304U\203\305\306!\207\211\307U\203$\310 \207\305!\207" [lispy-visit-method projectile-mode ffip find-file-in-project 1 projectile-find-file nil 2 projectile-find-file-other-window] 3 (#$ . 190868) "p"]) #@39 Narrow ARG sexps or region. (fn ARG) (defalias 'lispy-narrow #[257 "\305 \203 \306 \307 }\207\310!\203`\212\311!\210`)}\207\312 \313 \"\203-`\212\314!\210`)}\207\310\n!\205<\212\315 \210 \316 *\207" [lispy-left lispy-right lispy-outline outline-regexp org-outline-regexp region-active-p region-beginning region-end looking-at lispy-forward looking-back line-beginning-position lispy-backward outline-back-to-heading org-narrow-to-subtree] 4 (#$ . 191217) "p"]) #@21 Forward to `widen'. (defalias 'lispy-widen #[0 "~\207" [] 1 (#$ . 191694) nil]) #@31 Alternative to `lispy-space'. (defalias 'lispy-other-space #[0 "\302\303 \"\203\304u\210\305c\207\306 !\205\305c\210\304u\207" [lispy-right lispy-left looking-back line-beginning-position -1 " " looking-at] 3 (#$ . 191780) nil]) #@143 Forward to `yank'. If the region is active, replace instead of yanking. When ARG is given, paste at that place in the current list. (fn ARG) (defalias 'lispy-paste #[257 "\302 \203\303 \304 \210\305@A\"\210\306 c\207\211\307V\203?\310 \210\311\312Z!\210\304 \210\313 \210\306 c\210l\2065\314!?\205d\313 \210\315u\207\316\317 \"\203N\320 \210\306 c\207\314 !\203a\320 \210\315y\210\321 \210\306 c\207\306 c\207" [lispy-right lispy-left region-active-p lispy--bounds-dwim deactivate-mark lispy--maybe-safe-delete-region lispy--maybe-safe-current-kill 1 lispy-mark-car lispy-down 2 just-one-space looking-at -1 looking-back line-beginning-position newline-and-indent lispy--indent-for-tab] 5 (#$ . 192021) "p"]) (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias lispy-font-lock-ensure fboundp font-lock-ensure font-lock-fontify-buffer] 4) #@46 Return STR fontified in MODE. (fn STR MODE) (defalias 'lispy--fontify #[514 "\302\303\304\"r\211q\210\305\306\"\216 \210\307 \210c\210\310 \210\311\312\313\"\311\314\315\"\311\314\313\"\316\211\211\211eb\210\317\320\316\304#\203J\321\322!\210`\262\323 Z\324W\203J\316\210\325c\210eb\210\317\326\316\304#\203f\321\322!\210`\262W\203fS\262\203b\210\327\330 \"\203\202`S\262\331 \210`\262\202\222\332 !\203\222`\262\331 \210`S\262\211\203\252\212\211b\210\323 Z\324W\203\251\316\210\325c\210)\333 \262\n\334\335 G\336\304%\210\203\360W\203\331\337SS\340 $\210\341S\342 $\210\202\360\337^S]S\343 $\210\341S\344 $\210\203%\337S\345\313 \315 \203  ^Y\203  ]X\203\f\202 FD $\210\211\203Z\337S\345\313 \315 \203R  ^Y\203R  ]X\203R\f\202T FD $\210\337S\345\313 \315\n =\203p \202r\fFD $\210 \266\207\202\203 \266\207*\207" [lispy-right lispy-left generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] show-paren-mode lispy-font-lock-ensure face-attribute show-paren-match :background lispy-cursor-face :foreground nil search-forward "|" backward-delete-char 1 line-end-position 2 " " "~" looking-back line-beginning-position lispy-different looking-at buffer-string add-face-text-property 0 (face 'lispy-test-face) add-text-properties (face region) set-text-properties (face cursor) (face region) (face cursor) face] 20 (#$ . 192894)]) #@32 View better the test at point. (defalias 'lispy-view-test #[0 "\302!\203`\300\303N=\203\304!\210\305\211\207\306\307!\203\216`\310\311 !A@\211A@A@AA@A@AA\211G\312U\203N\211@:\203N\211@@\313=\203N\211@A@\202O\211\314\315 iZ\316\"\306\317!\203`\320\202a\321\322\323\324\"\323\323\325 !\312\326O\323 \323\324;\203\202\202\206\325!\f\"\323\260 !\207\327\330!\207" [lispy-overlay lispy-hint-pos overlayp last-point delete-overlay nil looking-at "(should (\\(?:string=\\|equal\\)" read lispy--string-dwim 1 execute-kbd-macro make-string window-width 45 "[^\n]*(lispy-with clojure" clojure-mode emacs-lisp-mode lispy--show "\n" lispy--fontify prin1-to-string -1 lispy-complain "should position point before (should (string="] 20 (#$ . 194398) nil]) (defalias 'lispy-map-done #[0 "\301 \210\302\303\304!\207" [lispy-bind-var-in-progress lispy-map-delete-overlay nil lispy-backward 1] 2 nil nil]) #@53 The input overlay keymap for `lispy-extract-block'. (defvar lispy-map-keymap (byte-code "\300 \301\302\303#\210\301\304\303#\210\207" [make-sparse-keymap define-key "[" lispy-map-done [return]] 5) (#$ . 195325)) #@267 Set `lispy-map-input-overlay' to an overlay from BEG to END. This overlay will automatically extend with modifications. Each modification inside `lispy-map-input-overlay' will update the area between `lispy-map-target-beg' and `lispy-map-target-len'. (fn BEG END) (defalias 'lispy-map-make-input-overlay #[514 "\302!\203\n\303!\210\304p\305\306%\307\310\311#\210\307\312\313#\210\307\314\315#\210\307\316\317#\210\307\320\321#\210\307\322 #\210\211\211\207" [lispy-map-input-overlay lispy-map-keymap overlayp delete-overlay make-overlay nil t overlay-put face iedit-occurrence insert-in-front-hooks (lispy-map--overlay-update-hook) insert-behind-hooks (lispy-map--overlay-update-hook) modification-hooks (lispy-map--overlay-update-hook) priority 200 keymap] 8 (#$ . 195546)]) #@35 Delete `lispy-map-input-overlay'. (defalias 'lispy-map-delete-overlay #[0 "\301!\205 \302!\207" [lispy-map-input-overlay overlayp delete-overlay] 2 (#$ . 196342)]) #@12 (fn STR) (defalias 'lispy-map-format-function-extract-block #[257 "\302\303\304\"!\211A\303\305@ >\203'\203#\303\306\307!\310\311O\"\2022\312\2022\2031\307!\2022\313#\207" [major-mode lispy-clojure-modes read format "(%s)" "%S %s" "[%s]" prin1-to-string 1 -1 "[]" "()"] 11 (#$ . 196515)]) #@50 (fn OCCURRENCE AFTER BEG END &optional CHANGE) (defalias 'lispy-map--overlay-update-hook #[1284 "\211\2055\305\306 !\307 !\310\"\212\n\211V\203Z\202\311\\b\210\312 !\210\f!\211c\210\211G\211\262*\266\203\207" [inhibit-modification-hooks lispy-map-input-overlay lispy-map-target-beg lispy-map-target-len lispy-map-format-function t overlay-start overlay-end buffer-substring-no-properties 0 delete-char] 11 (#$ . 196826)]) #@225 Transform the current sexp or region into a function call. The newly generated function will be placed above the current function. Starts the input for the new function name and arguments. To finalize this input, press "[". (defalias 'lispy-extract-block #[0 "\305 \210\306 \307!\310 \210@A|\210\311c\210\312u\210\313``\"\210\314\212\315 \210\212 \n>\203-\316\202.\317\320\261\210)\321 \210\322u\210\323\324!\210\325\312!\210`\326\211)\207" [lispy-map-format-function major-mode lispy-clojure-modes lispy-map-target-beg lispy-map-target-len lispy-map-delete-overlay lispy--bounds-dwim lispy--string-dwim undo-boundary "()" -1 lispy-map-make-input-overlay lispy-map-format-function-extract-block lispy-beginning-of-defun "(defn a []\n" "(defun a ()\n" ")\n\n" indent-sexp 1 forward-sexp 2 delete-char 3] 5 (#$ . 197271) nil]) #@65 Test if point is inside a string. Return start of string it is. (defalias 'lispy--in-string-p #[0 "\300 \3018\203\3028\206\303f\304=\205`Sf\305=?\205`\207" [syntax-ppss 3 8 nil 34 92] 3 (#$ . 198112)]) #@36 Test if point is inside a comment. (defalias 'lispy--in-comment-p #[0 "\212l\204\300u\210\301\302 8)\207" [1 4 syntax-ppss] 2 (#$ . 198330)]) #@48 Test if point is inside a string or a comment. (defalias 'lispy--in-string-or-comment-p #[0 "\300 \3018\211f\302=\204\3038\205\211\207" [syntax-ppss 8 34 4] 4 (#$ . 198480)]) #@45 Return T if the current buffer is narrowed. (defalias 'lispy--buffer-narrowed-p #[0 "e\300U?\206 d\301 TU?\207" [1 buffer-size] 2 (#$ . 198667)]) #@47 Return t if EXPR is a raw comment. (fn EXPR) (defalias 'lispy--raw-comment-p #[257 "\211<\205\211@\300=\205\211A:\205\211A@\301=\207" [ly-raw comment] 3 (#$ . 198820)]) #@47 Return t if EXPR is a raw comment. (fn EXPR) (defalias 'lispy--raw-string-p #[257 "\211<\205\211@\300=\205\211A:\205\211A@\301=\207" [ly-raw string] 3 (#$ . 199002)]) #@59 Return t if at region beginning, or at start of the list. (defalias 'lispy--leftp #[0 "\302 \203\n`\303 U\207\304!\206\304 !\207" [lispy-left lispy-outline region-active-p region-beginning looking-at] 2 (#$ . 199182)]) #@40 Return t if STR is a symbol. (fn STR) (defalias 'lispy--symbolp #[257 "\300\301\"\207" [string-match "\\`\\(?:\\sw\\|\\s_\\)+\\'"] 4 (#$ . 199411)]) #@52 Return t if the current active region is a string. (defalias 'lispy--string-markedp #[0 "\300 \205\301 f\302=\205\303 \206`Sf\302=\207" [region-active-p region-beginning 34 region-end] 2 (#$ . 199568)]) #@67 Return t if point is at beginning of line, after optional spaces. (defalias 'lispy-bolp #[0 "\212\300\301x\210n)\207" [" " nil] 2 (#$ . 199783)]) #@55 Return t if the string before point is STR. (fn STR) (defalias 'lispy-after-string-p #[257 "`GZe]`{\230\207" [] 3 (#$ . 199936)]) #@201 Test whether the point is on an "empty" line. Return t if the point is by itself on a line with optional whitespace. Return 'right if the point is on a line with only right delimiters and whitespace. (defalias 'lispy--empty-line-p #[0 "\301\302\303Q!\205\304\305\306 \"\262\205\301\302P!\203\307\207\310\207" [lispy-right looking-at "[[:space:]]*" "*$" "^[[:space:]]*" looking-back line-beginning-position right t] 4 (#$ . 200076)]) #@359 Return a regexp corresponding to valid syntax that can precede delimiters. This is done by checking PRECEDING-SYNTAX-ALIST for the current major mode. Return nil if there is no entry for the current major mode. When there is an entry, prepend BEFORE and append AFTER to the regexp when they are specified. (fn PRECEDING-SYNTAX-ALIST &optional BEFORE AFTER) (defalias 'lispy--preceding-syntax #[769 "\301\"A\206\f\302\236A\211\205\303\304\305\306\307\"\"\310\260\207" [major-mode assoc t "\\(?:" apply concat lispy-interleave "\\|" "\\)"] 11 (#$ . 200526)]) #@179 Test whether the point is in a list with no sexps. A list with only characters that can precede a delimiter (e.g. "`(,)") is consider an empty list. (fn PRECEDING-SYNTAX-ALIST) (defalias 'lispy--in-empty-list-p #[257 "\302\303\304\305#Q\306\307 \"\262\205\310\302 P!\207" [lispy-left lispy-right "[[:space:]]*" lispy--preceding-syntax nil "*" looking-back line-beginning-position looking-at] 7 (#$ . 201102)]) #@279 Test whether the point is at a "free" spot and not at a wrappable sexp. PRECEDING-SYNTAX-ALIST should be an alist of `major-mode' to a list of regexps. The regexps correspond to valid syntax that can precede an opening delimiter in each major mode. (fn PRECEDING-SYNTAX-ALIST) (defalias 'lispy--not-at-sexp-p #[257 "\302\303Q\304!\305\306 \307 \"\310!\206V\311\312\313Q\"\206V\314!\2031\315\316Q\317\306 \"\262\206V\314\320!\203E \316Q\317\306 \"\262\206V\314\315!\205V\315\316Q\317\306 \"\262\207" [lispy-right lispy-left "\\(" "+\\|[[:space:]]*$\\)" lispy--preceding-syntax buffer-substring-no-properties line-beginning-position line-end-position lispy--in-empty-list-p string-match "^[[:space:]]*" "*[[:space:]]*$" looking-at "[[:space:]]+" "*" looking-back "\\([[:space:]]+\\|[[:space:]]*$\\)"] 8 (#$ . 201526)]) #@112 Return a cons of region bounds if it's active. Otherwise return cons of current string, symbol or list bounds. (defalias 'lispy--bounds-dwim #[0 "\304\305 \203\f\306 \307 B\207\310 \211\262\203$`@=\204#`AS=\203$\207\311!\203H\212\312 \210`T\313 \210\314\304x\210\315 \211\262\203D@Sb\210`)B\207\212\316 \317 \"\203T\320 \210\311\321\nP!\204b\311\322!\205h\323\324!\211\262)\203z\212\211@b\210\325 \210`A)B\207\311\326!\203\203\315 \207 \327=\203\221\330 \203\221\331 \207\3321\246\323\311 !\203\240\333\202\241\324!0\202\250\210\304\211\203\276\212\211Ab\210\334 \210\335\304x\210\211@`)B\207\3361\311\323\333!0\202\315\210\202\320\206\337\316\317 \"\262\203\346\212\340\224b\210\310 )\206\3411\361\323\342!0\202\365\210\202\370\206\3431\212\344v\210\323\333!)0\202\f\210\202\206\3451\212\346v\210\323\333!)0\207\210\304\207" [lispy-outline lispy-right lispy-left major-mode nil region-active-p region-beginning region-end lispy--bounds-string looking-at outline-end-of-heading outline-end-of-subtree "\n" lispy--bounds-comment looking-back line-beginning-position backward-list "[^[:space:]\n]*" "[`'#]" bounds-of-thing-at-point sexp lispy--skip-delimiter-preceding-syntax-backward ";;" python-mode lispy-bolp lispy-bounds-python-block (error) symbol lispy--in-string-or-comment-p "[.,]" (error) "\" *" 0 (error) sentence (error) -1 (error) 1] 6 (#$ . 202373)]) #@63 Return a cons of the bounds of a C-like top-level expression. (defalias 'lispy--bounds-c-toplevel #[0 "`\212\300\301!\203\302 \210`\202T\303 \304\206`Sf\305U\203)b\210\303\306!\262\202`W\203E`\262\300\307!\203>\306u\210\202)\310\311!\210\202)`X\203Q`\266\202\202T\211\266\202)B\207" [looking-at " *\\(\\sw\\|\\s_\\)+ *=" python-nav-end-of-statement line-end-position nil 92 2 " \\*" forward-sexp 1] 5 (#$ . 203792)]) #@61 Return the bounds of smallest list that includes the point. (defalias 'lispy--bounds-list #[0 "\212\302 \210\303!\203 \304u\210 \305\306 \"\262\203\307u\210\31016\304\211\311 \210`\262\312 \210`\262B\266\2020\2028\210\304)\207" [lispy-left lispy-right lispy--exit-string looking-at nil looking-back line-beginning-position -1 (error) up-list backward-list] 4 (#$ . 204235)]) #@34 Return bounds of current string. (defalias 'lispy--bounds-string #[0 "\300 ?\205B\301\302 8\206`f\303=\205`Sf\304=?\205`\211\205@\305`T\"?\205@\3061>\211\212b\210\307 \210`)B0\202@\210\310\262\207" [lispy--in-comment-p 8 syntax-ppss 34 92 comment-only-p (error) forward-sexp nil] 4 (#$ . 204628)]) #@35 Return bounds of current comment. (defalias 'lispy--bounds-comment #[0 "\300 \205\230\212\301 \205\227`\300 \203;\302\303!\203;\304\305\306 \"\262\203;\307`\"n\203.\310\202/\311Z\311U\203;`\262\202\f\211b\266\312\313!\203N`\314 \210`B\202\227\301 `i\300 \203\214\302\311!\203\214\301 \203\214\307`\"n\203n\310\202o\311Z\311U\203\214\211iU\203\214\315\305\306 \"\262\203\214`\262\202Rb\210\316\210`B\266\203)\207" [lispy--in-comment-p lispy--beginning-of-comment forward-comment -1 "^[[:space:]]*" looking-back line-beginning-position count-lines 0 1 looking-at "#|" comment-forward "^\\s-*" nil] 7 (#$ . 204946)]) #@35 Return bounds of current outline. (defalias 'lispy--bounds-outline #[0 "\212\300 \301\302\"\216\3031(\304\305!\210`\306\305\211\"\210\307 \203\"m\204\"\310u\210`B0\202S\311\312\313!\"\203Ke\3141?\315\316!\210`0\202C\210\202F\206GdB\202Q\317@A\"\262)\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] (error) org-back-to-heading t org-end-of-subtree org-at-heading-p -1 string-match "^Before first headline" error-message-string (error) org-speed-move-safe outline-next-visible-heading signal] 6 (#$ . 205598)]) #@35 Return the current outline start. (defalias 'lispy--outline-beg #[0 "\212\3001 \301 \210`0\202\210e)\207" [(error) outline-back-to-heading] 1 (#$ . 206174)]) #@33 Return the current outline end. (defalias 'lispy--outline-end #[0 "\212\300 \203 `S\202\fd)\207" [outline-next-heading] 1 (#$ . 206341)]) #@117 Return the string that corresponds to BOUNDS. `lispy--bounds-dwim' is used if BOUNDS is nil. (fn &optional BOUNDS) (defalias 'lispy--string-dwim #[256 "\211\206\300 \262\301@A\"\207" [lispy--bounds-dwim buffer-substring-no-properties] 4 (#$ . 206488)]) #@36 Return current function as string. (defalias 'lispy--current-function #[0 "\301 \203\302 \303\304\"\205\305\306\"\207\212\307=\2032\310\311!\211\203'\302!\202-\312\313!\210\314 \262\202>\315 \210\316\317!\205>\320\306!)\207" [major-mode region-active-p lispy--string-dwim string-match "\\`[#'`]*\\(.*?\\)'?\\'" match-string 1 python-mode bounds-of-thing-at-point symbol up-list -1 python-info-current-symbol lispy--back-to-paren looking-at "(\\([^ \n)]+\\)[ )\n]" match-string-no-properties] 4 (#$ . 206753)]) #@54 Return a propertized `prin1-to-string'-ed X. (fn X) (defalias 'lispy--prin1-fancy #[257 "\300\301!\302\303#\207" [propertize prin1-to-string face font-lock-constant-face] 5 (#$ . 207283)]) #@91 Move outside list forwards ARG times. Return nil on failure, (point) otherwise. (fn ARG) (defalias 'lispy--out-forward #[257 "\303 \210\3042V\211\305\211W\203R\306\3071\310 \210\3110\202 \210\202<\203<\203.\312 \266\202K \2048\313 \210\314 \210\210\202K\315\n!\203E\316 \210\317\304\306\"\266\211T\262\202 \266`0\207" [buffer-read-only lispy-ignore-whitespace lispy-left lispy--exit-string break 0 nil (error) up-list t deactivate-mark lispy--remove-gaps lispy--indent-for-tab looking-at forward-list throw] 7 (#$ . 207480)]) #@85 Move outside list forwards ARG times. Return nil on failure, t otherwise. (fn ARG) (defalias 'lispy--out-backward #[257 "`\301\302!\210\303\304 \"\203\305\306!\210`\211\262U?\205\211\207" [lispy-right nil lispy--out-forward looking-back line-beginning-position forward-list -1] 6 (#$ . 208032)]) #@32 Move to ( going out backwards. (defalias 'lispy--back-to-paren #[0 "\301\302 \210\303\304!?\205\305\306!\205\202)\207" [lispy-ignore-whitespace t lispy--exit-string looking-at "(" lispy--out-backward 1] 2 (#$ . 208343)]) #@38 When in string, go to its beginning. (defalias 'lispy--exit-string #[0 "\300 \3018\205\f\3028b\207" [syntax-ppss 3 8] 3 (#$ . 208577)]) #@45 Go to beginning of comment on current line. (defalias 'lispy--beginning-of-comment #[0 "\301\210\302 \210\303\304 \305\"\211\203\211b\206\306\307P!\205`\207" [lispy-outline-header nil comment-beginning comment-search-backward line-beginning-position t looking-at "^"] 4 (#$ . 208722)]) #@81 Search for a first comment in direction DIR. Move to the end of line. (fn DIR) (defalias 'lispy--comment-search-forward #[257 "\300 ?\205\211y\210\301\210\202\207" [lispy--in-comment-p nil] 2 (#$ . 209022)]) #@193 Move backwards past syntax that could precede an opening delimiter such as '. Specifically, move backwards to the closest whitespace char or opening delimiter or to the beginning of the line. (defalias 'lispy--skip-delimiter-preceding-syntax-backward #[0 "\301\302\303Q!\210\304\225b\207" [lispy-left re-search-backward "[[:space:]]\\|" "\\|^" 0] 4 (#$ . 209243)]) #@83 Eval E-STR according to current `major-mode'. The result is a string. (fn E-STR) (defalias 'lispy--eval #[257 "\211\303\230\203\303\207 >\203\304\202`\n>\204\305>\203&\306\307!\210\310\202`\311\267\202\\\306\312!\210\313\202`\306\314!\210\315\202`\306\316!\210\317\202`\306\320!\210\321\202`\306\322!\210\323\202`\324\202`\325\202`\326\327\"!\207" [major-mode lispy-elisp-modes lispy-clojure-modes "" lispy--eval-elisp (nrepl-repl-mode cider-clojure-interaction-mode) require le-clojure lispy-eval-clojure #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scheme-mode 44 lisp-mode 52 hy-mode 60 python-mode 68 julia-mode 76 ruby-mode 84 matlab-mode 88)) le-scheme lispy--eval-scheme le-lisp lispy--eval-lisp le-hy lispy--eval-hy le-python lispy--eval-python le-julia lispy--eval-julia oval-ruby-eval matlab-eval error "%s isn't supported currently"] 4 (#$ . 209615)]) #@51 Like `eval-expression', but for current language. (defalias 'lispy-eval-expression #[0 "\300\301\302!\211\303\304#M\210\303\305\"\216\306\307\"\210\310\311!)\266\202\312\313!!\207" [lispy-mode make-symbol "minibuffer-setup" make-closure #[0 "\302\303\301\"\210\300 \207" [V0 V1 remove-hook minibuffer-setup-hook] 3] #[0 "\301\302\300\"\207" [V0 remove-hook minibuffer-setup-hook] 3] add-hook minibuffer-setup-hook read-from-minibuffer "Eval: " lispy-message lispy--eval] 7 (#$ . 210549) nil]) (defvar lispy-eval-match-data nil) #@219 Eval LISPY-FORM and return its value. If LEXICAL is t, evaluate using lexical scoping. Restore and save `lispy-eval-match-data' appropriately, so that no other packages disturb the match data. (fn LISPY-FORM LEXICAL) (defalias 'lispy--eval-elisp-form #[514 "\301\302\216\303\304M\210\305!\210\306\"\262\307 )\207" [lispy-eval-match-data nil #[0 "\300\301M\207" [\, nil] 2] \, identity set-match-data eval match-data] 6 (#$ . 211089)]) (byte-code "\300\301\302\303!\203\f\303\202 \304\"\207" [defalias lispy-eval-defun-1 fboundp eval-defun-1 elisp--eval-defun-1] 4) #@39 Eval E-STR as Elisp code. (fn E-STR) (defalias 'lispy--eval-elisp #[257 "\302!\211:\203G\211@\303>\203+\211A:\203+\304A@!\203+\211A@\305AA@!L\210\202G\211@\306=\203;\307\310!!\210\202G\211@\311>\203G\211A@\262\3121S\313\314\"!0\207\315\316M\210\317! \203v\320\321\"\203v\322\323\"\262\324!\316L\210\325\326\"\207\327@A\"\207" [lexical-binding lispy-lax-eval read (defvar defcustom defvar-local) boundp eval defface lispy-eval-defun-1 macroexpand (\, \,@) (error) prin1-to-string lispy--eval-elisp-form \, nil error-message-string string-match "^Symbol's value as variable is void: \\(.*\\)$" match-string 1 intern message "Caught unbound variable %s, setting it to nil." signal] 7 (#$ . 211668)]) #@43 Alist of tag arities for supported modes. (defvar lispy-tag-arity '((lisp-mode (defclass . 1) (defconstant . 1) (defgeneric . 1) (define-condition . 1) (define-symbol-macro . 1) (defmethod . 2) (defpackage . 1) (defparameter . 1) (defsetf . 1) (defstruct . 1) (deftype . 1) (in-package . 1) (load . 1) (setq . 2) (definterface . 1) (defimplementation . 1) (define-caller-pattern . 1) (define-variable-pattern . 1) (define-pattern-substitution . 1) (defslimefun . 1) (defslyfun . 1)) (emacs-lisp-mode (setq . 2) (csetq . 2) (setq-default . 2) (add-to-list . 2) (add-hook . 2) (load . 1) (load-file . 1) (define-key . 3) (ert-deftest . 1) (declare-function . 1) (defalias . 2) (defvaralias . 2) (defvar-local . 1) (make-variable-buffer-local . 1) (define-minor-mode . 1) (make-obsolete . 2) (put . 3) (overlay-put . 3) (make-obsolete-variable . 1) (define-obsolete-function-alias . 1) (define-obsolete-variable-alias . 1) (eval-after-load . 1) (global-set-key . 2) (if . 1) (when . 1) (unless . 1) (advice-add . 1) (cl-defun . 1) (defstruct . 1) (cl-defstruct . 1) (org-defkey . 3) (use-package . 1) (lispy-defverb . 1) (defhydra . 1) (ivy-set-actions . 1) (ivy-set-sources . 1) (ivy-set-occur . 1))) (#$ . 212398)) #@55 Return tag regexp based on MODE. (fn &optional MODE) (defalias 'lispy--tag-regexp #[256 "\211\206\262\211\304=\203\305\306\307\310\311 \"A\"!\312Q\207\n>\203/\313\306\307\314\311 \"A\"!\312Q\207 >\2037\315\207\316\317\"\207" [major-mode lispy-tag-arity lispy-elisp-modes lispy-clojure-modes lisp-mode "^([ \n]*\\_<\\(?:cl:\\)?\\(" regexp-opt mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] assoc "\\)\\_>" "^([ \n]*\\_<\\(" #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn X)"] "^(\\([a-z-A-Z0-0]+\\)" error "%s isn't supported"] 8 (#$ . 213618)]) #@229 Concatenate KIND and the name of tag X. KIND is fontified with `font-lock-keyword-face'. The name of X fontified according to FACE. FACE can be :keyword, :function or :type. It defaults to 'default. (fn KIND X &optional FACE) (defalias 'lispy--propertize-tag #[770 "\203\300\301\302#\303P\202\304\300@\301\305\267\202)\302\202*\306\202*\307\202*\310\202*\311#P\207" [propertize face font-lock-keyword-face " " "" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:keyword 25 :type 29 :function 33 :command 37)) font-lock-type-face font-lock-function-name-face lispy-command-name-face font-lock-variable-name-face] 9 (#$ . 214194)]) #@221 Re-parse X and modify it accordingly. REGEX selects the symbol is 1st place of sexp. ARITY-ALIST combines strings that REGEX matches and their arities. FILE is the file where X is defined. (fn X REGEX ARITY-ALIST FILE) (defalias 'lispy--modify-tag #[1028 "\3008\301!\302!\203\303!\202!\304!\203\305H\202!\306\307!rq\210\212\211\206+eb\210\310!\203~\305\225b\210\311\312!\313\211\211\314\313w\210\315\316!\n\"A\211\262\203|`\262\3171_\320!0\210\202d\210\320\312!\210\321\322\323\324`\"#\262\n\240\210\nA\316!\240\210\266*\266\207" [4 find-file-noselect overlayp overlay-start vectorp 0 error "Unexpected" looking-at match-string 1 nil " \n" assoc intern (error) forward-sexp replace-regexp-in-string "\n *" " " buffer-substring-no-properties] 17 (#$ . 214884)]) #@47 Build tag name for Common Lisp tag X. (fn X) (defalias 'lispy--tag-name-lisp #[257 "\211@;\204\301\207\211A@\302=\203\303\304\305#\207\211A@\306=\203$\303\307\310#\207\211A@\311=\2031\303\312\"\207\211A@\313\236A\236\203E\303\314A@!\"\207\211@\207" [lispy-tag-arity "tag with no name" function lispy--propertize-tag nil :function type "defstruct" :type variable "defvar" lisp-mode symbol-name] 5 (#$ . 215687)]) #@73 Get the actual sexp from semantic tag X in FILE. (fn X &optional FILE) (defalias 'lispy--tag-sexp-elisp #[513 "\3008\301\211\302!\203\303!\262\304!\262\2025\305!\2031\306\206&\307H!\262\310H\262\2025\311\312!\210rq\210\212\211b\210\3131G\314 0\202I\210\301*\207" [4 nil overlayp overlay-buffer overlay-end vectorp find-file-noselect 2 1 error "Unexpected" (error) lispy--preceding-sexp] 8 (#$ . 216119)]) #@64 Build tag name for Elisp tag X in FILE. (fn X &optional FILE) (defalias 'lispy--tag-name-elisp #[513 "@;\204\301\207A@\302=\203\303\304\"\207A@\305=\203\"\303\306\"\207A@\307=\203/\303\310\"\207A@\311=\203S\312\313\3148\262\"\266\202\203M\303\315\316#\207\303\315\317#\207A@\320=\203`\303\321\"\207A@\322\236A\236\203t\303\323A@!\"\207A@\324=\203\241@\325\230\203\241\326\"\211\203\237\211<\203\237\303\325\327\330A@AA@#C\"\207\325\207@\207" [lispy-tag-arity "tag with no name" include lispy--propertize-tag "require" package "provide" customgroup "defgroup" function :user-visible-flag plist-get 2 nil :command :function variable "defvar" emacs-lisp-mode symbol-name code "define-derived-mode" lispy--tag-sexp-elisp format "%s %s"] 9 (#$ . 216552)]) #@43 Build tag name for Clojure tag X. (fn X) (defalias 'lispy--tag-name-clojure #[257 "\211@;?\2061\211A@\300=\203\301\302\"\207\211A@\303=\203\"\301\304\305#\207\211A@\306=\203/\301\307\"\207\211@\207" [package lispy--propertize-tag "ns" function nil :function variable "def"] 5 (#$ . 217352)]) #@220 Given a semantic tag X in FILE, return its string representation. This is `semantic-tag-name', amended with extra info. For example, a `setq' statement is amended with variable name that it uses. (fn X &optional FILE) (defalias 'lispy--tag-name #[513 " >\203 \304\"\202+\n>\203\305!\202+\306\267\202*@\202+\307!\202+\310\211\205M\311\312\313#\262 @GV\203J\314\315ZO\316P\202K\262\207" [major-mode lispy-elisp-modes lispy-clojure-modes lispy-helm-columns lispy--tag-name-elisp lispy--tag-name-clojure #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scheme-mode 31 lisp-mode 36)) lispy--tag-name-lisp nil replace-regexp-in-string " " " " 0 4 " ..."] 8 (#$ . 217660)]) #@50 Fetch all tags in current directory recursively. (defalias 'lispy--fetch-tags-recursive #[0 "\301\302\303\304\305\306\307 !#!\310\311#!\207" [default-directory lispy--fetch-tags split-string shell-command-to-string format "find %s -type f -regex \".*\\.%s\" ! -regex \".*\\(\\.git\\|\\.cask\\).*\"" file-name-extension buffer-file-name "\n" t] 8 (#$ . 218401)]) #@57 Fetch all tags in the projectile directory recursively. (defalias 'lispy--fetch-tags-projectile #[0 "\301\302!\210\303 \304 )\207" [default-directory require projectile projectile-project-root lispy--fetch-tags-recursive] 2 (#$ . 218770)]) #@47 Jump to symbol selected from (FUN). (fn FUN) (defalias 'lispy--goto #[257 "\302\300!\205\300\303!\210 \304\305\306\"\307\"\266 \205\"\211?\205\"\300\310!\207" [semantic-mode lispy-no-permanent-semantic boundp 1 lispy--select-candidate mapcar lispy--format-tag-line lispy--action-jump -1] 7 (#$ . 219017)]) #@40 Grow current sexp forward by one sexp. (defalias 'lispy--slurp-forward #[0 "``Sf\300\301w\210`|\210\302\303!\204%\302\304!\204%\302\305!\204%l\204%\306c\210\30711\310 \210\3110\2024\210\301\207\205>S|\210\211c\207" [" " nil lispy-after-string-p "()" "[]" "{}" " " (error) forward-sexp t] 4 (#$ . 219338)]) #@41 Grow current sexp backward by one sexp. (defalias 'lispy--slurp-backward #[0 "`\300f\301 \210\211T|\210\211c\210\302u\207" [nil backward-sexp -1] 4 (#$ . 219661)]) #@42 Shrink current sexp forward by one sexp. (defalias 'lispy--barf-forward #[0 "`\300f\301\302!?\205'\300u\210\303 \210\211T|\210\304\300w\210\211c\210\305u\210\306`\"\210\307\310!\207" [nil looking-at "()" forward-sexp " \n " -1 indent-region lispy--reindent 1] 5 (#$ . 219832)]) #@43 Shrink current sexp backward by one sexp. (defalias 'lispy--barf-backward #[0 "``Sf\300\301!?\2051\302u\210\303 \210\304\305x\210\306 \203%\307 b\210\304\305x\210\202S|\210\211c\210\310`\"\207" [lispy-after-string-p "()" -1 backward-sexp " \n " nil lispy--in-comment-p comment-beginning lispy--indent-region] 5 (#$ . 220119)]) #@129 Replace text matching REGEXP with TO-STRING in whole buffer. Ignore the matches in strings and comments. (fn REGEXP TO-STRING) (defalias 'lispy--replace-regexp-in-code #[514 "eb\210\300\301\302#\205\303 \204\304!\210\202\207" [re-search-forward nil t lispy--in-string-or-comment-p replace-match] 6 (#$ . 220460)]) #@33 Syntax table for paired braces. (defvar lispy--braces-table (byte-code "\300\301\302\"\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\207" [make-char-table syntax-table nil modify-syntax-entry 123 "(} " 125 "){ " 91 "(] " 93 ")[ " 40 "() " 41 ")( "] 5) (#$ . 220789)) #@53 Read STR including comments and newlines. (fn STR) (defalias 'lispy--read #[257 "\305 \305\306\307\310\"r\211q\210\311\312\"\216 \210c\210\313\314\315\"\210eb\210\316d\310\"\203C\317 \210`\320 B\262\321!\262@A|\210\322\323\"c\210\202eb\210\324\325\305\310#\203q\326u\210\327 \204F\330\224\305\331\332!\210\322\333\334`\"\"\262`|\210\211c\266\202Feb\210\324\335\305\310#\203\253\336 \262\203t\337\340!\204\220\337\341!\203\227Ab\210\202t\321!\262@A|\210\322\342\"c\210\202t\313\343\344\"\210eb\210\324\345\305\310#\203\335\336 \211\262\203\312Ab\210\202\263\346\330!\330\224\330\225|\210\322\347\"c\266\202\263eb\210\324\350\305\310#\203\370\327 \204\340\351\352\305\211\211\332%\210\202\340eb\210\324\353\305\310#\203\"\327 \204\373`\305\354 \210\334`\"\262S`|\210\322\355\"c\266\202\373eb\210\324\356\305\310#\203B\327 \204%\351\322\357\360\361\330!!\"\305\310#\210\202%eb\210\324\362\305\310#\203b\327 \204E\351\322\363\360\361\330!!\"\305\310#\210\202Eeb\210\324\364\305\310#\203~\327 \204e\351\322\365\346\332!\"!\210\202eeb\210\324\366\305\310#\203\233\327 \204\201\331 \210\367c\210\351\370!\210\202\201eb\210\324\371\305\310#\203\334\327 \204\236\372u\210`\3731\272\374p!0\202\274\210\305\211:\203\327\211@\375=\203\327\367c\210b\210\376\377!\210\201@c\210\266\202\236eb\210\324\201A\305\310#\203\326u\210`\201B\332!\210\367c\210\211b\210\376\372!\210\201Cc\266\202\337eb\210\324\201D\305\310#\203\361\330!\201E\230\203#\201F\202\235\361\330!\201G\230\2033\201H\202\235\361\330!\201I\230\203C\201J\202\235\361\330!\201K\230\203S\201L\202\235\361\330!\201M\230\203c\201N\202\235\361\330!\201O\230\203s\201P\202\235\361\330!\201Q\230\203\203\201R\202\235\361\330!\201S\230\203\223\201T\202\235\201U\201V\361\330!\"\327 \204\375\326u\210\212\201W \311\201X\"\216\201Y\201Z!)\262\203\307\201B\332!\210\202\343\201[ p\311\201\\#\216\201]\n!\210\201B\332!\210)\266\376\326!\210\201^c\210)\330\224\330\225|\210\201_\201`\261\210\210\202 eb\210\324\201a\305\310#\203)\201b \204\351\322\201c\360\361\332!!\"\305\211\211\332%\210\202eb\210\324\201d\305\310#\203p\327 \204,\326u\210`\201e1L\374p!0\202N\210\305\211:\203k\211@\201f=\203k\367c\210b\210\376\332!\210\201gc\210\266\202,eb\210\324\201h\305\310#\203\313\327 \204s\201Y !\203\252\376\326!\210\201ic\210\201B\332!\210\367c\210\201j\332!\210\201ku\210\202s\201Y\201l!\203s`\331\332!\210\201mc\210\211Sb\210\201nc\266\202s\313\201o\201p\"\210eb\210\324\201q\305\310#\203-\327 \204\327\372u\210 \f>\203\373\376\332!\210\201rc\210\202\327`\201s1 \374p!0\202 \210\305\211:\203(\211@\201t=\203(\367c\210b\210\376\332!\210\201uc\210\266\202\327eb\210\324\201v\305\310#\203^\327 \2040\330\224\330\225|\210\201wc\210\324\201x!\210\201y\332!\210\201mc\210\2020\313\201z\201{\"\210\313\201|\201}\"\210\313\201~\201\"\210eb\210\324\201\200\305\310#\203\231\327 \204|\351\322\201\201\361\332!\"!\210\202|eb\210\324\201\202\305\310#\203\323\201b \204\234\201\203\201\204\361\330!\"\203\234\201\205 \321!@A|\210\322\201\206\"c\266\202\234eb\210\324\201\207\305\310#\203\376\336 \211\262\203\357Ab\210\202\326\326u\210\376\326!\210\201\210c\210\202\326\334ed\"*\262\201\2111\374!0\202\210\305)\207" [deactivate-mark major-mode lispy--braces-table lispy-left lispy-clojure-modes nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] lispy--replace-regexp-in-code "(ly-raw" "(ly-raw raw" comment-search-forward lispy--beginning-of-comment line-end-position lispy--string-dwim format "(ly-raw comment %S)" re-search-forward "#[a-z][\"(]" -1 lispy--in-string-or-comment-p 0 forward-sexp 1 "(ly-raw lisp-macro %S)" buffer-substring-no-properties "\"" lispy--bounds-string lispy-after-string-p "ly-raw comment \"" "ly-raw lisp-macro \"" "(ly-raw string %S)" "\n" " (ly-raw newline)" "\\b[+-]?[0-9]+\\(?:\\.[0-9]+\\)?\\(?:e[+-]?[0-9]*\\)" match-string-no-properties "(ly-raw float \"%s\")" "\\(?:[^\\]\\|^\\)\\(()\\)" replace-match "(ly-raw empty)" "\\(?:\\s-\\|\\s(\\)\\?" lispy--skip-elisp-char "(ly-raw char %S)" "\\\\\\(\\sw\\|space\\|tab\\)\\b" "(ly-raw clojure-char %S)" substring-no-properties match-string "#\\\\\\(.\\)" "(ly-raw lisp-char %S)" "\\([a-zA-Z][a-zA-z-/_0-9]*#\\)" "(ly-raw clojure-gensym %S)" "#'" ")" "(ly-raw function " "\\(?:[^\\]\\|^\\),@" -2 (error) read \,@ delete-char 2 "(ly-raw comma-splice " "#_[({[]" forward-list "(ly-raw clojure-reader-comment " "#object\\[\\|#\\?@(\\|@(\\|#(\\|{\\|#{\\|#::{\\|#\\?(" "#{" "clojure-set" "{" "clojure-map" "#(" "clojure-lambda" "@(" "clojure-deref-list" "#?@(" "clojure-reader-conditional-splice" "#?(" "clojure-reader-conditional" "#::{" "clojure-namespaced-map" "#object[" "clojure-object" error "Unexpected class %s" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-at "((ly-raw string" syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table "))" "(ly-raw " " (" "\\(?:^\\|\\s-\\|\\s(\\)\\(#[0-9]+\\)" lispy--in-string-p "(ly-raw reference %S)" "'" (error) quote "(ly-raw quote " "\\(?:[^\\]\\|^\\)`" "(ly-raw \\` " backward-list 7 "\\sw\\|\\s_\\|[,@]" "\")" "(ly-raw quasiquote \"" "\\\\," "(ly-raw comma-symbol)" "[^\\]?,[^@\"]" "(ly-raw clojure-comma)" (error) \, "(ly-raw \\, " "#<" "(ly-raw angle \"" ">" backward-delete-char " \\. " " (ly-raw dot) " "#t" "(ly-raw racket-true)" "#f" "(ly-raw racket-false)" "#:\\(\\(?:\\sw\\|\\s_\\)+\\)" "(ly-raw racket-option %s)" "\\_<\\(?:\\sw\\|\\s_\\)+\\_>" cl-position 35 lispy--bounds-dwim "(ly-raw symbol %S)" "(\\.[ \n ]" "(ly-raw clojure-dot)" (error)] 11 (#$ . 221130)]) (defalias 'lispy--skip-elisp-char #[0 "\300\301!\204\n\302\303!\210\304\305!\203\306\307!\207\307u\207" [lispy-after-string-p "?" error "unexpected" looking-at "\\\\" forward-sexp 1] 2]) (defvar lispy--insert-alist '((\` . "`") (\, . ",") (\,@ . ",@"))) #@66 Return t if STR is the same when read and re-inserted. (fn STR) (defalias 'lispy-expr-canonical-p #[257 "\301\302\303\"r\211q\210\304\305\"\216 \210\306\307!!\210\310ed\"*\262\230\311\312!\203+\313\314\"\210\207" [major-mode generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] lispy--insert lispy--read buffer-substring-no-properties called-interactively-p any message "%s"] 7 (#$ . 227191) (byte-code "\300\301 !C\207" [lispy--string-dwim lispy--bounds-list] 2)]) #@41 Check if X is a whitespace tag. (fn X) (defalias 'lispy--whitespacep #[257 "\211:\205\211@\300=\205\211A@\301=\206\211A@\302=\207" [ly-raw newline comment] 3 (#$ . 227731)]) (byte-code "\300\301!\204 \302\301\303\"\210\301\304\305\"\207" [fboundp define-error defalias #[770 "\211\204\300\262\211:\203\301\302\303\304\"\"\202\211\305NB\306\305\307\310B!!#\210\2052\306\311#\207" [error apply nconc mapcar #[257 "\211\300N\206 \301\302\"B\207" [error-conditions error "Unknown signal `%s'"] 5 "\n\n(fn PARENT)"] error-conditions put delete-dups copy-sequence error-message] 11 "Define NAME as a new error signal.\nMESSAGE is a string that will be output to the echo area if such an error\nis signaled without being caught by a `condition-case'.\nPARENT is either a signal or a list of signals from which it inherits.\nDefaults to `error'.\n\n(fn NAME MESSAGE &optional PARENT)"] unsupported-mode-error "Unsupported mode"] 3) #@46 Return FUN definition as a string. (fn FUN) (defalias 'lispy--function-str #[257 "\301!\203L\3021G\3031?\304 \305\306\"\216\212\307!*\262\211@Arq\210\310\311\312\313\314$\2035\211b\210\315 \2029\316\317\")\266\20300\2070\316@A\"\207\320K!\207\321\322\"\207" [major-mode fboundp (error) (unsupported-mode-error) current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] find-function-noselect derived-mode-p emacs-lisp-mode clojure-mode lisp-mode scheme-mode lispy--string-dwim signal unsupported-mode-error prin1-to-string error "%s isn't bound"] 9 (#$ . 228690)]) #@72 Extract the function body and args from it's expression STR. (fn STR) (defalias 'lispy--function-parse #[257 "\300!\301@\302=\203\303B\262\2023@\304=\203&\303\305AABB\262\2023@\306=\2033\303AB\262@\307>\203C\310A!\262\202b@\311=\203\\\312!A@A@\211KAB\262\210\202b\313\314@\"\210@9\203q\310A!\262\202w\313\315@\"\210@<\203\212@\262\310A!\262\202\220\313\316@\"\210@<\203\255@@\317=\203\255@A@\320=\203\255\310A!\262@<\203\301@@\321=\203\301\310A!\262@<\203\325@@\322=\203\325\310A!\262\211D\207" [lispy--read nil lambda defun closure noname defsubst (defun defmacro) lispy--whitespace-trim defalias read error "Expected defun, defmacro, or defalias got %s" "Expected function name, got %s" "Expected function arguments, got %s" ly-raw string declare interactive] 6 (#$ . 229315)]) #@69 Return body of FSTR with args replaced by E-ARGS. (fn FSTR E-ARGS) (defalias 'lispy--flatten-function #[514 "\300!\211@A@\301\302\232\203\301\262\211A\262\242\211\262\203i\211\303\267\202Y\211A\262\242\262\2034\304\305!\210\306\307B#\262\202\211A\262\242\262\306\211A\262 \242#\262\202\306\211A\262 \242#\262\202G\310U\203v@\211\262\207\311B\211\262\207" [lispy--function-parse nil (ly-raw empty) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (&rest 36 &optional 65)) error "&rest must be last" lispy--replace list 1 progn] 11 (#$ . 230165)]) #@84 `lispy--insert' F-EXPR into a temp buffer and return `buffer-string'. (fn F-EXPR) (defalias 'lispy--fast-insert #[257 "\300\301\302\"r\211q\210\303\304\"\216\305 \210\306!\210\307 *\262c\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] emacs-lisp-mode lispy--insert buffer-string] 5 (#$ . 230800)]) #@85 Return an if statement based on CASE statement and ELSE. (fn CASE &optional ELSE) (defalias 'lispy--case->if #[513 "\300\301@DA\204\302\303BB\202G\304\305A\"G\306U\203%\300A\"\202G\307\305A\"\206.\310\300\311A\312#\313\314\311 A\"BBC#\262\"\207" [append if (ly-raw newline) nil cl-remove-if lispy--whitespacep 1 cl-position-if-not -1 cl-subseq 0 progn (ly-raw newline)] 12 (#$ . 231178)]) #@67 Return nested if statements that correspond to CASES. (fn CASES) (defalias 'lispy--cases->ifs #[257 "\211G\300U\203#\211@@\301=\203\211@A\211@\302\232\203\211A\207\207\303@!C\207\304@!\2032\211@\305A!B\207\303@\305A!\"C\207" [1 t (ly-raw newline) lispy--case->if lispy--whitespacep lispy--cases->ifs] 5 (#$ . 231597)]) #@42 Trim whitespace from start of X. (fn X) (defalias 'lispy--whitespace-trim #[257 "\300\301\302\"\"\207" [cl-subseq cl-position-if-not lispy--whitespacep] 6 (#$ . 231934)]) #@79 Return a case statement corresponding to if with CND and THEN. (fn CND THEN) (defalias 'lispy--if->case #[514 "\211\204\f\300\301\300!!!\207\211<\203 \211@\302=\203 \303\301A!\"\207\303C\"\207" [reverse lispy--whitespace-trim progn append] 6 (#$ . 232114)]) #@63 Return a list of cases corresponding to nested IFS. (fn IFS) (defalias 'lispy--ifs->cases #[257 "\300\211@\301=\203A\262\202\302\303!\210\211\203\237\304\305\"\306\307#\306T\"\304\305\"\306\211T\\#8\306T\"\304\305\"\306\307#\205K\306\"\203X\310\f\n\"\262\f\310\f\311\"C\"\262\f\310\f\"\262\f\211G\312=\203\211\211@<\203\211\211@@\301=\203\211\211@A\266\213\202\211\203\231\310\f\313\314BBC\"\262\f\300\266\213\202\207" [nil if error "Unexpected" cl-position-if-not lispy--whitespacep cl-subseq 0 append lispy--if->case 1 t (ly-raw newline)] 18 (#$ . 232387)]) #@35 Quote X if it's a symbol. (fn X) (defalias 'lispy--raw-quote-maybe #[257 "\211\204\300\207\2119\203\301\302E\207\207" [nil ly-raw quote] 4 (#$ . 233005)]) #@60 Convert EXPR, a `case' expression, to a `cond'. (fn EXPR) (defalias 'lispy--case->cond #[257 "\211A@\300\301\302\303\"AA\"B\207" [cond mapcar make-closure #[257 "\301!\203\207\211@\302=\203\207\303\300\304@!EAB\207" [V0 lispy--whitespacep t eq lispy--raw-quote-maybe] 5 "\n\n(fn X)"]] 7 (#$ . 233172)]) #@72 Recursively replace elements in LST from FROM to TO. (fn LST FROM TO) (defalias 'lispy--replace #[771 "=\203\207:\204\207\300@#\300A#B\207" [lispy--replace] 8 (#$ . 233491)]) #@48 Display MSG if `lispy-verbose' is t. (fn MSG) (defalias 'lispy-complain #[257 "\205 ?\205\303\304\305\306\n!\307\310##\210\311\207" [lispy-verbose noninteractive this-command message "%s: %s" propertize prin1-to-string face font-lock-keyword-face nil] 7 (#$ . 233687)]) #@65 Indent region BEG END without reporting progress. (fn BEG END) (defalias 'lispy--indent-region #[514 "\212\300!\262b\210`W\203 n\203l\204\301 \210\302y\210\202 \211\303\211\223)\207" [copy-marker indent-according-to-mode 1 nil] 5 (#$ . 233970)]) #@176 List of major modes where `indent-for-tab-command' should not be used. `lispy--indent-for-tab' will do nothing if the current mode or any of its parent modes is in this list. (defvar lispy-no-indent-modes '(minibuffer-inactive-mode comint-mode) (#$ . 234234)) #@32 Call `indent-for-tab-command'. (defalias 'lispy--indent-for-tab #[0 " >\206\303\304 \"\206\305 \306U?\205(\307\310K\311\312\"\216\310\313M\210\314 )\262)\207" [major-mode lispy-no-indent-modes tab-always-indent apply derived-mode-p buffer-size 0 t message make-closure #[0 "\301\300M\207" [V0 message] 2] #[128 "\300\207" [nil] 2 "\n\n(fn &rest X)"] indent-for-tab-command] 4 (#$ . 234500)]) #@24 Remove dangling `\s)'. (defalias 'lispy--remove-gaps #[0 "\301\302 \"\205D\301\303\3041\212\305 \210`)0\202\210e\"\205D\306\307!\307H\310=?\205D\212\311 \312\313\"\216\314\224b\210\315 )\262)?\205D\314\224\314\225|\207" [lispy-right looking-back line-beginning-position "[^ \n]\\([ \n]+\\)\\s)" (error) backward-list match-string 0 92 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 1 lispy--in-string-or-comment-p] 4 (#$ . 234907)]) #@78 Surround active region with ALPHA and OMEGA and re-indent. (fn ALPHA OMEGA) (defalias 'lispy--surround-region #[514 "\300 \301 \211b\210c\210b\210c\210\302 \210\303\304\\\"\207" [region-beginning region-end deactivate-mark indent-region 2] 8 (#$ . 235394)]) #@68 Mark BND. BND is a cons of beginning and end positions. (fn BND) (defalias 'lispy--mark #[257 "\301\302@!\210\211Ab\207" [deactivate-mark nil set-mark] 3 (#$ . 235664)]) #@96 Insert one space. Unless inside string or comment, or `looking-back' at CONTEXT. (fn CONTEXT) (defalias 'lispy--space-unless #[257 "\302 \206#n\206#\303 \203`\304 =\206#\305 \206#\211\306\307 \"\262?\205)\310c)\207" [inhibit-field-text-motion lispy-no-space t window-minibuffer-p minibuffer-prompt-end lispy--in-string-or-comment-p looking-back line-beginning-position " "] 5 (#$ . 235844)]) #@278 Like `lispy--space-unless' but use PRECEDING-SYNTAX-ALIST for decision. PRECEDING-SYNTAX-ALIST should be an alist of `major-mode' to a list of regexps. When `looking-back' at any of these regexps, whitespace, or a delimiter, do not insert a space. (fn PRECEDING-SYNTAX-ALIST) (defalias 'lispy--delimiter-space-unless #[257 "\301\302\303\304\"Q!\207" [lispy-left lispy--space-unless "^\\|\\s-\\|" lispy--preceding-syntax "\\|"] 7 (#$ . 236254)]) #@76 Reindent current sexp. Up-list ARG times before that. (fn &optional ARG) (defalias 'lispy--reindent #[256 "\302 \203\f\303\304 \305 \"\207\211\203$\212\306!\210\307 \210\310 )\311 \203#\312 \210\207\313\314 \"\2034\212\307 \210\310 )\207\315 !\203=\310 \207\212\306\316!\210\307 \210\310 )\207" [lispy-right lispy-left region-active-p indent-region region-beginning region-end lispy--out-forward backward-list indent-sexp lispy-bolp back-to-indentation looking-back line-beginning-position looking-at 1] 4 (#$ . 236708)]) #@18 Delete one sexp. (defalias 'lispy--delete #[0 "\302!\204\n\303\304!\210\305 \211@A|\210\302\306P!\203!\307\224\307\225S|\207\302\310!\206I\302\311!\2033\312\224\312\225|\207\302 !\206Il\206I\313 \210\314\315!\205I\316\312!\207" [lispy-left lispy-right looking-at error "Bad position" lispy--bounds-list "\n+" 0 "\n\n+" "\\([ ]*\\)\n" 1 just-one-space lispy-after-string-p "( " backward-delete-char] 4 (#$ . 237245)]) #@71 Forward to `semantic-current-tag'. Try to refresh if nil is returned. (defalias 'lispy--current-tag #[0 "\212\300 \210\301 \211\203\302!\2061\211\211@\262\2061\303\304!\203/\305\225b\210\306\307!\210\310u\210\311\312!\2061\313 \262\211\205=\314\315!\316Q\262)\207" [lispy-beginning-of-defun semantic-current-tag lispy--tag-name looking-at "(def" 0 forward-sexp 2 -1 thing-at-point sexp lispy--fancy-tag "\\b" regexp-quote " "] 4 (#$ . 237678)]) #@50 Return a fancy tag name using `lispy-tag-arity'. (defalias 'lispy--fancy-tag #[0 "\302 \"A\303 \304!\203K\305\225b\210\306\307!\310\211\311\310w\210\302\312!\"A\211\262\203I`\262\31317\314!0\210\202<\210\314\307!\210\315\316\317\315\320`\"#Q\207\207\212\307u\210\321\322!)\207" [major-mode lispy-tag-arity assoc lispy--tag-regexp looking-at 0 match-string 1 nil " \n" intern (error) forward-sexp " " replace-regexp-in-string "\n" buffer-substring-no-properties thing-at-point sexp] 13 (#$ . 238141)]) #@19 History for tags. (defvar lispy-tag-history nil (#$ . 238664)) (defvar lispy-select-candidate-mode-map (byte-code "\300 \301\302\303#\210\207" [make-sparse-keymap define-key [67108910] ivy-done] 5)) #@111 Select from CANDIDATES list with `helm'. ACTION is called for the selected candidate. (fn CANDIDATES ACTION) (defalias 'lispy--select-candidate #[514 "\304\305=\203(\306\307!\210\306\310!\210\304\211\305\311\312\313B\314BE\315\316 \317\320&*\207\321\322\"\262\323=\203M\324\325\326 \327\330\315\316 \331\332\333#\334\335\336\337&\207\340=\203Z\341\325\"\202^\342\325\"\343\"A!\207" [lispy-completion-method helm-candidate-number-limit helm-update-blacklist-regexps lispy-select-candidate-mode-map nil helm require helm-help helm-multi-match :sources (name . "semantic tags") candidates action :preselect lispy--current-tag :buffer "*lispy-goto*" mapcar car ivy ivy-read "tag: " :keymap :require-match t :action make-closure #[257 "\301\302\300\"A!\207" [V0 V1 assoc] 5 "\n\n(fn X)"] :history lispy-tag-history :caller lispy-goto ido ido-completing-read completing-read assoc] 18 (#$ . 238871)]) #@24 Jump to TAG. (fn TAG) (defalias 'lispy--action-jump #[257 "\211G\305=\203^\306\307=\203\310 !\202\311 !r\312\313\"\216\314@\315\"\210\316 \210\317A@!\210AA@\320!\203<\321!\202?\211\322H\262b\210\n >\203R\323\324!\204R\325u\210\326\327!\210\330\f!\210\331 *\207\332\333\"\207" [lispy-completion-method ivy-last major-mode lispy-clojure-modes find-function-recenter-line 3 internal--before-with-selected-window ivy ivy--get-window selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord push-mark find-file overlayp overlay-start 0 looking-at "(" -1 require find-func recenter lispy--ensure-visible error "Unexpected tag: %S"] 5 (#$ . 239802)]) #@86 Make sure BND is visible in window. BND is a cons of start and end points. (fn BND) (defalias 'lispy--recenter-bounds #[257 "\300@A\"\301 V\206/\211@\302 W\203\212\211@b\210\303\304!)\207\211A\305 V\205/\212\211Ab\210\303\306!)\207" [count-lines window-height window-start recenter 0 window-end -1] 4 (#$ . 240531)]) #@203 Return the string representation of EXPR. EXPR is indented first, with OFFSET being the column position of the first character of EXPR. MODE is the major mode for indenting EXPR. (fn EXPR OFFSET MODE) (defalias 'lispy--prin1-to-string #[771 "\301\302\303\"r\211q\210\304\305\"\216 \210\306\211W\203%\307\310c\266\211T\262\202\266\311!\210)\312e\\d\"*\207" [lisp-indent-function generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 0 nil 32 lispy--insert buffer-substring-no-properties] 9 (#$ . 240862)]) #@90 Return the printed representation of SEXP. The outer delimiters are stripped. (fn SEXP) (defalias 'lispy--splice-to-str #[257 "\211\203 \300!\301\302O\207\303\207" [prin1-to-string 1 -1 ""] 4 (#$ . 241447)]) #@51 Insert the EXPR read by `lispy--read'. (fn EXPR) (defalias 'lispy--insert #[257 "`\303\211\211\304p\"\210\214`}\210eb\210\305\306\303\307#\203\204\310\224\211\262\203\204b\210\3111/\312p!0\2021\210\303\262A@\262\211\313\267\202}`|\210\314\315\303x[!\210\316c\210\202`|\210AA@c\210\202`|\210\317c\210\202`|\210\320\321!\210\202`|\210\304\322AABp\"\210\323 \210\324u\210\202`|\210\325c\210AA@\211\203\237\304p\"\266\202\243\326c\266b\210\202`|\210\326c\210\202`|\210\327AA@\261\210\202`|\210AA@c\210\202`|\210AA@c\210\202`|\210AA@c\210\202`|\210AA@c\210\202`|\210\330\331AA@\"c\210b\210\202`|\210\332c\210\202`|\210\330\333AA@\"c\210b\210\202`|\210\330\334\335AA@!\"c\210b\210\202`|\210\330\336\335AA@!\"c\210b\210\202`|\210\330\337\335AA@!\"c\210b\210\202`|\210\330\340\335AA@!\"c\210b\210\202`|\210\330\341\335AA@!\"c\210b\210\202`|\210\330\342\335AA@!\"c\210b\210\202`|\210\330\343\335AA@!\"c\210b\210\202`|\210\330\344AA@\"c\210b\210\202`|\210\345 \210\346c\210\202`|\210\347c\210\202`|\210\350c\210\202`|\210\330\351AA@\"c\210\202`|\210\330\352AA@\"c\210b\210\202`|\210AA@c\210\202G\353V\2034b\210\354c\210`T`\355\\|\210\202C`|\210\354c\210\304AA@p\"\210b\210\202`|\210\356c\210\304AA@p\"\210b\210\202`|\210\357c\210\304AA@p\"\210b\210\202`|\210\332c\210\202Tb\210\202eb\210\305\360\303\307#\203\232\361\327\307\211\303\321%\210\202\207eb\210\305\362\303\307#\203\273\363 \364\365\"\216\366 )\262\204\235\361\332!\210\202\235eb\210\305\367\303\307#\203\321\361\370\303\307\303\321%\210\202\276\203eb\210\305\315\303\307#\203\366 \204\330\371 \203\365\372 \210\373 Ab\210\202\330i V\203\330\374 \210\202\330db\210~\210)\266\375\n\376 \"\205!\371 ?\205!\323 \210\377 \210\201@ \207" [lispy-do-fill fill-column lispy-right nil prin1 re-search-forward "(ly-raw" t 0 (error) read #s(hash-table size 37 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (newline 62 string 79 comment 79 symbol 79 float 79 quasiquote 79 comma-symbol 92 ignore 102 raw 113 quote 135 empty 169 char 179 clojure-char 194 lisp-char 207 lisp-macro 220 clojure-gensym 233 function 246 clojure-dot 265 clojure-lambda 275 clojure-set 294 clojure-map 315 clojure-object 336 clojure-namespaced-map 357 clojure-deref-list 378 clojure-reader-conditional-splice 399 clojure-reader-conditional 420 clojure-reader-comment 441 clojure-comma 460 racket-true 473 racket-false 483 racket-option 493 angle 509 reference 528 \` 541 \, 585 comma-splice 606 dot 627)) delete-char " " "\n" "\\," backward-delete-char 1 ly-raw backward-list 7 "'" "()" "?" format "#'%S" "." "#%S" "#{%s}" lispy--splice-to-str "{%s}" "#object[%s]" "#::{%s}" "@(%s)" "#?@(%s)" "#?(%s)" "#_%S" delete-horizontal-space ", " "#t" "#f" "#:%S" "#<%s>" 3 "`" 11 "," ",@" "\\(?:\\s_\\|\\sw\\)\\(\\\\\\?\\)" replace-match "\\\\\\." match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] lispy--in-string-p "[0-9]+\\(\\\\#\\)" "#" lispy--in-comment-p fill-paragraph lispy--bounds-comment newline-and-indent looking-back line-beginning-position indent-sexp forward-list] 11 (#$ . 241664)]) #@34 Normalize/prettify current sexp. (defalias 'lispy--normalize-1 #[0 "\306\307!\203`\212\310\311!\210`)U\203`\312\313x\210\211`|\266\314 \315!\212@b\210i)\306! \n>\203?\316\317\"\204F\316\320\"\204FG\321V\203f\322 \211\204O\323 \210\324\325\"\216\212\326 )\327 \203`\330 \210\210)\210\202\242\306\331!\204\242\321\211\332\305!\205} \205} @C\333\334!!\335 #\230\204\237@A|\210\211c\210\203\237\336 \210+\266 \n>\205\263 \205\263\337@A\"\207" [lispy-left major-mode lispy-clojure-modes max-lisp-eval-depth max-specpdl-size geiser-active-implementations looking-at "(" lispy--out-backward 99 " " nil lispy--bounds-dwim lispy--string-dwim string-match "\\^" "~" 10000 lispy--leftp lispy-different make-closure #[0 "\300\301 =?\205\n\302 \207" [V0 lispy--leftp lispy-different] 2] indent-sexp lispy-bolp back-to-indentation ";;" boundp lispy--sexp-normalize lispy--read lispy--prin1-to-string backward-list clojure-align clojure-align-forms-automatically] 10 (#$ . 244913)]) #@107 Trim leading (ly-raw newline) from EXPR. Treat comments differently when COMMENT is t. (fn EXPR COMMENT) (defalias 'lispy--sexp-trim-leading-newlines #[514 ":\203$<\203$@\300\232\203$\211\203\301A@!\204$A\262\202\207" [(ly-raw newline) lispy--raw-comment-p] 4 (#$ . 245932)]) #@66 Trim leading and trailing (ly-raw newline) from EXPR. (fn EXPR) (defalias 'lispy--sexp-trim-newlines #[257 "\211:\203\211A:\203\300\211\301\"\237\302\"\237\207\207" [lispy--sexp-trim-leading-newlines nil t] 5 (#$ . 246230)]) #@106 Trim trailing (ly-raw newline) from FOO. Treat comments differently when COMMENT is t. (fn FOO COMMENT) (defalias 'lispy--sexp-trim-trailing-newlines #[514 ":\2036A:\2036\300!\211:\2032\211<\2032\211@\301\232\2032\203+\302A@!\2042\211A\262\202\300!\207\207" [reverse (ly-raw newline) lispy--raw-comment-p] 5 (#$ . 246468)]) #@91 Return a pretty version of FOO. Only `ly-raw' lists within FOO are manipulated. (fn FOO) (defalias 'lispy--sexp-normalize #[257 "\211\204\300\207\211:\203\301\302@\303\"!\301\302A\303\"!B\207\207" [nil lispy--sexp-normalize lispy--sexp-trim-trailing-newlines t] 6 (#$ . 246816)]) #@56 Replace first match group of FROM to TO. (fn FROM TO) (defalias 'lispy--do-replace #[514 "eb\210\300\211\211\301\300\302#\205R\303\224\211\262\205R\303\225\211\262\205R\304\303!\211\262\205Rb\210\305 \2043n\2039b\210\202|\210\306\307\"\203L\310\311#\262c\210\202\207" [nil re-search-forward t 1 match-string lispy--in-string-or-comment-p cl-search "\\1" replace-regexp-in-string "\\\\1"] 9 (#$ . 247109)]) #@166 Move text from between BEG END to point. Leave point at the beginning or end of text depending on ENDP. Make text marked if REGIONP is t. (fn BEG END ENDP REGIONP) (defalias 'lispy--teleport #[1028 "\302\"`T\303 \304`Y\203\"`X\203\"\305\306!\210b\202\257b\210|\210l\203;\307 \203;\310 `T|\210V\203J\303 ZZ\262b\210\311 !\203X\212\312 \210)\313\314\310 \"\262\204j\315c\210T\262c\210\311\316!\204y\317c\210\320u\210\212\321\322!\210Sb\210\323 )\307 \203\215\324 \210\210\203\244\304\325\304!\210b\210\205\257\326 \202\257?\205\257b\210\327\304w)\207" [deactivate-mark lispy-left buffer-substring-no-properties buffer-size nil message "Can't teleport expression inside itself" lispy-bolp line-beginning-position looking-at newline-and-indent "[ ([{]" looking-back " " "[\n)]" "\n" -1 lispy--reindent 1 indent-sexp back-to-indentation set-mark-command exchange-point-and-mark "'"] 11 (#$ . 247548)]) #@94 Swap buffer regions BND1 and BND2. Return a cons of the new text cordinates. (fn BND1 BND2) (defalias 'lispy--swap-regions #[514 "@@V\203\211\262\262\300!\300!@b\210@A|\210c\210\301 \203-l\204-\302 \210@b\210@A|\210\211c\210@b\266A@ZA@Z@Z\\\211\\@@\\BBB\207" [lispy--string-dwim lispy--in-comment-p newline-and-indent] 9 (#$ . 248500)]) #@31 Remove overlays hiding point. (defalias 'lispy--ensure-visible #[0 "\300`!\301\211\211A\262\242\211\262\205+\302\303\304\"!\203\303\305\"\211\262\203\211!\210\202\207" [overlays-at nil invisible-p overlay-get invisible isearch-open-invisible] 7 (#$ . 248878)]) #@61 Delete a pair of LEFT and RIGHT in string. (fn LEFT RIGHT) (defalias 'lispy--delete-pair-in-string #[514 "\300 \211\205m\301!\2035\212\302\224\302\225\303\211\304A\305#\205/\302\224\262\302\225\262|\210|\210\266\204)\202e\301!\205e\212\302\224\302\225\303\211\306@\305#\205b\302\224\262\302\225\262|\210|\210`Z\\\266\204)\211\205k\211b\262\207" [lispy--bounds-string looking-at 0 nil re-search-forward t re-search-backward] 11 (#$ . 249159)]) #@108 Create a copy of BUFFER with EXT added to the name. Use only the part bounded by BND. (fn BUFFER EXT BND) (defalias 'lispy--make-ediff-buffer #[771 "rq\210\302 P\303!E)\211@A@\3048r\305!q\210 \210\211\306\261\210\307ed\"\210\310\311!\210\312pedE)\207" [major-mode ediff-temp-indirect-buffer buffer-name lispy--string-dwim 2 get-buffer-create "\n" indent-region require ediff-init t] 10 (#$ . 249643)]) #@52 Command that corresponds to currently pressed key. (defvar lispy--edebug-command nil (#$ . 250062)) #@52 Command that corresponds to currently pressed key. (defvar lispy--cider-debug-command nil (#$ . 250168)) #@67 Return true if `this-command-keys' should be forwarded to edebug. (defalias 'lispy--edebug-commandp #[0 "\304\300!\205$\205$\305 G\306U\205$\305 \307H\211 \236\206\211\n\236A\211\262\207" [edebug-active edebug-mode-map global-edebug-map lispy--edebug-command boundp this-command-keys 1 0] 3 (#$ . 250279)]) #@72 Return true if `this-command-keys' should be forwarded to cider-debug. (defalias 'lispy--cider-debug-commandp #[0 "\303\300!\205\205\304 G\305U\205\304 \306H\211 \236A\211\262\207" [cider--debug-mode cider--debug-mode-map lispy--cider-debug-command boundp this-command-keys 1 0] 3 (#$ . 250600)]) #@37 Store the looked up compat command. (defvar lispy--compat-cmd nil (#$ . 250912)) #@223 Return a lambda to call DEF if position is special. Otherwise call `self-insert-command'. PLIST currently accepts: - :disable with a mode to disable - :override with a lambda to conditionally abort command (fn DEF PLIST) (defalias 'lispy--insert-or-call #[514 "\301\302\"\301\303\"\301\304\"\305\306\307\310\311 !\312\n!#\313\314\205%\315BC\316\317\314\n\2041\306\202S\320 !\203@\321 DC\202S\n@\317=\203N\nA\202S\322\323\f\"\324>\205Z\325\326>\205a\327\330>\205h\331\332>\205o\333\334>\205v\335\336\337\340DDD\341\342\337\340DDD\343\344\337\340\206\221\345DDEF&BD\"BBBB\207" [lispy-compat plist-get :disable :override :inserter lambda nil format "Call `%s' when special, self-insert otherwise.\n\n%s" symbol-name documentation (interactive) append (-1) (unless (looking-at lispy-outline) (lispy--ensure-visible)) cond functionp funcall error "Unexpected :override %S" edebug (((lispy--edebug-commandp) (call-interactively lispy--edebug-command))) cider (((lispy--cider-debug-commandp) (call-interactively lispy--cider-debug-command))) god-mode (((and (or (bound-and-true-p god-global-mode) (bound-and-true-p god-local-mode))) (call-interactively 'god-mode-self-insert))) macrostep (((and (bound-and-true-p macrostep-mode) (setq lispy--compat-cmd (lookup-key macrostep-keymap (this-command-keys)))) (call-interactively lispy--compat-cmd))) magit-blame-mode (((and (bound-and-true-p magit-blame-mode) (setq lispy--compat-cmd (lookup-key magit-blame-mode-map (this-command-keys)))) (call-interactively lispy--compat-cmd))) (region-active-p) call-interactively quote ((lispy--in-string-or-comment-p) (setq this-command 'self-insert-command) (call-interactively 'self-insert-command)) (or (lispy-left-p) (lispy-right-p) (and (lispy-bolp) (or (looking-at lispy-outline-header) (looking-at lispy-outline)))) t (setq this-command 'self-insert-command) self-insert-command] 28 (#$ . 251000)]) #@35 Quote X if it's a symbol. (fn X) (defalias 'lispy--quote-maybe #[257 "\211\204\300\207\2119\204\211:\203\301D\207\207" [nil quote] 3 (#$ . 252931)]) #@375 Turn pcase PATTERN into a predicate. For any given pcase PATTERN, return a predicate P that returns non-nil for any EXP when and only when PATTERN matches EXP. In that case, P returns a list of the form (bindings . BINDINGS) as non-nil value, where BINDINGS is a list of bindings that pattern matching with PATTERN would actually establish in a pcase branch. (fn PATTERN) (defalias 'lispy--pcase-pattern-matcher #[257 "\300\301!\302C\303\304\305!\"\306DC!E\207" [make-symbol "exp" lambda pcase--u pcase--match pcase--macroexpand #[257 "\300\301\302\303\304\"\237BE\207" [cons 'progn list mapcar #[257 "\300\301\302@D\303ADF\207" [list 'setq quote lispy--quote-maybe] 6 "\n\n(fn BINDING)"]] 7 "\n\n(fn VARS)"]] 9 (#$ . 253095)]) #@127 Return the smallest list to contain point. Return an appropriate `setq' expression when in `let', `dolist', `labels', `cond'. (defalias 'lispy--setq-expression #[0 "\212`\304\30516\306!\203\307 \210\2020\310 \311 \"\2040\312 \203-`\313 =\2030\314 \210\2020\315 \210\316 0\2028\210\317\211\205g\320 \210\310\321\311\322!\"\203S\323\324\325\"B\202g\326\327!\203a\330\331DD\202g\211:\203\214\211@\332=\203\214\211A@G\333=\203\214\310\334\311 \"\203\214\335\212\320 \210\336p!)E\202g\337\333!\210\310\321\311\322!\"\203\251 \340=\203\243\341\202\244\323B\202g\310\342\311\322!\"\203\270\343B\202g\306\344!\203\317\211\345@\346AB\347BBB\262\202g\306\350!\203\377\322\225b\210\351\352\353\354 !@\355BC\"!\203\373\346\356@!\351\336\354 !!!\357BB\202g\360\202g\306\361!\203f\212\362\333!\210`)=\203f\212\317u\210\363\364!\210\316 )\365!\205%\366!\211@\367=\205B\211A@<\2039\211A@\202B\211A@\370\232\205B\371\211\203O\372E\266\203\202g\346\373\374\375\376\375\377\375\201@\f\"\"\"\"B\266\203\202g\211)\266\203)\207" [lispy-left lispy-right lispy-ignore-whitespace major-mode t (error) looking-at forward-list looking-back line-beginning-position region-active-p region-beginning exchange-point-and-mark up-list lispy--preceding-sexp nil lispy-different "(\\(?:lexical-\\)?let\\(?:\\*\\|-when-compile\\)?[ \n]*" 0 setq cl-mapcan #[257 "\211\204!\310\312\"\210\313!\210\314\315!#\207" [mc/cmds-to-run-once require eldoc defalias intern "special-" symbol-name lispy--insert-or-call add-to-list ac-trigger-commands mc/cmds-to-run-for-all eldoc-add-command define-key kbd] 9 (#$ . 262181)]) (byte-code "\300\301\302\303#\300\207" [function-put lispy-define-key lisp-indent-function 3] 4) #@99 Non-nil if Lispy-Goto mode is enabled. Use the command `lispy-goto-mode' to change this variable. (defvar lispy-goto-mode nil (#$ . 262772)) (make-variable-buffer-local 'lispy-goto-mode) (defvar lispy-goto-mode-map (make-sparse-keymap)) #@57 Goto verb. \{lispy-goto-mode-map} (fn &optional ARG) (defalias 'lispy-goto-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203\306\300!\210\307\310!\203A\302 \203-\211\302 \232\203A\203= \203A\311\312!\266\202B\311\313!\210\210\314 \207" [lispy-goto-mode lispy-verbose-verbs current-message toggle prefix-numeric-value 0 lispy-disable-verbs-except called-interactively-p any message "[goto]: d l r p f b q j a e" "" force-mode-line-update] 5 (#$ . 263015) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (byte-code "\301\302\303\"\210\304>\204\304B\301\207" [lispy-known-verbs mapc #[257 "\301@A@\302\303%\207" [lispy-goto-mode-map lispy-define-key :disable lispy-goto-mode] 7 "\n\n(fn X)"] (("d" lispy-goto) ("l" lispy-goto-local) ("r" lispy-goto-recursive) ("p" lispy-goto-projectile) ("f" lispy-follow) ("b" pop-tag-mark) ("q" lispy-quit) ("j" lispy-goto-def-down) ("a" lispy-goto-def-ace) ("e" lispy-goto-elisp-commands)) lispy-goto-mode] 3) (defalias 'lispy-goto-verb #[0 "\301\300!\203\203\300\302!\207\300\303!\207" [lispy-goto-mode boundp -1 1] 2 nil nil]) (byte-code "\301\302\303\304\211%\207" [lispy-goto-mode-map add-minor-mode lispy-goto-mode " [goto]" nil] 6) #@101 Non-nil if Lispy-Other mode is enabled. Use the command `lispy-other-mode' to change this variable. (defvar lispy-other-mode nil (#$ . 264244)) (make-variable-buffer-local 'lispy-other-mode) (defvar lispy-other-mode-map (make-sparse-keymap)) #@59 Other verb. \{lispy-other-mode-map} (fn &optional ARG) (defalias 'lispy-other-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203\306\300!\210\307\310!\203A\302 \203-\211\302 \232\203A\203= \203A\311\312!\266\202B\311\313!\210\210\314 \207" [lispy-other-mode lispy-verbose-verbs current-message toggle prefix-numeric-value 0 lispy-disable-verbs-except called-interactively-p any message "[other]: h j k l SPC g" "" force-mode-line-update] 5 (#$ . 264492) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (byte-code "\301\302\303\"\210\304>\204\304B\301\207" [lispy-known-verbs mapc #[257 "\301@A@\302\303%\207" [lispy-other-mode-map lispy-define-key :disable lispy-other-mode] 7 "\n\n(fn X)"] (("h" lispy-move-left) ("j" lispy-down-slurp) ("k" lispy-up-slurp) ("l" lispy-move-right) ("SPC" lispy-other-space) ("g" lispy-goto-mode)) lispy-other-mode] 3) (defalias 'lispy-other-verb #[0 "\301\300!\203\203\300\302!\207\300\303!\207" [lispy-other-mode boundp -1 1] 2 nil nil]) (byte-code "\301\302\303\304\211%\210\305\304!\306L\210\307\304!\310L\210\311\304!\312L\210\313\304!\314L\210\315\304!\316L\207" [lispy-other-mode-map add-minor-mode lispy-other-mode " [other]" nil (lambda (def-tmp-var) (defvar lh-knight/params def-tmp-var "Params of lh-knight.")) (nil nil) (lambda (def-tmp-var) (defvar lh-knight/docstring def-tmp-var "Docstring of lh-knight.")) "knight" (lambda (def-tmp-var) (defvar lh-knight/heads def-tmp-var "Heads for lh-knight.")) (("j" lispy-knight-down #1="" :exit nil) ("k" lispy-knight-up #1# :exit nil) ("z" nil #1# :exit t)) (lambda (def-tmp-var) (defvar lh-knight/keymap def-tmp-var "Keymap for lh-knight.")) (keymap (122 . lh-knight/nil) (107 . lh-knight/lispy-knight-up) (106 . lh-knight/lispy-knight-down) (kp-subtract . hydra--negative-argument) (kp-9 . hydra--digit-argument) (kp-8 . hydra--digit-argument) (kp-7 . hydra--digit-argument) (kp-6 . hydra--digit-argument) (kp-5 . hydra--digit-argument) (kp-4 . hydra--digit-argument) (kp-3 . hydra--digit-argument) (kp-2 . hydra--digit-argument) (kp-1 . hydra--digit-argument) (kp-0 . hydra--digit-argument) (57 . hydra--digit-argument) (56 . hydra--digit-argument) (55 . hydra--digit-argument) (54 . hydra--digit-argument) (53 . hydra--digit-argument) (52 . hydra--digit-argument) (51 . hydra--digit-argument) (50 . hydra--digit-argument) (49 . hydra--digit-argument) (48 . hydra--digit-argument) (45 . hydra--negative-argument) (21 . hydra--universal-argument)) (lambda (def-tmp-var) (defvar lh-knight/hint def-tmp-var "Dynamic hint for lh-knight.")) (format #("knight: j, k, z." 8 9 (face hydra-face-red) 11 12 (face hydra-face-red) 14 15 (face hydra-face-blue)))] 6) #@221 Call the head `lispy-knight-down' in the "lh-knight" hydra. The heads for the associated hydra are: "j": `lispy-knight-down', "k": `lispy-knight-up', "z": `nil' The body can be accessed via `lh-knight/body'. (defalias 'lh-knight/lispy-knight-down #[0 "\305\306!\210\307 \210\310\311 \210\312)\3131\314\315\314!0\210\202$\316\317!!\266\320 \321\"\210\322\f\323\324#\207" [hydra--ignore hydra-curr-body-fn this-command lh-knight/hint lh-knight/keymap require hydra hydra-default-pre t hydra-keyboard-quit lh-knight/body (quit error) lispy-knight-down hydra--call-interactively-remap-maybe message error-message-string hydra-show-hint lh-knight hydra-set-transient-map #[0 "\300 \210\301\207" [hydra-keyboard-quit nil] 1] nil] 4 (#$ . 267193) nil]) #@219 Call the head `lispy-knight-up' in the "lh-knight" hydra. The heads for the associated hydra are: "j": `lispy-knight-down', "k": `lispy-knight-up', "z": `nil' The body can be accessed via `lh-knight/body'. (defalias 'lh-knight/lispy-knight-up #[0 "\305\306!\210\307 \210\310\311 \210\312)\3131\314\315\314!0\210\202$\316\317!!\266\320 \321\"\210\322\f\323\324#\207" [hydra--ignore hydra-curr-body-fn this-command lh-knight/hint lh-knight/keymap require hydra hydra-default-pre t hydra-keyboard-quit lh-knight/body (quit error) lispy-knight-up hydra--call-interactively-remap-maybe message error-message-string hydra-show-hint lh-knight hydra-set-transient-map #[0 "\300 \210\301\207" [hydra-keyboard-quit nil] 1] nil] 4 (#$ . 267966) nil]) #@207 Call the head `nil' in the "lh-knight" hydra. The heads for the associated hydra are: "j": `lispy-knight-down', "k": `lispy-knight-up', "z": `nil' The body can be accessed via `lh-knight/body'. (defalias 'lh-knight/nil #[0 "\301\302!\210\303 \210\304 \210\305\211\207" [hydra-curr-body-fn require hydra hydra-default-pre hydra-keyboard-quit lh-knight/body] 2 (#$ . 268733) nil]) #@201 Call the body in the "lh-knight" hydra. The heads for the associated hydra are: "j": `lispy-knight-down', "k": `lispy-knight-up', "z": `nil' The body can be accessed via `lh-knight/body'. (defalias 'lh-knight/body #[0 "\306\307!\210\310 \210\311\312 \210\313)\314\n\315\"\210\316 \317\311#\210\f\211\207" [hydra--ignore hydra-curr-body-fn lh-knight/hint lh-knight/keymap current-prefix-arg prefix-arg require hydra hydra-default-pre nil hydra-keyboard-quit lh-knight/body hydra-show-hint lh-knight hydra-set-transient-map #[0 "\300 \210\301\207" [hydra-keyboard-quit nil] 1]] 4 (#$ . 269132) nil]) (defvar lispy-mode-map-special (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\301\334\335#\210\301\336\337#\210\301\340\341#\210\301\342\343#\210\301\344\345#\210\301\346\347#\210\301\350\351#\210\301\352\353#\210\301\354\355#\210\301\356\357#\210\301\360\361#\210\301\362\363#\210\301\364\365#\210\301\366\367#\210\301\370\371\372\373%\210\301\374\375#\210\301\376\377#\210\301\201@\201A#\210\301\201B\201C#\210\301\201D\201E#\210\301\201F\201G#\210\301\201H\201I\201J$\210\301\201K\201L#\210\301\201M\201N#\210\301\201O\201P#\210\201Q\201R\201S#\210\301\201T\201U#\210\301\201V\201W#\210\301\201X\201Y#\210\301\201Z\201[#\210\301\201\\\201]#\210\301\201^\201_#\210\301\201`\201a\372\201b%\210\301\201c\201d#\210\301\201e\201f#\210\301\201g\201h\372\201i%\210\301\201j\201k#\210\301\201l\201m#\210\301\201n\201o#\210\301\201p\201q#\210\301\201r\201s#\210\301\201t\201u#\210\301\201v\201w#\210\301\201x\201y#\210\301\201z\201{#\210\201|\201}\201~\"\201\201\200\201\201\"\"\210\207" [make-sparse-keymap lispy-define-key "l" lispy-right "h" lispy-left "f" lispy-flow "j" lispy-down "k" lispy-up "d" lispy-different "o" lispy-other-mode "p" lispy-eval-other-window "P" lispy-paste "y" lispy-occur "z" lh-knight/body "J" lispy-outline-next "K" lispy-outline-prev "L" lispy-outline-goto-child ">" lispy-slurp "<" lispy-barf "/" lispy-splice "r" lispy-raise "R" lispy-raise-some "+" lispy-join "C" lispy-convolute "X" lispy-convolute-left "w" lispy-move-up "s" lispy-move-down "O" lispy-oneline "M" lispy-alt-multiline "S" lispy-stringify "a" lispy-ace-symbol :override (cond ((looking-at lispy-outline) (lispy-meta-return))) "H" lispy-ace-symbol-replace "m" lispy-mark-list "e" lispy-eval "E" lispy-eval-and-insert "G" lispy-goto-local "g" lispy-goto "F" lispy-follow t "D" pop-tag-mark "A" lispy-beginning-of-defun "_" lispy-underscore define-key " " lispy-space "i" lispy-tab "I" lispy-shifttab "N" lispy-narrow "W" lispy-widen "c" lispy-clone "u" lispy-undo "q" lispy-ace-paren (cond ((bound-and-true-p view-mode) (View-quit))) "Q" lispy-ace-char "v" lispy-view "t" lispy-teleport (cond ((looking-at lispy-outline) (end-of-line))) "n" lispy-new-copy "b" lispy-back "B" lispy-ediff-regions "x" lispy-x "Z" lispy-edebug-stop "V" lispy-visit "-" lispy-ace-subword "." lispy-repeat "~" lispy-tilde mapc make-closure #[257 "\301\300\302\303\"\304#\207" [V0 lispy-define-key format "%d" digit-argument] 6 "\n\n(fn X)"] number-sequence 0 9] 7)) #@116 Helper to create versions of the `lispy-pair' commands that wrap by default. (fn FUNC ARG PRECEDING-SYNTAX-ALIST) (defalias 'lispy--auto-wrap #[771 "\204\n\300\262\202\301=\204\247\203\300U\203\302\262\302\247\203=\300U\203=\303 \211\262\203=`AU\203=\304!\210\210!\207" [-1 - nil lispy--bounds-dwim lispy--delimiter-space-unless] 6 (#$ . 272507)]) #@106 Like `lispy-parens' but wrap to the end of the line by default. With an arg of -1, never wrap. (fn ARG) (defalias 'lispy-parens-auto-wrap #[257 "\301\302#\207" [lispy-parens-preceding-syntax-alist lispy--auto-wrap lispy-parens] 5 (#$ . 272889) "P"]) #@108 Like `lispy-brackets' but wrap to the end of the line by default. With an arg of -1, never wrap. (fn ARG) (defalias 'lispy-brackets-auto-wrap #[257 "\301\302#\207" [lispy-brackets-preceding-syntax-alist lispy--auto-wrap lispy-brackets] 5 (#$ . 273149) "P"]) #@106 Like `lispy-braces' but wrap to the end of the line by default. With an arg of -1, never wrap. (fn ARG) (defalias 'lispy-braces-auto-wrap #[257 "\301\302#\207" [lispy-braces-preceding-syntax-alist lispy--auto-wrap lispy-braces] 5 (#$ . 273417) "P"]) #@99 Call `lispy-barf-to-point' with ARG unless in string or comment. Self-insert otherwise. (fn ARG) (defalias 'lispy-barf-to-point-nostring #[257 "\300 \204\301\302\303 \"\262\203\304\305!!\207\306!\207" [lispy--in-string-or-comment-p "?\\\\" looking-back line-beginning-position self-insert-command prefix-numeric-value lispy-barf-to-point] 5 (#$ . 273676) "P"]) #@207 If possible, barf to the point for DELIMITER. Otherwise, jump to the next occurrence of DELIMITER. If ARG is non-nil, barf from the left or jump to the previous occurrence of DELIMITER. (fn DELIMITER ARG) (defalias 'lispy--barf-to-point-or-jump #[514 "\212\211\203\302\303\304#\210\202\305 \303\304#\210\306\224b\210\307!)\203#\310!\207\211\203-\302\303\304#\207\305\303\304#\207" [lispy-left lispy-right re-search-backward nil t re-search-forward 0 looking-at lispy-barf-to-point] 6 (#$ . 274053)]) #@124 Call `lispy--barf-to-point-or-jump' with DELIMITER and ARG. Self-insert when in a string or a comment. (fn DELIMITER ARG) (defalias 'lispy--barf-to-point-or-jump-nostring #[514 "\300 \204\301\302\303 \"\262\203\304\305!!\207\306\"\207" [lispy--in-string-or-comment-p "?\\\\" looking-back line-beginning-position self-insert-command prefix-numeric-value lispy--barf-to-point-or-jump] 6 (#$ . 274572)]) #@212 Barf to the point when directly inside a "(...)" block. Otherwise, jump to the next ")". When ARG is non-nil, barf from the left or jump to the previous "(". Self-insert when in a string or a comment. (fn ARG) (defalias 'lispy-parens-barf-to-point-or-jump-nostring #[257 "\211\203 \300\301\"\207\302\303\"\207" [lispy--barf-to-point-or-jump "(" lispy--barf-to-point-or-jump-nostring ")"] 4 (#$ . 274990) "P"]) #@212 Barf to the point when directly inside a "[...]" block. Otherwise, jump to the next "]". When ARG is non-nil, barf from the left or jump to the previous "[". Self-insert when in a string or a comment. (fn ARG) (defalias 'lispy-brackets-barf-to-point-or-jump-nostring #[257 "\211\203 \300\301\"\207\302\303\"\207" [lispy--barf-to-point-or-jump "\\[" lispy--barf-to-point-or-jump-nostring "\\]"] 4 (#$ . 275411) "P"]) #@212 Barf to the point when directly inside a "{...}" block. Otherwise, jump to the next "}". When ARG is non-nil, barf from the left or jump to the previous "{". Self-insert when in a string or a comment. (fn ARG) (defalias 'lispy-braces-barf-to-point-or-jump-nostring #[257 "\211\203 \300\301\"\207\302\303\"\207" [lispy--barf-to-point-or-jump "{" lispy--barf-to-point-or-jump-nostring "}"] 4 (#$ . 275838) "P"]) #@498 Call `lispy-delete-backward' unless after a delimiter. After an opening delimiter, splice. After a closing delimiter, slurp to the end of the line without moving the point. When in a position where slurping will not have an effect such as after the final delimiters before the end of a line, move backward. In comments and strings, call `lispy-delete-backward'. When after the opening quote of a string, delete the entire string. When after the closing quote of a string, move backward. (fn ARG) (defalias 'lispy-delete-backward-or-splice-or-slurp #[257 "\302 \211\204\212\303u\210\304 )\203\303u\207\211\203&`S@U\203&\303u\210\305\306!\207\307 \203/\310!\207\311`S\"\203S\312\313!\203@\314 \210\303u\210\212\315 \210\316\303!\210)\317 \210\316\306!\207\311 `S\"\203r\320 \212\321\303!\210)\211\320 U\205q\206o\306[u\207\310!\207" [lispy-left lispy-right lispy--bounds-string -1 lispy--in-string-p lispy-delete 1 lispy--in-string-or-comment-p lispy-delete-backward looking-back looking-at "[[:space:]]" fixup-whitespace lispy-different delete-char lispy--delete-leading-garbage buffer-chars-modified-tick lispy-slurp] 5 (#$ . 276259) "p"]) #@480 Call `lispy-delete' unless before a delimiter. Before an opening delimiter, splice. Before a closing delimiter, slurp to the end of the line without moving the point. When in a position where slurping will not have an effect such as at the final delimiters before the end of a line, move forward. In comments and strings, call `lispy-delete'. When before the opening quote of a string, delete the entire string. When before the closing quote of a string, move forward. (fn ARG) (defalias 'lispy-delete-or-splice-or-slurp #[257 "\302 \211\203`TAU\203\303u\207\211\203 `@U\203 \304\305!\207\306 \203)\304!\207\307!\203?\212\310 \210\311\312!\210)\313 \210\311\305!\207\307 !\203Z\314 \212\303u\210\315\312!\210)\211\314 U\205Yu\207\304!\207" [lispy-left lispy-right lispy--bounds-string nil lispy-delete 1 lispy--in-string-or-comment-p looking-at lispy-different delete-char -1 lispy--delete-leading-garbage buffer-chars-modified-tick lispy-slurp] 5 (#$ . 277424) "p"]) #@93 Forward to (`lispy-out-forward-newline' ARG). Insert ")" in strings and comments. (fn ARG) (defalias 'lispy-close-round-and-newline #[257 "\300 \204 \301\302!\203\303c\207\304!\207" [lispy--in-string-or-comment-p lispy-after-string-p "?\\" ")" lispy-out-forward-newline] 3 (#$ . 278415) "p"]) #@82 Forward to (`lispy-brackets' ARG). Insert "[" in strings and comments. (fn ARG) (defalias 'lispy-open-square #[257 "\300 \203\301c\207\302!\207" [lispy--in-string-or-comment-p "[" lispy-brackets] 3 (#$ . 278719) "P"]) #@80 Forward to( `lispy-braces' ARG). Insert "{" in strings and comments. (fn ARG) (defalias 'lispy-open-curly #[257 "\300 \203\301c\207\302!\207" [lispy--in-string-or-comment-p "{" lispy-braces] 3 (#$ . 278947) "P"]) #@91 Forward to function `lispy-right' with ARG. Insert "]" in strings and comments. (fn ARG) (defalias 'lispy-close-square #[257 "\300 \203\301c\207\302!\207" [lispy--in-string-or-comment-p "]" lispy-right] 3 (#$ . 279170) "p"]) #@91 Forward to function `lispy-right' with ARG. Insert "}" in strings and comments. (fn ARG) (defalias 'lispy-close-curly #[257 "\300 \203\301c\207\302!\207" [lispy--in-string-or-comment-p "}" lispy-right] 3 (#$ . 279405) "p"]) #@102 Insert a pair of quotes around the point. When ARG is non-nil, unquote the current string. (fn ARG) (defalias 'lispy-doublequote #[257 "\300\301 \203\203 \302 \207\303 \207\304 \211\262\2034`@U\2044`ASU\203*\305u\207\2031\302 \207\306c\207\203;\303 \207\307\310!\203E\311\305!\207\312 \203M\313c\207\314\315!\210\316c\210\317\320!\204`\321 \210\322u\210\322u\207" [nil region-active-p lispy-unstringify lispy-stringify lispy--bounds-string 1 "\\\"" lispy-after-string-p "?\\" self-insert-command lispy--in-comment-p "\"" lispy--space-unless "^\\|\\s-\\|\\s(\\|[#]" "\"\"" looking-at "\n\\|)\\|}\\|\\]\\|$" just-one-space -1] 4 (#$ . 279640) "P"]) #@86 Stringify current expression or forward to (`lispy-meta-doublequote' ARG). (fn ARG) (defalias 'lispy-meta-doublequote #[257 "\301 \211\203\n\211Ab\207\302!\203\303 \207\304!\207" [lispy-left lispy--bounds-string looking-at lispy-stringify lispy-doublequote] 4 (#$ . 280311) "P"]) #@29 Delete ARG sexps. (fn ARG) (defalias 'lispy-forward-delete #[257 "\302\303!\203\n\304u\207\303 !\203\304u\210\305 \262\211@A|\207\306 \211\262\203/`@=\203/\304u\207\307!\207" [lispy-left lispy-right nil looking-at 1 lispy--bounds-dwim lispy--bounds-string lispy-delete] 4 (#$ . 280603) "p"]) #@38 Delete ARG sexps backward. (fn ARG) (defalias 'lispy-backward-delete #[257 "\302 \203 \303!\207`Sf\304=\203\305 \204\306u\207\307\310 \"\262\2030\311!\210n?\205>\312c\207\307 \310 \"\203;\306u\207\311!\207" [lispy-left lispy-right lispy--in-comment-p backward-delete-char-untabify 34 lispy--bounds-string -1 looking-back line-beginning-position lispy-delete-backward " "] 5 (#$ . 280913) "p"]) #@62 Forward to `lispy-parens' with a default ARG of 1. (fn ARG) (defalias 'lispy-wrap-round #[257 "\300\206\301!\207" [lispy-parens 1] 3 (#$ . 281328) "P"]) #@64 Forward to `lispy-brackets' with a default ARG of 1. (fn ARG) (defalias 'lispy-wrap-brackets #[257 "\300\206\301!\207" [lispy-brackets 1] 3 (#$ . 281491) "P"]) #@62 Forward to `lispy-braces' with a default ARG of 1. (fn ARG) (defalias 'lispy-wrap-braces #[257 "\300\206\301!\207" [lispy-braces 1] 3 (#$ . 281661) "P"]) #@27 Forward to `lispy-raise'. (defalias 'lispy-splice-sexp-killing-backward #[0 "\300 `@=\203\f\301 \207\302`ASB!\210\303\304!\210\305 \207" [lispy--bounds-list lispy-raise-some lispy--mark lispy-raise 1 deactivate-mark] 4 (#$ . 281825) nil]) #@27 Forward to `lispy-raise'. (defalias 'lispy-splice-sexp-killing-forward #[0 "\301\302 \"\203 \303 \207\304 `@=\203\303 \207\305@T`B!\210\306\307!\210\310 \207" [lispy-right looking-back line-beginning-position lispy-raise-some lispy--bounds-list lispy--mark lispy-raise 1 deactivate-mark] 4 (#$ . 282073) nil]) #@27 Forward to `lispy-raise'. (defalias 'lispy-raise-sexp #[0 "\302!\204\303 \304 \"\203\305\306!\207\307 \210\310 \210\305\306!\210\311 \207" [lispy-left lispy-right looking-at looking-back line-beginning-position lispy-raise 1 lispy-mark-symbol lispy-different deactivate-mark] 3 (#$ . 282395) nil]) #@31 Forward to `lispy-convolute'. (defalias 'lispy-convolute-sexp #[0 "\301!\204\n\302\303!\210\304\303!\210\302\303!\207" [lispy-left looking-at lispy--out-backward 1 lispy-convolute] 2 (#$ . 282704) nil]) #@43 Forward to (`lispy-slurp' ARG). (fn ARG) (defalias 'lispy-forward-slurp-sexp #[257 "\212\301\302 \"\204 \303\304!\210\305!)\207" [lispy-right looking-back line-beginning-position lispy--out-forward 1 lispy-slurp] 4 (#$ . 282915) "p"]) #@42 Forward to (`lispy-barf' ARG). (fn ARG) (defalias 'lispy-forward-barf-sexp #[257 "\212\301!\204 \302\303!\210\304!)\207" [lispy-left looking-at lispy--out-forward 1 lispy-barf] 3 (#$ . 283160) "p"]) #@43 Forward to (`lispy-slurp' ARG). (fn ARG) (defalias 'lispy-backward-slurp-sexp #[257 "\212\301!\204 \302\303!\210\304!)\207" [lispy-left looking-at lispy--out-backward 1 lispy-slurp] 3 (#$ . 283369) "p"]) #@42 Forward to (`lispy-barf' ARG). (fn ARG) (defalias 'lispy-backward-barf-sexp #[257 "\212\301!\204 \302\303!\210\304!)\207" [lispy-left looking-at lispy--out-backward 1 lispy-barf] 3 (#$ . 283583) "p"]) (defvar lispy-mode-map-base (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\301\330\331#\210\301\332\333#\210\207" [make-sparse-keymap define-key "" lispy-move-beginning-of-line "" lispy-move-end-of-line [134217838] lispy-left " " lispy-kill [134217828] lispy-kill-word [134217855] lispy-backward-kill-word "(" lispy-parens ";" lispy-comment [134217841] lispy-fill "\n" lispy-newline-and-indent " " lispy-newline-and-indent-plain [134217774] lispy-goto-symbol [134217772] pop-tag-mark] 5)) (defvar lispy-mode-map-paredit (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\306#\210\302\334\310#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\352#\210\302\354\355#\210\302\356\355#\210\302\357\360#\210\302\361\360#\210\302\362\363#\210\302\364\363#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\207" [lispy-mode-map-base copy-keymap define-key [134217769] lispy-close-round-and-newline [134217742] lispy-forward [134217744] lispy-backward "[" lispy-open-square "]" lispy-close-square "{" lispy-open-curly "}" lispy-close-curly ")" lispy-right-nostring "\"" lispy-doublequote [134217762] lispy-meta-doublequote "" lispy-forward-delete "" lispy-backward-delete [134217734] [134217730] [134217768] lispy-wrap-round [134217843] lispy-splice [M-up] lispy-splice-sexp-killing-backward [M-down] lispy-splice-sexp-killing-forward [134217842] lispy-raise-sexp [134217791] lispy-convolute-sexp [67108905] lispy-forward-slurp-sexp [C-right] [67108989] lispy-forward-barf-sexp [C-left] [67108904] lispy-backward-slurp-sexp [C-M-left] [C-M-right] lispy-backward-barf-sexp [67108987] [134217811] lispy-split [134217802] lispy-join [134217749] lispy-left [134217742] lispy-right] 5)) (defvar lispy-mode-map-parinfer (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\207" [lispy-mode-map-base copy-keymap define-key "(" lispy-parens-auto-wrap "[" lispy-brackets-auto-wrap "{" lispy-braces-auto-wrap "\"" lispy-quotes ")" lispy-barf-to-point-nostring "]" "}" " " lispy-indent-adjust-parens [backtab] lispy-dedent-adjust-parens "" lispy-delete-backward-or-splice-or-slurp "" lispy-delete-or-splice-or-slurp ":" lispy-colon "^" lispy-hat "'" lispy-tick "`" lispy-backtick "#" lispy-hash] 5)) (defvar lispy-mode-map-evilcp (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\330#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\311\342#\210\302\313\343#\210\302\307\344#\210\302\305\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\207" [lispy-mode-map-base copy-keymap define-key [134217769] lispy-close-round-and-newline "[" lispy-open-square "]" lispy-close-square "{" lispy-open-curly "}" lispy-close-curly ")" lispy-right-nostring "\"" lispy-doublequote [134217762] lispy-meta-doublequote "" lispy-backward-delete [134217843] lispy-splice [M-up] lispy-splice-sexp-killing-backward [M-down] [134217842] lispy-raise-sexp [134217791] lispy-convolute-sexp [134217811] lispy-split [134217802] lispy-join lispy-braces lispy-brackets lispy-forward lispy-backward [134217768] evil-cp-wrap-next-round [134217851] evil-cp-wrap-next-curly [134217853] evil-cp-wrap-next-square "<" evil-cp-< ">" evil-cp-> "y" lispy-new-copy [C-return] lispy-open-line [M-return] lispy-meta-return [134217835] lispy-move-up [134217834] lispy-move-down [134217839] lispy-string-oneline [134217840] lispy-clone [134217762] paredit-meta-doublequote] 5)) (defvar lispy-mode-map-c-digits (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\207" [make-sparse-keymap define-key [67108913] lispy-describe-inline [67108914] lispy-arglist-inline [67108915] lispy-right [67108916] lispy-x [67108919] lispy-cursor-down [67108920] lispy-parens-down [67108921] lispy-out-forward-newline] 5)) (defvar lispy-mode-map-lispy (byte-code "\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\360#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\207" [lispy-mode-map-base copy-keymap define-key "]" lispy-forward "[" lispy-backward ")" lispy-right-nostring "" lispy-yank "" lispy-delete "" lispy-delete-backward [134217835] lispy-kill-sentence [134217837] lispy-mark-symbol [67108908] lispy-kill-at-point [201326636] lispy-mark "{" lispy-braces "}" lispy-brackets "\"" lispy-quotes ":" lispy-colon "^" lispy-hat "@" lispy-at "'" lispy-tick "`" lispy-backtick "#" lispy-hash [134217834] lispy-split [134217802] lispy-join [C-return] lispy-open-line [M-return] lispy-meta-return [134217741] [134217839] lispy-string-oneline [134217833] lispy-iedit [backtab] lispy-shifttab [M-left] lispy-outline-demote [M-right] lispy-outline-promote] 5)) (defvar lispy-mode-map-oleh (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\207" [make-sparse-keymap define-key [966] lispy-parens [963] lispy-braces [961] lispy-brackets [952] lispy-quotes [967] lispy-right [134217729] lispy-beginning-of-defun [return] lispy-alt-line "" lispy-eval-current-outline " " lispy-newline-and-indent-plain] 5)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable lispy-key-theme funcall function #[0 "\300\207" [(special lispy c-digits)] 1] "List of key themes used to compose `lispy-mode-map'." :type (set (const special) (radio (const lispy) (const paredit) (const evilcp)) (const c-digits) (const oleh))] 6) #@134 Set `lispy-mode-map' for according to THEME. THEME is a list of choices: 'special, 'lispy, 'paredit, 'evilcp, 'c-digits. (fn THEME) (defalias 'lispy-set-key-theme #[257 "\306\307\310\311>\205\n\312>\205 \313>\205\n\314>\205! \315>\205)\f\316 >\2051 \317\n>\205:\257\"!\320\236\241\207" [lispy-mode-map-special lispy-mode-map-lispy lispy-mode-map-paredit lispy-mode-map-parinfer lispy-mode-map-evilcp lispy-mode-map-c-digits make-composed-keymap delq nil special lispy paredit parinfer evilcp c-digits oleh lispy-mode lispy-mode-map-oleh lispy-mode-map minor-mode-map-alist] 12 (#$ . 290743)]) (byte-code "\301!\210\302\303!\207" [lispy-key-theme lispy-set-key-theme provide lispy] 2)