summary refs log tree commit diff stats
path: root/tag-emacs
diff options
context:
space:
mode:
Diffstat (limited to 'tag-emacs')
-rw-r--r--tag-emacs/emacs.d/init.org9
1 files changed, 7 insertions, 2 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 33950290..054fe673 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -175,14 +175,14 @@ because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresource
         (interactive)
         (cond
          ((eq window-system 'w32)
-          (ap/set-fonts "Consolas" 10 "Segoe UI" 11))
+          (ap/set-fonts "Consolas" 10 "Segoe UI" 11 t))
          ((eq window-system 'ns)
           (let ((displays (string-to-number (shell-command-to-string "system_profiler SPDisplaysDataType | grep \"Online: Yes\" | wc -l"))))
             (if (eq displays 1)
                 (ap/set-fonts "PT Mono" 12 "Lucide Grande" 12 t)
               (ap/set-fonts "Anonymous Pro" 11 "Lucida Grande" 12 nil))))
          ((eq window-system 'x)
-          (ap/set-fonts "Source Code Pro" 10 "Input Sans" 10))))
+          (ap/set-fonts "Source Code Pro" 10 "Input Sans" 10 t))))
 
       (ap/set-fonts-according-to-system))
 #+END_SRC
@@ -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 "€"