mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
40 lines
1.0 KiB
EmacsLisp
40 lines
1.0 KiB
EmacsLisp
;;; siren-elscreen.el --- jimeh's Emacs Siren: elscreen configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for elscreen.
|
|
|
|
;;; Code:
|
|
|
|
(siren-require-packages '(elscreen elscreen-buffer-group))
|
|
|
|
(require 'elscreen)
|
|
;; (require 'elscreen-buffer-group) ;; Breaks elscreen.
|
|
|
|
;; (setq elscreen-display-tab nil)
|
|
|
|
;; 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
|