dotfiles/emacs-lisp/emacs_rofi.org

:PROPERTIES:
:header-args:emacs-lisp: :comments link :results none
:ID:       0d92c672-5ac7-44dc-b021-cc58544f8eea
:END:
#+title: Emacs Rofi
#+filetags: emacs-load
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 display width height &rest args)
    ""
    (with-temp-buffer
      (insert-file-contents file)
      (apply #'auxmenu-popup-frame prompt (string-lines (substring-no-properties (buffer-string))) display width height args)))
#+end_src

#+begin_src emacs-lisp
  (defvar auxmenu-frame-alist nil)

  (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 frame)
            selection)
        (make-frame-invisible frame)))))
#+end_src

Next a bash helper is needed.

#+begin_src shell
  function emacs-rofi()
  {
      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\" \"$DISPLAY\" $2 $3)))))"
      rm $tmp
  }
#+end_src

Which then ought to be used like so.

#+begin_src shell
  echo -e "test1\ntest2\ntest3" | emacs-rofi "test"
#+end_src