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. -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for escreen.
|
|
|
|
;;; Code:
|
|
|
|
(use-package escreen
|
|
:ensure (:host github :repo "renard/escreen-el")
|
|
:demand
|
|
|
|
:general
|
|
("s-}" 'escreen-goto-next-screen)
|
|
("s-{" 'escreen-goto-prev-screen)
|
|
(:keymaps '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)
|
|
|
|
:preface
|
|
(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
|