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)
+(when (display-graphic-p)
   (tool-bar-mode 0)
-(set-scroll-bar-mode nil)
-(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,6 +41,7 @@
 ;;----------------------------------------------------------------------------
 (setq indicate-empty-lines t)
 
+(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))
@@ -48,26 +50,23 @@
         '((: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)))
 
   ;; 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"))
+    (set-frame-font "DejaVu Sans Mono-10")))
 
 ;;----------------------------------------------------------------------------
 ;; Configure keys
 ;;----------------------------------------------------------------------------
 (global-unset-key (kbd "C-z")) ; Stops C-z from minimizing window
+(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 "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
 ;;---------------------------------------------------------------------------
+(when (display-graphic-p)
   (defun myemacs/toggle-fullscreen ()
-  "Return a message string if the current doc string is invalid."
+    "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 "<f11>") 'myemacs/toggle-fullscreen) ; F11 FullScreen
+  (global-set-key (kbd "<f11>") 'myemacs/toggle-fullscreen)) ; F11 FullScreen
 
 ;;----------------------------------------------------------------------------
 ;; Define custom browser