aa26332d00
vcs: + +git-gutter to conf-modes; -git-gutter from evil-insert-state-exit + switch github-browse-file for browse-at-remote + fix <leader>ob; add <leader>d[./sr] vc bindings + vc-annotate bindings and initial state Workgroups2 integration: + don't mess with buffers (speeds up emacs a lot!) + unicode numbers in display + single display function + remember workgroup uid instead (and smarter :tabrename) + clean up after wg update Org-mode + give highlight precedence to links in org-mode + enable encryption + config clean up + use different font for org + exclude attachments in recentf + redo latex and inline-image config + add narf/org-open-notes + update file templates for org CRM Mode-line + polish mode-line + decouple from spaceline-segments.el + refactor narf|spaceline-env-update + add macro-recording and buffer-size indicators to mode-line + python: '2>&1' in env-command + flycheck fringe indicator: change to arrow Aesthetics + update narf-dark-theme + add narf-minibuffer-active face + change writing indicator in writing-mode Misc + fix whitespace in display-startup-echo-area-message + reset fonts for more unicode characters + custom imenu entries + helm-imenu fontification + enable yascroll-bar in REPLs + reorganize my-commands.el + force quit iedit on ESC in normal mode + update snippets submodule + remove ido init (helm handles it all) [EXPERIMENTAL] + back to Terminus(TTF) font + popwin: update config for git-gutter and vc-diff windows + highlight :g[lobal] and :al[ign] matches + decouple narf/get-buffers+narf/get-all-buffers from wg-mess-with-buffer-list + fix narf/helm-buffers-dwim (add interactive form)
142 lines
4.8 KiB
EmacsLisp
142 lines
4.8 KiB
EmacsLisp
;;; core-helm.el
|
|
|
|
(use-package helm
|
|
:init
|
|
(defvar helm-global-prompt ">>> ")
|
|
(setq-default
|
|
helm-quick-update t
|
|
helm-reuse-last-window-split-state t
|
|
|
|
helm-buffers-fuzzy-matching t
|
|
helm-apropos-fuzzy-match nil
|
|
helm-M-x-fuzzy-match t
|
|
helm-recentf-fuzzy-match t
|
|
;; helm-mode-fuzzy-match t
|
|
|
|
helm-display-header-line nil
|
|
helm-ff-auto-update-initial-value nil
|
|
helm-ff-skip-boring-files t
|
|
helm-find-files-doc-header nil
|
|
helm-move-to-line-cycle-in-source t
|
|
|
|
;; Don't override evil-ex's completion
|
|
helm-mode-handle-completion-in-region nil
|
|
|
|
helm-candidate-number-limit 30
|
|
helm-bookmark-show-location t)
|
|
|
|
:config
|
|
(require 'helm-files)
|
|
|
|
(mapc (lambda (r) (add-to-list 'helm-boring-file-regexp-list r))
|
|
(list "\\.projects$" "\\.DS_Store$"))
|
|
|
|
(map! (:map (helm-map helm-generic-files-map helm-find-files-map helm-swoop-map helm-projectile-find-file-map)
|
|
"C-w" 'backward-kill-word
|
|
"C-r" 'evil-paste-from-register ; Evil registers in helm! Glorious!
|
|
"<escape>" 'helm-keyboard-quit
|
|
[escape] 'helm-keyboard-quit)
|
|
(:map helm-find-files-map
|
|
"C-w" 'helm-find-files-up-one-level
|
|
;; "TAB" 'helm-execute-persistent-action
|
|
"/" 'helm-execute-persistent-action)
|
|
(:map helm-ag-map
|
|
"<backtab>" 'helm-ag-edit)
|
|
(:map helm-ag-edit-map
|
|
"<escape>" 'helm-ag--edit-abort
|
|
:n "zx" 'helm-ag--edit-abort)
|
|
(:map helm-map
|
|
"C-S-n" 'helm-next-source
|
|
"C-S-p" 'helm-previous-source
|
|
"C-u" 'helm-delete-minibuffer-contents))
|
|
|
|
;;; Helm hacks
|
|
(defun narf*helm-hide-source-header-maybe ()
|
|
(if (<= (length helm-sources) 1)
|
|
(set-face-attribute 'helm-source-header nil :height 0.1)
|
|
(set-face-attribute 'helm-source-header nil :height 1.0)))
|
|
|
|
(defun narf*helm-hide-modeline (source &optional force)
|
|
(setq mode-line-format nil)
|
|
(setq header-line-format nil))
|
|
|
|
(defun narf*helm-replace-prompt (plist)
|
|
(if (keywordp (car plist))
|
|
(setq plist (plist-put plist :prompt helm-global-prompt))
|
|
(setcar (nthcdr 2 plist) helm-global-prompt))
|
|
plist)
|
|
|
|
;; Shrink source headers if there is only one source
|
|
(add-hook 'helm-before-initialize-hook 'narf*helm-hide-source-header-maybe)
|
|
;; A simpler prompt: see `helm-global-prompt'
|
|
(advice-add 'helm :filter-args 'narf*helm-replace-prompt)
|
|
;; Hide mode-line in helm windows
|
|
(advice-add 'helm-display-mode-line :override 'narf*helm-hide-modeline)
|
|
|
|
(helm-mode 1))
|
|
|
|
(use-package projectile
|
|
:config
|
|
(add-hook! kill-emacs 'narf|projectile-invalidate-cache-maybe)
|
|
|
|
(setq-default projectile-enable-caching t)
|
|
(setq projectile-sort-order 'recentf
|
|
projectile-require-project-root nil
|
|
projectile-cache-file (concat narf-temp-dir "projectile.cache")
|
|
projectile-known-projects-file (concat narf-temp-dir "projectile.projects")
|
|
projectile-indexing-method 'alien
|
|
projectile-project-root-files narf-project-root-files)
|
|
|
|
(add-to-list 'projectile-globally-ignored-files "ido.last")
|
|
(add-to-list 'projectile-globally-ignored-directories "assets")
|
|
(add-to-list 'projectile-other-file-alist '("scss" "css"))
|
|
(add-to-list 'projectile-other-file-alist '("css" "scss"))
|
|
|
|
(projectile-global-mode +1)
|
|
|
|
(require 'helm-projectile))
|
|
|
|
(use-package helm-ag
|
|
:commands (helm-ag
|
|
helm-ag-mode
|
|
helm-do-ag
|
|
helm-do-ag-this-file
|
|
helm-do-ag-project-root
|
|
helm-do-ag-buffers
|
|
helm-ag-project-root
|
|
helm-ag-pop-stack
|
|
helm-ag-buffers
|
|
helm-ag-clear-stack))
|
|
|
|
(use-package helm-org
|
|
:commands (helm-org-in-buffer-headings
|
|
helm-org-agenda-files-headings
|
|
helm-org-capture-templates))
|
|
|
|
(use-package helm-css-scss ; https://github.com/ShingoFukuyama/helm-css-scss
|
|
:commands (helm-css-scss
|
|
helm-css-scss-multi
|
|
helm-css-scss-insert-close-comment)
|
|
:config
|
|
(setq helm-css-scss-split-direction 'split-window-vertically
|
|
helm-css-scss-split-with-multiple-windows t))
|
|
|
|
(use-package helm-swoop ; https://github.com/ShingoFukuyama/helm-swoop
|
|
:defines (helm-swoop-last-prefix-number)
|
|
:commands (helm-swoop helm-multi-swoop helm-multi-swoop-all)
|
|
:config
|
|
(setq helm-swoop-use-line-number-face t
|
|
helm-swoop-split-with-multiple-windows t
|
|
helm-swoop-candidate-number-limit 200
|
|
helm-swoop-speed-or-color t
|
|
helm-swoop-pre-input-function (lambda () "")))
|
|
|
|
;; (use-package helm-c-yasnippet :commands helm-yas-visit-snippet-file)
|
|
(use-package helm-semantic :commands helm-semantic-or-imenu)
|
|
(use-package helm-elisp :commands helm-apropos)
|
|
(use-package helm-command :commands helm-M-x)
|
|
(use-package helm-descbinds :commands helm-descbinds)
|
|
|
|
(provide 'core-helm)
|
|
;;; core-helm.el ends here
|