40 

    40 

    41 ;;; Darwin

    41 ;;; Darwin

    42 (setq is-mac (equal system-type 'darwin))

    42 (setq is-mac (equal system-type 'darwin))

    43 (when is-mac

    43 (when is-mac

    44   (setq-default

    44   (setq-default

    45    mac-command-modifier 'meta

    46    mac-command-modifier 'meta

    46    ns-pop-up-frames nil

    47    ns-pop-up-frames nil

    47    ispell-program-name "/usr/local/bin/aspell"))

    48    ispell-program-name "/usr/local/bin/aspell"))

    48 

    49 

    49 ;;; Xorg

    50 ;;; Xorg

    50 (when window-system

    51 (when window-system

    51   (tool-bar-mode -1)      ; remove tool bar

    52   (tool-bar-mode -1)      ; remove tool bar

    52   (scroll-bar-mode -1)    ; remove scroll bar

    53   (scroll-bar-mode -1)    ; remove scroll bar

    54   (visual-line-mode t)    ; word wrap break on whitespace

    55   (visual-line-mode t)    ; word wrap break on whitespace

    55   (set-frame-font (if is-mac "Ubuntu Mono-12" "Ubuntu Mono-10.5")))

    56   (set-frame-font (if is-mac "Ubuntu Mono-12" "Ubuntu Mono-10.5")))

    56 

    57 

    57 ;;;; Mode-Specific ;;;;

    58 ;;;; Mode-Specific ;;;;

    58 

    59