31 lines
735 B
Text
31 lines
735 B
Text
|
;; -*- mode: lisp; -*-
|
||
|
|
(in-package :stumpwm-user)
|
||
|
|
|
||
|
|
(require 'swank)
|
||
|
|
|
||
|
|
(set-prefix-key (kbd "s-x"))
|
||
|
|
|
||
|
|
(defcommand raise-browser () ()
|
||
|
|
"Open or show my browser"
|
||
|
|
(run-or-raise "firefox" '(:class "firefox")))
|
||
|
|
|
||
|
|
(defcommand raise-emacs () ()
|
||
|
|
"Open or show Emacs"
|
||
|
|
(run-or-raise "emacsclient -c" '(:class "Emacs")))
|
||
|
|
|
||
|
|
(defcommand raise-terminal () ()
|
||
|
|
"Open or show my terminal"
|
||
|
|
(run-or-raise "kitty" '(:class "kitty")))
|
||
|
|
|
||
|
|
(define-key *top-map* (kbd "s-b") "raise-browser")
|
||
|
|
(define-key *top-map* (kbd "s-e") "raise-emacs")
|
||
|
|
(define-key *top-map* (kbd "s-t") "raise-terminal")
|
||
|
|
|
||
|
|
(define-remapped-keys
|
||
|
|
'(("teams-for-linux"
|
||
|
|
("C-M-Break" . "C-S-m"))))
|
||
|
|
|
||
|
|
(mode-line)
|
||
|
|
(restore-from-file "default")
|
||
|
|
(swank:create-server :dont-close t)
|