From ca6d10fdd51ec97a47e9fb0b2f8319a0abf21085 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 27 Oct 2017 19:54:33 +0200 Subject: [PATCH] =?UTF-8?q?[Helm]=20Don=E2=80=99t=20show=20hidden=20files?= =?UTF-8?q?=20in=20shortcuts?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Dump solution, but still … --- site-lisp/db-utils.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 344d361..83fa597 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -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."