#+BEGIN_SRC emacs-lisp
- (if (>= emacs-major-version 24)
- (progn
- (require 'engine-mode)
+ (if (>= emacs-major-version 24)
+ (progn
+ (require 'engine-mode)
- (defengine amazon
- "http://www.amazon.de/s/ref=nb_sb_noss?url=search-alias%3Daps&filed-keywords=%s"
- "a"
- )
+ (defengine amazon
+ "http://www.amazon.de/s/ref=nb_sb_noss?url=search-alias%3Daps&filed-keywords=%s"
+ :keybinding "a"
+ )
- (defengine bing
- "http://www.bing.com/search?q=%s&qs=bs&form=QBLH"
- "b"
- )
+ (defengine bing
+ "http://www.bing.com/search?q=%s&qs=bs&form=QBLH"
+ :keybinding "b"
+ )
- (defengine cfengine
- "https://docs.cfengine.com/latest/search.html?q=%s"
- "c"
- )
++ (defengine cfengine
++ "https://docs.cfengine.com/latest/search.html?q=%s"
++ :keybinding "c"
++ )
+
- (defengine google-maps
- "http://maps.google.com/maps?q=%s"
- "m"
- )
+
- (defengine wikipedia
- "http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
- "w"
- )
+ (defengine google-maps
+ "http://maps.google.com/maps?q=%s"
+ :keybinding "m"
+ )
- (defengine youtube
- "http://www.youtube.com/results?aq=f&oq=&search_query=%s"
- "y"
- )
- (engine-mode 1)
+ (defengine wikipedia
+ "http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
+ :keybinding "w"
+ )
+
+ (defengine youtube
+ "http://www.youtube.com/results?aq=f&oq=&search_query=%s"
+ :keybinding "y"
+ )
+ (engine-mode 1)
- )
- )
+ )
+ )
#+END_SRC
*** expand-region
+++ /dev/null
--;;; helm-swoop-autoloads.el --- automatically extracted autoloads
--;;
--;;; Code:
--
--\f
--;;;### (autoloads (helm-multi-swoop-edit helm-multi-swoop-all helm-multi-swoop
--;;;;;; helm-swoop-from-isearch helm-swoop helm-swoop-back-to-last-point)
--;;;;;; "helm-swoop" "helm-swoop.el" (21832 37698 0 0))
--;;; Generated autoloads from helm-swoop.el
--
--(autoload 'helm-swoop-back-to-last-point "helm-swoop" "\
--
--
--\(fn &optional $CANCEL)" t nil)
--
--(autoload 'helm-swoop "helm-swoop" "\
--
--
--\(fn &key $QUERY $SOURCE ($multiline current-prefix-arg))" t nil)
--
--(autoload 'helm-swoop-from-isearch "helm-swoop" "\
--Invoke `helm-swoop' from isearch.
--
--\(fn)" t nil)
--
--(autoload 'helm-multi-swoop "helm-swoop" "\
--
--
--\(fn &optional $QUERY $BUFLIST)" t nil)
--
--(autoload 'helm-multi-swoop-all "helm-swoop" "\
--
--
--\(fn &optional $QUERY)" t nil)
--
--(autoload 'helm-multi-swoop-edit "helm-swoop" "\
--
--
--\(fn)" t nil)
--
--;;;***
--\f
--;;;### (autoloads nil nil ("helm-swoop-pkg.el") (21832 37698 905033
--;;;;;; 0))
--
--;;;***
--\f
--(provide 'helm-swoop-autoloads)
--;; Local Variables:
--;; version-control: never
--;; no-byte-compile: t
--;; no-update-autoloads: t
--;; coding: utf-8
--;; End:
--;;; helm-swoop-autoloads.el ends here
+++ /dev/null
--(define-package "helm-swoop" "20150425.635" "Efficiently hopping squeezed lines powered by helm interface" (quote ((helm "1.0") (emacs "24"))))
+++ /dev/null
--;;; helm-swoop.el --- Efficiently hopping squeezed lines powered by helm interface -*- coding: utf-8; lexical-binding: t -*-
--
--;; Copyright (C) 2013 by Shingo Fukuyama
--
--;; Version: 1.5.1
--;; Package-Version: 20150425.635
--;; Author: Shingo Fukuyama - http://fukuyama.co
--;; URL: https://github.com/ShingoFukuyama/helm-swoop
--;; Created: Oct 24 2013
--;; Keywords: helm swoop inner buffer search
--;; Package-Requires: ((helm "1.0") (emacs "24"))
--
--;; This program is free software; you can redistribute it and/or
--;; modify it under the terms of the GNU General Public License as
--;; published by the Free Software Foundation; either version 2 of
--;; the License, or (at your option) any later version.
--
--;; This program is distributed in the hope that it will be
--;; useful, but WITHOUT ANY WARRANTY; without even the implied
--;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
--;; PURPOSE. See the GNU General Public License for more details.
--
--;;; Commentary:
--
--;; 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.
--
--;; Example config
--;; ----------------------------------------------------------------
--;; ;; helm from https://github.com/emacs-helm/helm
--;; (require 'helm)
--
--;; ;; Locate the helm-swoop folder to your path
--;; ;; This line is unnecessary if you get this program from MELPA
--;; (add-to-list 'load-path "~/.emacs.d/elisp/helm-swoop")
--
--;; (require 'helm-swoop)
--
--;; ;; Change keybinds to whatever you like :)
--;; (global-set-key (kbd "M-i") 'helm-swoop)
--;; (global-set-key (kbd "M-I") 'helm-swoop-back-to-last-point)
--;; (global-set-key (kbd "C-c M-i") 'helm-multi-swoop)
--;; (global-set-key (kbd "C-x M-i") 'helm-multi-swoop-all)
--
--;; ;; When doing isearch, hand the word over to helm-swoop
--;; (define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
--;; (define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
--
--;; ;; Save buffer when helm-multi-swoop-edit complete
--;; (setq helm-multi-swoop-edit-save t)
--
--;; ;; If this value is t, split window inside the current window
--;; (setq helm-swoop-split-with-multiple-windows nil)
--
--;; ;; Split direction. 'split-window-vertically or 'split-window-horizontally
--;; (setq helm-swoop-split-direction 'split-window-vertically)
--
--;; ;; If nil, you can slightly boost invoke speed in exchange for text color
--;; (setq helm-swoop-speed-or-color nil)
--
--;; ;; Go to the opposite side of line from the end or beginning of line
--;; (setq helm-swoop-move-to-line-cycle t)
--
--;; ;; Optional face for line numbers
--;; ;; Face name is `helm-swoop-line-number-face`
--;; (setq helm-swoop-use-line-number-face t)
--
--;; ----------------------------------------------------------------
--
--;; * `M-x helm-swoop` when region active
--;; * `M-x helm-swoop` when the cursor is at any symbol
--;; * `M-x helm-swoop` when the cursor is not at any symbol
--;; * `M-3 M-x helm-swoop` or `C-u 5 M-x helm-swoop` multi separated line culling
--;; * `M-x helm-multi-swoop` multi-occur like feature
--;; * `M-x helm-multi-swoop-all` apply all buffers
--;; * `C-u M-x helm-multi-swoop` apply last selected buffers from the second time
--;; * `M-x helm-swoop-same-face-at-point` list lines have the same face at the cursor is on
--;; * During isearch `M-i` to hand the word over to helm-swoop
--;; * During helm-swoop `M-i` to hand the word over to helm-multi-swoop-all
--;; * While doing `helm-swoop` press `C-c C-e` to edit mode, apply changes to original buffer by `C-x C-s`
--
--;; Helm Swoop Edit
--;; While doing helm-swoop, press keybind [C-c C-e] to move to edit buffer.
--;; Edit the list and apply by [C-x C-s]. If you'd like to cancel, [C-c C-g]
--
--;;; Code:
--
--(require 'cl-lib)
--(require 'helm)
--(require 'helm-utils)
--
--(declare-function migemo-search-pattern-get "migemo")
--
--;;; @ helm-swoop ----------------------------------------------
--
--(defgroup helm-swoop nil
-- "Open helm-swoop."
-- :prefix "helm-swoop-" :group 'helm)
--
--(defface helm-swoop-target-line-face
-- '((t (:background "#e3e300" :foreground "#222222")))
-- "Face for helm-swoop target line"
-- :group 'helm-swoop)
--(defface helm-swoop-target-line-block-face
-- '((t (:background "#cccc00" :foreground "#222222")))
-- "Face for target line"
-- :group 'helm-swoop)
--(defface helm-swoop-target-word-face
-- '((t (:background "#7700ff" :foreground "#ffffff")))
-- "Face for target word"
-- :group 'helm-swoop)
--(defface helm-swoop-line-number-face
-- '((t (:foreground "#999999")))
-- "Face for line numbers"
-- :group 'helm-swoop)
--
--(defcustom helm-swoop-speed-or-color nil
-- "If nil, you can slightly boost invoke speed in exchange for text color"
-- :group 'helm-swoop :type 'boolean)
--(defcustom helm-swoop-use-line-number-face nil
-- "Use face to line numbers on helm-swoop buffer"
-- :group 'helm-swoop :type 'boolean)
--(defcustom helm-swoop-split-with-multiple-windows nil
-- "Split window when having multiple windows open"
-- :group 'helm-swoop :type 'boolean)
--(defcustom helm-swoop-move-to-line-cycle t
-- "Return to the opposite side of line"
-- :group 'helm-swoop :type 'boolean)
--(defcustom helm-swoop-split-direction 'split-window-vertically
-- "Split direction"
-- :type '(choice (const :tag "vertically" split-window-vertically)
-- (const :tag "horizontally" split-window-horizontally))
-- :group 'helm-swoop)
--
--(defvar helm-swoop-split-window-function
-- (lambda ($buf)
-- (if helm-swoop-split-with-multiple-windows
-- (funcall helm-swoop-split-direction)
-- (when (one-window-p)
-- (funcall helm-swoop-split-direction)))
-- (other-window 1)
-- (switch-to-buffer $buf))
-- "Change the way to split window only when `helm-swoop' is calling")
--
--(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)
--
--;; Buffer local variables
--(defvar helm-swoop-cache)
--(defvar helm-swoop-list-cache)
--(defvar helm-swoop-pattern) ; Keep helm-pattern value
--(defvar helm-swoop-last-query) ; Last search query for resume
--(defvar helm-swoop-last-prefix-number) ; For multiline highlight
--
--;; Global variables
--(defvar helm-swoop-synchronizing-window nil
-- "Window object where `helm-swoop' called from")
--(defvar helm-swoop-target-buffer nil
-- "Buffer object where `helm-swoop' called from")
--(defvar helm-swoop-line-overlay nil
-- "Overlay object to indicate other window's line")
--
--(defvar helm-swoop-map
-- (let (($map (make-sparse-keymap)))
-- (set-keymap-parent $map helm-map)
-- (define-key $map (kbd "C-c C-e") 'helm-swoop-edit)
-- (define-key $map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
-- (delq nil $map))
-- "Keymap for helm-swoop")
--
--(defvar helm-multi-swoop-map
-- (let (($map (make-sparse-keymap)))
-- (set-keymap-parent $map helm-map)
-- (define-key $map (kbd "C-c C-e") 'helm-multi-swoop-edit)
-- (delq nil $map)))
--
--(defcustom helm-swoop-pre-input-function
-- (lambda () (thing-at-point 'symbol))
-- "This function can pre-input keywords when helm-swoop invoked"
-- :group 'helm-swoop :type 'function)
--
--(defun helm-swoop-pre-input-optimize ($query)
-- (when $query
-- (let (($regexp (list '("\+" . "\\\\+")
-- '("\*" . "\\\\*")
-- '("\#" . "\\\\#"))))
-- (mapc (lambda ($r)
-- (setq $query (replace-regexp-in-string (car $r) (cdr $r) $query)))
-- $regexp)
-- $query)))
--
--(defsubst helm-swoop--goto-line ($line)
-- (goto-char (point-min))
-- (forward-line (1- $line)))
--
--(defsubst helm-swoop--recenter ()
-- (recenter (/ (window-height) 2)))
--
--(defsubst helm-swoop--delete-overlay ($identity &optional $beg $end)
-- (or $beg (setq $beg (point-min)))
-- (or $end (setq $end (point-max)))
-- (overlay-recenter $end)
-- (mapc (lambda ($o)
-- (if (overlay-get $o $identity)
-- (delete-overlay $o)))
-- (overlays-in $beg $end)))
--
--(defsubst helm-swoop--get-string-at-line ()
-- (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
--
--(defsubst helm-swoop--buffer-substring ($point-min $point-max)
-- (if helm-swoop-speed-or-color
-- (let (($content (buffer-substring $point-min $point-max)))
-- (with-temp-buffer
-- (let ((inhibit-read-only t))
-- (insert $content)
-- (remove-text-properties (point-min) (point-max) '(read-only t))
-- (setq $content (buffer-substring (point-min) (point-max)))))
-- $content)
-- (buffer-substring-no-properties $point-min $point-max)))
--
--;;;###autoload
--(defun helm-swoop-back-to-last-point (&optional $cancel)
-- (interactive)
-- "Go back to last position where `helm-swoop' was called"
-- (if helm-swoop-last-point
-- (let (($po (point)))
-- (switch-to-buffer (cdr helm-swoop-last-point))
-- (goto-char (car helm-swoop-last-point))
-- (unless $cancel
-- (setq helm-swoop-last-point
-- (cons $po (buffer-name (current-buffer))))))))
--
--(defun helm-swoop--split-lines-by ($string $regexp $step)
-- "split-string by $step for multiline"
-- (or $step (setq $step 1))
-- (let (($from1 0) ;; last match point
-- ($from2 0) ;; last substring point
-- $list
-- ($i 1)) ;; from line 1
-- (while (string-match $regexp $string $from1)
-- (setq $i (1+ $i))
-- (if (eq 0 (% $i $step))
-- (progn
-- (setq $list (cons (substring $string $from2 (match-beginning 0))
-- $list))
-- (setq $from2 (match-end 0))
-- (setq $from1 (match-end 0)))
-- (setq $from1 (match-end 0))))
-- (setq $list (cons (substring $string $from2) $list))
-- (nreverse $list)))
--
--(defun helm-swoop--target-line-overlay-move ()
-- "Add color to the target line"
-- (move-overlay
-- helm-swoop-line-overlay
-- (progn
-- (search-backward
-- "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number))
-- (goto-char (point-at-bol)))
-- ;; For multiline highlight
-- (save-excursion
-- (goto-char (point-at-bol))
-- (or (re-search-forward "\n" nil t helm-swoop-last-prefix-number)
-- ;; For the end of buffer error
-- (point-max))))
-- (helm-swoop--unveil-invisible-overlay))
--
--(defun helm-swoop--validate-regexp (regexp)
-- (condition-case nil
-- (progn
-- (string-match-p regexp "")
-- t)
-- (invalid-regexp nil)))
--
--(defun helm-swoop--target-word-overlay ($identity &optional $threshold)
-- (interactive)
-- (or $threshold (setq $threshold 2))
-- (save-excursion
-- (let (($pat (split-string helm-pattern " "))
-- $o)
-- (mapc (lambda ($wd)
-- (when (and (helm-swoop--validate-regexp $wd) (< $threshold (length $wd)))
-- (goto-char (point-min))
-- ;; Optional require migemo.el & helm-migemo.el
-- (if (and (featurep 'migemo) (featurep 'helm-migemo))
-- (setq $wd (migemo-search-pattern-get $wd)))
-- ;; For caret begging match
-- (if (string-match "^\\^\\[0\\-9\\]\\+\\.\\(.+\\)" $wd)
-- (setq $wd (concat "^" (match-string 1 $wd))))
-- (overlay-recenter (point-max))
-- (let (finish)
-- (while (and (not finish) (re-search-forward $wd nil t))
-- (if (= (match-beginning 0) (match-end 0))
-- (forward-char 1)
-- (setq $o (make-overlay (match-beginning 0) (match-end 0)))
-- (overlay-put $o 'face 'helm-swoop-target-word-face)
-- (overlay-put $o $identity t))
-- (when (eobp)
-- (setq finish t))))))
-- $pat))))
--
--(defun helm-swoop--restore-unveiled-overlay ()
-- (when helm-swoop-invisible-targets
-- (mapc (lambda ($ov) (overlay-put (car $ov) 'invisible (cdr $ov)))
-- helm-swoop-invisible-targets)
-- (setq helm-swoop-invisible-targets nil)))
--
--(defun helm-swoop--unveil-invisible-overlay ()
-- "Show hidden text temporarily to view it during helm-swoop.
--This function needs to call after latest helm-swoop-line-overlay set."
-- (helm-swoop--restore-unveiled-overlay)
-- (mapc (lambda ($ov)
-- (let (($type (overlay-get $ov 'invisible)))
-- (when $type
-- (overlay-put $ov 'invisible nil)
-- (setq helm-swoop-invisible-targets
-- (cons (cons $ov $type) helm-swoop-invisible-targets)))))
-- (overlays-in (overlay-start helm-swoop-line-overlay)
-- (overlay-end helm-swoop-line-overlay))))
--
--;; helm action ------------------------------------------------
--
--(defadvice helm-next-line (around helm-swoop-next-line disable)
-- (let ((helm-move-to-line-cycle-in-source t))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-swoop--move-line-action))))
--
--(defadvice helm-previous-line (around helm-swoop-previous-line disable)
-- (let ((helm-move-to-line-cycle-in-source t))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-swoop--move-line-action))))
--
--(defadvice helm-toggle-visible-mark (around helm-swoop-toggle-visible-mark disable)
-- (let ((helm-move-to-line-cycle-in-source t))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-swoop--move-line-action))))
--
--(defun helm-swoop--move-line-action ()
-- (with-helm-window
-- (let* (($key (helm-swoop--get-string-at-line))
-- ($num (when (string-match "^[0-9]+" $key)
-- (string-to-number (match-string 0 $key)))))
-- ;; Synchronizing line position
-- (when (and $key $num)
-- (with-selected-window helm-swoop-synchronizing-window
-- (progn
-- (helm-swoop--goto-line $num)
-- (with-current-buffer helm-swoop-target-buffer
-- (delete-overlay helm-swoop-line-overlay)
-- (helm-swoop--target-line-overlay-move))
-- (helm-swoop--recenter)))
-- (setq helm-swoop-last-line-info
-- (cons helm-swoop-target-buffer $num))))))
--
--(defun helm-swoop--nearest-line ($target $list)
-- "Return the nearest number of $target out of $list."
-- (when (and $target $list)
-- (let ($result)
-- (cl-labels ((filter ($fn $elem $list)
-- (let ($r)
-- (mapc (lambda ($e)
-- (if (funcall $fn $elem $e)
-- (setq $r (cons $e $r))))
-- $list) $r)))
-- (if (eq 1 (length $list))
-- (setq $result (car $list))
-- (let* (($lts (filter '> $target $list))
-- ($gts (filter '< $target $list))
-- ($lt (if $lts (apply 'max $lts)))
-- ($gt (if $gts (apply 'min $gts)))
-- ($ltg (if $lt (- $target $lt)))
-- ($gtg (if $gt (- $gt $target))))
-- (setq $result
-- (cond ((memq $target $list) $target)
-- ((and (not $lt) (not $gt)) nil)
-- ((not $gtg) $lt)
-- ((not $ltg) $gt)
-- ((eq $ltg $gtg) $gt)
-- ((< $ltg $gtg) $lt)
-- ((> $ltg $gtg) $gt)
-- (t 1))))))
-- $result)))
--
--(defun helm-swoop--keep-nearest-position ()
-- (with-helm-window
-- (let (($p (point-min)) $list $bound
-- $nearest-line $target-point
-- ($buf (rx-to-string (buffer-name (car helm-swoop-last-line-info)) t)))
-- (save-excursion
-- (goto-char $p)
-- (while (if $p (setq $p (re-search-forward (concat "^" $buf "$") nil t)))
-- (when (get-text-property (point-at-bol) 'helm-header)
-- (forward-char 1)
-- (setq $bound (next-single-property-change (point) 'helm-header))
-- (while (re-search-forward "^[0-9]+" $bound t)
-- (setq $list (cons
-- (string-to-number (match-string 0))
-- $list)))
-- (setq $nearest-line (helm-swoop--nearest-line
-- (cdr helm-swoop-last-line-info)
-- $list))
-- (goto-char $p)
-- (re-search-forward (concat "^"
-- (number-to-string $nearest-line)
-- "\\s-") $bound t)
-- (setq $target-point (point))
-- (setq $p nil))))
-- (when $target-point
-- (goto-char $target-point)
-- (helm-mark-current-line)
-- (if (equal helm-swoop-buffer (buffer-name (current-buffer)))
-- (helm-swoop--move-line-action)
-- (helm-multi-swoop--move-line-action))))))
--
--(defun helm-swoop--pattern-match ()
-- "Overlay target words"
-- (with-helm-window
-- (setq helm-swoop-pattern helm-pattern)
-- (when (< 2 (length helm-pattern))
-- (helm-swoop--delete-overlay 'target-buffer)
-- (helm-swoop--target-word-overlay 'target-buffer)
-- (with-selected-window helm-swoop-synchronizing-window
-- (helm-swoop--delete-overlay 'target-buffer)
-- (helm-swoop--target-word-overlay 'target-buffer)))))
--
--;; core ------------------------------------------------
--
--(defun helm-swoop--get-content (&optional $linum)
-- "Get the whole content in buffer and add line number at the head.
--If $linum is number, lines are separated by $linum"
-- (let (($bufstr (helm-swoop--buffer-substring (point-min) (point-max)))
-- $return)
-- (with-temp-buffer
-- (insert $bufstr)
-- (goto-char (point-min))
-- (let (($i 1))
-- (insert (format "%s " $i))
-- (while (re-search-forward "\n" nil t)
-- (cl-incf $i)
-- (if helm-swoop-use-line-number-face
-- (insert (propertize (format "%s" $i) 'font-lock-face 'helm-swoop-line-number-face) " ")
-- (insert (format "%s " $i))))
-- ;; Delete empty lines
-- (unless $linum
-- (goto-char (point-min))
-- (while (re-search-forward "^[0-9]+\\s-*$" nil t)
-- (replace-match ""))))
-- (setq $return (helm-swoop--buffer-substring (point-min) (point-max))))
-- $return))
--
--(defun helm-c-source-swoop ()
-- `((name . ,(buffer-name (current-buffer)))
-- (init . (lambda ()
-- (unless helm-swoop-cache
-- (with-current-buffer (helm-candidate-buffer 'local)
-- (insert ,(helm-swoop--get-content)))
-- (setq helm-swoop-cache t))))
-- (candidates-in-buffer)
-- (get-line . ,(if helm-swoop-speed-or-color
-- 'helm-swoop--buffer-substring
-- 'buffer-substring-no-properties))
-- (keymap . ,helm-swoop-map)
-- (header-line . "[C-c C-e] Edit mode, [M-i] apply all buffers")
-- (action . (lambda ($line)
-- (helm-swoop--goto-line
-- (when (string-match "^[0-9]+" $line)
-- (string-to-number (match-string 0 $line))))
-- (let (($regex (mapconcat 'identity
-- (split-string helm-pattern " ")
-- "\\|")))
-- (when (or (and (and (featurep 'migemo) (featurep 'helm-migemo))
-- (migemo-forward $regex nil t))
-- (re-search-forward $regex nil t))
-- (goto-char (match-beginning 0))))
-- (helm-swoop--recenter)))
-- (migemo) ;;? in exchange for those matches ^ $ [0-9] .*
-- ))
--
--(defun helm-c-source-multi-swoop ($buf $func $action)
-- `((name . ,$buf)
-- (candidates . ,(funcall $func))
-- (action . ,$action)
-- (header-line . ,(concat $buf " [C-c C-e] Edit mode"))
-- (keymap . ,helm-multi-swoop-map)
-- (requires-pattern . 2)
-- (migemo)))
--
--(defun helm-c-source-swoop-multiline ($linum)
-- `((name . ,(buffer-name (current-buffer)))
--
-- (candidates . ,(if helm-swoop-list-cache
-- (progn
-- (helm-swoop--split-lines-by
-- helm-swoop-list-cache "\n" $linum))
-- (helm-swoop--split-lines-by
-- (setq helm-swoop-list-cache
-- (helm-swoop--get-content t))
-- "\n" $linum)))
-- (keymap . ,helm-swoop-map)
-- (action . (lambda ($line)
-- (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)
-- (goto-char (match-beginning 0)))
-- (helm-swoop--recenter)))
-- (multiline)
-- (migemo)))
--
--(defun helm-swoop--set-prefix (&optional $multiline)
-- ;; Enable scrolling margin
-- (if (boundp 'helm-swoop-last-prefix-number)
-- (setq helm-swoop-last-prefix-number
-- (or $multiline 1)) ;; $multiline is for resume
-- (set (make-local-variable 'helm-swoop-last-prefix-number)
-- (or $multiline 1))))
--(helm-swoop--set-prefix) ;; Silence error "Warning: reference to free variable"
--
--;; Delete cache when modified file is saved
--(defun helm-swoop--clear-cache ()
-- (if (boundp 'helm-swoop-cache) (setq helm-swoop-cache nil))
-- (if (boundp 'helm-swoop-list-cache) (setq helm-swoop-list-cache nil)))
--(add-hook 'after-save-hook 'helm-swoop--clear-cache)
--
--(defun helm-swoop--restore ()
-- (when (= 1 helm-exit-status)
-- (helm-swoop-back-to-last-point t)
-- (helm-swoop--restore-unveiled-overlay))
-- (setq helm-swoop-invisible-targets nil)
-- (ad-disable-advice 'helm-next-line 'around 'helm-swoop-next-line)
-- (ad-activate 'helm-next-line)
-- (ad-disable-advice 'helm-previous-line 'around 'helm-swoop-previous-line)
-- (ad-activate 'helm-previous-line)
-- (ad-disable-advice 'helm-toggle-visible-mark 'around 'helm-swoop-toggle-visible-mark)
-- (ad-activate 'helm-toggle-visible-mark)
-- (ad-disable-advice 'helm-move--next-line-fn 'around
-- 'helm-multi-swoop-next-line-cycle)
-- (ad-activate 'helm-move--next-line-fn)
-- (ad-disable-advice 'helm-move--previous-line-fn 'around
-- 'helm-multi-swoop-previous-line-cycle)
-- (ad-activate 'helm-move--previous-line-fn)
-- (remove-hook 'helm-update-hook 'helm-swoop--pattern-match)
-- (remove-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position)
-- (setq helm-swoop-last-query helm-swoop-pattern)
-- (mapc (lambda ($ov)
-- (when (or (eq 'helm-swoop-target-line-face (overlay-get $ov 'face))
-- (eq 'helm-swoop-target-line-block-face
-- (overlay-get $ov 'face)))
-- (delete-overlay $ov)))
-- (overlays-in (point-min) (point-max)))
-- (helm-swoop--delete-overlay 'target-buffer)
-- (deactivate-mark t))
--
--;;;###autoload
--(cl-defun helm-swoop (&key $query $source ($multiline current-prefix-arg))
-- (interactive)
-- "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."
-- (setq helm-swoop-synchronizing-window (selected-window))
-- (setq helm-swoop-last-point (cons (point) (buffer-name (current-buffer))))
-- (setq helm-swoop-last-line-info
-- (cons (current-buffer) (line-number-at-pos)))
-- (unless (boundp 'helm-swoop-last-query)
-- (set (make-local-variable 'helm-swoop-last-query) ""))
-- (setq helm-swoop-target-buffer (current-buffer))
-- (helm-swoop--set-prefix (prefix-numeric-value $multiline))
-- ;; Overlay
-- (setq helm-swoop-line-overlay (make-overlay (point) (point)))
-- (overlay-put helm-swoop-line-overlay
-- 'face (if (< 1 helm-swoop-last-prefix-number)
-- 'helm-swoop-target-line-block-face
-- 'helm-swoop-target-line-face))
-- ;; Cache
-- (cond ((not (boundp 'helm-swoop-cache))
-- (set (make-local-variable 'helm-swoop-cache) nil))
-- ((buffer-modified-p)
-- (setq helm-swoop-cache nil)))
-- ;; Cache for multiline
-- (cond ((not (boundp 'helm-swoop-list-cache))
-- (set (make-local-variable 'helm-swoop-list-cache) nil))
-- ((buffer-modified-p)
-- (setq helm-swoop-list-cache nil)))
-- (unwind-protect
-- (progn
-- ;; For synchronizing line position
-- (ad-enable-advice 'helm-next-line 'around 'helm-swoop-next-line)
-- (ad-activate 'helm-next-line)
-- (ad-enable-advice 'helm-previous-line 'around 'helm-swoop-previous-line)
-- (ad-activate 'helm-previous-line)
-- (ad-enable-advice 'helm-toggle-visible-mark 'around 'helm-swoop-toggle-visible-mark)
-- (ad-activate 'helm-toggle-visible-mark)
-- (ad-enable-advice 'helm-move--next-line-fn 'around
-- 'helm-multi-swoop-next-line-cycle)
-- (ad-activate 'helm-move--next-line-fn)
-- (ad-enable-advice 'helm-move--previous-line-fn 'around
-- 'helm-multi-swoop-previous-line-cycle)
-- (ad-activate 'helm-move--previous-line-fn)
-- (add-hook 'helm-update-hook 'helm-swoop--pattern-match)
-- (add-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position t)
-- (cond ($query
-- (if (string-match
-- "\\(\\^\\[0\\-9\\]\\+\\.\\)\\(.*\\)" $query)
-- $query ;; NEED FIX #1 to appear as a "^"
-- $query))
-- (mark-active
-- (let (($st (buffer-substring-no-properties
-- (region-beginning) (region-end))))
-- (if (string-match "\n" $st)
-- (message "Multi line region is not allowed")
-- (setq $query (helm-swoop-pre-input-optimize $st)))))
-- ((setq $query (helm-swoop-pre-input-optimize
-- (funcall helm-swoop-pre-input-function))))
-- (t (setq $query "")))
-- ;; First behavior
-- (helm-swoop--recenter)
-- (move-beginning-of-line 1)
-- (helm-swoop--target-line-overlay-move)
-- ;; Execute helm
-- (let ((helm-display-function helm-swoop-split-window-function)
-- (helm-display-source-at-screen-top nil)
-- (helm-completion-window-scroll-margin 5))
-- (helm :sources
-- (or $source
-- (if (> helm-swoop-last-prefix-number 1)
-- (helm-c-source-swoop-multiline helm-swoop-last-prefix-number)
-- (helm-c-source-swoop)))
-- :buffer helm-swoop-buffer
-- :input $query
-- :prompt helm-swoop-prompt
-- :preselect
-- ;; Get current line has content or else near one
-- (if (string-match "^[\t\n\s]*$" (helm-swoop--get-string-at-line))
-- (save-excursion
-- (if (re-search-forward "[^\t\n\s]" nil t)
-- (format "^%s\s" (line-number-at-pos))
-- (re-search-backward "[^\t\n\s]" nil t)
-- (format "^%s\s" (line-number-at-pos))))
-- (format "^%s\s" (line-number-at-pos)))
-- :candidate-number-limit helm-swoop-candidate-number-limit)))
-- ;; Restore helm's hook and window function etc
-- (helm-swoop--restore)))
--
--;; Receive word from isearch ---------------
--;;;###autoload
--(defun helm-swoop-from-isearch ()
-- "Invoke `helm-swoop' from isearch."
-- (interactive)
-- (let (($query (if isearch-regexp
-- isearch-string
-- (regexp-quote isearch-string))))
-- (isearch-exit)
-- (helm-swoop :$query $query)))
--;; When doing isearch, hand the word over to helm-swoop
--(define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
--
--;; Receive word from evil search ---------------
--(defun helm-swoop-from-evil-search ()
-- "Invoke `helm-swoop' from evil isearch"
-- (interactive)
-- (if (string-match "\\(isearch-\\|evil.*search\\)" (symbol-name real-last-command))
-- (helm-swoop :$query (if isearch-regexp
-- isearch-string
-- (regexp-quote isearch-string)))
-- (helm-swoop)))
--;; When doing evil-search, hand the word over to helm-swoop
--;; (define-key evil-motion-state-map (kbd "M-i") 'helm-swoop-from-evil-search)
--
--;; For helm-resume ------------------------
--(defadvice helm-resume-select-buffer
-- (around helm-swoop-if-selected-as-resume activate)
-- "Resume if *Helm Swoop* buffer selected as a resume
-- when helm-resume with prefix"
-- (if (boundp 'helm-swoop-last-query)
-- ad-do-it
-- ;; If the buffer hasn't called helm-swoop, just hide from options
-- (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)))
--
--(defadvice helm-resume (around helm-swoop-resume activate)
-- "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))
-- ;; Temporary apply second last buffer
-- (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it))
-- ad-do-it))
--
--;; For caret beginning-match -----------------------------
--(defun helm-swoop--caret-match-delete ($o $aft $beg $end &optional $len)
-- (if $aft
-- (- $end $beg $len) ;; Unused argument? To avoid byte compile error
-- (delete-region (overlay-start $o) (1- (overlay-end $o)))))
--
--(defun helm-swoop-caret-match (&optional _$resume)
-- (interactive)
-- (let* (($prompt helm-swoop-prompt) ;; Accept change of the variable
-- ($line-number-regexp "^[0-9]+.")
-- ($prompt-regexp
-- (funcall `(lambda ()
-- (rx bol ,$prompt))))
-- ($prompt-regexp-with-line-number
-- (funcall `(lambda ()
-- (rx bol ,$prompt (group ,$line-number-regexp)))))
-- ($disguise-caret
-- (lambda ()
-- (save-excursion
-- (re-search-backward $prompt-regexp-with-line-number nil t)
-- (let (($o (make-overlay (match-beginning 1) (match-end 1))))
-- (overlay-put $o 'face 'helm-swoop-target-word-face)
-- (overlay-put $o 'modification-hooks '(helm-swoop--caret-match-delete))
-- (overlay-put $o 'display "^")
-- (overlay-put $o 'evaporate t))))))
-- (if (and (minibufferp)
-- (string-match $prompt-regexp
-- (buffer-substring-no-properties
-- (point-min) (point-max)))
-- (eq (point) (+ 1 (length helm-swoop-prompt))))
-- (progn
-- (insert $line-number-regexp)
-- (funcall $disguise-caret))
-- (insert "^"))))
--
--(unless (featurep 'helm-migemo)
-- (define-key helm-map (kbd "^") 'helm-swoop-caret-match))
--
--;;; @ helm-swoop-edit -----------------------------------------
--
--(defvar helm-swoop-edit-target-buffer)
--(defvar helm-swoop-edit-buffer "*Helm Swoop Edit*")
--(defvar helm-swoop-edit-map
-- (let (($map (make-sparse-keymap)))
-- (define-key $map (kbd "C-x C-s") 'helm-swoop--edit-complete)
-- (define-key $map (kbd "C-c C-g") 'helm-swoop--edit-cancel)
-- $map))
--
--(defun helm-swoop--clear-edit-buffer ($prop)
-- (let ((inhibit-read-only t))
-- (mapc (lambda ($ov)
-- (when (overlay-get $ov $prop)
-- (delete-overlay $ov)))
-- (overlays-in (point-min) (point-max)))
-- (set-text-properties (point-min) (point-max) nil)
-- (goto-char (point-min))
-- (erase-buffer)))
--
--(defun helm-swoop--collect-edited-lines ()
-- "Create a list of edited lines with each its own line number"
-- (interactive)
-- (let ($list)
-- (goto-char (point-min))
-- (while (re-search-forward "^\\([0-9]+\\)\s" nil t)
-- (setq $list
-- (cons (cons (string-to-number (match-string 1))
-- (buffer-substring-no-properties
-- (point)
-- (save-excursion
-- (if (re-search-forward
-- "^\\([0-9]+\\)\s\\|^\\(\\-+\\)" nil t)
-- (1- (match-beginning 0))
-- (goto-char (point-max))
-- (re-search-backward "\n" nil t)))))
-- $list)))
-- $list))
--
--(defun helm-swoop--edit ($candidate)
-- "This function will only be called from `helm-swoop-edit'"
-- (interactive)
-- (setq helm-swoop-edit-target-buffer helm-swoop-target-buffer)
-- (delete-overlay helm-swoop-line-overlay)
-- (helm-swoop--delete-overlay 'target-buffer)
-- (with-current-buffer (get-buffer-create helm-swoop-edit-buffer)
--
-- (helm-swoop--clear-edit-buffer 'helm-swoop-edit)
-- (let (($bufstr ""))
-- ;; Get target line number to edit
-- (with-current-buffer helm-swoop-buffer
-- ;; Use selected line by [C-SPC] or [M-SPC]
-- (mapc (lambda ($ov)
-- (when (eq 'helm-visible-mark (overlay-get $ov 'face))
-- (setq $bufstr (concat (buffer-substring-no-properties
-- (overlay-start $ov) (overlay-end $ov))
-- $bufstr))))
-- (overlays-in (point-min) (point-max)))
-- (if (equal "" $bufstr)
-- ;; Not found selected line
-- (setq $bufstr (buffer-substring-no-properties
-- (point-min) (point-max)))
-- ;; Attach title
-- (setq $bufstr (concat "Helm Swoop\n" $bufstr))))
--
-- ;; Set for edit buffer
-- (insert $bufstr)
-- (add-text-properties (point-min) (point-max)
-- '(read-only t rear-nonsticky t front-sticky t))
--
-- ;; Set for editable context
-- (let ((inhibit-read-only t))
-- ;; Title and explanation
-- (goto-char (point-min))
-- (let (($o (make-overlay (point) (point-at-eol))))
-- (overlay-put $o 'helm-swoop-edit t)
-- (overlay-put $o 'face 'font-lock-function-name-face)
-- (overlay-put $o 'after-string
-- (propertize " [C-x C-s] Complete, [C-c C-g] Cancel"
-- 'face 'helm-bookmark-addressbook)))
-- ;; Line number and editable area
-- (while (re-search-forward "^\\([0-9]+\s\\)\\(.*\\)$" nil t)
-- (let* (($bol1 (match-beginning 1))
-- ($eol1 (match-end 1))
-- ($bol2 (match-beginning 2))
-- ($eol2 (match-end 2)))
-- ;; Line number
-- (add-text-properties $bol1 $eol1
-- '(face font-lock-function-name-face
-- intangible t))
-- ;; Editable area
-- (remove-text-properties $bol2 $eol2 '(read-only t))
-- ;; For line tail
-- (set-text-properties $eol2 (or (1+ $eol2) (point-max))
-- '(read-only t rear-nonsticky t))))
-- (helm-swoop--target-word-overlay 'edit-buffer 0))))
--
-- (other-window 1)
-- (switch-to-buffer helm-swoop-edit-buffer)
-- (goto-char (point-min))
-- (if (string-match "^[0-9]+" $candidate)
-- (re-search-forward
-- (concat "^" (match-string 0 $candidate)) nil t))
-- (use-local-map helm-swoop-edit-map))
--
--(defun helm-swoop--edit-complete ()
-- "Apply changes and kill temporary edit buffer"
-- (interactive)
-- (let (($list (helm-swoop--collect-edited-lines)))
-- (with-current-buffer helm-swoop-edit-target-buffer
-- ;; Replace from the end of buffer
-- (save-excursion
-- (cl-loop for ($k . $v) in $list
-- do (progn
-- (goto-char (point-min))
-- (delete-region (point-at-bol $k) (point-at-eol $k))
-- (goto-char (point-at-bol $k))
-- (insert $v)))))
-- (select-window helm-swoop-synchronizing-window)
-- (kill-buffer (get-buffer helm-swoop-edit-buffer)))
-- (message "Successfully helm-swoop-edit applied to original buffer"))
--
--(defun helm-swoop--edit-cancel ()
-- "Cancel edit and kill temporary buffer"
-- (interactive)
-- (select-window helm-swoop-synchronizing-window)
-- (kill-buffer (get-buffer helm-swoop-edit-buffer))
-- (message "helm-swoop-edit canceled"))
--
--(defun helm-swoop-edit ()
-- (interactive)
-- (helm-quit-and-execute-action 'helm-swoop--edit))
--
--;;; @ helm-multi-swoop ----------------------------------------
--(defvar helm-multi-swoop-buffer-list "*helm-multi-swoop buffers list*"
-- "Buffer name")
--(defvar helm-multi-swoop-ignore-buffers-match "^\\*"
-- "Regexp to eliminate buffers you don't want to see")
--(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*")
--(defvar helm-multi-swoop-all-from-helm-swoop-last-point nil
-- "For the last position, when helm-multi-swoop-all-from-helm-swoop canceled")
--(defvar helm-multi-swoop-move-line-action-last-buffer nil)
--
--(defvar helm-multi-swoop-buffers-map
-- (let (($map (make-sparse-keymap)))
-- (set-keymap-parent $map helm-map)
-- (define-key $map (kbd "RET")
-- (lambda () (interactive)
-- (helm-quit-and-execute-action 'helm-multi-swoop--exec)))
-- (delq nil $map)))
--
--;; action -----------------------------------------------------
--
--(defadvice helm-next-line (around helm-multi-swoop-next-line disable)
-- (let ((helm-move-to-line-cycle-in-source nil))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-multi-swoop--move-line-action))))
--
--(defadvice helm-previous-line (around helm-multi-swoop-previous-line disable)
-- (let ((helm-move-to-line-cycle-in-source nil))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-multi-swoop--move-line-action))))
--
--(defadvice helm-toggle-visible-mark (around helm-multi-swoop-toggle-visible-mark disable)
-- (let ((helm-move-to-line-cycle-in-source nil))
-- ad-do-it
-- (when (called-interactively-p 'any)
-- (helm-multi-swoop--move-line-action))))
--
--(defadvice helm-move--next-line-fn (around helm-multi-swoop-next-line-cycle disable)
-- (if (not (helm-pos-multiline-p))
-- (if (eq (point-max) (save-excursion (forward-line 1) (point)))
-- (when helm-swoop-move-to-line-cycle
-- (helm-beginning-of-buffer)
-- (helm-swoop--recenter))
-- (forward-line 1))
-- (let ((line-num (line-number-at-pos)))
-- (helm-move--next-multi-line-fn)
-- (when (and helm-swoop-move-to-line-cycle
-- (eq line-num (line-number-at-pos)))
-- (helm-beginning-of-buffer)))))
--
--(defadvice helm-move--previous-line-fn (around helm-multi-swoop-previous-line-cycle disable)
-- (if (not (helm-pos-multiline-p))
-- (forward-line -1)
-- (helm-move--previous-multi-line-fn))
-- (when (and (helm-pos-header-line-p)
-- (eq (point) (save-excursion (forward-line -1) (point))))
-- (when helm-swoop-move-to-line-cycle
-- (helm-end-of-buffer))
-- (when (helm-pos-multiline-p)
-- (helm-move--previous-multi-line-fn))))
--
--(defun helm-multi-swoop--overlay-move (&optional $buf)
-- (move-overlay
-- helm-swoop-line-overlay
-- (goto-char (point-at-bol))
-- (save-excursion
-- (goto-char (point-at-bol))
-- (or (re-search-forward "\n" nil t) (point-max)))
-- $buf)
-- (helm-swoop--unveil-invisible-overlay))
--
--(defun helm-multi-swoop--move-line-action ()
-- (with-helm-window
-- (let* (($key (buffer-substring (point-at-bol) (point-at-eol)))
-- ($num (when (string-match "^[0-9]+" $key)
-- (string-to-number (match-string 0 $key))))
-- ($source (helm-get-current-source))
-- ($buf (get-buffer (assoc-default 'name $source))))
-- ;; Synchronizing line position
-- (with-selected-window helm-swoop-synchronizing-window
-- (with-current-buffer $buf
-- (when (not (eq $buf helm-multi-swoop-move-line-action-last-buffer))
-- (set-window-buffer nil $buf)
-- (helm-swoop--pattern-match))
-- (helm-swoop--goto-line $num)
-- (helm-multi-swoop--overlay-move $buf))
-- (setq helm-multi-swoop-move-line-action-last-buffer $buf)
-- (helm-swoop--recenter))
-- (setq helm-swoop-last-line-info (cons $buf $num)))))
--
--(defun helm-multi-swoop--get-marked-buffers ()
-- (let ($list)
-- (with-current-buffer helm-multi-swoop-buffer-list
-- (mapc (lambda ($ov)
-- (when (eq 'helm-visible-mark (overlay-get $ov 'face))
-- (setq $list (cons
-- (let (($word (buffer-substring-no-properties
-- (overlay-start $ov) (overlay-end $ov))))
-- (mapc (lambda ($r)
-- (setq $word (replace-regexp-in-string
-- (car $r) (cdr $r) $word)))
-- (list '("\\`[ \t\n\r]+" . "")
-- '("[ \t\n\r]+\\'" . "")))
-- $word)
-- $list))))
-- (overlays-in (point-min) (point-max))))
-- (delete "" $list)))
--
--;; core --------------------------------------------------------
--
--(cl-defun helm-multi-swoop--exec (ignored &key $query $buflist $func $action)
-- (interactive)
-- (setq helm-swoop-synchronizing-window (selected-window))
-- (setq helm-swoop-last-point
-- (or helm-multi-swoop-all-from-helm-swoop-last-point
-- (cons (point) (buffer-name (current-buffer)))))
-- (setq helm-swoop-last-line-info
-- (cons (current-buffer) (line-number-at-pos)))
-- (let (($buffs (or $buflist (helm-multi-swoop--get-marked-buffers)
-- (error "No buffer selected")))
-- $contents
-- $preserve-position)
-- (setq helm-multi-swoop-last-selected-buffers $buffs)
-- ;; Create buffer sources
-- (mapc (lambda ($buf)
-- (with-current-buffer $buf
-- (let* (($func
-- (or $func
-- (lambda () (split-string (helm-swoop--get-content) "\n"))))
-- ($action
-- (or $action
-- (lambda ($line)
-- (switch-to-buffer $buf)
-- (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)
-- (goto-char (match-beginning 0)))
-- (helm-swoop--recenter)))))
-- (setq $preserve-position
-- (cons (cons $buf (point)) $preserve-position))
-- (setq
-- $contents
-- (cons
-- (helm-c-source-multi-swoop $buf $func $action)
-- $contents)))))
-- $buffs)
-- (unwind-protect
-- (progn
-- (ad-enable-advice 'helm-next-line 'around
-- 'helm-multi-swoop-next-line)
-- (ad-activate 'helm-next-line)
-- (ad-enable-advice 'helm-previous-line 'around
-- 'helm-multi-swoop-previous-line)
-- (ad-activate 'helm-previous-line)
-- (ad-enable-advice 'helm-toggle-visible-mark 'around
-- 'helm-multi-swoop-toggle-visible-mark)
-- (ad-activate 'helm-toggle-visible-mark)
-- (ad-enable-advice 'helm-move--next-line-fn 'around
-- 'helm-multi-swoop-next-line-cycle)
-- (ad-activate 'helm-move--next-line-fn)
-- (ad-enable-advice 'helm-move--previous-line-fn 'around
-- 'helm-multi-swoop-previous-line-cycle)
-- (ad-activate 'helm-move--previous-line-fn)
-- (add-hook 'helm-update-hook 'helm-swoop--pattern-match)
-- (add-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position t)
-- (setq helm-swoop-line-overlay
-- (make-overlay (point) (point)))
-- (overlay-put helm-swoop-line-overlay
-- 'face 'helm-swoop-target-line-face)
-- (helm-multi-swoop--overlay-move)
-- ;; Execute helm
-- (let ((helm-display-function helm-swoop-split-window-function)
-- (helm-display-source-at-screen-top nil)
-- (helm-completion-window-scroll-margin 5))
-- (helm :sources $contents
-- :buffer helm-multi-swoop-buffer
-- :input (or $query helm-multi-swoop-query "")
-- :prompt helm-swoop-prompt
-- :candidate-number-limit
-- helm-multi-swoop-candidate-number-limit
-- :preselect
-- (format "%s %s" (line-number-at-pos)
-- (helm-swoop--get-string-at-line)))))
-- ;; Restore
-- (progn
-- (when (= 1 helm-exit-status)
-- (helm-swoop-back-to-last-point t)
-- (helm-swoop--restore-unveiled-overlay))
-- (setq helm-swoop-invisible-targets nil)
-- (ad-disable-advice 'helm-next-line 'around
-- 'helm-multi-swoop-next-line)
-- (ad-activate 'helm-next-line)
-- (ad-disable-advice 'helm-previous-line 'around
-- 'helm-multi-swoop-previous-line)
-- (ad-activate 'helm-previous-line)
-- (ad-disable-advice 'helm-toggle-visible-mark 'around
-- 'helm-multi-swoop-toggle-visible-mark)
-- (ad-activate 'helm-toggle-visible-mark)
-- (ad-disable-advice 'helm-move--next-line-fn 'around
-- 'helm-multi-swoop-next-line-cycle)
-- (ad-activate 'helm-move--next-line-fn)
-- (ad-disable-advice 'helm-move--previous-line-fn 'around
-- 'helm-multi-swoop-previous-line-cycle)
-- (ad-activate 'helm-move--previous-line-fn)
-- (remove-hook 'helm-update-hook 'helm-swoop--pattern-match)
-- (remove-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position)
-- (setq helm-multi-swoop-last-query helm-swoop-pattern)
-- (helm-swoop--restore-unveiled-overlay)
-- (setq helm-multi-swoop-query nil)
-- (setq helm-multi-swoop-all-from-helm-swoop-last-point nil)
-- (mapc (lambda ($buf)
-- (let (($current-buffer (buffer-name (current-buffer))))
-- (with-current-buffer (car $buf)
-- ;; Delete overlay
-- (delete-overlay helm-swoop-line-overlay)
-- (helm-swoop--delete-overlay 'target-buffer)
-- ;; Restore each buffer's position
-- (unless (equal (car $buf) $current-buffer)
-- (goto-char (cdr $buf))))))
-- $preserve-position)))))
--
--(defun helm-multi-swoop--get-buffer-list ()
-- (let ($buflist1 $buflist2)
-- ;; eliminate buffers start with whitespace and dired buffers
-- (mapc (lambda ($buf)
-- (setq $buf (buffer-name $buf))
-- (unless (string-match "^\\s-" $buf)
-- (unless (eq 'dired-mode (with-current-buffer $buf major-mode))
-- (setq $buflist1 (cons $buf $buflist1)))))
-- (buffer-list))
-- ;; eliminate buffers match pattern
-- (mapc (lambda ($buf)
-- (unless (string-match
-- helm-multi-swoop-ignore-buffers-match
-- $buf)
-- (setq $buflist2 (cons $buf $buflist2))))
-- $buflist1)
-- $buflist2))
--
--(defun helm-c-source-helm-multi-swoop-buffers ()
-- "Show buffer list to select"
-- `((name . "helm-multi-swoop select buffers")
-- (candidates . helm-multi-swoop--get-buffer-list)
-- (header-line . "[C-SPC]/[M-SPC] select, [RET] next step")
-- (keymap . ,helm-multi-swoop-buffers-map)))
--
--;;;###autoload
--(defun helm-multi-swoop (&optional $query $buflist)
-- (interactive)
-- "\
--Usage:
--M-x helm-multi-swoop
--1. Select any buffers by [C-SPC] or [M-SPC]
--2. Press [RET] to start helm-multi-swoop
--
--C-u M-x 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.
--"
-- (cond ($query
-- (setq helm-multi-swoop-query $query))
-- (mark-active
-- (let (($st (buffer-substring-no-properties
-- (region-beginning) (region-end))))
-- (if (string-match "\n" $st)
-- (message "Multi line region is not allowed")
-- (setq helm-multi-swoop-query
-- (helm-swoop-pre-input-optimize $st)))))
-- ((setq helm-multi-swoop-query
-- (helm-swoop-pre-input-optimize
-- (funcall helm-swoop-pre-input-function))))
-- (t (setq helm-multi-swoop-query "")))
-- (if (equal current-prefix-arg '(4))
-- (helm-multi-swoop--exec nil
-- :$query helm-multi-swoop-query
-- :$buflist $buflist)
-- (if $buflist
-- (helm-multi-swoop--exec nil
-- :$query $query
-- :$buflist $buflist)
-- (helm :sources (helm-c-source-helm-multi-swoop-buffers)
-- :buffer helm-multi-swoop-buffer-list
-- :prompt "Mark any buffers by [C-SPC] or [M-SPC]: "))))
--
--;;;###autoload
--(defun helm-multi-swoop-all (&optional $query)
-- (interactive)
-- "Apply all buffers to helm-multi-swoop"
-- (cond ($query
-- (setq helm-multi-swoop-query $query))
-- (mark-active
-- (let (($st (buffer-substring-no-properties
-- (region-beginning) (region-end))))
-- (if (string-match "\n" $st)
-- (message "Multi line region is not allowed")
-- (setq helm-multi-swoop-query
-- (helm-swoop-pre-input-optimize $st)))))
-- ((setq helm-multi-swoop-query
-- (helm-swoop-pre-input-optimize
-- (funcall helm-swoop-pre-input-function))))
-- (t (setq helm-multi-swoop-query "")))
-- (helm-multi-swoop--exec nil
-- :$query helm-multi-swoop-query
-- :$buflist (helm-multi-swoop--get-buffer-list)))
--
--;; option -------------------------------------------------------
--
--(defun helm-multi-swoop-all-from-isearch ()
-- "Invoke `helm-multi-swoop-all' from isearch."
-- (interactive)
-- (let (($query (if isearch-regexp
-- isearch-string
-- (regexp-quote isearch-string))))
-- (isearch-exit)
-- (helm-multi-swoop-all $query)))
--;; When doing isearch, hand the word over to helm-swoop
--;; (define-key isearch-mode-map (kbd "C-x M-i") 'helm-multi-swoop-all-from-isearch)
--
--(defun helm-multi-swoop-all-from-helm-swoop ()
-- "Invoke `helm-multi-swoop-all' from helm-swoop."
-- (interactive)
-- (helm-swoop--restore)
-- (delete-overlay helm-swoop-line-overlay)
-- (setq helm-multi-swoop-all-from-helm-swoop-last-point helm-swoop-last-point)
-- (let (($query helm-pattern))
-- (run-with-timer 0 nil (lambda () (helm-multi-swoop-all $query))))
-- (helm-exit-minibuffer))
--
--(defadvice helm-resume (around helm-multi-swoop-resume activate)
-- "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))
-- ;; Temporary apply second last buffer
-- (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it))
-- ad-do-it))
--
--;;; @ helm-multi-swoop-edit -----------------------------------
--(defvar helm-multi-swoop-edit-save t
-- "Save each buffer you edit when editing is complete")
--(defvar helm-multi-swoop-edit-buffer "*Helm Multi Swoop Edit*")
--
--(defvar helm-multi-swoop-edit-map
-- (let (($map (make-sparse-keymap)))
-- (define-key $map (kbd "C-x C-s") 'helm-multi-swoop--edit-complete)
-- (define-key $map (kbd "C-c C-g") 'helm-multi-swoop--edit-cancel)
-- $map))
--
--(defun helm-multi-swoop--edit ($candidate)
-- "This function will only be called from `helm-swoop-edit'"
-- (interactive)
-- (delete-overlay helm-swoop-line-overlay)
-- (helm-swoop--delete-overlay 'target-buffer)
-- (with-current-buffer (get-buffer-create helm-multi-swoop-edit-buffer)
-- (helm-swoop--clear-edit-buffer 'helm-multi-swoop-edit)
-- (let (($bufstr "") ($mark nil))
-- ;; Get target line number to edit
-- (with-current-buffer helm-multi-swoop-buffer
-- ;; Set overlay to helm-source-header for editing marked lines
-- (save-excursion
-- (goto-char (point-min))
-- (let (($beg (point)) $end)
-- (overlay-recenter (point-max))
-- (while (setq $beg (text-property-any $beg (point-max)
-- 'face 'helm-source-header))
-- (setq $end (next-single-property-change $beg 'face))
-- (overlay-put (make-overlay $beg $end) 'source-header t)
-- (setq $beg $end)
-- (goto-char $end))))
-- ;; Use selected line by [C-SPC] or [M-SPC]
-- (mapc (lambda ($ov)
-- (when (overlay-get $ov 'source-header)
-- (setq $bufstr (concat (buffer-substring
-- (overlay-start $ov) (overlay-end $ov))
-- $bufstr)))
-- (when (eq 'helm-visible-mark (overlay-get $ov 'face))
-- (let (($str (buffer-substring (overlay-start $ov) (overlay-end $ov))))
-- (unless (equal "" $str) (setq $mark t))
-- (setq $bufstr (concat (buffer-substring
-- (overlay-start $ov) (overlay-end $ov))
-- $bufstr)))))
-- (overlays-in (point-min) (point-max)))
-- (if $mark
-- (progn (setq $bufstr (concat "Helm Multi Swoop\n" $bufstr))
-- (setq $mark nil))
-- (setq $bufstr (concat "Helm Multi Swoop\n"
-- (buffer-substring
-- (point-min) (point-max))))))
--
-- ;; Set for edit buffer
-- (insert $bufstr)
-- (add-text-properties (point-min) (point-max)
-- '(read-only t rear-nonsticky t front-sticky t))
--
-- ;; Set for editable context
-- (let ((inhibit-read-only t))
-- ;; Title and explanation
-- (goto-char (point-min))
-- (let (($o (make-overlay (point) (point-at-eol))))
-- (overlay-put $o 'helm-multi-swoop-edit t)
-- (overlay-put $o 'face 'font-lock-function-name-face)
-- (overlay-put $o 'after-string
-- (propertize " [C-x C-s] Complete, [C-c C-g] Cancel"
-- 'face 'helm-bookmark-addressbook)))
-- ;; Line number and editable area
-- (while (re-search-forward "^\\([0-9]+\s\\)\\(.*\\)$" nil t)
-- (let* (($bol1 (match-beginning 1))
-- ($eol1 (match-end 1))
-- ($bol2 (match-beginning 2))
-- ($eol2 (match-end 2)))
--
-- ;; Line number
-- (add-text-properties $bol1 $eol1
-- '(face font-lock-function-name-face
-- intangible t))
-- ;; Editable area
-- (remove-text-properties $bol2 $eol2 '(read-only t))
-- ;; (add-text-properties $bol2 $eol2 '(font-lock-face helm-match))
--
-- ;; For line tail
-- (set-text-properties $eol2 (or (1+ $eol2) (point-max))
-- '(read-only t rear-nonsticky t))))
-- (helm-swoop--target-word-overlay 'edit-buffer 0))))
--
-- (other-window 1)
-- (switch-to-buffer helm-multi-swoop-edit-buffer)
-- (goto-char (point-min))
-- (if (string-match "^[0-9]+" $candidate)
-- (re-search-forward
-- (concat "^" (match-string 0 $candidate)) nil t))
-- (use-local-map helm-multi-swoop-edit-map))
--
--(defun helm-multi-swoop--separate-text-property-into-list ($property)
-- (interactive)
-- (let ($list $end)
-- (save-excursion
-- (goto-char (point-min))
-- (while (setq $end (next-single-property-change (point) $property))
-- ;; Must eliminate last return because of unexpected edit result
-- (setq $list (cons
-- (let (($str (buffer-substring-no-properties (point) $end)))
-- (if (string-match "\n\n\\'" $str)
-- (replace-regexp-in-string "\n\\'" "" $str)
-- $str))
-- $list))
-- (goto-char $end))
-- (setq $list (cons (buffer-substring-no-properties (point) (point-max))
-- $list)))
-- (nreverse $list)))
--
--(defun helm-multi-swoop--collect-edited-lines ()
-- "Create a list of edited lines with each its own line number"
-- (interactive)
-- (let* (($list
-- (helm-multi-swoop--separate-text-property-into-list 'helm-header))
-- ($length (length $list))
-- ($i 1) ;; 0th $list is header
-- $pairs)
-- (while (<= $i $length)
-- (let ($contents)
-- ;; Make ((number . line) (number . line) (number . line) ...)
-- (with-temp-buffer
-- (insert (format "%s" (nth (1+ $i) $list)))
-- (goto-char (point-min))
-- (while (re-search-forward "^\\([0-9]+\\)\s" nil t)
-- (setq $contents
-- (cons (cons (string-to-number (match-string 1))
-- (buffer-substring-no-properties
-- (point)
-- (save-excursion
-- (if (re-search-forward
-- "^\\([0-9]+\\)\s\\|^\\(\\-+\\)" nil t)
-- (1- (match-beginning 0))
-- (goto-char (point-max))
-- (re-search-backward "\n" nil t)))))
-- $contents))))
-- ;; Make ((buffer-name (number . line) (number . line) ...)
-- ;; (buffer-name (number . line) (number . line) ...) ...)
-- (setq $pairs (cons (cons (nth $i $list) $contents) $pairs)))
-- (setq $i (+ $i 2)))
-- (delete '(nil) $pairs)))
--
--(defun helm-multi-swoop--edit-complete ()
-- "Apply changes to buffers and kill temporary edit buffer"
-- (interactive)
-- (let (($list (helm-multi-swoop--collect-edited-lines))
-- $read-only)
-- (mapc (lambda ($x)
-- (with-current-buffer (car $x)
-- (unless buffer-read-only
-- (save-excursion
-- (cl-loop for ($k . $v) in (cdr $x)
-- do (progn
-- (goto-char (point-min))
-- (delete-region (point-at-bol $k) (point-at-eol $k))
-- (goto-char (point-at-bol $k))
-- (insert $v)))))
-- (if helm-multi-swoop-edit-save
-- (if buffer-read-only
-- (setq $read-only t)
-- (save-buffer)))))
-- $list)
-- (select-window helm-swoop-synchronizing-window)
-- (kill-buffer (get-buffer helm-multi-swoop-edit-buffer))
-- (if $read-only
-- (message "Couldn't save some buffers because of read-only")
-- (message "Successfully helm-multi-swoop-edit applied to original buffer"))))
--
--(defun helm-multi-swoop--edit-cancel ()
-- "Cancel edit and kill temporary buffer"
-- (interactive)
-- (select-window helm-swoop-synchronizing-window)
-- (kill-buffer (get-buffer helm-multi-swoop-edit-buffer))
-- (message "helm-multi-swoop-edit canceled"))
--
--;;;###autoload
--(defun helm-multi-swoop-edit ()
-- (interactive)
-- (helm-quit-and-execute-action 'helm-multi-swoop--edit))
--
--;;; @ helm-swoop-same-face-at-point -----------------------------------
--
--(defsubst helm-swoop--get-at-face (&optional $point)
-- (or $point (setq $point (point)))
-- (let (($face (or (get-char-property $point 'read-face-name)
-- (get-char-property $point 'face))))
-- $face))
--
--(defun helm-swoop--cull-face-include-line ($face)
-- (let (($list) ($po (point-min)))
-- (save-excursion
-- (while (setq $po (next-single-property-change $po 'face))
-- (when (equal $face (helm-swoop--get-at-face $po))
-- (goto-char $po)
-- (setq $list (cons (format "%s %s"
-- (line-number-at-pos $po)
-- (buffer-substring (point-at-bol) (point-at-eol)))
-- $list))
-- (let (($ov (make-overlay $po (or (next-single-property-change $po 'face)
-- (point-max)))))
-- (overlay-put $ov 'face 'helm-swoop-target-word-face)
-- (overlay-put $ov 'target-buffer 'helm-swoop-target-word-face)))))
-- (nreverse (delete-dups $list))))
--
--(defun helm-swoop-same-face-at-point (&optional $face)
-- (interactive)
-- (or $face (setq $face (helm-swoop--get-at-face)))
-- (helm-swoop :$query ""
-- :$source
-- `((name . "helm-swoop-same-face-at-point")
-- (candidates . ,(helm-swoop--cull-face-include-line $face))
-- (header-line . ,(format "%s" $face))
-- (action . (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))))))
--
--(defun helm-multi-swoop-same-face-at-point (&optional $face)
-- (interactive)
-- (or $face (setq $face (helm-swoop--get-at-face)))
-- (helm-multi-swoop--exec
-- nil
-- :$query ""
-- :$func (lambda () (helm-swoop--cull-face-include-line $face))
-- :$action (lambda ($line)
-- (switch-to-buffer (assoc-default 'name (helm-get-current-source)))
-- (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))
-- :$buflist (helm-multi-swoop--get-buffer-list)))
--
--(provide 'helm-swoop)
--;;; helm-swoop.el ends here
--- /dev/null
--- /dev/null
++;;; helm-swoop-autoloads.el --- automatically extracted autoloads
++;;
++;;; Code:
++(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
++\f
++;;;### (autoloads nil "helm-swoop" "helm-swoop.el" (21913 4100 0
++;;;;;; 0))
++;;; Generated autoloads from helm-swoop.el
++
++(autoload 'helm-swoop-back-to-last-point "helm-swoop" "\
++Go back to last position where `helm-swoop' was called
++
++\(fn &optional $CANCEL)" t nil)
++
++(autoload 'helm-swoop "helm-swoop" "\
++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))" t nil)
++
++(autoload 'helm-swoop-from-isearch "helm-swoop" "\
++Invoke `helm-swoop' from isearch.
++
++\(fn)" t nil)
++
++(autoload 'helm-multi-swoop "helm-swoop" "\
++Usage:
++M-x helm-multi-swoop
++1. Select any buffers by [C-SPC] or [M-SPC]
++2. Press [RET] to start helm-multi-swoop
++
++C-u M-x 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)" t nil)
++
++(autoload 'helm-multi-swoop-all "helm-swoop" "\
++Apply all buffers to helm-multi-swoop
++
++\(fn &optional $QUERY)" t nil)
++
++(autoload 'helm-multi-swoop-org "helm-swoop" "\
++Applies all org-mode buffers to helm-multi-swoop
++
++\(fn &optional $QUERY)" t nil)
++
++(autoload 'helm-multi-swoop-current-mode "helm-swoop" "\
++Applies all buffers of the same mode as the current buffer to helm-multi-swoop
++
++\(fn &optional $QUERY)" t nil)
++
++(autoload 'helm-multi-swoop-edit "helm-swoop" "\
++
++
++\(fn)" t nil)
++
++;;;***
++\f
++;; Local Variables:
++;; version-control: never
++;; no-byte-compile: t
++;; no-update-autoloads: t
++;; End:
++;;; helm-swoop-autoloads.el ends here
--- /dev/null
--- /dev/null
++(define-package "helm-swoop" "20150704.839" "Efficiently hopping squeezed lines powered by helm interface" '((helm "1.0") (emacs "24")) :url "https://github.com/ShingoFukuyama/helm-swoop" :keywords '("helm" "swoop" "inner" "buffer" "search"))
--- /dev/null
--- /dev/null
++;;; helm-swoop.el --- Efficiently hopping squeezed lines powered by helm interface -*- coding: utf-8; lexical-binding: t -*-
++
++;; Copyright (C) 2013 by Shingo Fukuyama
++
++;; Version: 1.6.0
++;; Package-Version: 20150704.839
++;; Author: Shingo Fukuyama - http://fukuyama.co
++;; URL: https://github.com/ShingoFukuyama/helm-swoop
++;; Created: Oct 24 2013
++;; Keywords: helm swoop inner buffer search
++;; Package-Requires: ((helm "1.0") (emacs "24"))
++
++;; This program is free software; you can redistribute it and/or
++;; modify it under the terms of the GNU General Public License as
++;; published by the Free Software Foundation; either version 2 of
++;; the License, or (at your option) any later version.
++
++;; This program is distributed in the hope that it will be
++;; useful, but WITHOUT ANY WARRANTY; without even the implied
++;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
++;; PURPOSE. See the GNU General Public License for more details.
++
++;;; Commentary:
++
++;; 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.
++
++;; Example config
++;; ----------------------------------------------------------------
++;; ;; helm from https://github.com/emacs-helm/helm
++;; (require 'helm)
++
++;; ;; Locate the helm-swoop folder to your path
++;; ;; This line is unnecessary if you get this program from MELPA
++;; (add-to-list 'load-path "~/.emacs.d/elisp/helm-swoop")
++
++;; (require 'helm-swoop)
++
++;; ;; Change keybinds to whatever you like :)
++;; (global-set-key (kbd "M-i") 'helm-swoop)
++;; (global-set-key (kbd "M-I") 'helm-swoop-back-to-last-point)
++;; (global-set-key (kbd "C-c M-i") 'helm-multi-swoop)
++;; (global-set-key (kbd "C-x M-i") 'helm-multi-swoop-all)
++
++;; ;; When doing isearch, hand the word over to helm-swoop
++;; (define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
++;; (define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
++
++;; ;; Save buffer when helm-multi-swoop-edit complete
++;; (setq helm-multi-swoop-edit-save t)
++
++;; ;; If this value is t, split window inside the current window
++;; (setq helm-swoop-split-with-multiple-windows nil)
++
++;; ;; Split direction. 'split-window-vertically or 'split-window-horizontally
++;; (setq helm-swoop-split-direction 'split-window-vertically)
++
++;; ;; If nil, you can slightly boost invoke speed in exchange for text color
++;; (setq helm-swoop-speed-or-color nil)
++
++;; ;; Go to the opposite side of line from the end or beginning of line
++;; (setq helm-swoop-move-to-line-cycle t)
++
++;; ;; Optional face for line numbers
++;; ;; Face name is `helm-swoop-line-number-face`
++;; (setq helm-swoop-use-line-number-face t)
++
++;; ----------------------------------------------------------------
++
++;; * `M-x helm-swoop` when region active
++;; * `M-x helm-swoop` when the cursor is at any symbol
++;; * `M-x helm-swoop` when the cursor is not at any symbol
++;; * `M-3 M-x helm-swoop` or `C-u 5 M-x helm-swoop` multi separated line culling
++;; * `M-x helm-multi-swoop` multi-occur like feature
++;; * `M-x helm-multi-swoop-all` apply all buffers
++;; * `C-u M-x helm-multi-swoop` apply last selected buffers from the second time
++;; * `M-x helm-swoop-same-face-at-point` list lines have the same face at the cursor is on
++;; * During isearch `M-i` to hand the word over to helm-swoop
++;; * During helm-swoop `M-i` to hand the word over to helm-multi-swoop-all
++;; * While doing `helm-swoop` press `C-c C-e` to edit mode, apply changes to original buffer by `C-x C-s`
++
++;; Helm Swoop Edit
++;; While doing helm-swoop, press keybind [C-c C-e] to move to edit buffer.
++;; Edit the list and apply by [C-x C-s]. If you'd like to cancel, [C-c C-g]
++
++;;; Code:
++
++(require 'cl-lib)
++(require 'helm)
++(require 'helm-utils)
++
++(declare-function migemo-search-pattern-get "migemo")
++
++;;; @ helm-swoop ----------------------------------------------
++
++(defgroup helm-swoop nil
++ "Open helm-swoop."
++ :prefix "helm-swoop-" :group 'helm)
++
++(defface helm-swoop-target-line-face
++ '((t (:background "#e3e300" :foreground "#222222")))
++ "Face for helm-swoop target line"
++ :group 'helm-swoop)
++(defface helm-swoop-target-line-block-face
++ '((t (:background "#cccc00" :foreground "#222222")))
++ "Face for target line"
++ :group 'helm-swoop)
++(defface helm-swoop-target-word-face
++ '((t (:background "#7700ff" :foreground "#ffffff")))
++ "Face for target word"
++ :group 'helm-swoop)
++(defface helm-swoop-line-number-face
++ '((t (:foreground "#999999")))
++ "Face for line numbers"
++ :group 'helm-swoop)
++
++(defcustom helm-swoop-speed-or-color nil
++ "If nil, you can slightly boost invoke speed in exchange for text color"
++ :group 'helm-swoop :type 'boolean)
++(defcustom helm-swoop-use-line-number-face nil
++ "Use face to line numbers on helm-swoop buffer"
++ :group 'helm-swoop :type 'boolean)
++(defcustom helm-swoop-split-with-multiple-windows nil
++ "Split window when having multiple windows open"
++ :group 'helm-swoop :type 'boolean)
++(defcustom helm-swoop-move-to-line-cycle t
++ "Return to the opposite side of line"
++ :group 'helm-swoop :type 'boolean)
++(defcustom helm-swoop-split-direction 'split-window-vertically
++ "Split direction"
++ :type '(choice (const :tag "vertically" split-window-vertically)
++ (const :tag "horizontally" split-window-horizontally))
++ :group 'helm-swoop)
++
++(defvar helm-swoop-split-window-function
++ (lambda ($buf)
++ (if helm-swoop-split-with-multiple-windows
++ (funcall helm-swoop-split-direction)
++ (when (one-window-p)
++ (funcall helm-swoop-split-direction)))
++ (other-window 1)
++ (switch-to-buffer $buf))
++ "Change the way to split window only when `helm-swoop' is calling")
++
++(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)
++
++;; Buffer local variables
++(defvar helm-swoop-cache)
++(defvar helm-swoop-list-cache)
++(defvar helm-swoop-pattern) ; Keep helm-pattern value
++(defvar helm-swoop-last-query) ; Last search query for resume
++(defvar helm-swoop-last-prefix-number) ; For multiline highlight
++
++;; Global variables
++(defvar helm-swoop-synchronizing-window nil
++ "Window object where `helm-swoop' called from")
++(defvar helm-swoop-target-buffer nil
++ "Buffer object where `helm-swoop' called from")
++(defvar helm-swoop-line-overlay nil
++ "Overlay object to indicate other window's line")
++
++(defvar helm-swoop-map
++ (let (($map (make-sparse-keymap)))
++ (set-keymap-parent $map helm-map)
++ (define-key $map (kbd "C-c C-e") 'helm-swoop-edit)
++ (define-key $map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
++ (define-key $map (kbd "C-w") 'helm-swoop-yank-thing-at-point)
++ (delq nil $map))
++ "Keymap for helm-swoop")
++
++(defvar helm-multi-swoop-map
++ (let (($map (make-sparse-keymap)))
++ (set-keymap-parent $map helm-map)
++ (define-key $map (kbd "C-c C-e") 'helm-multi-swoop-edit)
++ (delq nil $map)))
++
++(defcustom helm-swoop-pre-input-function
++ (lambda () (thing-at-point 'symbol))
++ "This function can pre-input keywords when helm-swoop invoked"
++ :group 'helm-swoop :type 'function)
++
++(defun helm-swoop-pre-input-optimize ($query)
++ (when $query
++ (let (($regexp (list '("\+" . "\\\\+")
++ '("\*" . "\\\\*")
++ '("\#" . "\\\\#"))))
++ (mapc (lambda ($r)
++ (setq $query (replace-regexp-in-string (car $r) (cdr $r) $query)))
++ $regexp)
++ $query)))
++
++(defsubst helm-swoop--goto-line ($line)
++ (goto-char (point-min))
++ (forward-line (1- $line)))
++
++(defsubst helm-swoop--recenter ()
++ (recenter (/ (window-height) 2)))
++
++(defsubst helm-swoop--delete-overlay ($identity &optional $beg $end)
++ (or $beg (setq $beg (point-min)))
++ (or $end (setq $end (point-max)))
++ (overlay-recenter $end)
++ (mapc (lambda ($o)
++ (if (overlay-get $o $identity)
++ (delete-overlay $o)))
++ (overlays-in $beg $end)))
++
++(defsubst helm-swoop--get-string-at-line ()
++ (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
++
++(defsubst helm-swoop--buffer-substring ($point-min $point-max)
++ (if helm-swoop-speed-or-color
++ (let (($content (buffer-substring $point-min $point-max)))
++ (with-temp-buffer
++ (let ((inhibit-read-only t))
++ (insert $content)
++ (remove-text-properties (point-min) (point-max) '(read-only t))
++ (setq $content (buffer-substring (point-min) (point-max)))))
++ $content)
++ (buffer-substring-no-properties $point-min $point-max)))
++
++;;;###autoload
++(defun helm-swoop-back-to-last-point (&optional $cancel)
++ "Go back to last position where `helm-swoop' was called"
++ (interactive)
++ (if helm-swoop-last-point
++ (let (($po (point)))
++ (switch-to-buffer (cdr helm-swoop-last-point))
++ (goto-char (car helm-swoop-last-point))
++ (unless $cancel
++ (setq helm-swoop-last-point
++ (cons $po (buffer-name (current-buffer))))))))
++
++(defun helm-swoop--split-lines-by ($string $regexp $step)
++ "split-string by $step for multiline"
++ (or $step (setq $step 1))
++ (let (($from1 0) ;; last match point
++ ($from2 0) ;; last substring point
++ $list
++ ($i 1)) ;; from line 1
++ (while (string-match $regexp $string $from1)
++ (setq $i (1+ $i))
++ (if (eq 0 (% $i $step))
++ (progn
++ (setq $list (cons (substring $string $from2 (match-beginning 0))
++ $list))
++ (setq $from2 (match-end 0))
++ (setq $from1 (match-end 0)))
++ (setq $from1 (match-end 0))))
++ (setq $list (cons (substring $string $from2) $list))
++ (nreverse $list)))
++
++(defun helm-swoop--target-line-overlay-move ()
++ "Add color to the target line"
++ (move-overlay
++ helm-swoop-line-overlay
++ (progn
++ (search-backward
++ "\n" nil t (% (line-number-at-pos) helm-swoop-last-prefix-number))
++ (goto-char (point-at-bol)))
++ ;; For multiline highlight
++ (save-excursion
++ (goto-char (point-at-bol))
++ (or (re-search-forward "\n" nil t helm-swoop-last-prefix-number)
++ ;; For the end of buffer error
++ (point-max))))
++ (helm-swoop--unveil-invisible-overlay))
++
++(defun helm-swoop--validate-regexp (regexp)
++ (condition-case nil
++ (progn
++ (string-match-p regexp "")
++ t)
++ (invalid-regexp nil)))
++
++(defun helm-swoop--target-word-overlay ($identity &optional $threshold)
++ (interactive)
++ (or $threshold (setq $threshold 2))
++ (save-excursion
++ (let (($pat (split-string helm-pattern " "))
++ $o)
++ (mapc (lambda ($wd)
++ (when (and (helm-swoop--validate-regexp $wd) (< $threshold (length $wd)))
++ (goto-char (point-min))
++ ;; Optional require migemo.el & helm-migemo.el
++ (if (and (featurep 'migemo) (featurep 'helm-migemo))
++ (setq $wd (migemo-search-pattern-get $wd)))
++ ;; For caret begging match
++ (if (string-match "^\\^\\[0\\-9\\]\\+\\.\\(.+\\)" $wd)
++ (setq $wd (concat "^" (match-string 1 $wd))))
++ (overlay-recenter (point-max))
++ (let (finish)
++ (while (and (not finish) (re-search-forward $wd nil t))
++ (if (= (match-beginning 0) (match-end 0))
++ (forward-char 1)
++ (setq $o (make-overlay (match-beginning 0) (match-end 0)))
++ (overlay-put $o 'face 'helm-swoop-target-word-face)
++ (overlay-put $o $identity t))
++ (when (eobp)
++ (setq finish t))))))
++ $pat))))
++
++(defun helm-swoop--restore-unveiled-overlay ()
++ (when helm-swoop-invisible-targets
++ (mapc (lambda ($ov) (overlay-put (car $ov) 'invisible (cdr $ov)))
++ helm-swoop-invisible-targets)
++ (setq helm-swoop-invisible-targets nil)))
++
++(defun helm-swoop--unveil-invisible-overlay ()
++ "Show hidden text temporarily to view it during helm-swoop.
++This function needs to call after latest helm-swoop-line-overlay set."
++ (helm-swoop--restore-unveiled-overlay)
++ (mapc (lambda ($ov)
++ (let (($type (overlay-get $ov 'invisible)))
++ (when $type
++ (overlay-put $ov 'invisible nil)
++ (setq helm-swoop-invisible-targets
++ (cons (cons $ov $type) helm-swoop-invisible-targets)))))
++ (overlays-in (overlay-start helm-swoop-line-overlay)
++ (overlay-end helm-swoop-line-overlay))))
++
++;; helm action ------------------------------------------------
++
++(defadvice helm-next-line (around helm-swoop-next-line disable)
++ (let ((helm-move-to-line-cycle-in-source t))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-swoop--move-line-action))))
++
++(defadvice helm-previous-line (around helm-swoop-previous-line disable)
++ (let ((helm-move-to-line-cycle-in-source t))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-swoop--move-line-action))))
++
++(defadvice helm-toggle-visible-mark (around helm-swoop-toggle-visible-mark disable)
++ (let ((helm-move-to-line-cycle-in-source t))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-swoop--move-line-action))))
++
++(defun helm-swoop--move-line-action ()
++ (with-helm-window
++ (let* (($key (helm-swoop--get-string-at-line))
++ ($num (when (string-match "^[0-9]+" $key)
++ (string-to-number (match-string 0 $key)))))
++ ;; Synchronizing line position
++ (when (and $key $num)
++ (with-selected-window helm-swoop-synchronizing-window
++ (progn
++ (helm-swoop--goto-line $num)
++ (with-current-buffer helm-swoop-target-buffer
++ (delete-overlay helm-swoop-line-overlay)
++ (helm-swoop--target-line-overlay-move))
++ (helm-swoop--recenter)))
++ (setq helm-swoop-last-line-info
++ (cons helm-swoop-target-buffer $num))))))
++
++(defun helm-swoop--nearest-line ($target $list)
++ "Return the nearest number of $target out of $list."
++ (when (and $target $list)
++ (let ($result)
++ (cl-labels ((filter ($fn $elem $list)
++ (let ($r)
++ (mapc (lambda ($e)
++ (if (funcall $fn $elem $e)
++ (setq $r (cons $e $r))))
++ $list) $r)))
++ (if (eq 1 (length $list))
++ (setq $result (car $list))
++ (let* (($lts (filter '> $target $list))
++ ($gts (filter '< $target $list))
++ ($lt (if $lts (apply 'max $lts)))
++ ($gt (if $gts (apply 'min $gts)))
++ ($ltg (if $lt (- $target $lt)))
++ ($gtg (if $gt (- $gt $target))))
++ (setq $result
++ (cond ((memq $target $list) $target)
++ ((and (not $lt) (not $gt)) nil)
++ ((not $gtg) $lt)
++ ((not $ltg) $gt)
++ ((eq $ltg $gtg) $gt)
++ ((< $ltg $gtg) $lt)
++ ((> $ltg $gtg) $gt)
++ (t 1))))))
++ $result)))
++
++(defun helm-swoop--keep-nearest-position ()
++ (with-helm-window
++ (let (($p (point-min)) $list $bound
++ $nearest-line $target-point
++ ($buf (rx-to-string (buffer-name (car helm-swoop-last-line-info)) t)))
++ (save-excursion
++ (goto-char $p)
++ (while (if $p (setq $p (re-search-forward (concat "^" $buf "$") nil t)))
++ (when (get-text-property (point-at-bol) 'helm-header)
++ (forward-char 1)
++ (setq $bound (next-single-property-change (point) 'helm-header))
++ (while (re-search-forward "^[0-9]+" $bound t)
++ (setq $list (cons
++ (string-to-number (match-string 0))
++ $list)))
++ (setq $nearest-line (helm-swoop--nearest-line
++ (cdr helm-swoop-last-line-info)
++ $list))
++ (goto-char $p)
++ (re-search-forward (concat "^"
++ (number-to-string $nearest-line)
++ "\\s-") $bound t)
++ (setq $target-point (point))
++ (setq $p nil))))
++ (when $target-point
++ (goto-char $target-point)
++ (helm-mark-current-line)
++ (if (equal helm-swoop-buffer (buffer-name (current-buffer)))
++ (helm-swoop--move-line-action)
++ (helm-multi-swoop--move-line-action))))))
++
++(defun helm-swoop--pattern-match ()
++ "Overlay target words"
++ (with-helm-window
++ (setq helm-swoop-pattern helm-pattern)
++ (when (< 2 (length helm-pattern))
++ (helm-swoop--delete-overlay 'target-buffer)
++ (helm-swoop--target-word-overlay 'target-buffer)
++ (with-selected-window helm-swoop-synchronizing-window
++ (helm-swoop--delete-overlay 'target-buffer)
++ (helm-swoop--target-word-overlay 'target-buffer)))))
++
++;; core ------------------------------------------------
++
++(defun helm-swoop--get-content (&optional $linum)
++ "Get the whole content in buffer and add line number at the head.
++If $linum is number, lines are separated by $linum"
++ (let (($bufstr (helm-swoop--buffer-substring (point-min) (point-max)))
++ $return)
++ (with-temp-buffer
++ (insert $bufstr)
++ (goto-char (point-min))
++ (let (($i 1))
++ (insert (format "%s " $i))
++ (while (re-search-forward "\n" nil t)
++ (cl-incf $i)
++ (if helm-swoop-use-line-number-face
++ (insert (propertize (format "%s" $i) 'font-lock-face 'helm-swoop-line-number-face) " ")
++ (insert (format "%s " $i))))
++ ;; Delete empty lines
++ (unless $linum
++ (goto-char (point-min))
++ (while (re-search-forward "^[0-9]+\\s-*$" nil t)
++ (replace-match ""))))
++ (setq $return (helm-swoop--buffer-substring (point-min) (point-max))))
++ $return))
++
++(defun helm-c-source-swoop ()
++ `((name . ,(buffer-name (current-buffer)))
++ (init . (lambda ()
++ (unless helm-swoop-cache
++ (with-current-buffer (helm-candidate-buffer 'local)
++ (insert ,(helm-swoop--get-content)))
++ (setq helm-swoop-cache t))))
++ (candidates-in-buffer)
++ (get-line . ,(if helm-swoop-speed-or-color
++ 'helm-swoop--buffer-substring
++ 'buffer-substring-no-properties))
++ (keymap . ,helm-swoop-map)
++ (header-line . "[C-c C-e] Edit mode, [M-i] apply all buffers")
++ (action . (lambda ($line)
++ (helm-swoop--goto-line
++ (when (string-match "^[0-9]+" $line)
++ (string-to-number (match-string 0 $line))))
++ (let (($regex (mapconcat 'identity
++ (split-string helm-pattern " ")
++ "\\|")))
++ (when (or (and (and (featurep 'migemo) (featurep 'helm-migemo))
++ (migemo-forward $regex nil t))
++ (re-search-forward $regex nil t))
++ (goto-char (match-beginning 0))))
++ (helm-swoop--recenter)))
++ (migemo) ;;? in exchange for those matches ^ $ [0-9] .*
++ ))
++
++(defun helm-c-source-multi-swoop ($buf $func $action)
++ `((name . ,$buf)
++ (candidates . ,(funcall $func))
++ (action . ,$action)
++ (header-line . ,(concat $buf " [C-c C-e] Edit mode"))
++ (keymap . ,helm-multi-swoop-map)
++ (requires-pattern . 2)
++ (migemo)))
++
++(defun helm-c-source-swoop-multiline ($linum)
++ `((name . ,(buffer-name (current-buffer)))
++
++ (candidates . ,(if helm-swoop-list-cache
++ (progn
++ (helm-swoop--split-lines-by
++ helm-swoop-list-cache "\n" $linum))
++ (helm-swoop--split-lines-by
++ (setq helm-swoop-list-cache
++ (helm-swoop--get-content t))
++ "\n" $linum)))
++ (keymap . ,helm-swoop-map)
++ (action . (lambda ($line)
++ (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)
++ (goto-char (match-beginning 0)))
++ (helm-swoop--recenter)))
++ (multiline)
++ (migemo)))
++
++(defun helm-swoop--set-prefix (&optional $multiline)
++ ;; Enable scrolling margin
++ (if (boundp 'helm-swoop-last-prefix-number)
++ (setq helm-swoop-last-prefix-number
++ (or $multiline 1)) ;; $multiline is for resume
++ (set (make-local-variable 'helm-swoop-last-prefix-number)
++ (or $multiline 1))))
++(helm-swoop--set-prefix) ;; Silence error "Warning: reference to free variable"
++
++;; Delete cache when modified file is saved
++(defun helm-swoop--clear-cache ()
++ (if (boundp 'helm-swoop-cache) (setq helm-swoop-cache nil))
++ (if (boundp 'helm-swoop-list-cache) (setq helm-swoop-list-cache nil)))
++(add-hook 'after-save-hook 'helm-swoop--clear-cache)
++
++(defadvice narrow-to-region (around helm-swoop-advice-narrow-to-region activate)
++ (helm-swoop--clear-cache)
++ ad-do-it)
++
++(defadvice widen (around helm-swoop-advice-widen activate)
++ (helm-swoop--clear-cache)
++ ad-do-it)
++
++(defun helm-swoop--restore ()
++ (when (= 1 helm-exit-status)
++ (helm-swoop-back-to-last-point t)
++ (helm-swoop--restore-unveiled-overlay))
++ (setq helm-swoop-invisible-targets nil)
++ (ad-disable-advice 'helm-next-line 'around 'helm-swoop-next-line)
++ (ad-activate 'helm-next-line)
++ (ad-disable-advice 'helm-previous-line 'around 'helm-swoop-previous-line)
++ (ad-activate 'helm-previous-line)
++ (ad-disable-advice 'helm-toggle-visible-mark 'around 'helm-swoop-toggle-visible-mark)
++ (ad-activate 'helm-toggle-visible-mark)
++ (ad-disable-advice 'helm-move--next-line-fn 'around
++ 'helm-multi-swoop-next-line-cycle)
++ (ad-activate 'helm-move--next-line-fn)
++ (ad-disable-advice 'helm-move--previous-line-fn 'around
++ 'helm-multi-swoop-previous-line-cycle)
++ (ad-activate 'helm-move--previous-line-fn)
++ (remove-hook 'helm-update-hook 'helm-swoop--pattern-match)
++ (remove-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position)
++ (setq helm-swoop-last-query helm-swoop-pattern)
++ (mapc (lambda ($ov)
++ (when (or (eq 'helm-swoop-target-line-face (overlay-get $ov 'face))
++ (eq 'helm-swoop-target-line-block-face
++ (overlay-get $ov 'face)))
++ (delete-overlay $ov)))
++ (overlays-in (point-min) (point-max)))
++ (helm-swoop--delete-overlay 'target-buffer)
++ (deactivate-mark t))
++
++;;;###autoload
++(cl-defun helm-swoop (&key $query $source ($multiline current-prefix-arg))
++ "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."
++ (interactive)
++ (setq helm-swoop-synchronizing-window (selected-window))
++ (setq helm-swoop-last-point (cons (point) (buffer-name (current-buffer))))
++ (setq helm-swoop-last-line-info
++ (cons (current-buffer) (line-number-at-pos)))
++ (unless (boundp 'helm-swoop-last-query)
++ (set (make-local-variable 'helm-swoop-last-query) ""))
++ (setq helm-swoop-target-buffer (current-buffer))
++ (helm-swoop--set-prefix (prefix-numeric-value $multiline))
++ ;; Overlay
++ (setq helm-swoop-line-overlay (make-overlay (point) (point)))
++ (overlay-put helm-swoop-line-overlay
++ 'face (if (< 1 helm-swoop-last-prefix-number)
++ 'helm-swoop-target-line-block-face
++ 'helm-swoop-target-line-face))
++ ;; Cache
++ (cond ((not (boundp 'helm-swoop-cache))
++ ;; first time of a buffer
++ (set (make-local-variable 'helm-swoop-cache) nil))
++ ((buffer-modified-p)
++ (setq helm-swoop-cache nil)))
++ ;; Cache for multiline
++ (cond ((not (boundp 'helm-swoop-list-cache))
++ (set (make-local-variable 'helm-swoop-list-cache) nil))
++ ((buffer-modified-p)
++ (setq helm-swoop-list-cache nil)))
++ (unwind-protect
++ (progn
++ ;; For synchronizing line position
++ (ad-enable-advice 'helm-next-line 'around 'helm-swoop-next-line)
++ (ad-activate 'helm-next-line)
++ (ad-enable-advice 'helm-previous-line 'around 'helm-swoop-previous-line)
++ (ad-activate 'helm-previous-line)
++ (ad-enable-advice 'helm-toggle-visible-mark 'around 'helm-swoop-toggle-visible-mark)
++ (ad-activate 'helm-toggle-visible-mark)
++ (ad-enable-advice 'helm-move--next-line-fn 'around
++ 'helm-multi-swoop-next-line-cycle)
++ (ad-activate 'helm-move--next-line-fn)
++ (ad-enable-advice 'helm-move--previous-line-fn 'around
++ 'helm-multi-swoop-previous-line-cycle)
++ (ad-activate 'helm-move--previous-line-fn)
++ (add-hook 'helm-update-hook 'helm-swoop--pattern-match)
++ (add-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position t)
++ (cond ($query
++ (if (string-match
++ "\\(\\^\\[0\\-9\\]\\+\\.\\)\\(.*\\)" $query)
++ $query ;; NEED FIX #1 to appear as a "^"
++ $query))
++ (mark-active
++ (let (($st (buffer-substring-no-properties
++ (region-beginning) (region-end))))
++ (if (string-match "\n" $st)
++ (message "Multi line region is not allowed")
++ (setq $query (helm-swoop-pre-input-optimize $st)))))
++ ((setq $query (helm-swoop-pre-input-optimize
++ (funcall helm-swoop-pre-input-function))))
++ (t (setq $query "")))
++ ;; First behavior
++ (helm-swoop--recenter)
++ (move-beginning-of-line 1)
++ (helm-swoop--target-line-overlay-move)
++ ;; Execute helm
++ (let ((helm-display-function helm-swoop-split-window-function)
++ (helm-display-source-at-screen-top nil)
++ (helm-completion-window-scroll-margin 5))
++ (helm :sources
++ (or $source
++ (if (> helm-swoop-last-prefix-number 1)
++ (helm-c-source-swoop-multiline helm-swoop-last-prefix-number)
++ (helm-c-source-swoop)))
++ :buffer helm-swoop-buffer
++ :input $query
++ :prompt helm-swoop-prompt
++ :preselect
++ ;; Get current line has content or else near one
++ (if (string-match "^[\t\n\s]*$" (helm-swoop--get-string-at-line))
++ (save-excursion
++ (if (re-search-forward "[^\t\n\s]" nil t)
++ (format "^%s\s" (line-number-at-pos))
++ (re-search-backward "[^\t\n\s]" nil t)
++ (format "^%s\s" (line-number-at-pos))))
++ (format "^%s\s" (line-number-at-pos)))
++ :candidate-number-limit helm-swoop-candidate-number-limit)))
++ ;; Restore helm's hook and window function etc
++ (helm-swoop--restore)))
++
++;; Receive word from isearch ---------------
++;;;###autoload
++(defun helm-swoop-from-isearch ()
++ "Invoke `helm-swoop' from isearch."
++ (interactive)
++ (let (($query (if isearch-regexp
++ isearch-string
++ (regexp-quote isearch-string))))
++ (isearch-exit)
++ (helm-swoop :$query $query)))
++;; When doing isearch, hand the word over to helm-swoop
++(define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
++
++;; Receive word from evil search ---------------
++(defun helm-swoop-from-evil-search ()
++ "Invoke `helm-swoop' from evil isearch"
++ (interactive)
++ (if (string-match "\\(isearch-\\|evil.*search\\)" (symbol-name real-last-command))
++ (helm-swoop :$query (if isearch-regexp
++ isearch-string
++ (regexp-quote isearch-string)))
++ (helm-swoop)))
++;; When doing evil-search, hand the word over to helm-swoop
++;; (define-key evil-motion-state-map (kbd "M-i") 'helm-swoop-from-evil-search)
++
++;; Receive word from evil search ---------------
++(defun helm-swoop-yank-thing-at-point ()
++ "Insert string at which the point helm-swoop started."
++ (interactive)
++ (let ($amend)
++ (with-selected-window helm-swoop-synchronizing-window
++ (with-current-buffer (get-buffer (cdr helm-swoop-last-point))
++ (save-excursion
++ (goto-char (car helm-swoop-last-point))
++ (setq $amend (thing-at-point 'symbol)))))
++ (when $amend
++ (with-selected-window (minibuffer-window)
++ (insert $amend)))))
++
++;; For helm-resume ------------------------
++(defadvice helm-resume-select-buffer
++ (around helm-swoop-if-selected-as-resume activate)
++ "Resume if *Helm Swoop* buffer selected as a resume
++ when helm-resume with prefix"
++ (if (boundp 'helm-swoop-last-query)
++ ad-do-it
++ ;; If the buffer hasn't called helm-swoop, just hide from options
++ (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)))
++
++(defadvice helm-resume (around helm-swoop-resume activate)
++ "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))
++ ;; Temporary apply second last buffer
++ (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it))
++ ad-do-it))
++
++;; For caret beginning-match -----------------------------
++(defun helm-swoop--caret-match-delete ($o $aft $beg $end &optional $len)
++ (if $aft
++ (- $end $beg $len) ;; Unused argument? To avoid byte compile error
++ (delete-region (overlay-start $o) (1- (overlay-end $o)))))
++
++(defun helm-swoop-caret-match (&optional _$resume)
++ (interactive)
++ (let* (($prompt helm-swoop-prompt) ;; Accept change of the variable
++ ($line-number-regexp "^[0-9]+.")
++ ($prompt-regexp
++ (funcall `(lambda ()
++ (rx bol ,$prompt))))
++ ($prompt-regexp-with-line-number
++ (funcall `(lambda ()
++ (rx bol ,$prompt (group ,$line-number-regexp)))))
++ ($disguise-caret
++ (lambda ()
++ (save-excursion
++ (re-search-backward $prompt-regexp-with-line-number nil t)
++ (let (($o (make-overlay (match-beginning 1) (match-end 1))))
++ (overlay-put $o 'face 'helm-swoop-target-word-face)
++ (overlay-put $o 'modification-hooks '(helm-swoop--caret-match-delete))
++ (overlay-put $o 'display "^")
++ (overlay-put $o 'evaporate t))))))
++ (if (and (minibufferp)
++ (string-match $prompt-regexp
++ (buffer-substring-no-properties
++ (point-min) (point-max)))
++ (eq (point) (+ 1 (length helm-swoop-prompt))))
++ (progn
++ (insert $line-number-regexp)
++ (funcall $disguise-caret))
++ (insert "^"))))
++
++(unless (featurep 'helm-migemo)
++ (define-key helm-map (kbd "^") 'helm-swoop-caret-match))
++
++;;; @ helm-swoop-edit -----------------------------------------
++
++(defvar helm-swoop-edit-target-buffer)
++(defvar helm-swoop-edit-buffer "*Helm Swoop Edit*")
++(defvar helm-swoop-edit-map
++ (let (($map (make-sparse-keymap)))
++ (define-key $map (kbd "C-x C-s") 'helm-swoop--edit-complete)
++ (define-key $map (kbd "C-c C-g") 'helm-swoop--edit-cancel)
++ $map))
++
++(defun helm-swoop--clear-edit-buffer ($prop)
++ (let ((inhibit-read-only t))
++ (mapc (lambda ($ov)
++ (when (overlay-get $ov $prop)
++ (delete-overlay $ov)))
++ (overlays-in (point-min) (point-max)))
++ (set-text-properties (point-min) (point-max) nil)
++ (goto-char (point-min))
++ (erase-buffer)))
++
++(defun helm-swoop--collect-edited-lines ()
++ "Create a list of edited lines with each its own line number"
++ (interactive)
++ (let ($list)
++ (goto-char (point-min))
++ (while (re-search-forward "^\\([0-9]+\\)\s" nil t)
++ (setq $list
++ (cons (cons (string-to-number (match-string 1))
++ (buffer-substring-no-properties
++ (point)
++ (save-excursion
++ (if (re-search-forward
++ "^\\([0-9]+\\)\s\\|^\\(\\-+\\)" nil t)
++ (1- (match-beginning 0))
++ (goto-char (point-max))
++ (re-search-backward "\n" nil t)))))
++ $list)))
++ $list))
++
++(defun helm-swoop--edit ($candidate)
++ "This function will only be called from `helm-swoop-edit'"
++ (interactive)
++ (setq helm-swoop-edit-target-buffer helm-swoop-target-buffer)
++ (delete-overlay helm-swoop-line-overlay)
++ (helm-swoop--delete-overlay 'target-buffer)
++ (with-current-buffer (get-buffer-create helm-swoop-edit-buffer)
++
++ (helm-swoop--clear-edit-buffer 'helm-swoop-edit)
++ (let (($bufstr ""))
++ ;; Get target line number to edit
++ (with-current-buffer helm-swoop-buffer
++ ;; Use selected line by [C-SPC] or [M-SPC]
++ (mapc (lambda ($ov)
++ (when (eq 'helm-visible-mark (overlay-get $ov 'face))
++ (setq $bufstr (concat (buffer-substring-no-properties
++ (overlay-start $ov) (overlay-end $ov))
++ $bufstr))))
++ (overlays-in (point-min) (point-max)))
++ (if (equal "" $bufstr)
++ ;; Not found selected line
++ (setq $bufstr (buffer-substring-no-properties
++ (point-min) (point-max)))
++ ;; Attach title
++ (setq $bufstr (concat "Helm Swoop\n" $bufstr))))
++
++ ;; Set for edit buffer
++ (insert $bufstr)
++ (add-text-properties (point-min) (point-max)
++ '(read-only t rear-nonsticky t front-sticky t))
++
++ ;; Set for editable context
++ (let ((inhibit-read-only t))
++ ;; Title and explanation
++ (goto-char (point-min))
++ (let (($o (make-overlay (point) (point-at-eol))))
++ (overlay-put $o 'helm-swoop-edit t)
++ (overlay-put $o 'face 'font-lock-function-name-face)
++ (overlay-put $o 'after-string
++ (propertize " [C-x C-s] Complete, [C-c C-g] Cancel"
++ 'face 'helm-bookmark-addressbook)))
++ ;; Line number and editable area
++ (while (re-search-forward "^\\([0-9]+\s\\)\\(.*\\)$" nil t)
++ (let* (($bol1 (match-beginning 1))
++ ($eol1 (match-end 1))
++ ($bol2 (match-beginning 2))
++ ($eol2 (match-end 2)))
++ ;; Line number
++ (add-text-properties $bol1 $eol1
++ '(face font-lock-function-name-face
++ intangible t))
++ ;; Editable area
++ (remove-text-properties $bol2 $eol2 '(read-only t))
++ ;; For line tail
++ (set-text-properties $eol2 (or (1+ $eol2) (point-max))
++ '(read-only t rear-nonsticky t))))
++ (helm-swoop--target-word-overlay 'edit-buffer 0))))
++
++ (other-window 1)
++ (switch-to-buffer helm-swoop-edit-buffer)
++ (goto-char (point-min))
++ (if (string-match "^[0-9]+" $candidate)
++ (re-search-forward
++ (concat "^" (match-string 0 $candidate)) nil t))
++ (use-local-map helm-swoop-edit-map))
++
++(defun helm-swoop--edit-complete ()
++ "Apply changes and kill temporary edit buffer"
++ (interactive)
++ (let (($list (helm-swoop--collect-edited-lines)))
++ (with-current-buffer helm-swoop-edit-target-buffer
++ ;; Replace from the end of buffer
++ (save-excursion
++ (cl-loop for ($k . $v) in $list
++ do (progn
++ (goto-char (point-min))
++ (delete-region (point-at-bol $k) (point-at-eol $k))
++ (goto-char (point-at-bol $k))
++ (insert $v)))))
++ (select-window helm-swoop-synchronizing-window)
++ (kill-buffer (get-buffer helm-swoop-edit-buffer)))
++ (message "Successfully helm-swoop-edit applied to original buffer"))
++
++(defun helm-swoop--edit-cancel ()
++ "Cancel edit and kill temporary buffer"
++ (interactive)
++ (select-window helm-swoop-synchronizing-window)
++ (kill-buffer (get-buffer helm-swoop-edit-buffer))
++ (message "helm-swoop-edit canceled"))
++
++(defun helm-swoop-edit ()
++ (interactive)
++ (helm-quit-and-execute-action 'helm-swoop--edit))
++
++;;; @ helm-multi-swoop ----------------------------------------
++(defvar helm-multi-swoop-buffer-list "*helm-multi-swoop buffers list*"
++ "Buffer name")
++(defvar helm-multi-swoop-ignore-buffers-match "^\\*"
++ "Regexp to eliminate buffers you don't want to see")
++(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*")
++(defvar helm-multi-swoop-all-from-helm-swoop-last-point nil
++ "For the last position, when helm-multi-swoop-all-from-helm-swoop canceled")
++(defvar helm-multi-swoop-move-line-action-last-buffer nil)
++
++(defvar helm-multi-swoop-buffers-map
++ (let (($map (make-sparse-keymap)))
++ (set-keymap-parent $map helm-map)
++ (define-key $map (kbd "RET")
++ (lambda () (interactive)
++ (helm-quit-and-execute-action 'helm-multi-swoop--exec)))
++ (delq nil $map)))
++
++;; action -----------------------------------------------------
++
++(defadvice helm-next-line (around helm-multi-swoop-next-line disable)
++ (let ((helm-move-to-line-cycle-in-source nil))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-multi-swoop--move-line-action))))
++
++(defadvice helm-previous-line (around helm-multi-swoop-previous-line disable)
++ (let ((helm-move-to-line-cycle-in-source nil))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-multi-swoop--move-line-action))))
++
++(defadvice helm-toggle-visible-mark (around helm-multi-swoop-toggle-visible-mark disable)
++ (let ((helm-move-to-line-cycle-in-source nil))
++ ad-do-it
++ (when (called-interactively-p 'any)
++ (helm-multi-swoop--move-line-action))))
++
++(defadvice helm-move--next-line-fn (around helm-multi-swoop-next-line-cycle disable)
++ (if (not (helm-pos-multiline-p))
++ (if (eq (point-max) (save-excursion (forward-line 1) (point)))
++ (when helm-swoop-move-to-line-cycle
++ (helm-beginning-of-buffer)
++ (helm-swoop--recenter))
++ (forward-line 1))
++ (let ((line-num (line-number-at-pos)))
++ (helm-move--next-multi-line-fn)
++ (when (and helm-swoop-move-to-line-cycle
++ (eq line-num (line-number-at-pos)))
++ (helm-beginning-of-buffer)))))
++
++(defadvice helm-move--previous-line-fn (around helm-multi-swoop-previous-line-cycle disable)
++ (if (not (helm-pos-multiline-p))
++ (forward-line -1)
++ (helm-move--previous-multi-line-fn))
++ (when (and (helm-pos-header-line-p)
++ (eq (point) (save-excursion (forward-line -1) (point))))
++ (when helm-swoop-move-to-line-cycle
++ (helm-end-of-buffer))
++ (when (helm-pos-multiline-p)
++ (helm-move--previous-multi-line-fn))))
++
++(defun helm-multi-swoop--overlay-move (&optional $buf)
++ (move-overlay
++ helm-swoop-line-overlay
++ (goto-char (point-at-bol))
++ (save-excursion
++ (goto-char (point-at-bol))
++ (or (re-search-forward "\n" nil t) (point-max)))
++ $buf)
++ (helm-swoop--unveil-invisible-overlay))
++
++(defun helm-multi-swoop--move-line-action ()
++ (with-helm-window
++ (let* (($key (buffer-substring (point-at-bol) (point-at-eol)))
++ ($num (when (string-match "^[0-9]+" $key)
++ (string-to-number (match-string 0 $key))))
++ ($source (helm-get-current-source))
++ ($buf (get-buffer (assoc-default 'name $source))))
++ ;; Synchronizing line position
++ (with-selected-window helm-swoop-synchronizing-window
++ (with-current-buffer $buf
++ (when (not (eq $buf helm-multi-swoop-move-line-action-last-buffer))
++ (set-window-buffer nil $buf)
++ (helm-swoop--pattern-match))
++ (helm-swoop--goto-line $num)
++ (helm-multi-swoop--overlay-move $buf)
++ (helm-swoop--recenter))
++ (setq helm-multi-swoop-move-line-action-last-buffer $buf))
++ (setq helm-swoop-last-line-info (cons $buf $num)))))
++
++(defun helm-multi-swoop--get-marked-buffers ()
++ (let ($list)
++ (with-current-buffer helm-multi-swoop-buffer-list
++ (mapc (lambda ($ov)
++ (when (eq 'helm-visible-mark (overlay-get $ov 'face))
++ (setq $list (cons
++ (let (($word (buffer-substring-no-properties
++ (overlay-start $ov) (overlay-end $ov))))
++ (mapc (lambda ($r)
++ (setq $word (replace-regexp-in-string
++ (car $r) (cdr $r) $word)))
++ (list '("\\`[ \t\n\r]+" . "")
++ '("[ \t\n\r]+\\'" . "")))
++ $word)
++ $list))))
++ (overlays-in (point-min) (point-max))))
++ (delete "" $list)))
++
++;; core --------------------------------------------------------
++
++(cl-defun helm-multi-swoop--exec (ignored &key $query $buflist $func $action)
++ (interactive)
++ (setq helm-swoop-synchronizing-window (selected-window))
++ (setq helm-swoop-last-point
++ (or helm-multi-swoop-all-from-helm-swoop-last-point
++ (cons (point) (buffer-name (current-buffer)))))
++ (setq helm-swoop-last-line-info
++ (cons (current-buffer) (line-number-at-pos)))
++ (let (($buffs (or $buflist (helm-multi-swoop--get-marked-buffers)
++ (error "No buffer selected")))
++ $contents
++ $preserve-position)
++ (setq helm-multi-swoop-last-selected-buffers $buffs)
++ ;; Create buffer sources
++ (mapc (lambda ($buf)
++ (with-current-buffer $buf
++ (let* (($func
++ (or $func
++ (lambda () (split-string (helm-swoop--get-content) "\n"))))
++ ($action
++ (or $action
++ (lambda ($line)
++ (switch-to-buffer $buf)
++ (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)
++ (goto-char (match-beginning 0)))
++ (helm-swoop--recenter)))))
++ (setq $preserve-position
++ (cons (cons $buf (point)) $preserve-position))
++ (setq
++ $contents
++ (cons
++ (helm-c-source-multi-swoop $buf $func $action)
++ $contents)))))
++ $buffs)
++ (unwind-protect
++ (progn
++ (ad-enable-advice 'helm-next-line 'around
++ 'helm-multi-swoop-next-line)
++ (ad-activate 'helm-next-line)
++ (ad-enable-advice 'helm-previous-line 'around
++ 'helm-multi-swoop-previous-line)
++ (ad-activate 'helm-previous-line)
++ (ad-enable-advice 'helm-toggle-visible-mark 'around
++ 'helm-multi-swoop-toggle-visible-mark)
++ (ad-activate 'helm-toggle-visible-mark)
++ (ad-enable-advice 'helm-move--next-line-fn 'around
++ 'helm-multi-swoop-next-line-cycle)
++ (ad-activate 'helm-move--next-line-fn)
++ (ad-enable-advice 'helm-move--previous-line-fn 'around
++ 'helm-multi-swoop-previous-line-cycle)
++ (ad-activate 'helm-move--previous-line-fn)
++ (add-hook 'helm-update-hook 'helm-swoop--pattern-match)
++ (add-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position t)
++ (setq helm-swoop-line-overlay
++ (make-overlay (point) (point)))
++ (overlay-put helm-swoop-line-overlay
++ 'face 'helm-swoop-target-line-face)
++ (helm-multi-swoop--overlay-move)
++ ;; Execute helm
++ (let ((helm-display-function helm-swoop-split-window-function)
++ (helm-display-source-at-screen-top nil)
++ (helm-completion-window-scroll-margin 5))
++ (helm :sources $contents
++ :buffer helm-multi-swoop-buffer
++ :input (or $query helm-multi-swoop-query "")
++ :prompt helm-swoop-prompt
++ :candidate-number-limit
++ helm-multi-swoop-candidate-number-limit
++ :preselect
++ (format "%s %s" (line-number-at-pos)
++ (helm-swoop--get-string-at-line)))))
++ ;; Restore
++ (progn
++ (when (= 1 helm-exit-status)
++ (helm-swoop-back-to-last-point t)
++ (helm-swoop--restore-unveiled-overlay))
++ (setq helm-swoop-invisible-targets nil)
++ (ad-disable-advice 'helm-next-line 'around
++ 'helm-multi-swoop-next-line)
++ (ad-activate 'helm-next-line)
++ (ad-disable-advice 'helm-previous-line 'around
++ 'helm-multi-swoop-previous-line)
++ (ad-activate 'helm-previous-line)
++ (ad-disable-advice 'helm-toggle-visible-mark 'around
++ 'helm-multi-swoop-toggle-visible-mark)
++ (ad-activate 'helm-toggle-visible-mark)
++ (ad-disable-advice 'helm-move--next-line-fn 'around
++ 'helm-multi-swoop-next-line-cycle)
++ (ad-activate 'helm-move--next-line-fn)
++ (ad-disable-advice 'helm-move--previous-line-fn 'around
++ 'helm-multi-swoop-previous-line-cycle)
++ (ad-activate 'helm-move--previous-line-fn)
++ (remove-hook 'helm-update-hook 'helm-swoop--pattern-match)
++ (remove-hook 'helm-after-update-hook 'helm-swoop--keep-nearest-position)
++ (setq helm-multi-swoop-last-query helm-swoop-pattern)
++ (helm-swoop--restore-unveiled-overlay)
++ (setq helm-multi-swoop-query nil)
++ (setq helm-multi-swoop-all-from-helm-swoop-last-point nil)
++ (mapc (lambda ($buf)
++ (let (($current-buffer (buffer-name (current-buffer))))
++ (with-current-buffer (car $buf)
++ ;; Delete overlay
++ (delete-overlay helm-swoop-line-overlay)
++ (helm-swoop--delete-overlay 'target-buffer)
++ ;; Restore each buffer's position
++ (unless (equal (car $buf) $current-buffer)
++ (goto-char (cdr $buf))))))
++ $preserve-position)))))
++
++(defun helm-multi-swoop--get-buffer-list ()
++ (let ($buflist1 $buflist2)
++ ;; eliminate buffers start with whitespace and dired buffers
++ (mapc (lambda ($buf)
++ (setq $buf (buffer-name $buf))
++ (unless (string-match "^\\s-" $buf)
++ (unless (eq 'dired-mode (with-current-buffer $buf major-mode))
++ (setq $buflist1 (cons $buf $buflist1)))))
++ (buffer-list))
++ ;; eliminate buffers match pattern
++ (mapc (lambda ($buf)
++ (unless (string-match
++ helm-multi-swoop-ignore-buffers-match
++ $buf)
++ (setq $buflist2 (cons $buf $buflist2))))
++ $buflist1)
++ $buflist2))
++
++(defun helm-c-source-helm-multi-swoop-buffers ()
++ "Show buffer list to select"
++ `((name . "helm-multi-swoop select buffers")
++ (candidates . helm-multi-swoop--get-buffer-list)
++ (header-line . "[C-SPC]/[M-SPC] select, [RET] next step")
++ (keymap . ,helm-multi-swoop-buffers-map)))
++
++;;;###autoload
++(defun helm-multi-swoop (&optional $query $buflist)
++ "\
++Usage:
++M-x helm-multi-swoop
++1. Select any buffers by [C-SPC] or [M-SPC]
++2. Press [RET] to start helm-multi-swoop
++
++C-u M-x 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.
++"
++ (interactive)
++ (cond ($query
++ (setq helm-multi-swoop-query $query))
++ (mark-active
++ (let (($st (buffer-substring-no-properties
++ (region-beginning) (region-end))))
++ (if (string-match "\n" $st)
++ (message "Multi line region is not allowed")
++ (setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize $st)))))
++ ((setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize
++ (funcall helm-swoop-pre-input-function))))
++ (t (setq helm-multi-swoop-query "")))
++ (if (equal current-prefix-arg '(4))
++ (helm-multi-swoop--exec nil
++ :$query helm-multi-swoop-query
++ :$buflist $buflist)
++ (if $buflist
++ (helm-multi-swoop--exec nil
++ :$query $query
++ :$buflist $buflist)
++ (helm :sources (helm-c-source-helm-multi-swoop-buffers)
++ :buffer helm-multi-swoop-buffer-list
++ :prompt "Mark any buffers by [C-SPC] or [M-SPC]: "))))
++
++;;;###autoload
++(defun helm-multi-swoop-all (&optional $query)
++ "Apply all buffers to helm-multi-swoop"
++ (interactive)
++ (cond ($query
++ (setq helm-multi-swoop-query $query))
++ (mark-active
++ (let (($st (buffer-substring-no-properties
++ (region-beginning) (region-end))))
++ (if (string-match "\n" $st)
++ (message "Multi line region is not allowed")
++ (setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize $st)))))
++ ((setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize
++ (funcall helm-swoop-pre-input-function))))
++ (t (setq helm-multi-swoop-query "")))
++ (helm-multi-swoop--exec nil
++ :$query helm-multi-swoop-query
++ :$buflist (helm-multi-swoop--get-buffer-list)))
++
++(defun get-buffers-matching-mode ($mode)
++ "Returns a list of buffers where their major-mode is equal to MODE"
++ (let ($buffer-mode-matches)
++ (mapc (lambda ($buffer)
++ (with-current-buffer $buffer
++ (if (eq $mode major-mode)
++ (add-to-list '$buffer-mode-matches (buffer-name $buffer)))))
++ (buffer-list))
++ $buffer-mode-matches))
++
++(defun helm-multi-swoop-by-mode ($mode &optional $query)
++ "Apply all buffers whose mode is MODE to helm-multi-swoop"
++ (cond ($query
++ (setq helm-multi-swoop-query $query))
++ (mark-active
++ (let (($st (buffer-substring-no-properties
++ (region-beginning) (region-end))))
++ (if (string-match "\n" $st)
++ (message "Multi line region is not allowed")
++ (setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize $st)))))
++ ((setq helm-multi-swoop-query
++ (helm-swoop-pre-input-optimize
++ (funcall helm-swoop-pre-input-function))))
++ (t (setq helm-multi-swoop-query "")))
++ (if (get-buffers-matching-mode $mode)
++ (helm-multi-swoop--exec nil
++ :$query helm-multi-swoop-query
++ :$buflist (get-buffers-matching-mode $mode))
++ (message "there are no buffers in that mode right now")))
++
++;;;###autoload
++(defun helm-multi-swoop-org (&optional $query)
++ "Applies all org-mode buffers to helm-multi-swoop"
++ (interactive)
++ (helm-multi-swoop-by-mode 'org-mode $query))
++
++;;;###autoload
++(defun helm-multi-swoop-current-mode (&optional $query)
++ "Applies all buffers of the same mode as the current buffer to helm-multi-swoop"
++ (interactive)
++ (helm-multi-swoop-by-mode major-mode $query))
++
++
++;; option -------------------------------------------------------
++
++(defun helm-multi-swoop-all-from-isearch ()
++ "Invoke `helm-multi-swoop-all' from isearch."
++ (interactive)
++ (let (($query (if isearch-regexp
++ isearch-string
++ (regexp-quote isearch-string))))
++ (isearch-exit)
++ (helm-multi-swoop-all $query)))
++;; When doing isearch, hand the word over to helm-swoop
++;; (define-key isearch-mode-map (kbd "C-x M-i") 'helm-multi-swoop-all-from-isearch)
++
++(defun helm-multi-swoop-all-from-helm-swoop ()
++ "Invoke `helm-multi-swoop-all' from helm-swoop."
++ (interactive)
++ (helm-swoop--restore)
++ (delete-overlay helm-swoop-line-overlay)
++ (setq helm-multi-swoop-all-from-helm-swoop-last-point helm-swoop-last-point)
++ (let (($query helm-pattern))
++ (run-with-timer 0 nil (lambda () (helm-multi-swoop-all $query))))
++ (helm-exit-minibuffer))
++
++(defun helm-multi-swoop-current-mode-from-helm-swoop ()
++ "Invoke `helm-multi-swoop-all' from helm-swoop."
++ (interactive)
++ (helm-swoop--restore)
++ (delete-overlay helm-swoop-line-overlay)
++ (setq helm-multi-swoop-all-from-helm-swoop-last-point helm-swoop-last-point)
++ (let (($query helm-pattern))
++ (run-with-timer 0 nil (lambda () (helm-multi-swoop-current-mode $query))))
++ (helm-exit-minibuffer))
++;; (define-key helm-swoop-map (kbd "M-m") 'helm-multi-swoop-current-mode-from-helm-swoop)
++
++(defadvice helm-resume (around helm-multi-swoop-resume activate)
++ "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))
++ ;; Temporary apply second last buffer
++ (let ((helm-last-buffer (cadr helm-buffers))) ad-do-it))
++ ad-do-it))
++
++;;; @ helm-multi-swoop-edit -----------------------------------
++(defvar helm-multi-swoop-edit-save t
++ "Save each buffer you edit when editing is complete")
++(defvar helm-multi-swoop-edit-buffer "*Helm Multi Swoop Edit*")
++
++(defvar helm-multi-swoop-edit-map
++ (let (($map (make-sparse-keymap)))
++ (define-key $map (kbd "C-x C-s") 'helm-multi-swoop--edit-complete)
++ (define-key $map (kbd "C-c C-g") 'helm-multi-swoop--edit-cancel)
++ $map))
++
++(defun helm-multi-swoop--edit ($candidate)
++ "This function will only be called from `helm-swoop-edit'"
++ (interactive)
++ (delete-overlay helm-swoop-line-overlay)
++ (helm-swoop--delete-overlay 'target-buffer)
++ (with-current-buffer (get-buffer-create helm-multi-swoop-edit-buffer)
++ (helm-swoop--clear-edit-buffer 'helm-multi-swoop-edit)
++ (let (($bufstr "") ($mark nil))
++ ;; Get target line number to edit
++ (with-current-buffer helm-multi-swoop-buffer
++ ;; Set overlay to helm-source-header for editing marked lines
++ (save-excursion
++ (goto-char (point-min))
++ (let (($beg (point)) $end)
++ (overlay-recenter (point-max))
++ (while (setq $beg (text-property-any $beg (point-max)
++ 'face 'helm-source-header))
++ (setq $end (next-single-property-change $beg 'face))
++ (overlay-put (make-overlay $beg $end) 'source-header t)
++ (setq $beg $end)
++ (goto-char $end))))
++ ;; Use selected line by [C-SPC] or [M-SPC]
++ (mapc (lambda ($ov)
++ (when (overlay-get $ov 'source-header)
++ (setq $bufstr (concat (buffer-substring
++ (overlay-start $ov) (overlay-end $ov))
++ $bufstr)))
++ (when (eq 'helm-visible-mark (overlay-get $ov 'face))
++ (let (($str (buffer-substring (overlay-start $ov) (overlay-end $ov))))
++ (unless (equal "" $str) (setq $mark t))
++ (setq $bufstr (concat (buffer-substring
++ (overlay-start $ov) (overlay-end $ov))
++ $bufstr)))))
++ (overlays-in (point-min) (point-max)))
++ (if $mark
++ (progn (setq $bufstr (concat "Helm Multi Swoop\n" $bufstr))
++ (setq $mark nil))
++ (setq $bufstr (concat "Helm Multi Swoop\n"
++ (buffer-substring
++ (point-min) (point-max))))))
++
++ ;; Set for edit buffer
++ (insert $bufstr)
++ (add-text-properties (point-min) (point-max)
++ '(read-only t rear-nonsticky t front-sticky t))
++
++ ;; Set for editable context
++ (let ((inhibit-read-only t))
++ ;; Title and explanation
++ (goto-char (point-min))
++ (let (($o (make-overlay (point) (point-at-eol))))
++ (overlay-put $o 'helm-multi-swoop-edit t)
++ (overlay-put $o 'face 'font-lock-function-name-face)
++ (overlay-put $o 'after-string
++ (propertize " [C-x C-s] Complete, [C-c C-g] Cancel"
++ 'face 'helm-bookmark-addressbook)))
++ ;; Line number and editable area
++ (while (re-search-forward "^\\([0-9]+\s\\)\\(.*\\)$" nil t)
++ (let* (($bol1 (match-beginning 1))
++ ($eol1 (match-end 1))
++ ($bol2 (match-beginning 2))
++ ($eol2 (match-end 2)))
++
++ ;; Line number
++ (add-text-properties $bol1 $eol1
++ '(face font-lock-function-name-face
++ intangible t))
++ ;; Editable area
++ (remove-text-properties $bol2 $eol2 '(read-only t))
++ ;; (add-text-properties $bol2 $eol2 '(font-lock-face helm-match))
++
++ ;; For line tail
++ (set-text-properties $eol2 (or (1+ $eol2) (point-max))
++ '(read-only t rear-nonsticky t))))
++ (helm-swoop--target-word-overlay 'edit-buffer 0))))
++
++ (other-window 1)
++ (switch-to-buffer helm-multi-swoop-edit-buffer)
++ (goto-char (point-min))
++ (if (string-match "^[0-9]+" $candidate)
++ (re-search-forward
++ (concat "^" (match-string 0 $candidate)) nil t))
++ (use-local-map helm-multi-swoop-edit-map))
++
++(defun helm-multi-swoop--separate-text-property-into-list ($property)
++ (interactive)
++ (let ($list $end)
++ (save-excursion
++ (goto-char (point-min))
++ (while (setq $end (next-single-property-change (point) $property))
++ ;; Must eliminate last return because of unexpected edit result
++ (setq $list (cons
++ (let (($str (buffer-substring-no-properties (point) $end)))
++ (if (string-match "\n\n\\'" $str)
++ (replace-regexp-in-string "\n\\'" "" $str)
++ $str))
++ $list))
++ (goto-char $end))
++ (setq $list (cons (buffer-substring-no-properties (point) (point-max))
++ $list)))
++ (nreverse $list)))
++
++(defun helm-multi-swoop--collect-edited-lines ()
++ "Create a list of edited lines with each its own line number"
++ (interactive)
++ (let* (($list
++ (helm-multi-swoop--separate-text-property-into-list 'helm-header))
++ ($length (length $list))
++ ($i 1) ;; 0th $list is header
++ $pairs)
++ (while (<= $i $length)
++ (let ($contents)
++ ;; Make ((number . line) (number . line) (number . line) ...)
++ (with-temp-buffer
++ (insert (format "%s" (nth (1+ $i) $list)))
++ (goto-char (point-min))
++ (while (re-search-forward "^\\([0-9]+\\)\s" nil t)
++ (setq $contents
++ (cons (cons (string-to-number (match-string 1))
++ (buffer-substring-no-properties
++ (point)
++ (save-excursion
++ (if (re-search-forward
++ "^\\([0-9]+\\)\s\\|^\\(\\-+\\)" nil t)
++ (1- (match-beginning 0))
++ (goto-char (point-max))
++ (re-search-backward "\n" nil t)))))
++ $contents))))
++ ;; Make ((buffer-name (number . line) (number . line) ...)
++ ;; (buffer-name (number . line) (number . line) ...) ...)
++ (setq $pairs (cons (cons (nth $i $list) $contents) $pairs)))
++ (setq $i (+ $i 2)))
++ (delete '(nil) $pairs)))
++
++(defun helm-multi-swoop--edit-complete ()
++ "Apply changes to buffers and kill temporary edit buffer"
++ (interactive)
++ (let (($list (helm-multi-swoop--collect-edited-lines))
++ $read-only)
++ (mapc (lambda ($x)
++ (with-current-buffer (car $x)
++ (unless buffer-read-only
++ (save-excursion
++ (cl-loop for ($k . $v) in (cdr $x)
++ do (progn
++ (goto-char (point-min))
++ (delete-region (point-at-bol $k) (point-at-eol $k))
++ (goto-char (point-at-bol $k))
++ (insert $v)))))
++ (if helm-multi-swoop-edit-save
++ (if buffer-read-only
++ (setq $read-only t)
++ (save-buffer)))))
++ $list)
++ (select-window helm-swoop-synchronizing-window)
++ (kill-buffer (get-buffer helm-multi-swoop-edit-buffer))
++ (if $read-only
++ (message "Couldn't save some buffers because of read-only")
++ (message "Successfully helm-multi-swoop-edit applied to original buffer"))))
++
++(defun helm-multi-swoop--edit-cancel ()
++ "Cancel edit and kill temporary buffer"
++ (interactive)
++ (select-window helm-swoop-synchronizing-window)
++ (kill-buffer (get-buffer helm-multi-swoop-edit-buffer))
++ (message "helm-multi-swoop-edit canceled"))
++
++;;;###autoload
++(defun helm-multi-swoop-edit ()
++ (interactive)
++ (helm-quit-and-execute-action 'helm-multi-swoop--edit))
++
++;;; @ helm-swoop-same-face-at-point -----------------------------------
++
++(defsubst helm-swoop--get-at-face (&optional $point)
++ (or $point (setq $point (point)))
++ (let (($face (or (get-char-property $point 'read-face-name)
++ (get-char-property $point 'face))))
++ $face))
++
++(defun helm-swoop--cull-face-include-line ($face)
++ (let (($list) ($po (point-min)))
++ (save-excursion
++ (while (setq $po (next-single-property-change $po 'face))
++ (when (equal $face (helm-swoop--get-at-face $po))
++ (goto-char $po)
++ (setq $list (cons (format "%s %s"
++ (line-number-at-pos $po)
++ (buffer-substring (point-at-bol) (point-at-eol)))
++ $list))
++ (let (($ov (make-overlay $po (or (next-single-property-change $po 'face)
++ (point-max)))))
++ (overlay-put $ov 'face 'helm-swoop-target-word-face)
++ (overlay-put $ov 'target-buffer 'helm-swoop-target-word-face)))))
++ (nreverse (delete-dups $list))))
++
++(defun helm-swoop-same-face-at-point (&optional $face)
++ (interactive)
++ (or $face (setq $face (helm-swoop--get-at-face)))
++ (helm-swoop :$query ""
++ :$source
++ `((name . "helm-swoop-same-face-at-point")
++ (candidates . ,(helm-swoop--cull-face-include-line $face))
++ (header-line . ,(format "%s" $face))
++ (action . (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))))))
++
++(defun helm-multi-swoop-same-face-at-point (&optional $face)
++ (interactive)
++ (or $face (setq $face (helm-swoop--get-at-face)))
++ (helm-multi-swoop--exec
++ nil
++ :$query ""
++ :$func (lambda () (helm-swoop--cull-face-include-line $face))
++ :$action (lambda ($line)
++ (switch-to-buffer (assoc-default 'name (helm-get-current-source)))
++ (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))
++ :$buflist (helm-multi-swoop--get-buffer-list)))
++
++(provide 'helm-swoop)
++;;; helm-swoop.el ends here
projects / emacsconfig.git / commitdiff