请问beancount如何补全多个账户文件？

Spike-Leung · 2025 年6 月 24 日 08:28

lisp/my-lisp/init-beancount.el

main

;;; init-beancount.el --- beancount support -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

(require 'beancount)

(push '("\\.\\(beancount\\|bean\\)\\'" . beancount-mode) auto-mode-alist)
(add-hook 'beancount-mode-hook #'outline-minor-mode)
(define-key beancount-mode-map (kbd "C-c C-n") #'outline-next-visible-heading)
(define-key beancount-mode-map (kbd "C-c C-p") #'outline-previous-visible-heading)

;;; https://whatacold.io/blog/2022-09-10-emacs-beancount-accout-files/
(defvar beancount-accounts-files nil "List of account files.")
(setq beancount-accounts-files
      (directory-files "~/Dropbox/beancount/accounts/" 'full (rx ".beancount" eos)))

(defun w/beancount--collect-accounts-from-files (oldfun regex n)
  "Collect all accounts from files."
  (let ((keys (funcall oldfun regex n))
        (hash (make-hash-table :test 'equal)))

此文件已被截断。显示原始文件

试试我的配置，目前用着没啥问题。

指定 beancount 文件的目录，然后用一个函数遍历，好像和你是同一个人的链接= =