tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

General cleanup

Browse source
This commit is contained in:
mez 2023-12-19 20:03:59 +00:00
parent 9fe64dfe5d
commit bf8b65601b
7 changed files with 14 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

13
custom/refile.el
View file

@ -10,11 +10,12 @@
(org-refile)))
(defun filedate ()
"Insert timestamp based on file name"
"Insert timestamp if required based on file name"
(interactive)
(goto-char (point-min))
(setq thedate (file-name-base))
(insert (concat "<" thedate ">"))
(org-ctrl-c-ctrl-c)
(insert "\n\n")
(goto-char (point-min)))
(unless (eq ?< (char-after))
(setq thedate (file-name-base))
(insert (concat "<" thedate ">"))
(org-ctrl-c-ctrl-c)
(insert "\n\n")
(goto-char (point-min))))