From 91a43f42c5fbdbee166f2bd9c732c1aeda8ab8b0 Mon Sep 17 00:00:00 2001
From: Marc <marc@arbeit.local>
Date: Fri, 13 Dec 2024 14:58:38 +0100
Subject: [PATCH] minor fixes

---
 user-global/elisp/beancount.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/user-global/elisp/beancount.el b/user-global/elisp/beancount.el
index 8cc600e..dbd7e0a 100644
--- a/user-global/elisp/beancount.el
+++ b/user-global/elisp/beancount.el
@@ -202,7 +202,7 @@
           ))
 
 (defconst beancount-comments-regex
-  (concat ";[^\"\n]*$"))  ; right part of the line after a comment symbol if no quote or newline is included
+  "[ ][ \t]+;.*\|^[;*].*")  ; right part of the line after a comment symbol if no quote or newline is included
 
 (defconst beancount-empty-line-regex
   "^\\(\\s-+\\)" ;; maybe "^[ \t]+" is better
@@ -409,10 +409,10 @@ Leave point at the beginning of the thing under point.")
 (defvar beancount-filename-main buffer-file-name
   "File name of the main beancount file for beancount-check.")
 
-(defvar beancount-terminal-name "kitty"
+(defvar beancount-terminal-name "foot"
   "Name of the terminal emulator to run fava.")
 
-(defvar beancount-fava-exec "/bin/fava"
+(defvar beancount-fava-exec "/usr/bin/fava"
   "Full path of fava executable.")
 
 (defvar beancount-install-dir nil
@@ -447,6 +447,9 @@ Only useful if you have not installed Beancount properly in your PATH")
     (beancount--run beancount-check-program beancount-filename-main)))
 ;                    (file-relative-name buffer-file-name))))
 
+;;does not work currently!
+;;use source /opt/fava/.env/bin/activate
+;;fava /mnt/archiv/Finanzen/Transaktionen/transactions.beancount
 (defun beancount-fava ()
   "Run `beancount-fava' and open the URL in the default browser."
   (interactive)
@@ -736,7 +739,7 @@ Optionally also look at data in selected FILES."
          ((beancount-looking-at "^[A-za-z]+[A-za-z00-9 ]" 0 pos)
           (list (match-beginning 0) (match-end 0)
 ;                (lambda (c) (company-ledger--fuzzy-word-match arg c))
-                (company-ledger--get-all-postings)))
+                (company-ledger--get-all-postings)))                               
 ;                (sort (company-ledger--get-all-postings) #'string-lessp)))
          )))))
 ;;  (sorted t))