exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Helm] Don’t show hidden files in shortcuts

Browse Source 
Dump solution, but still …
This commit is contained in:
Daniel Borchmann 2017-10-27 19:54:33 +02:00
parent 9098d675b4
commit ca6d10fdd5
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
site-lisp/db-utils.el
View File

@ -293,10 +293,13 @@ If FILE is not given, prompt for one."
(defun db/important-documents ()
"Recursively return paths of all important documents found in `db/important-documents-path’."
(when (file-directory-p db/important-documents-path)
(mapcar (lambda (path)
(cons (string-remove-prefix db/important-documents-path path)
path))
(directory-files-recursively db/important-documents-path ""))))
(delete-if ; FIXME: dump, make better
(lambda (spec)
(eq ?. (elt (car spec) 0)))
(mapcar (lambda (path)
(cons (string-remove-prefix db/important-documents-path path)
path))
(directory-files-recursively db/important-documents-path "")))))
(defun db/system-open (path)
"Open PATH with default program as defined by the underlying system."