[ledger] budget balance cmd

plugins/ledger.lisp

@@ -174,9 +174,9 @@
 ")
                       :parse-mode "markdown")))
 
-(def-message-cmd-handler handler-balance (:balance :bal)
+(def-message-cmd-handler handler-balance (:balance :bal :budget)
   (cond
-    ((null args) (ledger/handle-balance chat-id "assets"))
+    ((null args) (ledger/handle-balance chat-id (if (eql cmd :budget) "budget" "assets")))
     (:otherwise (ledger/handle-balance chat-id (spaced args)))))
 
 (defun ledger/handle-journal (chat-id query)