magic_rb/dotfiles
1
0
Fork 0
mirror of https://git.sr.ht/~magic_rb/dotfiles synced 2024-11-21 23:54:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

Refactor ~emacs-auxmenu~ to be a tad more general

Browse source 
Signed-off-by: Magic_RB <magic_rb@redalder.org>
This commit is contained in:
Magic_RB 2023-09-16 19:34:05 +02:00
parent 931b5aa764
commit 8e9f6e6334
1 changed files with 28 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
emacs-lisp/emacs_rofi.org
View file

@ -7,38 +7,43 @@
It is possible to make a fake rofi, from emacs ~completing-read~. This file facilitates that. First we define some LISP functions.
#+begin_src emacs-lisp
(defun completing-read-frame-popup-file (prompt file width height &rest args)
(defun completing-read-frame-popup-file (prompt file display width height &rest args)
""
(with-temp-buffer
(insert-file-contents file)
(message "%s" (string-lines (buffer-string)))
(apply #'completing-read-frame-popup prompt (string-lines (substring-no-properties (buffer-string))) args)))
(apply #'auxmenu-popup-frame prompt (string-lines (substring-no-properties (buffer-string))) display width height args)))
#+end_src
#+begin_src emacs-lisp
(defvar completing-read-frame nil)
(defvar auxmenu-frame-alist nil)
(defun completing-read-frame-popup (prompt collection &rest args)
""
(unless completing-read-frame
(setq completing-read-frame
(make-frame `((minibuffer . only)
(name . "emacs-completing-read-float")
(unsplittable . t)
(no-other-frame . t)
(width . ,width)
(height . ,height)
(left . 0.5)
(top . 0.5))))
(make-frame-invisible completing-read-frame))
(make-frame-visible completing-read-frame)
(raise-frame completing-read-frame)
(with-selected-frame completing-read-frame
(defun auxmenu-popup-frame (prompt collection display width height &rest args)
""
(let ((frame (alist-get display auxmenu-frame-alist)))
(when (equal frame nil)
(when (equal display nil)
(error "Must specify display"))
(push `(,display . ,(make-frame
`((minibuffer . only)
(name . "emacs-completing-read-float")
(unsplittable . t)
(no-other-frame . t)
(width . ,width)
(height . ,height)
(display . ,display)
(left . 0.5)
(top . 0.5))))
auxmenu-frame-alist)
(setq frame (alist-get display auxmenu-frame-alist)))
(make-frame-visible frame)
(raise-frame frame)
(with-selected-frame frame
(unwind-protect
(let ((selection (apply #'completing-read prompt collection args)))
(make-frame-invisible completing-read-frame)
(make-frame-invisible frame)
selection)
(make-frame-invisible completing-read-frame))))
(make-frame-invisible frame)))))
#+end_src
Next a bash helper is needed.
@ -48,7 +53,7 @@ Next a bash helper is needed.
{
tmp=$(mktemp)
tee > $tmp
emacs -Q --batch --eval $"(progn (require 'server) (princ (format \"%s\\n\" (server-eval-at \"server\" '(completing-read-frame-popup-file \"$1\" \"$tmp\" $2 $3)))))"
emacs -Q --batch --eval $"(progn (require 'server) (princ (format \"%s\\n\" (server-eval-at \"server\" '(completing-read-frame-popup-file \"$1\" \"$tmp\" \"$DISPLAY\" $2 $3)))))"
rm $tmp
}
#+end_src