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

...

Browse Source
This commit is contained in:
Ivan Malison 2015-08-16 01:51:48 -07:00
parent ef95d4d21a
commit 6083cc020c
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -182,25 +182,16 @@
`(flet ((message (&rest r) nil)) `(flet ((message (&rest r) nil))
,@forms)) ,@forms))
(defun cmp-int-list (a b) (defun imalison:compare-int-list (a b)
(when (and a b) (when (and a b)
(cond ((> (car a) (car b)) 1) (cond ((> (car a) (car b)) 1)
((< (car a) (car b)) -1) ((< (car a) (car b)) -1)
(t (cmp-int-list (cdr a) (cdr b)))))) (t (imalison:compare-int-list (cdr a) (cdr b))))))
(defun get-date-created-from-agenda-entry (agenda-entry) (defun get-date-created-from-agenda-entry (agenda-entry)
(org-time-string-to-time (org-time-string-to-time
(org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED"))) (org-entry-get (get-text-property 1 'org-marker agenda-entry) "CREATED")))
(defun narrow-to-region-indirect (start end)
"Restrict editing in this buffer to the current region, indirectly."
(interactive "r")
(deactivate-mark)
(let ((buf (clone-indirect-buffer nil nil)))
(with-current-buffer buf
(narrow-to-region start end))
(switch-to-buffer buf)))
(defmacro defvar-setq (name value) (defmacro defvar-setq (name value)
(if (boundp name) (if (boundp name)
`(setq ,name ,value) `(setq ,name ,value)
@ -810,7 +801,7 @@ The current directory is assumed to be the project's root otherwise."
(defun org-cmp-creation-times (a b) (defun org-cmp-creation-times (a b)
(let ((a-created (get-date-created-from-agenda-entry a)) (let ((a-created (get-date-created-from-agenda-entry a))
(b-created (get-date-created-from-agenda-entry b))) (b-created (get-date-created-from-agenda-entry b)))
(cmp-int-list a-created b-created))) (imalison:compare-int-list a-created b-created)))
(defun org-agenda-done (&optional arg) (defun org-agenda-done (&optional arg)
"Mark current TODO as done. "Mark current TODO as done.