mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

helm: Init helm-locate-meta

master
Pierre Neidhardt 2018-02-04 15:52:15 +01:00
parent fa2a68c9ab
commit 28f746a13f
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.emacs.d/lisp/init-exwm.el
View File

@ -75,6 +75,8 @@
(exwm-input-set-key (kbd "s-b") #'helm-mini)
(exwm-input-set-key (kbd "s-f") #'helm-find-files)
(exwm-input-set-key (kbd "s-F") #'helm-locate)
(when (fboundp 'helm-locate-meta)
(exwm-input-set-key (kbd "s-F") #'helm-locate-meta))
(exwm-input-set-key (kbd "s-g") #'helm-grep-git-or-ag)
(exwm-input-set-key (kbd "s-G") #'helm-grep-git-all-or-ag))

29
.emacs.d/lisp/init-helm.el
View File

@ -239,6 +239,35 @@ Requires `call-process-to-string' from `functions'."
(unless (executable-find "locate")
(setq helm-locate-recursive-dirs-command "find %s -type d -regex .*%s.*$"))
(defun helm-locate-create-or-update-db (db root &optional update)
"See `helm-locate-meta'."
(let ((was-missing (not (file-exists-p db))))
(when (or update was-missing)
(if (= (shell-command
(funcall helm-locate-create-db-function
db
root))
0)
(message "locatedb file `%s' %s" db (if was-missing "created" "updated"))
(error "Failed to %s locatedb file `%s'" db (if was-missing "create" "update"))))))
(defun helm-locate-meta (&optional update)
"Like `helm-locate' but also use the databases found in /media and /run/media.
With prefix argument, UPDATE the databases."
(interactive "P")
(let ((user-db (expand-file-name "~/.cache/locate.db")))
(helm-locate-create-or-update-db user-db "/" update)
(helm-locate-with-db
(mapconcat 'identity
(append (list user-db)
(mapc
(lambda (db)
(helm-locate-create-or-update-db db (file-name-directory db) update))
(apply 'append (mapcar
(lambda (root) (file-expand-wildcards (concat root "/*/locate.db")))
(list (concat "/run/media/" (user-login-name)) "/media")))))
":")
nil (thing-at-point 'filename))))
;;; Convenience.
(defun helm-toggle-visible-mark-backwards (arg)
(interactive "p")