mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
56 lines
1.8 KiB
EmacsLisp
56 lines
1.8 KiB
EmacsLisp
;;; siren-escreen.el --- jimeh's Emacs Siren: escreen configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for escreen.
|
|
|
|
;;; Code:
|
|
|
|
(use-package escreen
|
|
:straight (:type git :host github :repo "renard/escreen-el")
|
|
:demand
|
|
|
|
:bind
|
|
("s-}" . escreen-goto-next-screen)
|
|
("s-{" . escreen-goto-prev-screen)
|
|
(:map escreen-map
|
|
("C-z" . escreen-goto-last-screen)
|
|
("l" . escreen-goto-last-screen)
|
|
("C-l" . escreen-goto-last-screen)
|
|
(";" . siren-escreen-get-active-screen)
|
|
("C-;" . siren-escreen-get-active-screen)
|
|
("C-c" . escreen-create-screen)
|
|
("C-g" . escreen-goto-screen)
|
|
("C-k" . escreen-kill-screen)
|
|
("C-n" . escreen-goto-next-screen)
|
|
("C-p" . escreen-goto-prev-screen))
|
|
|
|
:hook
|
|
(escreen-goto-screen . siren-escreen-get-active-screen)
|
|
|
|
:init
|
|
(defun siren-escreen-get-active-screen ()
|
|
"what the name says"
|
|
(interactive)
|
|
(let ((escreens (escreen-get-active-screen-numbers))
|
|
(emphased ""))
|
|
(dolist (s escreens)
|
|
(setq emphased
|
|
(concat emphased (if (= escreen-current-screen-number s)
|
|
(propertize (number-to-string s)
|
|
;;'face 'custom-variable-tag) " ")
|
|
;;'face 'info-title-3)
|
|
'face 'font-lock-warning-face)
|
|
;;'face 'secondary-selection)
|
|
(number-to-string s))
|
|
" ")))
|
|
(message "escreen: active screens: %s" emphased)))
|
|
|
|
:config
|
|
(escreen-install)
|
|
(setq escreen-prefix-char (kbd "C-z"))
|
|
(global-set-key escreen-prefix-char 'escreen-prefix))
|
|
|
|
(provide 'siren-escreen)
|
|
;;; siren-escreen.el ends here
|