diff --git a/modules/init-gui.el b/modules/init-gui.el index 33a62e4..b8aa6ba 100644 --- a/modules/init-gui.el +++ b/modules/init-gui.el @@ -10,9 +10,10 @@ (setq use-dialog-box nil) (setq inhibit-startup-screen t) (setq inhibit-startup-echo-area-message t) -(tool-bar-mode 0) -(set-scroll-bar-mode nil) -(menu-bar-mode 0) +(when (display-graphic-p) + (tool-bar-mode 0) + (scroll-bar-mode 0) + (menu-bar-mode 0)) (setq make-backup-files nil) ; stop creating backup~ files (setq auto-save-default nil) ; stop creating #autosave# files (setq create-lockfiles nil) ; stop creating #create-lockfiles @@ -40,34 +41,32 @@ ;;---------------------------------------------------------------------------- (setq indicate-empty-lines t) -(let ((no-border '(internal-border-width . 0))) - (add-to-list 'default-frame-alist no-border) - (add-to-list 'initial-frame-alist no-border)) +(when (display-graphic-p) + (let ((no-border '(internal-border-width . 0))) + (add-to-list 'default-frame-alist no-border) + (add-to-list 'initial-frame-alist no-border)) -(setq frame-title-format - '((:eval (if (buffer-file-name) - (abbreviate-file-name (buffer-file-name)) - "%b")))) -;; Non-zero values for `line-spacing' can mess up ansi-term and co, -;; so we zero it explicitly in those cases. -(add-hook 'term-mode-hook - (lambda () - (setq line-spacing 0))) + (setq frame-title-format + '((:eval (if (buffer-file-name) + (abbreviate-file-name (buffer-file-name)) + "%b")))) -;; Font theme (DejaVu Sans Mono if Hack isn't present) -(if (member "Hack" (font-family-list)) - (set-frame-font "Hack-9") - (set-frame-font "DejaVu Sans Mono-10")) + ;; Font theme (DejaVu Sans Mono if Hack isn't present) + (if (member "Hack" (font-family-list)) + (set-frame-font "Hack-9") + (set-frame-font "DejaVu Sans Mono-10"))) ;;---------------------------------------------------------------------------- ;; Configure keys ;;---------------------------------------------------------------------------- (global-unset-key (kbd "C-z")) ; Stops C-z from minimizing window -(global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility -(global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size -(global-set-key (kbd "s-C--") 'sacha/decrease-font-size) ; C-- decrease font size +(when (display-graphic-p) + (global-set-key (kbd "M-0") (lambda () (interactive) (modify-frame-parameters nil '((alpha . 100))))) ; M-0 standard visibility + (global-set-key (kbd "s-C-+") 'sacha/increase-font-size) ; C-+ increase font size + (global-set-key (kbd "s-C--") 'sacha/decrease-font-size)) ; C-- decrease font size (global-set-key (kbd "") 'revert-buffer-no-confirm) -(global-set-key (kbd "s-h") 'global-hl-line-mode) ; Highlight current line +(when (display-graphic-p) + (global-set-key (kbd "s-h") 'global-hl-line-mode)) ; Highlight current line (global-set-key (kbd "M-c") nil) ; disable capitalize-word (global-set-key (kbd "") 'display-line-numbers-mode) ;; muti-curses @@ -78,12 +77,13 @@ ;;--------------------------------------------------------------------------- ;; FullScreen ;;--------------------------------------------------------------------------- -(defun myemacs/toggle-fullscreen () - "Return a message string if the current doc string is invalid." - (interactive) - (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 - '(2 "_NET_WM_STATE_FULLSCREEN" 0))) -(global-set-key (kbd "") 'myemacs/toggle-fullscreen) ; F11 FullScreen +(when (display-graphic-p) + (defun myemacs/toggle-fullscreen () + "Toggle fullscreen mode using X11 client message." + (interactive) + (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 + '(2 "_NET_WM_STATE_FULLSCREEN" 0))) + (global-set-key (kbd "") 'myemacs/toggle-fullscreen)) ; F11 FullScreen ;;---------------------------------------------------------------------------- ;; Define custom browser