ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/site-lisp/eltuki.el

Browse source
This commit is contained in:
Tom Willemsen 2012-10-07 13:19:23 +02:00
parent 5cfcc802d2
commit d8ce7b6cce
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
.emacs.d/site-lisp/eltuki.el
View file

@ -84,8 +84,8 @@
(let ((newtime (format-time-string " %s"))) (let ((newtime (format-time-string " %s")))
(if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t) (if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t)
(replace-match newtime nil t nil 1) (replace-match newtime nil t nil 1)
(search-forward "\n\n") (when (search-forward "\n\n" nil t)
(backward-char) (backward-char))
(insert "#+TIMESTAMP:" newtime "\n"))))) (insert "#+TIMESTAMP:" newtime "\n")))))
(defun eltuki-get-tags () (defun eltuki-get-tags ()
@ -102,8 +102,8 @@
(goto-char (point-min)) (goto-char (point-min))
(if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t) (if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t)
(replace-match tags t t nil 1) (replace-match tags t t nil 1)
(search-forward "\n\n") (when (search-forward "\n\n" nil t)
(backward-char) (backward-char))
(insert "#+TAGS:" tags "\n")))) (insert "#+TAGS:" tags "\n"))))
(defun eltuki-get-status () (defun eltuki-get-status ()
@ -123,8 +123,8 @@
" draft"))) " draft")))
(if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t) (if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t)
(replace-match newstatus t t nil 1) (replace-match newstatus t t nil 1)
(search-forward "\n\n") (when (search-forward "\n\n" nil t)
(backward-char) (backward-char))
(insert "#+STATUS:" newstatus "\n"))))) (insert "#+STATUS:" newstatus "\n")))))
(defun eltuki-get-comment-status () (defun eltuki-get-comment-status ()
@ -145,8 +145,8 @@
" closed"))) " closed")))
(if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t) (if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t)
(replace-match newstatus t t nil 1) (replace-match newstatus t t nil 1)
(search-forward "\n\n") (when (search-forward "\n\n" nil t)
(backward-char) (backward-char))
(insert "#+COMMENTSTATUS:" newstatus "\n"))))) (insert "#+COMMENTSTATUS:" newstatus "\n")))))
(defun eltuki-slugify-string (str) (defun eltuki-slugify-string (str)