 
     ;; Make title bar transparent
     (add-to-list 'default-frame-alist'(ns-transparent-titlebar . t))
-    (add-to-list 'default-frame-alist'(ns-appearance . light))
-    )
-
-  ;; Specific settings for emacs TUI
-  (unless (display-graphic-p)
-    ;; See https://stackoverflow.com/questions/10660060/how-do-i-bind-c-in-emacs
-    (defun my/global-map-and-set-key (key command &optional prefix suffix)
-      "Calls `my/map-key' KEY, then `global-set-key' KEY with COMMAND. PREFIX or SUFFIX can wrap the key when passing to `global-set-key'."
-      (my/map-key key)
-      (global-set-key (kbd (concat prefix key suffix)) command))
-
-    (defun my/map-key (key)
-      "Map KEY from escape sequence \"\e[emacs-KEY\."
-      (define-key function-key-map (concat "\e[emacs-" key) (kbd key)))
-
-    ;; The following assumes the underlying Terminal has been configured to send the escape sequence \e[emacs-= when C-= is pressed
-    (my/map-key "C-=")
-    )
+    (add-to-list 'default-frame-alist'(ns-appearance . light)))
 
   :custom
   (cursor-type                   'hbar        "Uses the horizontal bar cursor." )

  (set-face-attribute 'fixed-pitch    nil :family "Roboto Mono"    :height 130)
  (set-face-attribute 'variable-pitch nil :family "Helvetica Neue" :height 130)
  ;; (add-hook 'text-mode-hook (lambda () (variable-pitch-mode 1)))

  ;; Specific settings for macOS
  (when (my/is-macos)

    (set-buffer-major-mode buffer)
    (switch-to-buffer buffer)))

(defun my/find-bash-profile-file () "Visit my Bash profile."
  (interactive) (find-file "~/.profile"))

(defun my/find-emacs-init-file () "Visit my Emacs initialization file."
  (interactive) (find-file (expand-file-name "init.el" user-emacs-directory)))

(defun my/find-hammerspoon-init-file () "Visit my Hammerspoon init file."
  (interactive) (find-file "~/.hammerspoon/init.lua"))

(defun my/find-shell-aliases-file () "Visit my shell aliases file."
  (interactive) (find-file "~/.shell_aliases"))

(defun my/find-shell-functions-file () "Visit my shell functions file."
  (interactive) (find-file "~/.shell_functions"))

(defun my/find-shell-local-script-file () "Visit my local shell file."
  (interactive) (find-file "~/.shell_local_script"))

(defun my/find-zshrc-file () "Visit my Zshrc."
  (interactive)
  (find-file "~/.zshrc"))

(defun my/is-macos ()
  "Return t when the system is a macOS."
	(interactive)
	(equal system-type 'darwin))

(defun my/is-win32 ()
  "Return t when the system is a Windows."
	(interactive)
	(equal system-type 'windows-nt))

(defun my/oblique-strategy ()  "Draw and message an oblique strategy."
	(interactive)
	(message (oblique-strategy)))

(defun my/reformat ()
  "Re-indent and refontify whole buffer."
	(interactive)
