diff options
Diffstat (limited to 'helm-bookmark.el')
| -rw-r--r-- | helm-bookmark.el | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 3d08c681..05036dec 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -35,37 +35,37 @@ (defface helm-bookmark-info - '((t (:foreground "green"))) + '((t (:foreground "green"))) "Face used for W3m Emacs bookmarks (not w3m bookmarks)." :group 'helm-bookmark) (defface helm-bookmark-w3m - '((t (:foreground "yellow"))) + '((t (:foreground "yellow"))) "Face used for W3m Emacs bookmarks (not w3m bookmarks)." :group 'helm-bookmark) (defface helm-bookmark-gnus - '((t (:foreground "magenta"))) + '((t (:foreground "magenta"))) "Face used for Gnus bookmarks." :group 'helm-bookmark) (defface helm-bookmark-man - '((t (:foreground "Orange4"))) + '((t (:foreground "Orange4"))) "Face used for Woman/man bookmarks." :group 'helm-bookmark) (defface helm-bookmark-file - '((t (:foreground "Deepskyblue2"))) + '((t (:foreground "Deepskyblue2"))) "Face used for file bookmarks." :group 'helm-bookmark) (defface helm-bookmark-directory - '((t (:inherit helm-ff-directory))) + '((t (:inherit helm-ff-directory))) "Face used for file bookmarks." :group 'helm-bookmark) (defface helm-bookmark-addressbook - '((t (:foreground "tomato"))) + '((t (:foreground "tomato"))) "Face used for addressbook bookmarks." :group 'helm-bookmark) @@ -108,7 +108,7 @@ for len = (string-width i) for trunc = (if (> len bookmark-bmenu-file-column) (helm-substring i bookmark-bmenu-file-column) - i) + i) for sep = (make-string (- (+ bookmark-bmenu-file-column 2) (length trunc)) ? ) if helm-bookmark-show-location @@ -120,7 +120,7 @@ (if helm-bookmark-show-location ;; match only location, match-plugin will match also name. (string-match helm-pattern (bookmark-location candidate)) - (string-match helm-pattern candidate))) + (string-match helm-pattern candidate))) (defun helm-bookmark-toggle-filename () "Toggle bookmark location visibility." @@ -129,13 +129,13 @@ (let* ((real (helm-get-selection helm-buffer)) (trunc (if (> (string-width real) bookmark-bmenu-file-column) (helm-substring real bookmark-bmenu-file-column) - real))) + real))) (setq helm-bookmark-show-location (not helm-bookmark-show-location)) (helm-force-update (if helm-bookmark-show-location (concat (regexp-quote trunc) " +" (regexp-quote (bookmark-location real))) - real))))) + real))))) (defun helm-bookmark-jump (candidate) "Jump to bookmark from keyboard." @@ -185,7 +185,7 @@ Should be used with `helm-pp-bookmark-match-fn' as `match-part' function." (if helm-bookmark-show-location (helm-aif (next-single-property-change (point) 'location) (goto-char it)) - (re-search-forward pattern nil t))) + (re-search-forward pattern nil t))) (defun helm-pp-bookmark-match-fn (candidate) "Search function for bookmark sources using `candidates-in-buffer'. @@ -246,7 +246,7 @@ BOOKMARK is a bookmark name or a bookmark record." "Return non-nil if BOOKMARK bookmarks an image file." (if (stringp bookmark) (assoc 'image-type (assoc bookmark bookmark-alist)) - (assoc 'image-type bookmark))) + (assoc 'image-type bookmark))) (defun helm-bookmark-file-p (bookmark) "Return non-nil if BOOKMARK bookmarks a file or directory. @@ -261,8 +261,8 @@ This excludes bookmarks of a more specific kind (Info, Gnus, and W3m)." BOOKMARK is a bookmark name or a bookmark record." (if (listp bookmark) (string= (assoc-default 'type bookmark) "addressbook") - (string= (assoc-default - 'type (assoc bookmark bookmark-alist)) "addressbook"))) + (string= (assoc-default + 'type (assoc bookmark bookmark-alist)) "addressbook"))) (defun helm-bookmark-uncategorized-bookmark-p (bookmark) "Return non--nil if BOOKMARK match no known category." @@ -484,7 +484,7 @@ than `w3m-browse-url' use it." (append (message-buffers))) (if append (addressbook-set-mail-buffer1 bmk 'append) - (addressbook-set-mail-buffer1 bmk)) + (addressbook-set-mail-buffer1 bmk)) (setq contacts (cdr contacts)) (when contacts (cl-loop for bmk in contacts do @@ -508,7 +508,7 @@ than `w3m-browse-url' use it." (if (> (length mlist) 1) (helm-comp-read "Insert Mail Address: " mlist :must-match t) - (car mlist)))))) + (car mlist)))))) ("Show annotation" . (lambda (candidate) (let ((bmk (helm-bookmark-get-bookmark-from-name @@ -577,7 +577,7 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el." (> len bookmark-bmenu-file-column)) (helm-substring i bookmark-bmenu-file-column) - i) + i) ;; Add a * if bookmark have annotation if (and isannotation (not (string-equal isannotation ""))) do (setq trunc (concat "*" (if helm-bookmark-show-location trunc i))) @@ -622,7 +622,7 @@ Work both with standard Emacs bookmarks and bookmark-extensions.el." 'help-echo isfile))) collect (if helm-bookmark-show-location (cons (concat bmk sep loc) i) - (cons bmk i))))) + (cons bmk i))))) (defun helm-bookmark-edit-bookmark (bookmark-name) "Edit bookmark's name and file name, and maybe save them. @@ -635,7 +635,7 @@ BOOKMARK-NAME is the current (old) name of the bookmark to be renamed." (or bookmark-fname (if (consp bookmark-loc) (car bookmark-loc) - bookmark-loc)))) + bookmark-loc)))) (docid (and (eq handler 'mu4e-bookmark-jump) (read-number "Docid: " (cdr bookmark-loc))))) (when docid @@ -646,9 +646,9 @@ BOOKMARK-NAME is the current (old) name of the bookmark to be renamed." (progn (helm-bookmark-rename bookmark-name new-name 'batch) (bookmark-set-filename new-name new-loc)) - (bookmark-prop-set - (bookmark-get-bookmark bookmark-name) 'location new-loc) - (helm-bookmark-rename bookmark-name new-name 'batch)) + (bookmark-prop-set + (bookmark-get-bookmark bookmark-name) 'location new-loc) + (helm-bookmark-rename bookmark-name new-name 'batch)) (helm-bookmark-maybe-save-bookmark) (list new-name new-loc)))) @@ -694,18 +694,18 @@ words from the buffer into the new bookmark name." ;;; Bookmarks attributes ;; (define-helm-type-attribute 'bookmark - `((coerce . helm-bookmark-get-bookmark-from-name) - (action - ("Jump to bookmark" . helm-bookmark-jump) - ("Jump to BM other window" . helm-bookmark-jump-other-window) - ("Bookmark edit annotation" . bookmark-edit-annotation) - ("Bookmark show annotation" . bookmark-show-annotation) - ("Delete bookmark(s)" . helm-delete-marked-bookmarks) - ("Edit Bookmark" . helm-bookmark-edit-bookmark) - ("Rename bookmark" . helm-bookmark-rename) - ("Relocate bookmark" . bookmark-relocate)) - (keymap . ,helm-bookmark-map) - (mode-line . helm-bookmark-mode-line-string)) + `((coerce . helm-bookmark-get-bookmark-from-name) + (action + ("Jump to bookmark" . helm-bookmark-jump) + ("Jump to BM other window" . helm-bookmark-jump-other-window) + ("Bookmark edit annotation" . bookmark-edit-annotation) + ("Bookmark show annotation" . bookmark-show-annotation) + ("Delete bookmark(s)" . helm-delete-marked-bookmarks) + ("Edit Bookmark" . helm-bookmark-edit-bookmark) + ("Rename bookmark" . helm-bookmark-rename) + ("Relocate bookmark" . bookmark-relocate)) + (keymap . ,helm-bookmark-map) + (mode-line . helm-bookmark-mode-line-string)) "Bookmark name.") |