- (use-package elscreen
- :ensure t
- :init
- (setq elscreen-tab-display-control nil)
- :config
- ;; (elscreen-start)
- (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
- (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
- ;; (global-unset-key (kbd)); M-TAB switch screen
- ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0)))
- ;; (dotimes (i 8)
- ;; (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
- ;; `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))
- ;; (global-set-key (kbd "s-t") 'elscreen-create)
- ;; (global-set-key (kbd "s-n") 'elscreen-next)
- ;; (global-set-key (kbd "s-p") 'elscreen-previous)
- )
+ ;; (use-package elscreen
+ ;; :ensure t
+ ;; :init
+ ;; (setq elscreen-tab-display-control nil)
+ ;; :config
+ ;; ;; (elscreen-start)
+ ;; (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow")
+ ;; (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil)
+ ;; ;; (global-unset-key (kbd)); M-TAB switch screen
+ ;; ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0)))
+ ;; ;; (dotimes (i 8)
+ ;; ;; (global-set-key (kbd (concat "s-" (number-to-string (+ i 1))))
+ ;; ;; `(lambda () (interactive) (elscreen-goto ,(+ i 1)))))
+ ;; ;; (global-set-key (kbd "s-t") 'elscreen-create)
+ ;; ;; (global-set-key (kbd "s-n") 'elscreen-next)
+ ;; ;; (global-set-key (kbd "s-p") 'elscreen-previous)
+ ;; )