[StumpWM] I don't use emacsclient at the moment

This commit is contained in:
Marcel Kapfer 2020-05-19 17:21:53 +02:00
parent 96f5579243
commit bd129835b9
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -13,7 +13,7 @@
;; Default applicatoins
(defparameter *web-browser* "firefox" "Stores the web browser")
(defparameter *editor* "emacsclient -c" "Stores the editor")
(defparameter *editor* "emacs" "Stores the editor")
(defparameter *terminal* "alacritty" "Stores the terminal emulator")
(defparameter *file-manager* "dolphin" "Stores the terminal emulator")
(defparameter *music-player* "spotify" "Stores the terminal emulator")
@ -88,13 +88,6 @@
(setf *window-format* "^B %n ^b %20t "
*group-format* "%t")
;; program runners
;;; emacs
(defcommand emacs () ()
"run emacs"
(run-or-raise *editor* '(:class "Emacs")))
;; root keybindings
;
;; browser
@ -301,21 +294,6 @@
;; key for keeping window always on top
(define-key *root-map* (kbd "C-T") "toggle-always-on-top")
;; working with emacsclient
(defvar *es-win* nil
"to hold the window called emacsclient")
(defun save-es-called-win ()
(setf *es-win* (current-window)))
(defun return-es-called-window (win)
(let* ((group (window-group win))
(frame (window-frame win))
(old-frame (tile-group-current-frame group)))
(frame-raise-window group frame win)
(focus-all win)
(unless (eq frame old-frame)
(show-frame-indicator group))))
;; webjumps
(defmacro make-web-jump (name prefix)
`(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " search: ")))
@ -383,7 +361,7 @@ script."
;; autostart programs
;; emacs
(run-commands "emacs")
(run-shell-command "emacs")
;; keepassxc
(run-shell-command "keepassxc-wrapper")