Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Agenda remove item #372

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Apr 9, 2022
Merged

Agenda remove item #372

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
7529a16
Use text properties to store relevant entry data instead of using lists.
ricardoricho Mar 28, 2022
e0244e9
Dashboard agenda implement dashboard-remove-item-under using org-todo
ricardoricho Mar 28, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
25 changes: 13 additions & 12 deletions dashboard-widgets.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1092,14 +1092,15 @@ each agenda entry."
(org-outline-level)
(org-get-category)
(org-get-tags)))
(loc (point))
(file (buffer-file-name))
(todo-state (org-get-todo-state))
(todo-index (and todo-state
(length (member todo-state org-todo-keywords-1))))
(entry-data (list (cons 'time entry-time)
(cons 'todo-index todo-index))))
(list item loc file entry-data)))
(entry-data (list 'dashboard-agenda-time entry-time
'dashboard-agenda-todo-index todo-index
'dashboard-agenda-file (buffer-file-name)
'dashboard-agenda-loc (point))))
(add-text-properties 0 (length item) entry-data item)
item))

(defun dashboard-agenda--formatted-headline ()
"Set agenda faces to `HEADLINE' when face text property is nil."
Expand Down Expand Up @@ -1212,16 +1213,16 @@ found for the strategy it uses nil predicate."
(defun dashboard-agenda--build-sort-function-attribute (strategy)
"Return the argument to compare two entries depending to the `STRATEGY'."
(cond
((memq strategy '(time-up time-down)) 'time)
((memq strategy '(todo-state-up todo-state-down)) 'todo-index)
((memq strategy '(time-up time-down)) 'dashboard-agenda-time)
((memq strategy '(todo-state-up todo-state-down)) 'dashboard-agenda-todo-index)
(t nil)))

(defun dashboard-agenda--compare-entries (entry1 entry2 strategies predicate attribute)
"Compare `ENTRY1' and `ENTRY2' by `ATTRIBUTE' using `PREDICATE'.
If both attributes are nil or equals the next strategy in `STRATEGIES' is used
to compare."
(let ((arg1 (alist-get attribute (nth 3 entry1)))
(arg2 (alist-get attribute (nth 3 entry2))))
(let ((arg1 (get-text-property 0 attribute entry1))
(arg2 (get-text-property 0 attribute entry2)))
(cond
((or (and (null arg1) (null arg2)) (equal arg1 arg2))
(apply (dashboard-agenda--build-sort-function strategies) (list entry1 entry2)))
Expand All @@ -1241,11 +1242,11 @@ to compare."
'agenda
(dashboard-get-shortcut 'agenda)
`(lambda (&rest _)
(let ((buffer (find-file-other-window (nth 2 ',el))))
(let ((buffer (find-file-other-window (get-text-property 0 'dashboard-agenda-file ,el))))
(with-current-buffer buffer
(goto-char (nth 1 ',el))
(goto-char (get-text-property 0 'dashboard-agenda-loc ,el))
(switch-to-buffer buffer))))
(format "%s" (nth 0 el))))
(format "%s" el)))

;;
;; Registers
Expand Down
8 changes: 7 additions & 1 deletion dashboard.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -57,6 +57,7 @@

(define-key map (kbd "<backspace>") #'dashboard-remove-item-under)
(define-key map (kbd "<delete>") #'dashboard-remove-item-under)
(define-key map (kbd "DEL") #'dashboard-remove-item-under)

(define-key map (kbd "1") #'dashboard-section-1)
(define-key map (kbd "2") #'dashboard-section-2)
Expand Down Expand Up @@ -320,7 +321,12 @@ Optional argument ARGS adviced function arguments."

(defun dashboard-remove-item-agenda ()
"Remove an agenda from `org-agenda-files'."
(interactive)) ; TODO: ..
(interactive "P")
(let ((agenda-file (get-text-property (point) 'dashboard-agenda-file))
(agenda-loc (get-text-property (point) 'dashboard-agenda-loc)))
(with-current-buffer (find-file-noselect agenda-file)
(goto-char agenda-loc)
(call-interactively 'org-todo))))

(defun dashboard-remove-item-registers ()
"Remove a registers from `register-alist'."
Expand Down