colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

There was a built in (org-time-string-to-time) that does what

Browse Source 
org-date-time-to-internal-time does.
This commit is contained in:
Ivan Malison 2014-12-13 21:31:05 -08:00
parent df280bc137
commit cd263806ab
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/emacs.d/init.el
View File

@ -655,11 +655,6 @@ The current directory is assumed to be the project's root otherwise."
(org-insert-todo-heading nil)
(org-make-habit))
(defun org-date-time-to-internal-time (org-date)
`(,@(apply 'encode-time
(mapcar (lambda (elem) (if elem elem 0))
(subseq (parse-time-string org-date) 0 6))) 0 0))
(defun org-todo-at-date (date)
(interactive (list (org-time-string-to-time (org-read-date))))
(flet ((org-current-effective-time (&rest r) date))