Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New command eat-line-load-input-history-from-file

Browse source 
* eat.el (eat-line-load-input-history-from-file): New command.
This commit is contained in:
Akib Azmain Turja 2023-09-23 21:57:21 +06:00
parent fe9a128d6c
commit de3d7d099f
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
eat.el
View file

@ -6001,6 +6001,23 @@ character."
?: (zero-or-more digit)
?\;)))))))
(defun eat-line-load-input-history-from-file (file format)
"Load input history from FILE.
FORMAT is the format of FILE."
(interactive
(let ((file (read-file-name "History file: ")))
(list file (completing-read
"History file format: " '("bash" "zsh")
nil t (pcase (file-name-nondirectory file)
(".bash_history" "bash")
(".zsh_history" "zsh"))))))
(let ((str nil))
(with-temp-buffer
(insert-file-contents file)
(setq str (buffer-string)))
(eat--line-populate-input-ring str format)))
(defun eat--line-ask-for-regexp-arg (prompt)
"Return list of regexp and prefix arg using PROMPT."
(let* (;; Don't clobber this.