Auto-update ledger too

helpers.org

@@ -0,0 +1,57 @@
+
+* Separate tasks
+#+begin_src emacs-lisp
+  (use-package doct)
+  (require 'org)
+
+  (defvar my/custom-task-templates
+    (doct `(("convert [p]aycheck"
+             :keys "p"
+             :file ,(my/agenda-file "puppet.org")
+             :template-file ,(my/org-file "templates/puppet/paycheck.org")))))
+
+  (defun my/run-custom-tasks ()
+    (interactive)
+    (let ((org-capture-templates my/custom-task-templates))
+      (call-interactively #'org-capture)))
+
+  (when my/puppet-p
+    (global-set-key (kbd "<f1>") #'my/run-custom-tasks))
+#+end_src
+
+* Some Extra Bindings
+#+begin_src emacs-lisp
+  (when my/puppet-p
+    (global-set-key (kbd "<f2>")
+                    #'org-roam-node-find)
+    (global-set-key (kbd "<f3>")
+                    #'(lambda ()
+                        (interactive)
+                        (find-file "~/plaintext/org/random/things_puppet_should_remember.org"))))
+#+end_src
+
+* Add Ledger
+#+begin_src emacs-lisp
+  (defun paycheck->ledger (file)
+    (interactive
+     (list (read-file-name "Paycheck file? ")))
+    (unless (string= "ledger.ledger"
+                     (file-name-nondirectory
+                      (buffer-file-name (current-buffer))))
+      (user-error "You're in the wrong file..."))
+
+    (unless (string= "pdf" (file-name-extension file))
+      (user-error "Oops, that's not a pdf file..."))
+
+    (let* ((buf (get-buffer-create "*output*"))
+           (res
+            (save-window-excursion
+              (shell-command (format "ledger-convert.el '%s'" file)
+                             buf nil))))
+      (unless (eq res 0)
+        (user-error "Something went wrong with that file... Maybe ask Lambda?"))
+
+      (let ((str (with-current-buffer buf (buffer-string))))
+        (goto-char (point-max))
+        (insert "\n" str))))
+#+end_src

init.el

@@ -93,11 +93,16 @@
   (when (and (not my-ec/at-ti) my-ec/load-org-config)
     (org-babel-load-file
      (expand-file-name "config-org.org"
+                       user-emacs-directory))
+
+    (org-babel-load-file
+     (expand-file-name "helpers.org"
                        user-emacs-directory)))
 
   (org-babel-load-file
    (expand-file-name "my-redefs.org"
                      user-emacs-directory))
+
   (use-exwm
    :config
    (org-babel-load-file

lisp/git-auto-sync/my-org-autosync.el

@@ -34,7 +34,9 @@
 (require 'my-org-agenda-files)
 (setq gaff/watch-directories (list (list (file-name-as-directory my/org-folder)
                                          "origin/desktop" "origin/gaming-laptop" "origin/puppet" "origin/mobile"
-                                         "origin/laptop")))
+                                         "origin/laptop")
+                                   (list (file-name-as-directory (my/plaintext-file "ledger-finance"))
+                                         "origin/gaming-laptop" "origin/puppet")))
 
 (run-at-time nil 300 #'gaff/trigger)