Comando para reporte de ledger-cli que indenta una etiqueta según el valor del registro

#emacs #ledger_mode #zettelkasten #ledgerCli

```ledger [[ledger-mode-flags]] -f ~/SyncDocs/dummy_ledger.ldg --format "%(justify((truncated(amount, 8, 0)), (10+(10*((quantity(amount)) - (int(amount))))), 60, true)) %(ansify_if(justify(truncated(tag('doc'), 70, 0), 75, 30, false, color), green if color and tag('status') =~ /albedo/)) %(ansify_if(justify(truncated(tag('status'), 10, 0), 10, 30, false, color), white if color)) \n" reg taller --sort amount ```

Actúa sobre registros con esta estructura:

2025/07/30 Imperdiet Hendrerit

;; doc: Imperdiet Hendrerit Semper Sed Elit Nunc Porta Massa Hendrerit

;; context:

;; status: albedo

;; riesgo:: (1*1)

;; id: 49947989

taller:ornare p 3.4695

amet:elit v3

Time

"Steve Goerge is running a Guix User and Contributor Survey. If you use or have used Guix in the past, consider participating. Here is the link to the survey"

https://guix.limesurvey.net

#guix #scheme #linux #guile #nix

```

(defun ledger-accounts-list-in-file (file)

"Return a list of all known account names from FILE as strings.

Considers both accounts listed in postings and those declared

with \"account\" directives."

(let ((accounts nil))

;; Check if file exists and is readable

(if (and (file-exists-p file) (file-readable-p file))

(with-temp-buffer

;; Insert file content into the buffer

(insert-file-contents file)

;; Process the buffer content

(setq accounts (ledger-accounts-in-buffer))

(when ledger-accounts-exclude-function

(setq accounts (cl-remove-if ledger-accounts-exclude-function accounts)))

(mapcar #'car accounts))

(error "File does not exist or is not readable: %s" file))))

```

#elisp #ledger-cli #emacs #ledger-mode

Función en elisp para consultar e insertar una cuenta seleccionada de las opciones de cuentas definidas en un archivo

```

(defun insertar-cuenta ()

"Inserta cuenta usando el sistema de autocompletado del minibuffer"

(interactive)

(let* ((cuentas-history (ledger-accounts-list-in-file "~/ruta/a/plan_de_cuentas.ldg"))

(cuenta (completing-read "consulta cuenta: " cuentas-history)))

(insert cuenta)))

```

#elisp #ledger-cli #emacs #plaintextaccounting

Registro estructurado de anotaciones sobre un audio usando emms y ledger

#elisp #emacs #emms #ledger-cli

#nietzsche

Colores aleatorios para las caras de las fuentes en ledger-mode

#elisp #ledger-cli #emacs

"... anaesthesia is the art of turning people into objects" -- Anil Seth, Being You