diff options
-rw-r--r-- | oni-counsel.el | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/oni-counsel.el b/oni-counsel.el index 1dee935..280eef5 100644 --- a/oni-counsel.el +++ b/oni-counsel.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2021.0919.233934 +;; Version: 2022.0204.011058 ;; Package-Requires: (counsel diminish) ;; This program is free software; you can redistribute it and/or modify @@ -35,6 +35,28 @@ (write-region "" nil filename t) (find-file filename)) +(defun oni-run-launcher () + (interactive) + (with-selected-frame (make-frame '((name . "emacs-run-launcher") + (minibuffer . only) + (width . 120) + (height . 11))) + (unwind-protect + (counsel-linux-app) + (delete-frame)))) + +(defun oni-run-window-switch () + (interactive) + (with-selected-frame (make-frame '((name . "emacs-run-wmctrl") + (minibuffer . only) + (width . 120) + (height . 11))) + (unwind-protect + (counsel-wmctrl) + (delete-frame)))) + +(setq counsel-linux-app-format-function 'counsel-linux-app-format-function-name-pretty) + (setq counsel-find-file-ignore-regexp (rx (or (and bos ".") (and ".zwc" eos)))) |