From 314becac19986d06f9462b0552de4b1b01b0f6f0 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 22 Jan 2022 11:28:43 -0500 Subject: org configs --- emacs/.doom.d/config.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'emacs') diff --git a/emacs/.doom.d/config.el b/emacs/.doom.d/config.el index a6255af..9c3435a 100644 --- a/emacs/.doom.d/config.el +++ b/emacs/.doom.d/config.el @@ -242,7 +242,12 @@ `(("g" "Go to current journal entry" plain (function kj/org-journal-find-location) "%i%?" :jump-to-captured t :immediate-finish t) ("t" "Create a TODO in current journal entry" plain (function kj/org-journal-narrowed-location) - "** TODO %?\n%i\n%a"))) + "** TODO %?\n%i\n%a") + ("w" "Log bodyweight" table-line + (file+headline ,(concat org-roam-directory "bodyweight.org") + "Body weight log") + "| %t | %^{Weight} | |" + :prepend t :immediate-finish t))) (defun kj/find-agenda-files-containing-tag (tag) (setq org-agenda-archives-mode nil) @@ -266,12 +271,11 @@ (buffer-string)))) (kj/org-journal-find-location) (when (not (string-empty-p content)) - (insert "** TODO Inbox items") - (org-insert-subheading 1) (org-paste-subtree nil content))) (with-current-buffer (find-file-noselect kj/inbox-path) (erase-buffer) - (save-buffer))) + (save-buffer) + (kill-buffer))) (defvar org-publish-project-alist) (defun kj/org-publish (&optional project force) -- cgit v1.2.3