branch: elpa/gnosis
commit 2a3119cf2998a6a625e27846c09b281b3239e722
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
mark-toggle: Remove unnecessary check for tabulated-list.
---
gnosis.el | 34 ++++++++++++++++------------------
1 file changed, 16 insertions(+), 18 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index 6e53fb2cea8..63fedecc39d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2788,24 +2788,22 @@ DASHBOARD-TYPE: either Notes or Decks to display the
respective dashboard."
(let ((inhibit-read-only t)
(entry (tabulated-list-get-entry))
(id (tabulated-list-get-id)))
- (if (derived-mode-p 'tabulated-list-mode)
- (if entry
- (let ((beg (line-beginning-position))
- (end (line-end-position))
- (overlays (overlays-in (line-beginning-position)
(line-end-position))))
- (if (cl-some (lambda (ov) (overlay-get ov 'gnosis-mark))
overlays)
- (progn
- (remove-overlays beg end 'gnosis-mark t)
- (setq gnosis-dashboard--selected-ids
- (remove id gnosis-dashboard--selected-ids)))
- (let ((ov (make-overlay beg end)))
- (setf gnosis-dashboard--selected-ids
- (append gnosis-dashboard--selected-ids (list id)))
- (overlay-put ov 'face 'highlight)
- (overlay-put ov 'gnosis-mark t)))
- (forward-line))
- (message "No entry at point"))
- (message "Not in a tabulated-list-mode"))))
+ (if entry
+ (let ((beg (line-beginning-position))
+ (end (line-end-position))
+ (overlays (overlays-in (line-beginning-position)
(line-end-position))))
+ (if (cl-some (lambda (ov) (overlay-get ov 'gnosis-mark)) overlays)
+ (progn
+ (remove-overlays beg end 'gnosis-mark t)
+ (setq gnosis-dashboard--selected-ids
+ (remove id gnosis-dashboard--selected-ids)))
+ (let ((ov (make-overlay beg end)))
+ (setf gnosis-dashboard--selected-ids
+ (append gnosis-dashboard--selected-ids (list id)))
+ (overlay-put ov 'face 'highlight)
+ (overlay-put ov 'gnosis-mark t)))
+ (forward-line))
+ (message "No entry at point"))))
(defun gnosis-dashboard-unmark-all ()
"Unmark all items in the tabulated-list."
