pkg update and first config fix

org-brain not working, add org-roam
This commit is contained in:
2022-12-19 23:02:34 +01:00
parent 02b3e07185
commit 82f05baffe
885 changed files with 356098 additions and 36993 deletions

View File

@@ -59,13 +59,11 @@
(current-buffer)))
(defun ledger-exec-success-p (exit-code ledger-output-buffer)
"Return t if EXIT-CODE is non-zero and output in LEDGER-OUTPUT-BUFFER is successful."
(with-current-buffer ledger-output-buffer
(goto-char (point-min))
(if (or (not (zerop exit-code))
(and (> (buffer-size) 1) (looking-at (regexp-quote "While"))))
nil ;; failure, there is an error starting with "While"
ledger-output-buffer)))
"Return non-nil if EXIT-CODE and LEDGER-OUTPUT-BUFFER indicate success."
(and (zerop exit-code)
(with-current-buffer ledger-output-buffer
(goto-char (point-min))
(not (and (> (buffer-size) 1) (looking-at (regexp-quote "While")))))))
(defun ledger-exec-ledger (input-buffer &optional output-buffer &rest args)
"Run Ledger using INPUT-BUFFER.
@@ -98,7 +96,7 @@ otherwise the error output is displayed and an error is raised."
(delete-file errfile))))
(defun ledger-version-greater-p (needed)
"Verify the ledger binary is usable for `ledger-mode' (version greater than NEEDED)."
"Verify the ledger binary version is at least NEEDED."
(let ((version-strings '()))
(with-temp-buffer
(when (ledger-exec-ledger (current-buffer) (current-buffer) "--version")