bram/comint-ledger
1
0
Fork 0
Code Issues Pull requests Releases Activity

Rename functions and variables

Browse source
This commit is contained in:
Bram Schoenmakers 2023-04-10 16:51:40 +02:00
parent 4e5405ed50
commit 97538c1081
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
comint-ledger.el
View file

@ -19,40 +19,40 @@
(require 'comint) (require 'comint)
(defvar ledger-cli-path (executable-find "ledger") (defvar comint-ledger-cli-path (executable-find "ledger")
"Path to the program used by `run-ledger'.") "Path to the program used by `run-ledger'.")
(defvar ledger-file-path nil (defvar comint-ledger-file-path nil
"Path to the ledger data file.") "Path to the ledger data file.")
(defvar ledger-cli-arguments '() (defvar comint-ledger-cli-arguments '()
"Commandline arguments to pass to `ledger'.") "Commandline arguments to pass to `ledger'.")
(defvar ledger-mode-map (defvar comint-ledger-mode-map
(let ((map (nconc (make-sparse-keymap) comint-mode-map))) (let ((map (nconc (make-sparse-keymap) comint-mode-map)))
;; example definition ;; example definition
(define-key map "\t" 'completion-at-point) (define-key map "\t" 'completion-at-point)
map) map)
"Basic mode map for `run-ledger'.") "Basic mode map for `run-ledger'.")
(defvar ledger-prompt-regexp (rx bol "] ") (defvar comint-ledger-prompt-regexp (rx bol "] ")
"Prompt for `run-ledger'.") "Prompt for `run-ledger'.")
(defvar ledger-buffer-name "*Ledger*" (defvar comint-ledger-buffer-name "*Ledger*"
"Name of the buffer to use for the `run-ledger' comint instance.") "Name of the buffer to use for the `run-ledger' comint instance.")
;;;###autoload ;;;###autoload
(defun run-ledger (ledger-file) (defun run-ledger (ledger-file)
"Run an inferior instance of `ledger' inside Emacs, using LEDGER-FILE. "Run an inferior instance of `ledger' inside Emacs, using LEDGER-FILE.
The LEDGER-FILE can be configured through the `ledger-file-path' The LEDGER-FILE can be configured through the `comint-ledger-file-path'
variable, otherwise a prompt will appear to select a file." variable, otherwise a prompt will appear to select a file."
(interactive (list (or ledger-file-path (interactive (list (or comint-ledger-file-path
(read-file-name "Ledger file: ")))) (read-file-name "Ledger file: "))))
(let* ((ledger-program ledger-cli-path) (let* ((ledger-program comint-ledger-cli-path)
(ledger-file-arguments (list "--no-pager" "-f" ledger-file)) (ledger-file-arguments (list "--no-pager" "-f" ledger-file))
(ledger-arguments (append ledger-file-arguments ledger-cli-arguments)) (ledger-arguments (append ledger-file-arguments comint-ledger-cli-arguments))
(buffer (get-buffer-create ledger-buffer-name)) (buffer (get-buffer-create comint-ledger-buffer-name))
(proc-alive (comint-check-proc buffer))) (proc-alive (comint-check-proc buffer)))
;; if the process is dead then re-create the process and reset the ;; if the process is dead then re-create the process and reset the
;; mode. ;; mode.
@ -65,7 +65,7 @@ variable, otherwise a prompt will appear to select a file."
(when buffer (when buffer
(pop-to-buffer buffer)))) (pop-to-buffer buffer))))
(defun ledger--initialize () (defun comint-ledger--initialize ()
"Helper function to initialize ledger." "Helper function to initialize ledger."
(setq comint-process-echoes t) (setq comint-process-echoes t)
(setq comint-use-prompt-regexp t)) (setq comint-use-prompt-regexp t))
@ -75,25 +75,25 @@ variable, otherwise a prompt will appear to select a file."
\\<ledger-mode-map>" \\<ledger-mode-map>"
;; this sets up the prompt so it matches things like: [foo@bar] ;; this sets up the prompt so it matches things like: [foo@bar]
(setq comint-prompt-regexp ledger-prompt-regexp) (setq comint-prompt-regexp comint-ledger-prompt-regexp)
;; this makes it read only; a contentious subject as some prefer the ;; this makes it read only; a contentious subject as some prefer the
;; buffer to be overwritable. ;; buffer to be overwritable.
(setq comint-prompt-read-only t) (setq comint-prompt-read-only t)
;; this makes it so commands like M-{ and M-} work. ;; this makes it so commands like M-{ and M-} work.
(set (make-local-variable 'paragraph-separate) "\\'") (set (make-local-variable 'paragraph-separate) "\\'")
(set (make-local-variable 'font-lock-defaults) '(ledger-font-lock-keywords t)) (set (make-local-variable 'font-lock-defaults) '(comint-ledger-font-lock-keywords t))
(set (make-local-variable 'paragraph-start) ledger-prompt-regexp)) (set (make-local-variable 'paragraph-start) comint-ledger-prompt-regexp))
(add-hook 'ledger-mode-hook 'ledger--initialize) (add-hook 'ledger-mode-hook 'comint-ledger--initialize)
(defconst ledger-keywords (defconst comint-ledger-keywords
'() '()
"List of keywords to highlight in `ledger-font-lock-keywords'.") "List of keywords to highlight in `comint-ledger-font-lock-keywords'.")
(defvar ledger-font-lock-keywords (defvar comint-ledger-font-lock-keywords
(list (list
;; highlight all the reserved commands. ;; highlight all the reserved commands.
`(,(concat "\\_<" (regexp-opt ledger-keywords) "\\_>") . font-lock-keyword-face)) `(,(concat "\\_<" (regexp-opt comint-ledger-keywords) "\\_>") . font-lock-keyword-face))
"Additional expressions to highlight in `comint-ledger-mode'.") "Additional expressions to highlight in `comint-ledger-mode'.")
(provide 'comint-ledger) (provide 'comint-ledger)