From 32c46b315483ec2f58f14acd5cc3d9145c65c65c Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sat, 25 Jun 2016 22:51:26 +0200
Subject: Emacs: add command to open budget

---
 tag-emacs/emacs.d/init.org | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 18bf622..054fe67 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -1387,6 +1387,11 @@ works really nicely.
               (defun setup-ledger-mode ()
                 (setq-local indent-tabs-mode nil))
               (add-hook 'ledger-mode-hook #'setup-ledger-mode)
+              (defun open-budget ()
+                (interactive)
+                (projectile-persp-switch-project "~/Sync")
+                (find-file (expand-file-name "ledger/my.ledger" (projectile-project-root)))
+                (ledger-report "Budget (Cumulative)" nil))
               (setq ledger-use-iso-dates t
                     ledger-post-use-completion-engine :built-in
                     ledger-reconcile-default-commodity "€"
-- 
cgit 1.4.1