              (string= (buffer-name) hcz-set-cursor-color-buffer))
       (set-cursor-color (setq hcz-set-cursor-color-color color))
       (setq hcz-set-cursor-color-buffer (buffer-name)))))
-
-(add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode)
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(add-hook 'post-command-hook #'hcz-set-cursor-color-according-to-mode)
+
 ;; Presentation mode
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defvar prez-mode-enabled-once nil
   "Flag to indicate if prez-mode has been enabled at least once.")
 

               (t (org-narrow-to-subtree))))
        (t (narrow-to-defun))))

;; Key bindings
(global-unset-key (kbd "<C-down-mouse-1>")) ;; it is bound to `mouse-buffer-menu'
;; by default. It is inconvenient when that mouse menu pops up when I don't need
;; it to. And actually I have never used that menu :P

;; Usage: C-x - _ - 0 _ _ _ _ - - 0
;; Usage: C-x _ _ 0 - _ - _ _ _ _ - - 0


(modi/font-size-reset) ; Initialize font-size-pt var to the default value

;; LINE TRUNCATION / VISUAL LINE MODE
;; Do `M-x toggle-truncate-lines` to toggle truncation mode.

;; Line truncation has to be enabled for the visual-line-mode to be effective.

;; Disable truncation. This setting does NOT apply to windows split using `C-x 3`
(setq truncate-lines nil)
;; Disable truncation in windows split using `C-x 3` too.
(setq truncate-partial-width-windows nil)
;; Turn on line wrapping fringe indicators in Visual Line Mode
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))

;; (global-visual-line-mode 1) ; Enable wrapping lines at word boundaries
(global-visual-line-mode -1) ; Disable wrapping lines at word boundaries

;; Enable/Disable visual-line mode in specific major modes. Enabling visual
;; line mode does word wrapping only at word boundaries
(defun turn-off-visual-line-mode ()
  (interactive)
  (visual-line-mode -1))
(defun turn-on-visual-line-mode ()
  (interactive)
  (visual-line-mode 1))
(add-hook 'sh-mode-hook       #'turn-off-visual-line-mode)
(add-hook 'org-mode-hook      #'turn-on-visual-line-mode)
(add-hook 'markdown-mode-hook #'turn-on-visual-line-mode)

;; CURSOR
;; Change cursor color according to mode:
;;   read-only buffer / overwrite / regular (insert) mode
(blink-cursor-mode -1) ; Don't blink the cursor, it's distracting!

(defvar hcz-set-cursor-color-color "")
(defvar hcz-set-cursor-color-buffer "")
