diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-04-13 22:14:47 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-04-13 22:14:47 +0200 |
commit | 81c355d1cda1b68cdd89b872533aa4c140336005 (patch) | |
tree | 3ef76718127d4c3cb40fbbca7dc36305edc55930 /helm-bookmark.el | |
parent | a399158bcdfb05f2ca93c3c064f54b9829151c43 (diff) | |
parent | 15625ffb83f12bd8dee61466d80d7a3e0abe2887 (diff) |
Merge pull request #1743 from alphapapa/helm-bookmark-org-files
Add Org file bookmarks to helm-bookmarks
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 0b690e71..9f7f069b 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -45,7 +45,8 @@ :type 'boolean) (defcustom helm-bookmark-default-filtered-sources - (append '(helm-source-bookmark-files&dirs + (append '(helm-source-bookmark-org + helm-source-bookmark-files&dirs helm-source-bookmark-helm-find-files helm-source-bookmark-info helm-source-bookmark-gnus @@ -296,6 +297,11 @@ This excludes bookmarks of a more specific kind (Info, Gnus, and W3m)." (isnonfile (equal filename helm-bookmark--non-file-filename))) (and filename (not isnonfile) (not (bookmark-get-handler bookmark))))) +(defun helm-bookmark-org-file-p (bookmark) + (let* ((filename (bookmark-get-filename bookmark))) + (or (string-suffix-p ".org" filename t) + (string-suffix-p ".org_archive" filename t)))) + (defun helm-bookmark-helm-find-files-p (bookmark) "Return non-nil if BOOKMARK bookmarks a `helm-find-files' session. BOOKMARK is a bookmark name or a bookmark record." @@ -311,7 +317,8 @@ BOOKMARK is a bookmark name or a bookmark record." (defun helm-bookmark-uncategorized-bookmark-p (bookmark) "Return non--nil if BOOKMARK match no known category." - (cl-loop for pred in '(helm-bookmark-addressbook-p + (cl-loop for pred in '(helm-bookmark-org-file-p + helm-bookmark-addressbook-p helm-bookmark-gnus-bookmark-p helm-bookmark-w3m-bookmark-p helm-bookmark-woman-man-bookmark-p @@ -412,6 +419,19 @@ than `w3m-browse-url' use it." (helm-init-candidates-in-buffer 'global (helm-bookmark-man-setup-alist))))) +;;; Org files +;; +(defun helm-bookmark-org-setup-alist () + "Specialized filter function for Org file bookmarks." + (helm-bookmark-filter-setup-alist 'helm-bookmark-org-file-p)) + +(defvar helm-source-bookmark-org + (helm-make-source " Bookmarked Org files" 'helm-source-filtered-bookmarks + :init (lambda () + (bookmark-maybe-load-default-file) + (helm-init-candidates-in-buffer + 'global (helm-bookmark-org-setup-alist))))) + ;;; Gnus ;; (defun helm-bookmark-gnus-setup-alist () |