branch: master
commit b2693d16941dbb3ac9b48c588f5cebbf4036e026
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
counsel.el (counsel-locate-db-path): New defcustom
* counsel.el (counsel-locate): Automatically update db for encrypted
home.
---
counsel.el | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/counsel.el b/counsel.el
index 19e3062..e1a733c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2287,11 +2287,30 @@ string - the full shell command to run."
(funcall counsel-locate-cmd input))
'("" "working..."))))
+(defcustom counsel-locate-db-path "~/.local/mlocate.db"
+ "Location where to put the locatedb in case your home folder is encrypted."
+ :type 'file)
+
+(defun counsel--locate-updatedb ()
+ (when (file-exists-p "~/.Private")
+ (let ((db-fname (expand-file-name counsel-locate-db-path)))
+ (setenv "LOCATE_PATH" db-fname)
+ (when (or (not (file-exists-p db-fname))
+ (> (time-to-seconds
+ (time-subtract
+ (current-time)
+ (nth 5 (file-attributes db-fname))))
+ 60))
+ (message "Updating %s..." db-fname)
+ (counsel--command
+ "updatedb" "-l" "0" "-o" db-fname "-U" (expand-file-name "~"))))))
+
;;;###autoload
(defun counsel-locate (&optional initial-input)
"Call the \"locate\" shell command.
INITIAL-INPUT can be given as the initial minibuffer input."
(interactive)
+ (counsel--locate-updatedb)
(ivy-read "Locate: " #'counsel-locate-function
:initial-input initial-input
:dynamic-collection t
