random tweaks
This commit is contained in:
parent
67dcb0c2a5
commit
84e5234f44
@ -1044,7 +1044,7 @@ Sets environment variables by starting a shell
|
|||||||
(defun org-todo-at-date (date)
|
(defun org-todo-at-date (date)
|
||||||
(interactive (list (org-time-string-to-time (org-read-date))))
|
(interactive (list (org-time-string-to-time (org-read-date))))
|
||||||
(cl-flet ((org-current-effective-time (&rest r) date)
|
(cl-flet ((org-current-effective-time (&rest r) date)
|
||||||
(org-today (&rest r) (time-to-days date)))
|
(org-today (&rest r) (time-to-days date)))
|
||||||
(cond ((eq major-mode 'org-mode) (org-todo))
|
(cond ((eq major-mode 'org-mode) (org-todo))
|
||||||
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
|
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
|
||||||
|
|
||||||
@ -1058,8 +1058,8 @@ Sets environment variables by starting a shell
|
|||||||
|
|
||||||
(defun org-agenda-done (&optional arg)
|
(defun org-agenda-done (&optional arg)
|
||||||
"Mark current TODO as done.
|
"Mark current TODO as done.
|
||||||
This changes the line at point, all other lines in the agenda referring to
|
This changes the line at point, all other lines in the agenda referring to
|
||||||
the same tree node, and the headline of the tree node in the Org-mode file."
|
the same tree node, and the headline of the tree node in the Org-mode file."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(org-agenda-todo "DONE"))
|
(org-agenda-todo "DONE"))
|
||||||
;; Override the key definition for org-exit
|
;; Override the key definition for org-exit
|
||||||
@ -1215,28 +1215,28 @@ Sets environment variables by starting a shell
|
|||||||
`("y" "Calendar entry (Linked)" entry
|
`("y" "Calendar entry (Linked)" entry
|
||||||
(file ,imalison:org-calendar-file)
|
(file ,imalison:org-calendar-file)
|
||||||
"* %? %A
|
"* %? %A
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CREATED: %U
|
:CREATED: %U
|
||||||
:END:
|
:END:
|
||||||
%^T"))
|
%^T"))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("c" "Calendar entry" entry
|
`("c" "Calendar entry" entry
|
||||||
(file ,imalison:org-calendar-file)
|
(file ,imalison:org-calendar-file)
|
||||||
"* %?
|
"* %?
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CREATED: %U
|
:CREATED: %U
|
||||||
:END:
|
:END:
|
||||||
%^T"))
|
%^T"))
|
||||||
|
|
||||||
(add-to-list 'org-capture-templates
|
(add-to-list 'org-capture-templates
|
||||||
`("h" "Habit" entry (file ,imalison:org-habits-file)
|
`("h" "Habit" entry (file ,imalison:org-habits-file)
|
||||||
"* TODO
|
"* TODO
|
||||||
SCHEDULED: %^t
|
SCHEDULED: %^t
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CREATED: %U
|
:CREATED: %U
|
||||||
:STYLE: habit
|
:STYLE: habit
|
||||||
:END:"))
|
:END:"))
|
||||||
|
|
||||||
(let ((this-week-high-priority
|
(let ((this-week-high-priority
|
||||||
;; The < in the following line works has behavior that is opposite
|
;; The < in the following line works has behavior that is opposite
|
||||||
@ -1245,14 +1245,14 @@ Sets environment variables by starting a shell
|
|||||||
((org-agenda-overriding-header
|
((org-agenda-overriding-header
|
||||||
"Upcoming high priority tasks:"))))
|
"Upcoming high priority tasks:"))))
|
||||||
(due-today '(tags-todo
|
(due-today '(tags-todo
|
||||||
"+DEADLINE=<\"<+0d>\""
|
"+DEADLINE=<\"<+0d>\""
|
||||||
((org-agenda-overriding-header
|
((org-agenda-overriding-header
|
||||||
"Due today:"))))
|
"Due today:"))))
|
||||||
(recently-created '(tags-todo
|
(recently-created '(tags-todo
|
||||||
"+CREATED=>\"<-3d>\""
|
"+CREATED=>\"<-3d>\""
|
||||||
((org-agenda-overriding-header "Recently created:")
|
((org-agenda-overriding-header "Recently created:")
|
||||||
(org-agenda-cmp-user-defined 'org-cmp-creation-times)
|
(org-agenda-cmp-user-defined 'org-cmp-creation-times)
|
||||||
(org-agenda-sorting-strategy '(user-defined-down)))))
|
(org-agenda-sorting-strategy '(user-defined-down)))))
|
||||||
(next '(todo "NEXT"))
|
(next '(todo "NEXT"))
|
||||||
(started '(todo "STARTED"))
|
(started '(todo "STARTED"))
|
||||||
(missing-deadline
|
(missing-deadline
|
||||||
@ -1280,11 +1280,11 @@ Sets environment variables by starting a shell
|
|||||||
,(cons "d" (cons "Overdue tasks and due today" due-today))
|
,(cons "d" (cons "Overdue tasks and due today" due-today))
|
||||||
,(cons "r" (cons "Recently created" recently-created))
|
,(cons "r" (cons "Recently created" recently-created))
|
||||||
("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
|
("h" "A, B priority:" tags-todo "+PRIORITY<\"C\""
|
||||||
((org-agenda-overriding-header
|
((org-agenda-overriding-header
|
||||||
"High Priority:")))
|
"High Priority:")))
|
||||||
("c" "At least priority C:" tags-todo "+PRIORITY<\"D\""
|
("c" "At least priority C:" tags-todo "+PRIORITY<\"D\""
|
||||||
((org-agenda-overriding-header
|
((org-agenda-overriding-header
|
||||||
"At least priority C:"))))))
|
"At least priority C:"))))))
|
||||||
|
|
||||||
;; What follows is a description of the significance of each of
|
;; What follows is a description of the significance of each of
|
||||||
;; the values available in `org-todo-keywords'. All headings with
|
;; the values available in `org-todo-keywords'. All headings with
|
||||||
@ -1335,7 +1335,7 @@ Sets environment variables by starting a shell
|
|||||||
;; within the appropriate time period, and there is now no point in
|
;; within the appropriate time period, and there is now no point in
|
||||||
;; attempting it.
|
;; attempting it.
|
||||||
|
|
||||||
'
|
'
|
||||||
;; CANCELED - For whatever reason, this TODO should no longer be
|
;; CANCELED - For whatever reason, this TODO should no longer be
|
||||||
;; attempted. This TODO is typically used in contrast to the
|
;; attempted. This TODO is typically used in contrast to the
|
||||||
;; EXPIRED TODO to indicate that the owner is not necessarily to
|
;; EXPIRED TODO to indicate that the owner is not necessarily to
|
||||||
@ -2230,7 +2230,7 @@ I don't use iedit directly, but it is used by [[*emr][emr]] and I need to disabl
|
|||||||
(use-package iedit
|
(use-package iedit
|
||||||
:demand
|
:demand
|
||||||
:preface
|
:preface
|
||||||
(defvar iedit-toggle-key-default nil))
|
(defvar-setq iedit-toggle-key-default nil))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** tramp
|
*** tramp
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
Loading…
Reference in New Issue
Block a user