company-rofi

;; -*- lexical-binding: t -*-

(require 'dash)
(require 's)
(require 'company)

(defun rofi-filter (proc msg)
  (backward-delete-char (length company-prefix))
  (insert (s-trim msg)))

(defun rofi-complete ()
  (interactive)
  (company-complete)
  (when company-candidates
    (let ((rofi
           (make-process
            :command (list "rofi" "-dmenu")
            :name "Rofi Complete"
            :filter #'rofi-filter)))
      (unwind-protect
          (progn
            (dolist (buffer (-partition-all 50 company-candidates))
              (--each buffer
                (when (process-live-p rofi)
                  (process-send-string rofi (concat it "\n")))))
            (when (process-live-p rofi) (accept-process-output rofi nil nil t)))
        (when (process-live-p rofi) (kill-process rofi))))))