pkg update and first config fix
org-brain not working, add org-roam
This commit is contained in:
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user