gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactor Zim timestamp generator as a defun

Browse Source
This commit is contained in:
Gergely Polonkai 2015-07-30 13:43:13 +00:00
parent a3caedf27d
commit 4ca025000c
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
zim.el
View File

@ -1,6 +1,19 @@
(defun insert-zim-timestamp () (defun zim-timestamp ()
(interactive) (with-temp-buffer
(insert (format-time-string "%Y-%m-%dT%H:%M:%S%z")) (insert (format-time-string "%Y-%m-%dT%H:%M:%S%z"))
(forward-char -2) (forward-char -2)
(insert ":") (insert ":")
(forward-char 2)) (forward-char 2)))
(defun insert-zim-timestamp ()
(interactive)
(insert (zim-timestamp)))
(defun insert-zim-header ()
(interactive)
(save-excursion
(goto-char (point-min))
(insert
(concat "Content-Type: text/x-zim-wiki\n"
"Wiki-Format: zim 0.4\n"
"Creation-Date: " (zim-timestamp) "\n\n"))))