mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
37 lines
971 B
EmacsLisp
37 lines
971 B
EmacsLisp
;;; siren-elscreen.el --- jimeh's Emacs Siren: elscreen configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for elscreen.
|
|
|
|
;;; Code:
|
|
|
|
(use-package elscreen
|
|
:config
|
|
(use-package elscreen-buffer-group)
|
|
|
|
;; Prefix key.
|
|
(define-key elscreen-map (kbd "C-z") elscreen-map)
|
|
|
|
;; Goto screens.
|
|
(global-set-key (kbd "s-}") 'elscreen-next)
|
|
(global-set-key (kbd "s-{") 'elscreen-previous)
|
|
|
|
;; Set screen nickname
|
|
(define-key elscreen-map (kbd ",") 'elscreen-screen-nickname)
|
|
(define-key elscreen-map (kbd "C-,") 'elscreen-screen-nickname)
|
|
|
|
;; Toggle screens.
|
|
(define-key elscreen-map (kbd "l") 'elscreen-toggle)
|
|
(define-key elscreen-map (kbd "C-l") 'elscreen-toggle)
|
|
|
|
;; Display list of screens.
|
|
(define-key elscreen-map (kbd ";") 'elscreen-display-screen-name-list)
|
|
(define-key elscreen-map (kbd "C-;") 'elscreen-display-screen-name-list)
|
|
|
|
;; Start ElScreen.
|
|
(elscreen-start))
|
|
|
|
(provide 'siren-elscreen)
|
|
;;; siren-elscreen.el ends here
|