sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enh918 Have occur mode searches stored in mini buffer history

Browse source
This commit is contained in:
Craig Earls 2013-03-18 10:50:11 -07:00
parent 431d7e5b25
commit ea72ac29ea
3 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ldg-occur.el
View file

@ -49,7 +49,7 @@
(defvar ledger-occur-history nil (defvar ledger-occur-history nil
"History of previously searched expressions for the prompt.") "History of previously searched expressions for the prompt.")
(make-variable-buffer-local 'ledger-occur-history) ;;(make-variable-buffer-local 'ledger-occur-history)
(defvar ledger-occur-last-match nil (defvar ledger-occur-last-match nil
"Last match found.") "Last match found.")
@ -95,8 +95,7 @@ When REGEX is nil, unhide everything, and remove higlight"
(if ledger-occur-mode (if ledger-occur-mode
(list nil) (list nil)
(list (read-string (concat "Regexp<" (ledger-occur-prompt) (list (read-string (concat "Regexp<" (ledger-occur-prompt)
">: ") "" 'ledger-occur-history )))) ">: ") nil 'ledger-occur-history (ledger-occur-prompt)))))
(if (string-equal "" regex) (setq regex (ledger-occur-prompt)))
(ledger-occur-mode regex (current-buffer))) (ledger-occur-mode regex (current-buffer)))
(defun ledger-occur-prompt () (defun ledger-occur-prompt ()

4
lisp/ldg-report.el
View file

@ -73,7 +73,7 @@ text that should replace the format specifier."
(defvar ledger-report-cmd-prompt-history nil) (defvar ledger-report-cmd-prompt-history nil)
(defvar ledger-original-window-cfg nil) (defvar ledger-original-window-cfg nil)
(defvar ledger-report-saved nil) (defvar ledger-report-saved nil)
(defvar ledger-minibuffer-history nil)
(defvar ledger-report-mode-abbrev-table) (defvar ledger-report-mode-abbrev-table)
(defun ledger-report-reverse-lines () (defun ledger-report-reverse-lines ()
@ -236,7 +236,7 @@ used to generate the buffer, navigating the buffer, etc."
(if default (if default
(concat " (" default "): ") (concat " (" default "): ")
": ")))) ": "))))
(read-string default-prompt nil nil default))) (read-string default-prompt nil 'ledger-minibuffer-history default)))
(defun ledger-report-payee-format-specifier () (defun ledger-report-payee-format-specifier ()
"Substitute a payee name. "Substitute a payee name.

5
lisp/ldg-xact.el
View file

@ -99,9 +99,10 @@ within the transaction."
(ignore (goto-char here)))))) (ignore (goto-char here))))))
(defun ledger-copy-transaction-at-point (date) (defun ledger-copy-transaction-at-point (date)
"Ask for a new DATE and copy the transaction under point to that date. Leave point on the first amount."(interactive (list "Ask for a new DATE and copy the transaction under point to that date. Leave point on the first amount."
(interactive (list
(read-string "Copy to date: " (read-string "Copy to date: "
(concat ledger-year "/" ledger-month "/")))) (concat ledger-year "/" ledger-month "/") 'ledger-minibuffer-history)))
(let* ((here (point)) (let* ((here (point))
(extents (ledger-find-xact-extents (point))) (extents (ledger-find-xact-extents (point)))
(transaction (buffer-substring (car extents) (cadr extents))) (transaction (buffer-substring (car extents) (cadr extents)))