PageRenderTime 59ms CodeModel.GetById 29ms RepoModel.GetById 0ms app.codeStats 0ms

/modules/init-helm-aborn.el

https://github.com/aborn/emacs.d
Emacs Lisp | 376 lines | 221 code | 53 blank | 102 comment | 2 complexity | 0fea0d6bc9afa35e65d1eb2e0acc0c7f MD5 | raw file
Possible License(s): GPL-3.0, GPL-2.0 
    

  1. 

  2. ;; --------------------------------------------------------------------
    3. 

  3. ;; init-helm-thierry.el --- My startup file for helm. -*- lexical-binding: t -*- 
    4. 

  4. ;; fork 于https://github.com/thierryvolpiatto/emacs-tv-config/blob/master/init-helm-thierry.el
    5. 

  5. ;; helm https://github.com/emacs-helm/helm
    6. 

  6. ;; install first:
    7. 

  7. ;; git clone https://github.com/emacs-helm/helm.git ~/.emacs.d/site-lisp
    8. 

  8. ;; git clone https://github.com/jwiegley/emacs-async.git ~/.emacs.d/site-lisp
    9. 

  9. ;; --------------------------------------------------------------------
    10. 

  10. (require 'helm-config)
    11. 

  11. (require 'helm-ls-git)
    12. 

    13. 

  13. ;; Enable Modes (This is loading nearly everything).
    14. 

  14. (helm-mode 1)
    15. 

  15. ;; (helm-adaptative-mode 1)
    16. 

  16. (helm-autoresize-mode 1)
    17. 

  17. (helm-push-mark-mode 1)
    18. 

  18. 

  19. ;;;; Extensions
    20. 

  20. ;;
    21. 

  21. ;;(load "/home/thierry/elisp/helm-extensions/helm-extensions-autoloads.el")
    22. 

  22. 

  23. ;;;; Test Sources or new helm code. 
    24. 

  24. ;;   !!!WARNING EXPERIMENTAL!!!
    25. 

  25. (defun helm-version ()
    26. 

  26.   (with-temp-buffer
    27. 

  27.     (insert-file-contents (find-library-name "helm-pkg"))
    28. 

  28.     (goto-char (point-min))
    29. 

  29.     (when (re-search-forward
    30. 

  30.            "\\([0-9]+?\\)\\.\\([0-9]+?\\)\\.\\([0-9]+?\\)\\.?[0-9]*" nil t)
    31. 

  31.       (match-string-no-properties 0))))
    32. 

  32. 

  33. (defun helm-git-version ()
    34. 

  34.   (shell-command-to-string
    35. 

  35.    "git log --pretty='format:%H' -1"))
    36. 

  36. 

  37. (unless (fboundp 'helm-hide-minibuffer-maybe)
    38. 

  38.   (defun helm-hide-minibuffer-maybe ()
    39. 

  39.     (when (with-helm-buffer helm-echo-input-in-header-line)
    40. 

  40.       (let ((ov (make-overlay (point-min) (point-max) nil nil t)))
    41. 

  41.         (overlay-put ov 'window (selected-window))
    42. 

  42.         (overlay-put ov 'face (let ((bg-color (face-background 'default nil)))
    43. 

  43.                                 `(:background ,bg-color :foreground ,bg-color)))
    44. 

  44.         (setq-local cursor-type nil)))))
    45. 

    46. 

  46. (defun helm/turn-on-header-line ()
    47. 

  47.   (interactive)
    48. 

  48.   (setq helm-echo-input-in-header-line t)
    49. 

  49.   (helm-autoresize-mode -1)
    50. 

  50.   (add-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
    51. 

  51.   )
    52. 

    53. 

  53. (defun helm/turn-off-header-line ()
    54. 

  54.   (interactive)
    55. 

  55.   (setq helm-echo-input-in-header-line nil)
    56. 

  56.   (helm-autoresize-mode 1)
    57. 

  57.   (remove-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
    58. 

  58.   )
    59. 

    60. 

  60. ;;; Helm-command-map
    61. 

  61. (define-key helm-command-map (kbd "g")   'helm-apt)
    62. 

  62. (define-key helm-command-map (kbd "w")   'helm-psession)
    63. 

  63. (define-key helm-command-map (kbd "z")   'helm-complex-command-history)
    64. 

  64. (define-key helm-command-map (kbd "w")   'helm-w3m-bookmarks)
    65. 

  65. (define-key helm-command-map (kbd "x")   'helm-firefox-bookmarks)
    66. 

  66. (define-key helm-command-map (kbd "#")   'helm-emms)
    67. 

  67. (define-key helm-command-map (kbd "I")   'helm-imenu-in-all-buffers)
    68. 

    69. 

  69. ;;; Global-map
    70. 

  70. (global-set-key (kbd "M-x")                          'undefined)
    71. 

  71. (global-set-key (kbd "M-x")                          'helm-M-x)
    72. 

  72. (global-set-key (kbd "M-y")                          'helm-show-kill-ring)
    73. 

  73. (global-set-key (kbd "C-c f")                        'helm-recentf)
    74. 

  74. (global-set-key (kbd "C-x C-f")                      'helm-find-files)
    75. 

  75. (global-set-key (kbd "C-c <SPC>")                    'helm-all-mark-rings)
    76. 

  76. (global-set-key (kbd "C-x r b")                      'helm-filtered-bookmarks)
    77. 

  77. (global-set-key (kbd "C-h r")                        'helm-info-emacs)
    78. 

  78. ;;(global-set-key (kbd "C-:")                          'helm-eval-expression-with-eldoc)
    79. 

  79. (global-set-key (kbd "C-,")                          'helm-calcul-expression)
    80. 

  80. (global-set-key (kbd "C-h i")                        'helm-info-at-point)
    81. 

  81. (global-set-key (kbd "C-x C-d")                      'helm-browse-project)
    82. 

  82. (global-set-key (kbd "<f1>")                         'helm-resume)
    83. 

  83. (global-set-key (kbd "C-h C-f")                      'helm-apropos)
    84. 

  84. (global-set-key (kbd "<f5> s")                       'helm-find)
    85. 

  85. (global-set-key (kbd "<f2>")                         'helm-execute-kmacro)
    86. 

  86. ;;(global-set-key (kbd "C-c g")                        'helm-gid)
    87. 

  87. (global-set-key (kbd "C-c g")                        'helm-ls-git-ls)
    88. 

    89. 

  89. (global-set-key (kbd "C-c i")                        'helm-imenu-in-all-buffers)
    90. 

  90. (define-key global-map [remap jump-to-register]      'helm-register)
    91. 

  91. (define-key global-map [remap list-buffers]          'helm-buffers-list)
    92. 

  92. (define-key global-map [remap dabbrev-expand]        'helm-dabbrev)
    93. 

  93. (define-key global-map [remap find-tag]              'helm-etags-select)
    94. 

  94. (define-key global-map [remap xref-find-definitions] 'helm-etags-select)
    95. 

  95. (define-key shell-mode-map (kbd "M-p")               'helm-comint-input-ring) ; shell history.
    96. 

    97. 

  97. ;;; Lisp complete or indent. (Rebind <tab>)
    98. 

  98. ;;
    99. 

  99. ;; Use `completion-at-point' with `helm-mode' if available
    100. 

  100. ;; otherwise fallback to helm implementation.
    101. 

  101. 

  102. ;; Set to `complete' will use `completion-at-point'.
    103. 

  103. ;; (and (boundp 'tab-always-indent)
    104. 

  104. ;;      (setq tab-always-indent 'complete))
    105. 

    106. 

  106. (helm-multi-key-defun helm-multi-lisp-complete-at-point
    107. 

  107.     "Multi key function for completion in emacs lisp buffers.
    108. 

  108. First call indent, second complete symbol, third complete fname."
    109. 

  109.   '(helm-lisp-indent
    110. 

  110.     helm-lisp-completion-at-point
    111. 

  111.     helm-complete-file-name-at-point)
    112. 

  112.   0.3)
    113. 

  113. 

  114. (if (and (boundp 'tab-always-indent)
    115. 

  115.          (eq tab-always-indent 'complete)
    116. 

  116.          (boundp 'completion-in-region-function))
    117. 

  117.     (progn
    118. 

  118.       (define-key lisp-interaction-mode-map [remap indent-for-tab-command] 'helm-multi-lisp-complete-at-point)
    119. 

  119.       (define-key emacs-lisp-mode-map [remap indent-for-tab-command] 'helm-multi-lisp-complete-at-point)
    120. 

  120.       
    121. 

  121.       ;; lisp complete. (Rebind M-<tab>)
    122. 

  122.       (define-key lisp-interaction-mode-map [remap completion-at-point] 'helm-lisp-completion-at-point)
    123. 

  123.       (define-key emacs-lisp-mode-map       [remap completion-at-point] 'helm-lisp-completion-at-point))
    124. 

  124.   
    125. 

  125.   (define-key lisp-interaction-mode-map [remap indent-for-tab-command] 'helm-multi-lisp-complete-at-point)
    126. 

  126.   (define-key emacs-lisp-mode-map [remap indent-for-tab-command] 'helm-multi-lisp-complete-at-point)
    127. 

  127.   
    128. 

  128.   ;; lisp complete. (Rebind M-<tab>)
    129. 

  129.   (define-key lisp-interaction-mode-map [remap completion-at-point] 'helm-lisp-completion-at-point)
    130. 

  130.   (define-key emacs-lisp-mode-map       [remap completion-at-point] 'helm-lisp-completion-at-point))
    131. 

    132. 

  132. (unless (boundp 'completion-in-region-function)
    133. 

  133.   (add-hook 'ielm-mode-hook
    134. 

  134.             #'(lambda ()
    135. 

  135.                 (define-key ielm-map    [remap completion-at-point] 'helm-lisp-completion-at-point))))
    136. 

    137. 

  137. ;;; helm completion in minibuffer
    138. 

  138. ;;
    139. 

  139. ;; (define-key minibuffer-local-map [remap completion-at-point] 'helm-lisp-completion-at-point)  ; >24.3
    140. 

  140. ;; (define-key minibuffer-local-map [remap lisp-complete-symbol] 'helm-lisp-completion-at-point) ; <=24.3
    141. 

    142. 

  142. ;;; helm find files
    143. 

  143. (define-key helm-find-files-map (kbd "C-d") 'helm-ff-persistent-delete)
    144. 

  144. (define-key helm-buffer-map (kbd "C-d")     'helm-buffer-run-kill-persistent)
    145. 

    146. 

  146. ;; Use default-as-input in grep
    147. 

  147. (add-to-list 'helm-sources-using-default-as-input 'helm-source-grep)
    148. 

  148. 

  149. ;;; Describe key-bindings
    150. 

  150. ;;
    151. 

  151. ;;
    152. 

  152. ;; (helm-descbinds-install)            ; C-h b, C-x C-h
    153. 

  153. 

  154. ;;; Helm-variables
    155. 

  155. (setq helm-google-suggest-use-curl-p             t
    156. 

  156.                                         ;helm-kill-ring-threshold                   1
    157. 

  157.       helm-raise-command                         "wmctrl -xa %s"
    158. 

  158.       helm-scroll-amount                         4
    159. 

  159.                                         ;helm-quick-update                          t
    160. 

  160.       helm-idle-delay                            0.01
    161. 

  161.       helm-input-idle-delay                      0.01
    162. 

  162.                                         ;helm-completion-window-scroll-margin       0
    163. 

  163.                                         ;helm-display-source-at-screen-top          nil
    164. 

  164.       helm-ff-search-library-in-sexp             t
    165. 

  165.                                         ;helm-kill-ring-max-lines-number            5
    166. 

  166.       helm-default-external-file-browser         "thunar"
    167. 

  167.       helm-pdfgrep-default-read-command          "evince --page-label=%p '%f'"
    168. 

  168.                                         ;helm-ff-transformer-show-only-basename     t
    169. 

  169.       helm-ff-auto-update-initial-value          t
    170. 

  170.       helm-grep-default-command                  "ack -Hn --smart-case --no-group %e %p %f"
    171. 

  171.       helm-grep-default-recurse-command          "ack -H --smart-case --no-group %e %p %f"
    172. 

  172.       ;; Allow skipping unwanted files specified in ~/.gitignore_global
    173. 

  173.       ;; Added in my .gitconfig with "git config --global core.excludesfile ~/.gitignore_global"
    174. 

  174.       helm-ls-git-grep-command                   "git grep -n%cH --color=always --exclude-standard --no-index --full-name -e %p %f"
    175. 

  175.       helm-default-zgrep-command                 "zgrep --color=always -a -n%cH -e %p %f"
    176. 

  176.                                         ;helm-pdfgrep-default-command               "pdfgrep --color always -niH %s %s"
    177. 

  177.       helm-reuse-last-window-split-state         t
    178. 

  178.                                         ;helm-split-window-default-side             'below
    179. 

  179.                                         ;helm-split-window-in-side-p                t
    180. 

  180.                                         ;helm-echo-input-in-header-line             t
    181. 

  181.       helm-always-two-windows                    t
    182. 

  182.                                         ;helm-persistent-action-use-special-display t
    183. 

  183.       helm-buffers-favorite-modes                (append helm-buffers-favorite-modes
    184. 

  184.                                                          '(picture-mode artist-mode))
    185. 

  185.       helm-ls-git-status-command                 'magit-status
    186. 

  186.                                         ;helm-never-delay-on-input                  nil
    187. 

  187.                                         ;helm-candidate-number-limit                200
    188. 

  188.       helm-M-x-requires-pattern                  0
    189. 

  189.       helm-dabbrev-cycle-threshold                5
    190. 

  190.       helm-surfraw-duckduckgo-url                "https://duckduckgo.com/?q=%s&ke=-1&kf=fw&kl=fr-fr&kr=b&k1=-1&k4=-1"
    191. 

  191.                                         ;helm-surfraw-default-browser-function      'w3m-browse-url
    192. 

  192.       helm-boring-file-regexp-list               '("\\.git$" "\\.hg$" "\\.svn$" "\\.CVS$" "\\._darcs$" "\\.la$" "\\.o$" "\\.i$")
    193. 

  193.                                         ;helm-mode-handle-completion-in-region      t
    194. 

  194.                                         ;helm-moccur-always-search-in-current        t
    195. 

  195.                                         ;helm-tramp-verbose                         6
    196. 

  196.       helm-buffer-skip-remote-checking            t
    197. 

  197.                                         ;helm-ff-file-name-history-use-recentf      t
    198. 

  198.                                         ;helm-follow-mode-persistent                t
    199. 

  199.       helm-apropos-fuzzy-match                    t
    200. 

  200.       helm-M-x-fuzzy-match                        t
    201. 

  201.       helm-lisp-fuzzy-completion                  t
    202. 

  202.                                         ;helm-locate-fuzzy-match                     t
    203. 

  203.       helm-completion-in-region-fuzzy-match       t
    204. 

  204.       helm-move-to-line-cycle-in-source           t
    205. 

  205.       ido-use-virtual-buffers                     t             ; Needed in helm-buffers-list
    206. 

  206.       helm-tramp-verbose                          6
    207. 

  207.       helm-buffers-fuzzy-matching                 t
    208. 

  208.       helm-locate-command                         "locate %s -e -A --regex %s"
    209. 

  209.       helm-org-headings-fontify                   t
    210. 

  210.       helm-autoresize-max-height                  80 ; it is %.
    211. 

  211.       helm-autoresize-min-height                  20 ; it is %.
    212. 

  212.       helm-buffers-to-resize-on-pa                '("*helm apropos*" "*helm ack-grep*"
    213. 

  213.                                                     "*helm grep*" "*helm occur*"
    214. 

  214.                                                     "*helm multi occur*" "*helm lsgit*"
    215. 

  215.                                                     "*helm git-grep*" "*helm hg files*"
    216. 

  216.                                                     "*helm imenu*" "*helm imenu all*"
    217. 

  217.                                                     "*helm gid*" "*helm semantic/imenu*")
    218. 

  218.       fit-window-to-buffer-horizontally           1
    219. 

  219.       helm-open-github-closed-issue-since         7
    220. 

  220.       helm-search-suggest-action-wikipedia-url
    221. 

  221.       "https://fr.wikipedia.org/wiki/Special:Search?search=%s"
    222. 

  222.       helm-wikipedia-suggest-url
    223. 

  223.       "http://fr.wikipedia.org/w/api.php?action=opensearch&search="
    224. 

  224.       helm-wikipedia-summary-url
    225. 

  225.       "http://fr.wikipedia.org/w/api.php?action=parse&format=json&prop=text&section=0&page=")
    226. 

  226. 

  227. ;; Avoid hitting forbidden directory .gvfs when using find.
    228. 

  228. (add-to-list 'completion-ignored-extensions ".gvfs/")
    229. 

    230. 

  230. ;;; Hide minibuffer
    231. 

  231. ;;
    232. 

  232. ;; (add-hook 'helm-minibuffer-set-up-hook 'helm-hide-minibuffer-maybe)
    233. 

  233. 

  234. ;;; Toggle grep program
    235. 

  235. (defun eselect-grep ()
    236. 

  236.   (interactive)
    237. 

  237.   (when (y-or-n-p (format "Current grep program is %s, switching? "
    238. 

  238.                           (helm-grep-command)))
    239. 

  239.     (if (helm-grep-use-ack-p)
    240. 

  240.         (setq helm-grep-default-command
    241. 

  241.               "grep --color=always -d skip %e -n%cH -e %p %f"
    242. 

  242.               helm-grep-default-recurse-command
    243. 

  243.               "grep --color=always -d recurse %e -n%cH -e %p %f")
    244. 

  244.       (setq helm-grep-default-command
    245. 

  245.             "ack-grep -Hn --smart-case --no-group %e %p %f"
    246. 

  246.             helm-grep-default-recurse-command
    247. 

  247.             "ack-grep -H --smart-case --no-group %e %p %f"))
    248. 

  248.     (message "Switched to %s" (helm-grep-command))))
    249. 

  249. 

  250. ;;; Debugging
    251. 

  251. (defun helm-debug-toggle ()
    252. 

  252.   (interactive)
    253. 

  253.   (setq helm-debug (not helm-debug))
    254. 

  254.   (message "Helm Debug is now %s"
    255. 

  255.            (if helm-debug "Enabled" "Disabled")))
    256. 

  256. 

  257. (defun helm-ff-candidates-lisp-p (candidate)
    258. 

  258.   (cl-loop for cand in (helm-marked-candidates)
    259. 

  259.            always (string-match "\.el$" cand)))
    260. 

  260. 

  261. ;;; Modify source attributes
    262. 

  262. ;; Add actions to `helm-source-find-files' IF:
    263. 

    264. 

  264. (defmethod helm-setup-user-source ((source helm-source-ffiles))
    265. 

  265.   (helm-source-add-action-to-source-if
    266. 

  266.    "Byte compile file(s) async"
    267. 

  267.    'async-byte-compile-file
    268. 

  268.    source
    269. 

  269.    'helm-ff-candidates-lisp-p))
    270. 

    271. 

  271. (defmethod helm-setup-user-source ((source helm-source-buffers))
    272. 

  272.   (set-slot-value source 'candidate-number-limit 200))
    273. 

    274. 

  274. ;;; Psession windows
    275. 

  275. (defun helm-psession-windows ()
    276. 

  276.   (interactive)
    277. 

  277.   (helm :sources (helm-build-sync-source "Psession windows"
    278. 

  278.                    :candidates (lambda ()
    279. 

  279.                                  (sort (mapcar 'car psession--winconf-alist) #'string-lessp))
    280. 

  280.                    :action (helm-make-actions
    281. 

  281.                             "Restore" 'psession-restore-winconf
    282. 

  282.                             "Delete" 'psession-delete-winconf))
    283. 

  283.         :buffer "*helm psession*"))
    284. 

    285. 

  285. ;;; helm dictionary
    286. 

  286. (setq helm-dictionary-database "~/helm-dictionary/dic-en-fr.iso")
    287. 

  287. (setq helm-dictionary-online-dicts '(("translate.reference.com en->fr" .
    288. 

  288.                                       "http://translate.reference.com/translate?query=%s&src=en&dst=fr")
    289. 

  289.                                      ("translate.reference.com fr->en" .
    290. 

  290.                                       "http://translate.reference.com/translate?query=%s&src=fr&dst=en")))
    291. 

    292. 

  292. ;; --------------------------------------------------------------------
    293. 

  293. ;; 下面配置helm-swoop.el,快速搜索
    294. 

  294. ;; https://github.com/ShingoFukuyama/helm-swoop
    295. 

  295. ;; --------------------------------------------------------------------
    296. 

  296. ;; helm from https://github.com/emacs-helm/helm
    297. 

  297. (require 'helm)
    298. 

    299. 

  299. ;; Locate the helm-swoop folder to your path
    300. 

  300. ;; (add-to-list 'load-path "~/.emacs.d/elisp/helm-swoop")
    301. 

  301. (require 'helm-swoop)
    302. 

    303. 

  303. ;; Change the keybinds to whatever you like :)
    304. 

  304. (global-set-key (kbd "M-i") 'helm-swoop)
    305. 

  305. (global-set-key (kbd "C-S-s") 'helm-swoop)
    306. 

  306. (global-set-key (kbd "M-I") 'helm-swoop-back-to-last-point)
    307. 

  307. (global-set-key (kbd "C-c M-i") 'helm-multi-swoop)
    308. 

  308. (global-set-key (kbd "C-x M-i") 'helm-multi-swoop-all)
    309. 

    310. 

  310. ;; When doing isearch, hand the word over to helm-swoop
    311. 

  311. (define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
    312. 

  312. ;; From helm-swoop to helm-multi-swoop-all
    313. 

  313. (define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
    314. 

  314. ;; When doing evil-search, hand the word over to helm-swoop
    315. 

  315. ;; (define-key evil-motion-state-map (kbd "M-i") 'helm-swoop-from-evil-search)
    316. 

    317. 

  317. ;; Instead of helm-multi-swoop-all, you can also use helm-multi-swoop-current-mode
    318. 

  318. (define-key helm-swoop-map (kbd "M-m") 'helm-multi-swoop-current-mode-from-helm-swoop)
    319. 

    320. 

  320. ;; Move up and down like isearch
    321. 

  321. (define-key helm-swoop-map (kbd "C-r") 'helm-previous-line)
    322. 

  322. (define-key helm-swoop-map (kbd "C-s") 'helm-next-line)
    323. 

  323. (define-key helm-multi-swoop-map (kbd "C-r") 'helm-previous-line)
    324. 

  324. (define-key helm-multi-swoop-map (kbd "C-s") 'helm-next-line)
    325. 

    326. 

  326. ;; Save buffer when helm-multi-swoop-edit complete
    327. 

  327. (setq helm-multi-swoop-edit-save t)
    328. 

    329. 

  329. ;; If this value is t, split window inside the current window
    330. 

  330. (setq helm-swoop-split-with-multiple-windows nil)
    331. 

    332. 

  332. ;; Split direcion. 'split-window-vertically or 'split-window-horizontally
    333. 

  333. (setq helm-swoop-split-direction 'split-window-vertically)
    334. 

    335. 

  335. ;; If nil, you can slightly boost invoke speed in exchange for text color
    336. 

  336. (setq helm-swoop-speed-or-color nil)
    337. 

    338. 

  338. ;; ;; Go to the opposite side of line from the end or beginning of line
    339. 

  339. (setq helm-swoop-move-to-line-cycle t)
    340. 

    341. 

  341. ;; Optional face for line numbers
    342. 

  342. ;; Face name is `helm-swoop-line-number-face`
    343. 

  343. (setq helm-swoop-use-line-number-face t)
    344. 

    345. 

  345. ;; use search query at the cursor  (default)
    346. 

  346. (setq helm-swoop-pre-input-function
    347. 

  347.       (lambda () (thing-at-point 'symbol)))
    348. 

    349. 

  349. ;; disable pre-input
    350. 

  350. (setq helm-swoop-pre-input-function
    351. 

  351.       (lambda () ""))
    352. 

    353. 

  353. ;; match only for symbol
    354. 

  354. (setq helm-swoop-pre-input-function
    355. 

  355.       (lambda () (format "\\_<%s\\_> " (thing-at-point 'symbol))))
    356. 

    357. 

  357. ;; Always use the previous search for helm. Remember C-<backspace> will delete entire line
    358. 

  358. (setq helm-swoop-pre-input-function
    359. 

  359.       (lambda () (if (boundp 'helm-swoop-pattern)
    360. 

  360.                      helm-swoop-pattern "")))
    361. 

    362. 

  362. ;; If there is no symbol at the cursor, use the last used words instead.
    363. 

  363. (setq helm-swoop-pre-input-function
    364. 

  364.       (lambda ()
    365. 

  365.         (let (($pre-input (thing-at-point 'symbol)))
    366. 

  366.           (if (eq (length $pre-input) 0)
    367. 

  367.               helm-swoop-pattern ;; this variable keeps the last used words
    368. 

  368.             $pre-input))))
    369. 

    370. 

  370. ;; -----------------------------------------------------------------------------
    371. 

  371. ;; helm-dash这个文档插件，可以有时间看看，很有用
    372. 

  372. ;; https://github.com/areina/helm-dash
    373. 

  373. ;; -----------------------------------------------------------------------------
    374. 

  374. (provide 'init-helm-aborn)
    375. 

    376. 

  376. ;;; init-helm-thierry.el ends here
    377. 

    378.