pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

For sending rent

Browse source
This commit is contained in:
Benson Chu 2023-02-18 11:10:29 -06:00
parent 4a13bfce5d
commit ecf79b602a
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
helpers.org
View file

@ -58,11 +58,13 @@
* Sending reports to mom
#+begin_src emacs-lisp
(defun my/run-report-get-file-name ()
(defun my/run-report-get-file-name (arg)
(let* ((default-directory (expand-file-name "~/plaintext/ledger-finance"))
(buf
(save-window-excursion
(compilation-start "./mom_report.sh mid" nil (lambda (_) "*ledger-report*")))))
(compilation-start (format "./mom_report.sh %s"
(if arg "end" "mid"))
nil (lambda (_) "*ledger-report*")))))
(save-window-excursion
(display-buffer-same-window buf nil)
(when (not (y-or-n-p "Looks good? "))
@ -72,10 +74,10 @@
(string-match (rx line-start "Filename: " (group (+ nonl))) str)
(match-string 1 str))))
(defun my/run-ledger-report ()
(interactive)
(let ((fname (my/run-report-get-file-name)))
(notmuch-mua-mail "benedi.chu@hotmail.com" "Finance Report"
(defun my/run-ledger-report (arg)
(interactive "P")
(let ((fname (my/run-report-get-file-name arg)))
(notmuch-mua-mail "benedi.chu@hotmail.com" (if arg "Rent" "Finance Report")
'((From . "bensonchu457@fastmail.com")))
(mml-attach-file fname)))
#+end_src