random tweaks

This commit is contained in:
Ivan Malison 2016-06-16 17:33:50 -07:00
parent 67dcb0c2a5
commit 84e5234f44

View File

@ -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