ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-counsel] Add some functions to interact with the OS

Browse source
This commit is contained in:
Tom Willemse 2022-02-08 09:46:19 -08:00
parent 0b640ec28e
commit e22b5a5626
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
oni-counsel.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2021.0919.233934 ;; Version: 2022.0204.011058
;; Package-Requires: (counsel diminish) ;; Package-Requires: (counsel diminish)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -35,6 +35,28 @@
(write-region "" nil filename t) (write-region "" nil filename t)
(find-file filename)) (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 (setq counsel-find-file-ignore-regexp
(rx (or (and bos ".") (rx (or (and bos ".")
(and ".zwc" eos)))) (and ".zwc" eos))))