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

Can now delay one day

Browse source 
also org-time-was-given is required dynamic var for behavior i'm looking for
This commit is contained in:
Benson Chu 2022-09-07 10:39:26 -05:00
parent d3f54cbcf7
commit 035179b8ec
1 changed files with 32 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lisp/org-delay.el
View file

@ -1,4 +1,4 @@
;;; org-delay.el --- -*- lexical-binding: t -*-
;;; org-delay.el ---
;; Copyright (C) 2019 Benson Chu
@ -53,7 +53,16 @@
(defun org-delay-until-next-week ()
(interactive)
(let ((time (org-read-date nil nil "fri 17:00")))
(let* ((time
(let ((org-time-was-given t))
(org-read-date nil nil "fri 17:00"))))
(org-delay nil time)))
(defun org-delay-one-day ()
(interactive)
(let ((time
(let ((org-time-was-given nil))
(org-read-date nil nil "+1d"))))
(org-delay nil time)))
(define-key org-mode-map (kbd "C-c <C-tab>") #'org-delay)
@ -97,10 +106,31 @@
(message "%s" ts)
(next-line)))
(defun org-agenda-delay-one-day (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-one-day))))
(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 "1") #'org-agenda-delay-one-day)
(define-key *org-delay-map* (kbd "D") #'org-agenda-delay)
(define-key *org-delay-map* (kbd "u") (lambda () (interactive) (org-agenda-delay '(4))))