fix Symbol's function definition is void: set-scroll-bar-mode

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)
+(when (display-graphic-p)
-(set-scroll-bar-mode nil)
+  (tool-bar-mode 0)
-(menu-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)))
+(when (display-graphic-p)
-  (add-to-list 'default-frame-alist no-border)
+  (let ((no-border '(internal-border-width . 0)))
-  (add-to-list 'initial-frame-alist no-border))
+    (add-to-list 'default-frame-alist no-border)
+    (add-to-list 'initial-frame-alist no-border))
 
-(setq frame-title-format
+  (setq frame-title-format
-      '((:eval (if (buffer-file-name)
+        '((:eval (if (buffer-file-name)
-                   (abbreviate-file-name (buffer-file-name))
+                     (abbreviate-file-name (buffer-file-name))
-                 "%b"))))
+                   "%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)))
 
-;; Font theme (DejaVu Sans Mono if Hack isn't present)
+  ;; Font theme (DejaVu Sans Mono if Hack isn't present)
-(if (member "Hack" (font-family-list))
+  (if (member "Hack" (font-family-list))
-    (set-frame-font "Hack-9")
+      (set-frame-font "Hack-9")
-  (set-frame-font "DejaVu Sans Mono-10"))
+    (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
+(when (display-graphic-p)
-(global-set-key (kbd "s-C-+") 'sacha/increase-font-size)  ; C-+ increase font size
+  (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/decrease-font-size)  ; C-- decrease font size
+  (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 "<f12>") '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 "<f6>") 'display-line-numbers-mode)
 ;; muti-curses
@@ -78,12 +77,13 @@
 ;;---------------------------------------------------------------------------
 ;; FullScreen
 ;;---------------------------------------------------------------------------
-(defun myemacs/toggle-fullscreen ()
+(when (display-graphic-p)
-  "Return a message string if the current doc string is invalid."
+  (defun myemacs/toggle-fullscreen ()
-  (interactive)
+    "Toggle fullscreen mode using X11 client message."
-  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
+    (interactive)
-                         '(2 "_NET_WM_STATE_FULLSCREEN" 0)))
+    (x-send-client-message nil 0 nil "_NET_WM_STATE" 32
-(global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen
+                           '(2 "_NET_WM_STATE_FULLSCREEN" 0)))
+  (global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen)) ; F11 FullScreen
 
 ;;----------------------------------------------------------------------------
 ;; Define custom browser