branch: externals/doc-toc
commit a0018b8a63ca1e53f001c3fa908b6297dc5af3e8
Author: Daniel Nicolai <dalanico...@gmail.com>
Commit: Daniel Nicolai <dalanico...@gmail.com>
Add replace fields in toc-tabular-mode feature
---
toc-mode.el | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/toc-mode.el b/toc-mode.el
index eae96dc5fa..bf799e44c1 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -702,6 +702,18 @@ Prompt for startpage and endpage and print OCR output to
new buffer."
t)
(forward-line 1))))
+(defun toc--replace-input ()
+ (interactive)
+ (let* ((column (cond ((< (current-column) 5)
+ 0)
+ ((and (> (current-column) 5) (< (current-column) 90))
+ 1)
+ ((> (current-column) 90)
+ 2)))
+ (old-input (aref (tabulated-list-get-entry) column))
+ (new-input (read-string "Replace column input with: " old-input)))
+ (tabulated-list-set-col column new-input t)))
+
(defun toc--tablist-follow ()
"Preview pagenumber of current line in separate document buffer."
(interactive)
@@ -777,6 +789,7 @@ Prompt for startpage and endpage and print OCR output to
new buffer."
(define-key map [S-left] #'toc--decrease)
(define-key map [C-right] #'toc--increase-remaining-and-follow)
(define-key map [C-left] #'toc--decrease-remaining-and-follow)
+ (define-key map "\C-r" #'toc--replace-input)
(define-key map [tab] #'toc--tablist-follow)
(define-key map [S-down] #'toc--scroll-other-window-page-up)
(define-key map [S-up] #'toc--scroll-other-window-page-down)
@@ -794,7 +807,7 @@ Prompt for startpage and endpage and print OCR output to
new buffer."
tabulated-list-mode "TOC-tabular"
"Major mode for Table Of Contents.
\\{toc-tabular-mode-map}"
- (setq-local tabulated-list-format [("level" 10 nil) ("name" 80 nil) ("page"
1 nil)])
+ (setq-local tabulated-list-format [("level" 5 nil) ("name" 84 nil) ("page" 4
nil)])
(tabulated-list-init-header))
(defun toc--list (buffer)
