pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Finished org-delay implementation

Browse source
This commit is contained in:
Benson Chu 2019-12-26 10:58:35 -06:00
parent 2d898262c4
commit ffd38d516a
2 changed files with 49 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
config-org-new.org
View file

@ -1409,15 +1409,6 @@
;; (pop org-drill-card-type-alist)
#+end_src
* org agenda delay till next week
#+begin_src emacs-lisp
(defun my/org-delay-till-next-week ()
(interactive)
(org-agenda-schedule nil "sat")
(next-line))
(define-key org-agenda-mode-map (kbd "d") #'my/org-delay-till-next-week)
#+end_src
* Plan module
#+begin_src emacs-lisp
(add-to-list 'org-capture-templates

57
lisp/org-delay.el
View file

@ -24,23 +24,38 @@
;;; Code:
(require 'org)
(require 'org-agenda)
(require 'org-project)
(defun org-delay (arg &optional time)
(interactive "P")
(if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
(error "Not supported yet")
(pcase arg
('(4)
(org-entry-delete (point) "DELAYED"))
(org-entry-delete (point) "DELAYED")
"Removed delay on entry")
(_
(let ((new-time
(let* ((new-time
(or time
(format "<%s>"
(org-read-date
nil nil nil
"Delay until when?")))))
(org-entry-put (point) "DELAYED" new-time))))))
(org-read-date
nil nil nil
"Delay until when?")))
(formatted (format "<%s>" new-time)))
(if (eq 'task (opr/get-type))
(org-schedule arg new-time)
(org-entry-put (point) "DELAYED" formatted)
(format "Delayed until %s" formatted)))))))
(defun org-delay-until-next-week ()
(interactive)
(let ((time (org-read-date nil nil "fri")))
(org-delay nil time)))
(define-key org-mode-map (kbd "C-c <C-tab>") #'org-delay)
(define-key org-mode-map (kbd "C-c <tab>") #'org-delay-until-next-week)
(defun org-agenda-delay (arg &optional time)
(interactive "P")
@ -57,9 +72,35 @@
(goto-char pos)
(setq ts (org-delay arg time)))
(org-agenda-show-new-time marker ts " D"))
(next-line)
(message "%s" ts)))
(define-key org-agenda-mode-map (kbd "C-c <C-tab>") #'org-agenda-delay)
(defun org-agenda-delay-until-next-week (arg)
(interactive "P")
(org-agenda-check-type t 'agenda 'todo 'tags 'search)
(org-agenda-check-no-diary)
(let* ((marker (or (org-get-at-bol 'org-marker)
(org-agenda-error)))
(buffer (marker-buffer marker))
(pos (marker-position marker))
ts)
(org-with-remote-undo buffer
(with-current-buffer buffer
(widen)
(goto-char pos)
(setq ts (if arg
(org-delay arg)
(org-delay-until-next-week))))
(org-agenda-show-new-time marker ts " D"))
(message "%s" ts)
(next-line)))
(define-prefix-command '*org-delay-map*)
(define-key org-agenda-mode-map (kbd "d") '*org-delay-map*)
(define-key *org-delay-map* (kbd "d") #'org-agenda-delay-until-next-week)
(define-key *org-delay-map* (kbd "D") #'org-agenda-delay)
(define-key *org-delay-map* (kbd "u") (lambda () (interactive) (org-agenda-delay '(4))))
(provide 'org-delay)