General cleanup: reorganising snippets, tidying if statements, documenting functions

This commit is contained in:
trémeur 2023-02-16 18:36:59 +00:00
parent 18c64c71c4
commit 4aa4de17f5
30 changed files with 128 additions and 99 deletions

View file

@ -1,5 +1,6 @@
(defun periodise ()
(setq periodfile "~/Documents/drive/org/period.org")
"Return day of menstrual cycle"
(setq periodfile "~/Documents/drive/admin/emacs/period.org")
(find-file-noselect periodfile)
(setq thebuffer (file-name-nondirectory periodfile))
(with-current-buffer thebuffer
@ -17,8 +18,9 @@
(insert (concat "Day " (format "%S" days))))
(defun menstruate ()
"Mark beginning of menstrual cycle"
(interactive)
(setq periodfile "~/Documents/drive/org/period.org")
(setq periodfile "~/Documents/drive/admin/emacs/period.org")
(find-file-noselect periodfile)
(setq thebuffer (file-name-nondirectory periodfile))
(with-current-buffer thebuffer