;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\302&\210\314\315\316\317\313\306%\210\314\320\321\322\313\306%\210\314\323\324\325\313\306%\210\314\326\327\330\313\306%\210\331\332\333\334\335DD\336\313\306\337\340&\210\331\341\333\334\342DD\343\313\306\337\340&\210\331\344\333\334\345DD\346\313\306\337\340&\210\331\347\333\334\350DD\351\313\306\337\340&\210\331\352\333\334\353DD\354\337\355\313\306&\210\331\356\333\334\357DD\360\313\306\337\340&\210\331\361\333\334\362DD\363\313\306\337\364&\207" [require cl-lib helm helm-utils helm-grep custom-declare-group helm-swoop nil "Open helm-swoop." :prefix "helm-swoop-" :group custom-declare-face helm-swoop-target-line-face ((t (:background "#e3e300" :foreground "#222222"))) "Face for helm-swoop target line" helm-swoop-target-line-block-face ((t (:background "#cccc00" :foreground "#222222"))) "Face for target line" helm-swoop-target-word-face ((t (:background "#7700ff" :foreground "#ffffff"))) "Face for target word" helm-swoop-line-number-face ((t (:foreground "#999999"))) "Face for line numbers" custom-declare-variable helm-swoop-speed-or-color funcall function #[0 "\300\207" [nil] 1] "If nil, you can slightly boost invoke speed in exchange for text color." :type boolean helm-swoop-use-line-number-face #[0 "\300\207" [nil] 1] "Use face to line numbers on helm-swoop buffer." helm-swoop-split-with-multiple-windows #[0 "\300\207" [nil] 1] "Split window when having multiple windows open." helm-swoop-move-to-line-cycle #[0 "\300\207" [t] 1] "Return to the opposite side of line." helm-swoop-split-direction #[0 "\300\207" [split-window-vertically] 1] "Split direction." (choice (const :tag "vertically" split-window-vertically) (const :tag "horizontally" split-window-horizontally)) helm-swoop-use-fuzzy-match #[0 "\300\207" [nil] 1] "If t, use fuzzy matching functions as well as exact matches." helm-swoop-min-overlay-length #[0 "\300\207" [2] 1] "Minimum pattern length before applying the overlay on the matched word." integer] 8) #@67 Change the way to split window only when `helm-swoop' is calling. (defvar helm-swoop-split-window-function #[385 "\203\n \210\202\302 \203 \210\303\304!\210\305!\207" [helm-swoop-split-with-multiple-windows helm-swoop-split-direction one-window-p other-window 1 switch-to-buffer] 4 "\n\n(fn BUF &rest ARGS)"] (#$ . 2140)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\320&\210\300\321\302\303\322DD\323\306\307\310\324&\207" [custom-declare-variable helm-swoop-after-goto-line-action-hook funcall function #[0 "\300\207" [nil] 1] "The hook run after `helm-swoop--goto-line." :group helm-swoop :type hook helm-swoop-before-goto-line-action-hook #[0 "\300\207" [nil] 1] "The hook run before `helm-swoop--goto-line." helm-swoop-flash-region-function #[0 "\300\207" [helm-swoop-flash-word] 1] "The function used to flash the result when a search done." (choice (const :tag "Default highlight function" helm-swoop-flash-word) (const :tag "Pulse highlight function" pulse-momentary-highlight-region) function) helm-swoop-fontify-buffer-size-limit #[0 "\300\207" [100000] 1] "If buffer size smaller than value, do fontify to make buffer highlighted.\n\nIf value is symbol `always', always do fontify." (choice integer (const :tag "Always Fontify" always))] 8) (defvar helm-swoop-candidate-number-limit 19999) (defvar helm-swoop-buffer "*Helm Swoop*") (defvar helm-swoop-prompt "Swoop: ") (defvar helm-swoop-last-point nil) (defvar helm-swoop-invisible-targets nil) (defvar helm-swoop-last-line-info nil) (defvar helm-swoop-pattern nil) (defvar helm-swoop-last-query nil) (defvar helm-swoop-last-prefix-number 1 nil) (make-variable-buffer-local 'helm-swoop-last-prefix-number) #@47 Window object where `helm-swoop' called from. (defvar helm-swoop-synchronizing-window nil (#$ . 3927)) #@47 Buffer object where `helm-swoop' called from. (defvar helm-swoop-target-buffer nil (#$ . 4036)) #@49 Overlay object to indicate other window's line. (defvar helm-swoop-line-overlay nil (#$ . 4138)) (defvar helm-swoop--basic-map (byte-code "\301 \302\"\210\303\211\203B\211@\304\305\306\"!\304\305\307\"!\310\311\312\313\314\315DD\316BBBB\305\317\"#\210\320\321\322\"#\266A\266\202\202\210\207" [helm-map make-sparse-keymap set-keymap-parent (next-line previous-line next-page previous-page beginning-of-buffer end-of-buffer toggle-visible-mark) intern format "helm-%s" "helm-swoop-%s" defalias lambda (&optional arg) (interactive "p") call-interactively quote ((helm-swoop--move-line-action)) "Replacement of `%s' action for `helm-swoop'.\n\n(fn ARG)" define-key vector remap] 13)) #@24 Keymap for helm-swoop. (defvar helm-swoop-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\207" [helm-swoop--basic-map make-sparse-keymap set-keymap-parent define-key "" helm-swoop-edit [134217833] helm-multi-swoop-all-from-helm-swoop "" helm-swoop-yank-thing-at-point] 5) (#$ . 4842)) (defvar helm-multi-swoop--basic-map (byte-code "\301 \302\"\210\303\211\203B\211@\304\305\306\"!\304\305\307\"!\310\311\312\313\314\315DD\316BBBB\305\317\"#\210\320\321\322\"#\266A\266\202\202\210\207" [helm-map make-sparse-keymap set-keymap-parent (next-line previous-line next-page previous-page beginning-of-buffer end-of-buffer toggle-visible-mark) intern format "helm-%s" "helm-multi-swoop-%s" defalias lambda (&optional arg) (interactive "p") call-interactively quote ((helm-multi-swoop--move-line-action)) "Replacement of `%s' action for `helm-multi-swoop'.\n\n(fn ARG)" define-key vector remap] 13)) (defvar helm-multi-swoop-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [helm-multi-swoop--basic-map make-sparse-keymap set-keymap-parent define-key "" helm-multi-swoop-edit] 5)) (defvar helm-c-source-swoop-match-functions '(helm-mm-exact-match helm-mm-match helm-mm-3-migemo-match)) (defvar helm-c-source-swoop-search-functions '(helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search-default-fn helm-mm-3-migemo-search)) #@68 List of major-modes that are incompatible with `font-lock-ensure'. (defvar helm-swoop-font-lock-exclude '(Man-mode adoc-mode bbdb-mode bongo-library-mode bongo-mode bongo-playlist-mode bookmark-bmenu-mode circe-channel-mode circe-query-mode circe-server-mode deadgrep-mode debbugs-gnu-mode dired-mode elfeed-search-mode elfeed-show-mode emms-playlist-mode emms-stream-mode erc-mode eshell-mode eww-mode forth-block-mode forth-mode fundamental-mode gnus-article-mode gnus-group-mode gnus-summary-mode help-mode helpful-mode jabber-chat-mode magit-popup-mode matrix-client-mode matrix-client-room-list-mode mu4e-headers-mode mu4e-view-mode nix-mode notmuch-search-mode notmuch-tree-mode occur-edit-mode occur-mode org-agenda-mode package-menu-mode rcirc-mode sauron-mode treemacs-mode twittering-mode vc-dir-mode w3m-mode woman-mode xref--xref-buffer-mode) (#$ . 6250)) #@25 Return match functions. (defalias 'helm-swoop-match-functions #[0 "\203 \302 \303\"\207 \207" [helm-swoop-use-fuzzy-match helm-c-source-swoop-match-functions append (helm-fuzzy-match)] 3 (#$ . 7124)]) #@26 Return search functions. (defalias 'helm-swoop-search-functions #[0 "\203 \302 \303\"\207 \207" [helm-swoop-use-fuzzy-match helm-c-source-swoop-search-functions append (helm-fuzzy-search)] 3 (#$ . 7333)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\303&\207" [custom-declare-variable helm-swoop-pre-input-function funcall function #[0 "\300\207" [#[0 "\300\301!\207" [thing-at-point symbol] 2]] 1] "This function can pre-input keywords when helm-swoop invoked." :group helm-swoop :type] 8) #@55 Return QUERY processed by `regexp-quote'. (fn QUERY) (defalias 'helm-swoop-pre-input-optimize #[257 "\211\205\300!\207" [regexp-quote] 3 (#$ . 7839)]) #@43 Go to LINE concider narrowing. (fn LINE) (defalias 'helm-swoop--goto-line #[257 "eb\210\211Sy\207" [] 2 (#$ . 8000)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-swoop--goto-line speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@11 Recenter. (defalias 'helm-swoop--recenter #[0 "\300\301 \302\245!\207" [recenter window-height 2] 3 (#$ . 8272)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-swoop--recenter speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@80 Delete overlay if IDENTITY has in BEG to END. (fn IDENTITY &optional BEG END) (defalias 'helm-swoop--delete-overlay #[769 "\300\206d!\210\301\302\303\"\304\206e\206d\"\"\207" [overlay-recenter mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in] 8 (#$ . 8538)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-swoop--delete-overlay speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@37 Get line string with no properties. (defalias 'helm-swoop--get-string-at-line #[0 "\300\301 \302 \"\207" [buffer-substring-no-properties point-at-bol point-at-eol] 3 (#$ . 9033)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-swoop--get-string-at-line speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@48 Get buffer substring BEG to END. (fn BEG END) (defalias 'helm-swoop--buffer-substring #[514 "\203 {\301\302\303#\207\304\"\207" [helm-swoop-speed-or-color propertize read-only nil buffer-substring-no-properties] 7 (#$ . 9375)]) #@133 Go back to last position where `helm-swoop' was called. If CANCEL is non-nil, store `helm-swoop-last-point'. (fn &optional CANCEL) (defalias 'helm-swoop-back-to-last-point #[256 "\205`\301A!\210@b\210?\205\211\302p!B\211\262\207" [helm-swoop-last-point switch-to-buffer buffer-name] 5 (#$ . 9618) nil]) #@103 Return STRING processed by `split-string' with REGEXP by STEP for multiline. (fn STRING REGEXP STEP) (defalias 'helm-swoop--split-lines-by #[771 "\211\204\300\262\301\211\302\300\303#\203>\211T\262\211\246\301=\2037\301\224OB\262\301\225\262\301\225\262\202 \301\225\262\202 \302OB\262\237\207" [1 0 nil string-match] 11 (#$ . 9939)]) #@58 Add color to the target line in BUF. (fn &optional BUF) (defalias 'helm-swoop--target-line-overlay-move #[256 "\302\303\304\305\306\307 \246$\210\310 b\212\310 b\210\311\304\305\306 $\206d)$\210\312 \207" [helm-swoop-line-overlay helm-swoop-last-prefix-number move-overlay search-backward "\n" nil t line-number-at-pos point-at-bol re-search-forward helm-swoop--unveil-invisible-overlay] 9 (#$ . 10310)]) #@31 Validate REGEXP. (fn REGEXP) (defalias 'helm-swoop--validate-regexp #[257 "\3011\211\302\303\304\305#)\266\3040\207\303\207" [inhibit-changing-match-data (invalid-regexp) "" nil t string-match] 8 (#$ . 10727)]) #@84 Target ward overlay to IDENTITY with THRESHOLD. (fn IDENTITY &optional THRESHOLD) (defalias 'helm-swoop--target-word-overlay #[513 "\212\301\302\"\206\n\303\304C\305\306\307$\"\266\203)\207" [helm-pattern split-string " " 2 nil mapc make-closure #[257 "\304!\205g\301GW\205geb\210\305\306!\203 \203\307!\262\310\311\"\203.\312\313\314\"P\262\315d!\210m?\205g\316\317\320#\205g\321\224\321\225U\203M\314u\210\2022\302\322\321\224\321\225\"\240\210\323\302\242\324\325#\210\323\302\242\300\320#\210\2022\207" [V0 V1 V2 helm-migemo-mode helm-swoop--validate-regexp featurep migemo migemo-search-pattern-get string-match "^\\^\\[0\\-9\\]\\+\\.\\(.+\\)" "^" match-string 1 overlay-recenter re-search-forward nil t 0 make-overlay overlay-put face helm-swoop-target-word-face] 5 "\n\n(fn WD)"]] 11 (#$ . 10952) nil]) #@27 Restore unveiled overlay. (defalias 'helm-swoop--restore-unveiled-overlay #[0 "\205\f\301\302\"\210\303\211\207" [helm-swoop-invisible-targets mapc #[257 "\300@\301A#\207" [overlay-put invisible] 5 "\n\n(fn OV)"] nil] 3 (#$ . 11797)]) #@130 Show hidden text temporarily to view it during helm-swoop. This function needs to call after latest helm-swoop-line-overlay set. (defalias 'helm-swoop--unveil-invisible-overlay #[0 "\301 \210\302\303\304\305!\306!\"\"\207" [helm-swoop-line-overlay helm-swoop--restore-unveiled-overlay mapc #[257 "\301\302\"\211\205\303\302\304#\210BB\211\207" [helm-swoop-invisible-targets overlay-get invisible overlay-put nil] 6 "\n\n(fn OV)"] overlays-in overlay-start overlay-end] 6 (#$ . 12045)]) #@19 Move line action. (defalias 'helm-swoop--move-line-action #[0 "\304\305 !r\306\307\"\216\310@\311\"\210\312\313 \314 \"\315\316\"\205#\317\320\321\"!\205]\211\205]\304!r\306\322\"\216\310@\311\"\210eb\210\211Sy\266r q\210\323\n!\210\324 \210)\325\326 \327\245!\210*\210 B\211\266\202*\207" [helm-swoop-synchronizing-window helm-swoop-target-buffer helm-swoop-line-overlay helm-swoop-last-line-info internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord buffer-substring-no-properties point-at-bol point-at-eol string-match "^[0-9]+" string-to-number match-string 0 #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] delete-overlay helm-swoop--target-line-overlay-move recenter window-height 2] 7 (#$ . 12547)]) #@68 Return the nearest number of TARGET out of LIST. (fn TARGET LIST) (defalias 'helm-swoop--nearest-line #[514 "\205\237\211\205\237\300\301G\302=\203@\266\202\202\234\211\303#\304#\205,\305\306\"\2054\305\307\"\205<Z\205D Z  >\203S \266\210\202\234\204a\204a\266\300\202\234\211\204k\266\210\202\234\204u\266\210\202\234=\203\201\266\210\202\234W\203\215\266\210\202\234V\203\231\266\210\202\234\266\302\211\262\207" [nil #[771 "\300C\301\302\303$\"\210\211\242\207" [nil mapc make-closure #[257 "\300\301\"\205 \302\302\242B\240\207" [V0 V1 V2] 4 "\n\n(fn E)"]] 10 "\n\n(fn FN ELM LIST)"] 1 > < apply max min] 12 (#$ . 13389)]) #@24 Keep nearest position. (defalias 'helm-swoop--keep-nearest-position #[0 "\302\303 !r\304\305\"\216\306@\307\"\210e\310\311@!\312\"\313\211\211\211\212b\210\203v\314\315\316Q\313\312#\211\262\203v\317\320 \321\"\203 \322u\210\323`\321\"\262\314\324\312#\203X\325\326\327!!B\262\202D\330A\"\262b\210\314\315\331!\332Q\312#\210`\262\313\262\202 )\211\205\222\211b\210\333 \210 \311p!\232\203\220\334 \266\206\202\224\335 \266\206*\207" [helm-swoop-last-line-info helm-swoop-buffer internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord rx-to-string buffer-name t nil re-search-forward "^" "$" get-text-property point-at-bol helm-header 1 next-single-property-change "^[0-9]+" string-to-number match-string 0 helm-swoop--nearest-line number-to-string "\\s-" helm-mark-current-line helm-swoop--move-line-action helm-multi-swoop--move-line-action] 11 (#$ . 14097)]) #@23 Overlay target words. (defalias 'helm-swoop--pattern-match #[0 "\304\305 !r\306\307\"\216\310@\311\"\210\nGW\205r\312\313\211\314\206\"d!\210\315\306\316\"\317\206/e\2064d\"\"\266\320\312\n\"\210\304 !r\306\321\"\216\310@\311\"\210\312\313\211\314\206Ud!\210\315\306\316\"\317\206be\206gd\"\"\266\320\312\n\"*\262*\207" [helm-pattern helm-swoop-pattern helm-swoop-min-overlay-length helm-swoop-synchronizing-window internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord target-buffer nil overlay-recenter mapc #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in helm-swoop--target-word-overlay #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2]] 10 (#$ . 15088)]) #@65 Flash ward in MATCH-BEG to MATCH-END. (fn MATCH-BEG MATCH-END) (defalias 'helm-swoop-flash-word #[514 "\300\216\301\"\211\205\302\303\304#\210\302\305\306#\262)\207" [#[0 "\300\301\302\303#\207" [run-with-idle-timer 0.6 nil #[0 "\300\301\211\302\206 d!\210\303\304\305\"\306\206e\206d\"\"\207" [helm-swoop-overlay-word-frash nil overlay-recenter mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in] 8]] 4] make-overlay overlay-put face helm-swoop-target-word-face helm-swoop-overlay-word-frash t] 7 (#$ . 15939) nil]) #@55 Extract the proper part of CANDIDATE. (fn CANDIDATE) (defalias 'helm-swoop--match-part #[257 "\300\301\302#\207" [replace-regexp-in-string "^[[:digit:]]+? " ""] 5 (#$ . 16544)]) #@43 Ensure the entired buffer is highlighted. (defalias 'helm-swoop--maybe-fontify! #[0 "\306\307!\206\310\300!\203\206 \n>\206\306\311!?? \205?\f\205?\211\205? \312=\2044\313 W\205?\314\315!\203=\315 \207\316 \207" [magit-blame-mode major-mode helm-swoop-font-lock-exclude helm-swoop-speed-or-color font-lock-mode helm-swoop-fontify-buffer-size-limit derived-mode-p magit-mode boundp prog-mode always buffer-size fboundp font-lock-ensure font-lock-fontify-buffer] 3 (#$ . 16730)]) #@145 Get the whole content in BUFFER and add line number at the head. If LINUM is number, lines are separated by LINUM. (fn BUFFER &optional LINUM) (defalias 'helm-swoop--get-content #[513 "\301!\211\205ur\211q\210\302 \210\303ed\"\304\305\306\"r\211q\210\307\310\"\216c\210eb\210\311\312\313\311\"c\210\314\315\316\306#\203T\211T\262\203K\317\312\320\"\321\322#\323\261\210\202,\312\313\"c\210\202,\204jeb\210\314\324\316\306#\203j\325\326!\210\202[\210\303ed\"*\262\262)\207" [helm-swoop-use-line-number-face get-buffer helm-swoop--maybe-fontify! helm-swoop--buffer-substring generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] 1 format "%s " re-search-forward "\n" nil propertize "%s" font-lock-face helm-swoop-line-number-face " " "^[0-9]+\\s-*$" replace-match ""] 10 (#$ . 17231)]) #@109 Goto LINE action. If OTHER-WINDOW is non-nil, a new window will be open. (fn LINE &optional OTHER-WINDOW) (defalias 'helm-swoop--goto-line-action #[513 "\303\304!\210\211\203\f\305p!\210\306\307\"\205\310\311\312\"!eb\210\211Sy\266\313\314\315\316\"\317#\320\321!\203; \203;\322\323\324#\204C\325\323\324#\203R\n\312\224\312\225\"\210\312\224b\210\303\326!\210\210\327\330 \331\245!\207" [helm-pattern helm-migemo-mode helm-swoop-flash-region-function run-hooks helm-swoop-before-goto-line-action-hook switch-to-buffer-other-window string-match "^[0-9]+" string-to-number match-string 0 mapconcat identity split-string " " "\\|" featurep migemo migemo-forward nil t re-search-forward helm-swoop-after-goto-line-action-hook recenter window-height 2] 7 (#$ . 18100)]) #@17 C source swoop. (defalias 'helm-c-source-swoop #[0 "\304\305!B\306 \203\307 \310\n#\202\307\311\312\"\211\310\n#B\313\314B\315 B\316\317\320!B\321\n\2054\n\322V\2054\323\324\325 B\326\327B\257 \207" [helm-swoop-target-buffer helm-swoop-list-cache helm-swoop-last-prefix-number helm-swoop-map name buffer-name candidates helm-swoop--split-lines-by "\n" helm-swoop--get-content t get-line helm-swoop--buffer-substring keymap header-line substitute-command-keys "[\\\\[helm-swoop-edit]] Edit mode, [\\\\[helm-multi-swoop-all-from-helm-swoop]] apply all buffers" (action ("Go to Line" . helm-swoop--goto-line-action) ("Edit" . helm-swoop--edit) ("Go to Line in Other Window" lambda (line) (helm-swoop--goto-line-action line t))) 1 (multiline) match helm-swoop-match-functions match-part helm-swoop--match-part] 10 (#$ . 18887)]) #@90 C source multi swoop in BUF for FUNC, ACTION, MULTILINE. (fn BUF FUNC ACTION MULTILINE) (defalias 'helm-c-source-multi-swoop #[1028 "\301B\302 B\303B\304\305\306!PB\307B\310\205#\311V\205#\312\313\314 B\315\316B\257 \207" [helm-multi-swoop-map name candidates action header-line substitute-command-keys " [\\\\[helm-multi-swoop-edit]] Edit mode" keymap (requires-pattern . 2) 1 (multiline) match helm-swoop-match-functions match-part helm-swoop--match-part] 14 (#$ . 19759)]) #@39 Set prefix MULTILINE. (fn MULTILINE) (defalias 'helm-swoop--set-prefix #[257 "\211\206\301\211\207" [helm-swoop-last-prefix-number 1] 3 (#$ . 20279)]) #@59 Delete cache when buffer is saved or file change on disk. (defalias 'helm-swoop--clear-cache #[0 "\301\300!\205 \302\211\207" [helm-swoop-list-cache boundp nil] 2 (#$ . 20440)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\304\305\306\307\310$\210\311\305\310\"\210\304\312\313\307\310$\210\311\312\310\"\210\304\314\315\307\310$\210\311\314\310\"\210\304\316\317\307\310$\210\311\316\310\"\207" [add-hook after-save-hook helm-swoop--clear-cache after-revert-hook ad-add-advice narrow-to-region (helm-swoop-advice-narrow-to-region nil t (advice lambda nil "Advice for `narrow-to-region'." (helm-swoop--clear-cache) ad-do-it)) around nil ad-activate narrow-to-defun (helm-swoop-advice-narrow-to-defun nil t (advice lambda nil "Advice for `narrow-to-defun'." (helm-swoop--clear-cache) ad-do-it)) narrow-to-page (helm-swoop-advice-narrow-to-page nil t (advice lambda nil "Advice for `narrow-to-page'." (helm-swoop--clear-cache) ad-do-it)) widen (helm-swoop-advice-widen nil t (advice lambda nil "Advice for `widen'." (helm-swoop--clear-cache) ad-do-it))] 5) #@10 Restore. (defalias 'helm-swoop--restore #[0 "\304U\203 \305\306!\210\307 \210\310\311\312\313\"\210\311\312\314\"\210\n\315\316\317ed\"\"\210\320\310\211\321\206,d!\210\315\322\323\"\317\2069e\206>d\"\"\266\324\306!\207" [helm-exit-status helm-swoop-invisible-targets helm-swoop-pattern helm-swoop-last-query 1 helm-swoop-back-to-last-point t helm-swoop--restore-unveiled-overlay nil remove-hook helm-after-update-hook helm-swoop--pattern-match helm-swoop--keep-nearest-position mapc #[257 "\300\301\"\302=\204\300\301\"\303=\205\304!\207" [overlay-get face helm-swoop-target-line-face helm-swoop-target-line-block-face delete-overlay] 4 "\n\n(fn OV)"] overlays-in target-buffer overlay-recenter make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] deactivate-mark] 8 (#$ . 21507)]) #@258 List the all lines to another buffer, which is able to squeeze by any words you input. At the same time, the original buffer's cursor is jumping line to line according to moving up and down the list. (fn &key QUERY SOURCE (MULTILINE current-prefix-arg)) (defalias 'helm-swoop #[128 "\306\307\"A@\306\310\"A@\306\311\"\206\312DA@\211\203C\211@\313>\203,\211AA\262\202\314>A@\203:\312\262\202\315\316@\"\210\202\210\317 `\320p!Bp\321 B\322\304!\204^\323\304!\210\324p\325\326!!\210\327``\"@\330@\331\332AW\203{\333\202|\334#\210\322\335!\204\216\323\335!\210\312\202\226\336 \203\226\312\337\216\340\341\342\"\210\340\341\343\344#\210\203\261\345\346\"\204\342\202\342B\203\324\347\350 \351 \"\345\352\"\203\313\353\354!\266\202\342\355!\262\210\202\342\355C !\211\262\204\342\324\262\356\357 \360\245!\210\361\332!\210\362 \210D\312\363EFG\364\365\206\366 \367H\370\371I\372\345\373\347\374 \375 \"\"\203B\212\376\377\312\344#\203-\201K\201L\321 \"\202>\201M\377\312\344#\210\201K\201L\321 \")\202K\201K\201L\321 \"\201NJ&\f,\207" [current-prefix-arg helm-swoop-synchronizing-window helm-swoop-last-point helm-swoop-last-line-info helm-swoop-last-query helm-swoop-target-buffer plist-member :query :source :multiline nil (:query :source :multiline :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:query :source :multiline)" selected-window buffer-name line-number-at-pos boundp make-local-variable "" helm-swoop--set-prefix prefix-numeric-value make-overlay overlay-put face 1 helm-swoop-target-line-block-face helm-swoop-target-line-face helm-swoop-list-cache buffer-modified-p #[0 "\300 \207" [helm-swoop--restore] 1] add-hook helm-after-update-hook helm-swoop--pattern-match helm-swoop--keep-nearest-position t string-match "\\(\\^\\[0\\-9\\]\\+\\.\\)\\(.*\\)" buffer-substring-no-properties region-beginning region-end "\n" message "Multi line region is not allowed" helm-swoop-pre-input-optimize recenter window-height 2 move-beginning-of-line helm-swoop--target-line-overlay-move 5 helm :sources helm-c-source-swoop :buffer :input :prompt :preselect "^[ \n ]*$" point-at-bol point-at-eol re-search-forward "[^ \n ]" helm-swoop-line-overlay helm-swoop-last-prefix-number mark-active helm-swoop-pre-input-function helm-swoop-split-window-function helm-completion-window-scroll-margin helm-display-source-at-screen-top helm-display-function helm-swoop-buffer helm-swoop-prompt helm-swoop-candidate-number-limit format "^%s " re-search-backward :candidate-number-limit] 19 (#$ . 22362) nil]) #@35 Invoke `helm-swoop' from isearch. (defalias 'helm-swoop-from-isearch #[0 "\203 \202 \303 !\304\305 \210)\306\307\"\207" [isearch-regexp isearch-string search-nonincremental-instead regexp-quote nil isearch-exit helm-swoop :query] 4 (#$ . 24973) nil]) #@40 Invoke `helm-swoop' from evil isearch. (defalias 'helm-swoop-from-evil-search #[0 "\303\304\305!\"\203\306\307 \203\n\202\310\n!\"\207\306 \207" [real-last-command isearch-regexp isearch-string string-match "\\(isearch-\\|evil.*search\\)" symbol-name helm-swoop :query regexp-quote] 4 (#$ . 25236) nil]) #@54 Insert string at which the point helm-swoop started. (defalias 'helm-swoop-yank-thing-at-point #[0 "\302\211\303!r\304\305\"\216\306@\307\"\210\310 A!\262\203*rq\210\212 @b\210\311\312!\262**\210\205E\303\313 !r\304\314\"\216\306@\307\"\210c*\262\207" [helm-swoop-synchronizing-window helm-swoop-last-point nil internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord get-buffer thing-at-point symbol minibuffer-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2]] 6 (#$ . 25553) nil]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice helm-resume-select-buffer (helm-swoop-if-selected-as-resume nil t (advice lambda nil "Resume if *Helm Swoop* buffer selected when helm-resume with prefix." (if (boundp 'helm-swoop-last-query) ad-do-it (let ((helm-buffers (delete helm-swoop-buffer helm-buffers))) ad-do-it)) (when (and (equal ad-return-value helm-swoop-buffer) (boundp 'helm-swoop-last-query)) (helm-swoop :query helm-swoop-last-query :multiline helm-swoop-last-prefix-number) (setq ad-return-value nil)))) around nil ad-activate helm-resume (helm-swoop-resume nil t (advice lambda nil "Resume if the last used helm buffer is helm-swoop-buffer." (if (equal helm-last-buffer helm-swoop-buffer) (if (boundp 'helm-swoop-last-query) (if (not (ad-get-arg 0)) (helm-swoop :query helm-swoop-last-query :multiline helm-swoop-last-prefix-number)) (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it)) ad-do-it)))] 5) (defvar helm-swoop-edit-buffer "*Helm Swoop Edit*") (defvar helm-swoop-edit-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "" helm-swoop--edit-complete "" helm-swoop--edit-cancel " " helm-swoop--edit-delete-all-lines] 5)) #@41 Clear edit buffer with PROP. (fn PROP) (defalias 'helm-swoop--clear-edit-buffer #[257 "\301\302\303\304\"\305ed\"\"\210\306ed\307#\210eb\210\310 )\207" [inhibit-read-only t mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in set-text-properties nil erase-buffer] 6 (#$ . 27446)]) #@62 Create a list of edited lines with each its own line number. (defalias 'helm-swoop--collect-edited-lines #[0 "\300eb\210\301\302\300\303#\2034\304\305\306!!\307`\212\301\310\300\303#\203\"\311\224S\202*db\210\312\313\300\303#)\"BB\262\202\207" [nil re-search-forward "^\\([0-9]+\\) " t string-to-number match-string 1 buffer-substring-no-properties "^\\([0-9]+\\) \\|^\\(\\-+\\)" 0 re-search-backward "\n"] 8 (#$ . 27799) nil]) #@90 This function will only be called from `helm-swoop-edit' with CANDIDATE. (fn CANDIDATE) (defalias 'helm-swoop--edit #[257 "\306\n!\210\307\310\211\311\206d!\210\312\313\314\"\315\206e\206!d\"\"\266r\316 !q\210\317\320!\210\321Cr\fq\210\312\313\322\"\315ed\"\"\210\211\242\321\232\203Q\211\323ed\"\240\210\202X\211\324\242P\240\210)\211\242c\210\325ed\326#\210\327eb\210\330`\331 \"\332\320\327#\210\332\333\334#\210\332\335\336\337\340!\333\341##\266\342\343\310\327#\203\261\344\224\344\225\345\224\345\225\325\346#\210\347\350#\210\351\211T\206\252d\352#\266\202\206\353\354\355\"\210)\210)\356\344!\210\357 !\210eb\210\360\361\"\203\326\342\362\363\355\"P\310\327#\210\3645!\207" [helm-swoop-target-buffer helm-swoop-edit-target-buffer helm-swoop-line-overlay helm-swoop-edit-buffer helm-swoop-buffer inhibit-read-only delete-overlay target-buffer nil overlay-recenter mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in get-buffer-create helm-swoop--clear-edit-buffer helm-swoop-edit "" #[257 "\301\302\"\303=\205\300\304\305!\306!\"\300\242P\240\207" [V0 overlay-get face helm-visible-mark buffer-substring-no-properties overlay-start overlay-end] 6 "\n\n(fn OV)"] buffer-substring-no-properties "Helm Swoop\n" add-text-properties (read-only t rear-nonsticky t front-sticky t) t make-overlay point-at-eol overlay-put face font-lock-function-name-face after-string propertize substitute-command-keys " [\\\\[helm-swoop--edit-complete]] Complete, [\\\\[helm-swoop--edit-cancel]] Cancel, [\\\\[helm-swoop--edit-delete-all-lines]] Delete All" helm-bookmark-addressbook re-search-forward "^\\([0-9]+ \\)\\(.*\\)$" 1 2 (face font-lock-function-name-face intangible t) remove-text-properties (read-only t) set-text-properties (read-only t rear-nonsticky t) helm-swoop--target-word-overlay edit-buffer 0 other-window switch-to-buffer string-match "^[0-9]+" "^" match-string use-local-map helm-swoop-edit-map] 10 (#$ . 28240) nil]) #@46 Apply change and kill temporary edit buffer. (defalias 'helm-swoop--edit-complete #[0 "\303 rq\210\212\304\305\"\210*\306 !\210\307\310\n!!\266\311\312!\207" [helm-swoop-edit-target-buffer helm-swoop-synchronizing-window helm-swoop-edit-buffer helm-swoop--collect-edited-lines mapc #[257 "\211@Aeb\210\300!\301!|\210\300!b\210\211c\207" [point-at-bol point-at-eol] 6 "\n\n(fn CELL)"] select-window kill-buffer get-buffer message "Successfully helm-swoop-edit applied to original buffer"] 4 (#$ . 30341) nil]) #@46 Apply change and kill temporary edit buffer. (defalias 'helm-swoop--edit-delete-all-lines #[0 "\303 rq\210\212\304\305\"\210*\306 !\210\307\310\n!!\266\311\312!\207" [helm-swoop-edit-target-buffer helm-swoop-synchronizing-window helm-swoop-edit-buffer helm-swoop--collect-edited-lines mapc #[257 "\211@eb\210\300!\301!d=\203\301!\202\301!T|\207" [point-at-bol point-at-eol] 5 "\n\n(fn CELL)"] select-window kill-buffer get-buffer message "Successfully helm-swoop-edit applied to original buffer"] 4 (#$ . 30863) nil]) #@40 Cancel edit and kill temporary buffer. (defalias 'helm-swoop--edit-cancel #[0 "\302!\210\303\304 !!\210\305\306!\207" [helm-swoop-synchronizing-window helm-swoop-edit-buffer select-window kill-buffer get-buffer message "helm-swoop-edit canceled"] 3 (#$ . 31398) nil]) #@29 Execute `helm-swoop--edit'. (defalias 'helm-swoop-edit #[0 "\300\301!\207" [helm-exit-and-execute-action helm-swoop--edit] 2 (#$ . 31673) nil]) #@14 Buffer name. (defvar helm-multi-swoop-buffer-list "*helm-multi-swoop buffers list*" (#$ . 31823)) #@52 Regexp to eliminate buffers you don't want to see. (defvar helm-multi-swoop-ignore-buffers-match "^\\*" (#$ . 31927)) (defvar helm-multi-swoop-candidate-number-limit 250) (defvar helm-multi-swoop-last-selected-buffers nil) (defvar helm-multi-swoop-last-query nil) (defvar helm-multi-swoop-query nil) (defvar helm-multi-swoop-buffer "*Helm Multi Swoop*") #@76 For the last position, when helm-multi-swoop-all-from-helm-swoop canceled. (defvar helm-multi-swoop-all-from-helm-swoop-last-point nil (#$ . 32287)) (defvar helm-multi-swoop-move-line-action-last-buffer nil) (defvar helm-multi-swoop-buffers-map (byte-code "\301 \302\"\210\303\304\305#\210\306\307\"\207" [helm-map make-sparse-keymap set-keymap-parent define-key " " #[0 "\300\301!\207" [helm-exit-and-execute-action helm-multi-swoop--exec] 2 nil nil] delq nil] 5)) (defvar helm-multi-swoop-projectile-buffers-filter 'projectile-buffers-with-file-or-process) #@19 Move line action. (defalias 'helm-multi-swoop--move-line-action #[0 "\303\304 !r\305\306\"\216\307@\310\"\210\311 \312 {\313\314\"\205\"\315\316\317\"!\320 \321\322\"\211\205/\323!\262\211\205t\303!r\305\324\"\216\307@\310\"\210rq\210 =\204V\325\326\"\210\327 \210eb\210\211Sy\266\330!\210\331\332 \333\245!\210)*\210\211B\211\266\204*\207" [helm-swoop-synchronizing-window helm-multi-swoop-move-line-action-last-buffer helm-swoop-last-line-info internal--before-with-selected-window helm-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord point-at-bol point-at-eol string-match "^[0-9]+" string-to-number match-string 0 helm-get-current-source assoc-default name get-buffer #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] set-window-buffer nil helm-swoop--pattern-match helm-swoop--target-line-overlay-move recenter window-height 2] 9 (#$ . 32856)]) #@21 Get marked buffers. (defalias 'helm-multi-swoop--get-marked-buffers #[0 "\301!\302\303!\205?rq\210\304\305\306ed\"\"\211\2038\211@\307\310\311!\312!\"!\313!\2040\211B\262\210A\266\202\202\210)\314\315\"\237\207" [helm-multi-swoop-buffer-list get-buffer nil buffer-live-p cl-delete-if-not #[257 "\300\301\"\302=\207" [overlay-get face helm-visible-mark] 4 "\n\n(fn O)"] overlays-in string-trim buffer-substring-no-properties overlay-start overlay-end string-empty-p sort string<] 9 (#$ . 33811)]) #@103 Multi swoop exec with IGNORED QUERY BUFLIST FUNC ACTION. (fn IGNORED &key QUERY BUFLIST FUNC ACTION) (defalias 'helm-multi-swoop--exec #[385 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\211\203D\211@\313>\203,\211AA\262\202\314>A@\203;\315\262\202\316\317@\"\210\202\210\320  \206Q`\321p!Bp\322 B\323\f!\204a\324\f!\210\325\326 !!\210\206{\327 \206{\3217!C\206{\316\330!\326 \206\2068\206\206\331!\315C\315C9\3259!\210:\332\333\334%\"\210\333\335\"\216\336\337\340\"\210\336\337\341\342#\210\343``\";\344;\345\346#\210\347 \210<\315\350=>?\351\352\242\353@\354 \206\342A\206\342\355\356B\357C\360\361\362\363\322 \364\365 \366 \"#!&\f-\207" [helm-swoop-synchronizing-window helm-multi-swoop-all-from-helm-swoop-last-point helm-swoop-last-point helm-swoop-last-line-info helm-multi-swoop-buffer-list current-prefix-arg plist-member :query :buflist :func :action (:query :buflist :func :action :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :buflist :func :action)" selected-window buffer-name line-number-at-pos get-buffer get-buffer-create helm-swoop--set-prefix prefix-numeric-value helm-multi-swoop--get-marked-buffers "No buffer selected" 1 mapc make-closure #[257 "\305!\205<r\305!q\210\300\206\306\307\"\301\206%\310\311\312\313D\314BBBB\315B\303`B\303\242B\240\210\302\316\f$\302\242B\240\266\202)\207" [V0 V1 V2 V3 prefix-arg get-buffer make-closure #[0 "\302\303\300\304\"\305 #\207" [V0 prefix-arg helm-swoop--split-lines-by helm-swoop--get-content t "\n"] 4] "Go to Line" lambda (line) switch-to-buffer ((helm-swoop--goto-line (when (string-match "^[0-9]+" line) (string-to-number (match-string 0 line)))) (when (re-search-forward (mapconcat 'identity (split-string helm-pattern " ") "\\|") nil t) (funcall helm-swoop-flash-region-function (match-beginning 0) (match-end 0)) (goto-char (match-beginning 0))) (helm-swoop--recenter)) (("Edit" . helm-multi-swoop--edit)) helm-c-source-multi-swoop] 9 "\n\n(fn BUF)"] #[0 " \306U\203 \307\310!\210\311 \210\312\313\314\315\"\210\313\314\316\"\210 \311 \210\312\211\317\320\300\242\"\207" [V0 helm-exit-status helm-swoop-invisible-targets helm-swoop-pattern helm-multi-swoop-last-query helm-multi-swoop-query 1 helm-swoop-back-to-last-point t helm-swoop--restore-unveiled-overlay nil remove-hook helm-after-update-hook helm-swoop--pattern-match helm-swoop--keep-nearest-position mapc #[257 "\301p!r@q\210\302!\210\303\304\211\305\206d!\210\306\307\310\"\311\206\"e\206'd\"\"\266@\232?\2056Ab)\207" [helm-swoop-line-overlay buffer-name delete-overlay target-buffer nil overlay-recenter mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in] 10 "\n\n(fn BUF)"] helm-multi-swoop-all-from-helm-swoop-last-point] 4] add-hook helm-after-update-hook helm-swoop--pattern-match helm-swoop--keep-nearest-position t make-overlay overlay-put face helm-swoop-target-line-face helm-swoop--target-line-overlay-move 5 helm :sources :buffer :input "" :prompt :candidate-number-limit :preselect regexp-quote format "%s %s" buffer-substring-no-properties point-at-bol point-at-eol helm-swoop-target-buffer helm-swoop-last-prefix-number prefix-arg helm-multi-swoop-last-selected-buffers helm-swoop-line-overlay helm-swoop-split-window-function helm-completion-window-scroll-margin helm-display-source-at-screen-top helm-display-function helm-multi-swoop-buffer helm-multi-swoop-query helm-swoop-prompt helm-multi-swoop-candidate-number-limit] 29 (#$ . 34330) nil]) #@18 Get buffer list. (defalias 'helm-multi-swoop--get-buffer-list #[0 "\300C\300C\301\302\303\"\304 \"\210\301\302\305\"\242\"\210\211\242\207" [nil mapc make-closure #[257 "\302!\262\303\304\"?\205r\211q\210 )\305=?\205\300\300\242B\240\207" [V0 major-mode buffer-name string-match "^\\s-" dired-mode] 4 "\n\n(fn BUF)"] buffer-list #[257 "\302 \"?\205\300\300\242B\240\207" [V0 helm-multi-swoop-ignore-buffers-match string-match] 4 "\n\n(fn BUF)"]] 6 (#$ . 37937)]) #@29 Show buffer list to select. (defalias 'helm-c-source-helm-multi-swoop-buffers #[0 "\301\302\303\304B\305\306 B\257\207" [helm-multi-swoop-buffers-map (name . "helm-multi-swoop select buffers") (candidates . helm-multi-swoop--get-buffer-list) (header-line . "[C-SPC]/[M-SPC] select, [RET] next step") keymap match helm-swoop-match-functions] 6 (#$ . 38421)]) #@35 Get query from QUERY. (fn QUERY) (defalias 'helm-multi-swoop--get-query #[257 "\211\203\211\211\207 \203#\303\304 \305 \"\306\307\"\203\310\311!\207\312!\211\207\312\n !\211\206/\313\211\207" [helm-multi-swoop-query mark-active helm-swoop-pre-input-function buffer-substring-no-properties region-beginning region-end string-match "\n" message "Multi line region is not allowed" helm-swoop-pre-input-optimize ""] 5 (#$ . 38787)]) #@414 Multi swoop for QUERY in BUFLIST. Usage: \[execute-extended-command] helm-multi-swoop 1. Select any buffers by [C-SPC] or [M-SPC] 2. Press [RET] to start `helm-multi-swoop' \[universal-argument] \[execute-extended-command] helm-multi-swoop If you have done helm-multi-swoop before, you can skip select buffers step. Last selected buffers will be applied to helm-multi-swoop. (fn &optional QUERY BUFLIST) (defalias 'helm-multi-swoop #[512 "\303! \304\232\203\305\306\307\310%\207\211\203\305\306\307\310%\207\311\312\313 \314\n\315\316&\207" [helm-multi-swoop-query current-prefix-arg helm-multi-swoop-buffer-list helm-multi-swoop--get-query (4) helm-multi-swoop--exec nil :query :buflist helm :sources helm-c-source-helm-multi-swoop-buffers :buffer :prompt "Mark any buffers by [C-SPC] or [M-SPC]: "] 9 (#$ . 39236) nil]) #@72 Apply all buffers to helm-multi-swoop for QUERY. (fn &optional QUERY) (defalias 'helm-multi-swoop-all #[256 "\301!\302\303\304\305\306 %\207" [helm-multi-swoop-query helm-multi-swoop--get-query helm-multi-swoop--exec nil :query :buflist helm-multi-swoop--get-buffer-list] 7 (#$ . 40084) nil]) #@80 Return a list of buffers where their `major-mode' is equal to MODE. (fn MODE) (defalias 'get-buffers-matching-mode #[257 "\300C\301\302\303#\304 \"\210\211\242\207" [nil mapc make-closure #[257 "\303!\205*r\303!q\210\300\n=\205)\304!\211\301\242\235\203!\301\242\202'\301\301\242B\240\262)\207" [V0 V1 major-mode get-buffer buffer-name] 5 "\n\n(fn BUF)"] buffer-list] 7 (#$ . 40387)]) #@96 Apply all buffers whose mode is MODE to helm-multi-swoop for QUERY. (fn MODE &optional QUERY) (defalias 'helm-multi-swoop-by-mode #[513 "\301!\302!\203\303\304\305\306\302!%\207\307\310!\207" [helm-multi-swoop-query helm-multi-swoop--get-query get-buffers-matching-mode helm-multi-swoop--exec nil :query :buflist message "there are no buffers in that mode right now"] 9 (#$ . 40790)]) #@84 Applie all `org-mode' buffers to helm-multi-swoop for QUERY. (fn &optional QUERY) (defalias 'helm-multi-swoop-org #[256 "\300\301\"\207" [helm-multi-swoop-by-mode org-mode] 4 (#$ . 41190) nil]) #@112 Applie all buffers of the same mode as the current buffer to helm-multi-swoop for QUERY. (fn &optional QUERY) (defalias 'helm-multi-swoop-current-mode #[256 "\301\"\207" [major-mode helm-multi-swoop-by-mode] 4 (#$ . 41393) nil]) #@102 Apply all opened buffers of the current project to helm-multi-swoop for QUERY. (fn &optional QUERY) (defalias 'helm-multi-swoop-projectile #[256 "\303!\304\305\306\307#\203 \310\306\311\312\313\314\315 \"%)\207\316\317!\207" [helm-multi-swoop-query helm-multi-swoop-projectile-buffers-filter projectile-buffers-filter-function helm-multi-swoop--get-query require projectile nil noerror helm-multi-swoop--exec :query :buflist mapcar buffer-name projectile-project-buffers error "Package 'projectile' is not available"] 9 (#$ . 41632) nil]) #@100 Wrap function with pre input function for TARGET-FN and PRE-INPUT-FN. (fn TARGET-FN PRE-INPUT-FN) (defalias 'helm-swoop--wrap-function-with-pre-input-function #[514 "\211 )\207" [helm-swoop-pre-input-function] 3 (#$ . 42185)]) #@43 Start helm-swoop without pre input query. (defalias 'helm-swoop-without-pre-input #[0 "\300\301\302\"\207" [helm-swoop--wrap-function-with-pre-input-function helm-swoop #[0 "\300\207" [nil] 1]] 3 (#$ . 42421) nil]) #@43 Start helm-swoop without pre input query. (defalias 'helm-swoop-symble-pre-input #[0 "\300\301\302\"\207" [helm-swoop--wrap-function-with-pre-input-function helm-swoop #[0 "\300\301\302\303!\"\207" [format "\\_<%s\\_> " thing-at-point symbol] 4]] 3 (#$ . 42642) nil]) #@45 Invoke `helm-multi-swoop-all' from isearch. (defalias 'helm-multi-swoop-all-from-isearch #[0 "\203 \202 \303 !\304\305 \210)\306!\207" [isearch-regexp isearch-string search-nonincremental-instead regexp-quote nil isearch-exit helm-multi-swoop-all] 3 (#$ . 42916) nil]) #@48 Invoke `helm-multi-swoop-all' from helm-swoop. (defalias 'helm-multi-swoop-all-from-helm-swoop #[0 "\304 \210\305!\210  \306\307\310\311\312\"#\266\313 \207" [helm-swoop-line-overlay helm-swoop-last-point helm-multi-swoop-all-from-helm-swoop-last-point helm-pattern helm-swoop--restore delete-overlay run-with-timer 0 nil make-closure #[0 "\301\300!\207" [V0 helm-multi-swoop-all] 2] helm-exit-minibuffer] 7 (#$ . 43197) nil]) #@48 Invoke `helm-multi-swoop-all' from helm-swoop. (defalias 'helm-multi-swoop-current-mode-from-helm-swoop #[0 "\304 \210\305!\210  \306\307\310\311\312\"#\266\313 \207" [helm-swoop-line-overlay helm-swoop-last-point helm-multi-swoop-all-from-helm-swoop-last-point helm-pattern helm-swoop--restore delete-overlay run-with-timer 0 nil make-closure #[0 "\301\300!\207" [V0 helm-multi-swoop-current-mode] 2] helm-exit-minibuffer] 7 (#$ . 43634) nil]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice helm-resume (helm-multi-swoop-resume nil t (advice lambda nil "Resume if the last used helm buffer is *Helm Swoop*." (if (equal helm-last-buffer helm-multi-swoop-buffer) (if (boundp 'helm-multi-swoop-last-query) (if (not (ad-get-arg 0)) (helm-multi-swoop helm-multi-swoop-last-query helm-multi-swoop-last-selected-buffers)) (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it)) ad-do-it))) around nil ad-activate] 5) #@53 Save each buffer you edit when editing is complete. (defvar helm-multi-swoop-edit-save t (#$ . 44581)) (defvar helm-multi-swoop-edit-buffer "*Helm Multi Swoop Edit*") (defvar helm-multi-swoop-edit-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\207" [make-sparse-keymap define-key "" helm-multi-swoop--edit-complete "" helm-multi-swoop--edit-cancel " " helm-multi-swoop--edit-delete-all-lines] 5)) #@89 This function will only be called from `helm-swoop-edit' for CANDIDATE. (fn CANDIDATE) (defalias 'helm-multi-swoop--edit #[257 "\305!\210\306\307\211\310\206 d!\210\311\312\313\"\314\206e\206d\"\"\266r\315 !q\210\316\317!\210\320C\321\n!\307C\203\225rq\210\212eb\210`\307\310d!\210\322d\323\324$\211\262\203j\325\323\"\262\326\327\"\330\331#\210\211\262\211b\210\202F\266)\311\312\332#\314ed\"\"\210\211\242\203\214\333\242P\240\210\211\307\240\210\202\224\333ed{P\240\210)\242c\210\334ed\335#\210\331eb\210\327`\336 \"\326\317\331#\210\326\323\337#\210\326\340\341\342\343!\323\344##\266\345\346\307\331#\203\355\347\224\347\225\350\224\350\225\334\351#\210\352\353#\210\354\211T\206\346d\355#\266\202\302\356\357\360\"\210)\266)\361\347!\210\362 !\210eb\210\363\364\"\203\345\365\366\360\"P\307\331#\210\367\f!\207" [helm-swoop-line-overlay helm-multi-swoop-edit-buffer helm-multi-swoop-buffer inhibit-read-only helm-multi-swoop-edit-map delete-overlay target-buffer nil overlay-recenter mapc make-closure #[257 "\301\300\"\205\n\302!\207" [V0 overlay-get delete-overlay] 4 "\n\n(fn OV)"] overlays-in get-buffer-create helm-swoop--clear-edit-buffer helm-multi-swoop-edit #1="" get-buffer text-property-any face helm-source-header next-single-property-change overlay-put make-overlay source-header t #[257 "\302\303\"\203\300\304!\305!{\300\242P\240\210\302\306\"\307=\205<\304!\305!{\211\310\232\204.\301\311\240\210\300\304!\305!{\300\242P\240\262\207" [V0 V1 overlay-get source-header overlay-start overlay-end face helm-visible-mark #1# t] 6 "\n\n(fn OV)"] "Helm Multi Swoop\n" add-text-properties (read-only t rear-nonsticky t front-sticky t) point-at-eol font-lock-function-name-face after-string propertize substitute-command-keys " [\\\\[helm-swoop--edit-complete]] Complete, [\\\\[helm-swoop--edit-cancel]] Cancel, [\\\\[helm-swoop--edit-delete-all-lines]] Delete All" helm-bookmark-addressbook re-search-forward "^\\([0-9]+ \\)\\(.*\\)$" 1 2 (face font-lock-function-name-face intangible t) remove-text-properties (read-only t) set-text-properties (read-only t rear-nonsticky t) helm-swoop--target-word-overlay edit-buffer 0 other-window switch-to-buffer string-match "^[0-9]+" "^" match-string use-local-map] 12 (#$ . 45019) nil]) #@55 Separete text property into list for PROP. (fn PROP) (defalias 'helm-multi-swoop--separate-text-property-into-list #[257 "\300\211\212eb\210\301`\"\211\262\2030\302`\"\303\304\"\203#\305\306\307#\202$\211\262B\262\211b\210\202\302`d\"B\262)\237\207" [nil next-single-property-change buffer-substring-no-properties string-match "\n\n\\'" replace-regexp-in-string "\n\\'" ""] 8 (#$ . 47399) nil]) #@62 Create a list of edited lines with each its own line number. (defalias 'helm-multi-swoop--collect-edited-lines #[0 "\300\301!\211G\302\303X\203k\303\304\305\306\"r\211q\210\307\310\"\216\311\312T8\"c\210eb\210\313\314\303\306#\203X\315\316\302!!\317`\212\313\320\303\306#\203F\321\224S\202Ndb\210\322\323\303\306#)\"BB\262\202(*\2108BB\266\202\324\\\262\202\325\326\"\207" [helm-multi-swoop--separate-text-property-into-list helm-header 1 nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] format "%s" re-search-forward "^\\([0-9]+\\) " string-to-number match-string buffer-substring-no-properties "^\\([0-9]+\\) \\|^\\(\\-+\\)" 0 re-search-backward "\n" 2 delete (nil)] 13 (#$ . 47817) nil]) #@89 Delete all extracted lines, and apply change to buffers and kill temporary edit buffer. (defalias 'helm-multi-swoop--edit-complete #[0 "\302 \303C\304\305\306\"\"\210\307!\210\310\311 !!\210\211\242\203\312\313!\207\312\314!\207" [helm-swoop-synchronizing-window helm-multi-swoop-edit-buffer helm-multi-swoop--collect-edited-lines nil mapc make-closure #[257 "r\211@q\210 \204\212\303\304A\"\210)\n\205! \203\300\305\240\202!\306 )\207" [V0 buffer-read-only helm-multi-swoop-edit-save mapc #[257 "\211@Aeb\210\300!\301!|\210\300!b\210\211c\207" [point-at-bol point-at-eol] 6 "\n\n(fn CELL)"] t save-buffer] 4 "\n\n(fn ELM)"] select-window kill-buffer get-buffer message "Couldn't save some buffers because of read-only" "Successfully helm-multi-swoop-edit applied to original buffer"] 6 (#$ . 48603) nil]) #@89 Delete all extracted lines, and apply change to buffers and kill temporary edit buffer. (defalias 'helm-multi-swoop--edit-delete-all-lines #[0 "\302 \303C\304\305\306\"\"\210\307!\210\310\311 !!\210\211\242\203\312\313!\207\312\314!\207" [helm-swoop-synchronizing-window helm-multi-swoop-edit-buffer helm-multi-swoop--collect-edited-lines nil mapc make-closure #[257 "r\211@q\210 \204\212\303\304A\"\210)\n\205! \203\300\305\240\202!\306 )\207" [V0 buffer-read-only helm-multi-swoop-edit-save mapc #[257 "\211@eb\210\300!\301!d=\203\301!\202\301!T|\207" [point-at-bol point-at-eol] 5 "\n\n(fn CELL)"] t save-buffer] 4 "\n\n(fn ELM)"] select-window kill-buffer get-buffer message "Couldn't save some buffers because of read-only" "Successfully helm-multi-swoop-edit applied to original buffer"] 6 (#$ . 49431) nil]) #@40 Cancel edit and kill temporary buffer. (defalias 'helm-multi-swoop--edit-cancel #[0 "\302!\210\303\304 !!\210\305\306!\207" [helm-swoop-synchronizing-window helm-multi-swoop-edit-buffer select-window kill-buffer get-buffer message "helm-multi-swoop-edit canceled"] 3 (#$ . 50272) nil]) #@19 Multi swoop edit. (defalias 'helm-multi-swoop-edit #[0 "\300\301!\207" [helm-exit-and-execute-action helm-multi-swoop--edit] 2 (#$ . 50565) nil]) #@45 Get at face at POINT. (fn &optional POINT) (defalias 'helm-swoop--get-at-face #[256 "\211\204`\262\300\301\"\206\300\302\"\207" [get-char-property read-face-name face] 4 (#$ . 50717)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put helm-swoop--get-at-face speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@45 Cull face include line for FACE. (fn FACE) (defalias 'helm-swoop--cull-face-include-line #[257 "e\300\212\301\302\"\211\262\203T\211\204`\262\303\304\"\206!\303\302\"\262\232\203b\210\305\306\307!\310 \311 {#B\262\312\301\302\"\206Cd\"\313\302\314#\210\313\315\314#\266\202)\316!\237\207" [nil next-single-property-change face get-char-property read-face-name format "%s %s" line-number-at-pos point-at-bol point-at-eol make-overlay overlay-put helm-swoop-target-word-face target-buffer delete-dups] 8 (#$ . 51065)]) #@51 Same face at point for FACE. (fn &optional FACE) (defalias 'helm-swoop-same-face-at-point #[256 "\211\204\300\211\204\f`\262\301\302\"\206\301\303\"\262\262\304\305\306\307\310\311\312!B\313\314\315 \"B\316BBB$\207" [nil get-char-property read-face-name face helm-swoop :query "" :source (name . "helm-swoop-same-face-at-point") candidates helm-swoop--cull-face-include-line header-line format "%s" ((action ("Go to Line" lambda (line) (helm-swoop--goto-line (when (string-match "^[0-9]+" line) (string-to-number (match-string 0 line)))) (let ((po (point)) (poe (point-at-eol))) (while (<= (setq po (next-single-property-change po 'face)) poe) (when (eq 'helm-swoop-target-word-face (helm-swoop--get-at-face po)) (goto-char po)))) (helm-swoop--recenter)) ("Edit" . helm-swoop--edit)))] 11 (#$ . 51616) nil]) #@51 Same face at point for FACE. (fn &optional FACE) (defalias 'helm-multi-swoop-same-face-at-point #[256 "\211C\211\242\204\211\300\211\204`\262\301\302\"\206\301\303\"\262\240\210\304\300\305\306\307\310\311\"\312\313\314\315 & \207" [nil get-char-property read-face-name face helm-multi-swoop--exec :query "" :func make-closure #[0 "\301\300\242!\207" [V0 helm-swoop--cull-face-include-line] 2] :action #[257 "\300\301\302\303 \"!\210\304\305\"\205\306\307\310\"!eb\210\211Sy\266`\311 \312\313\"\211\262X\203L\211\2044`\262\314\315\"\206?\314\313\"\262\316=\203 b\210\202 \266\317\320 \321\245!\207" [switch-to-buffer assoc-default name helm-get-current-source string-match "^[0-9]+" string-to-number match-string 0 point-at-eol next-single-property-change face get-char-property read-face-name helm-swoop-target-word-face recenter window-height 2] 7 "\n\n(fn LINE)"] :buflist helm-multi-swoop--get-buffer-list] 12 (#$ . 52444) nil]) (provide 'helm-swoop)