boj/.spacemacs

## .spacemacs
;; -*- mode: dotspacemacs -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.

(defun dotspacemacs/layers ()
  "Configuration Layers declaration."
  (setq-default
   ;; List of additional paths where to look for configuration layers.
   ;; Paths must have a trailing slash (ie. `~/.mycontribs/')
   dotspacemacs-configuration-layer-path '()
   ;; List of configuration layers to load. If it is the symbol `all' instead
   ;; of a list then all discovered layers will be installed.
   dotspacemacs-configuration-layers
   '(
     sql
     ;; editor
     (auto-completion
      (haskell :variables haskell-completion-backend 'intero))
     ;; better-defaults
     ;;(colors :variables
     ;;        colors-enable-rainbow-identifiers t)
     ;;         colors-enable-nyan-cat-progress-bar t)
     colors
     emoji
     ibuffer
     ivy
     osx
     (shell :variables
            shell-default-shell 'ansi-term
            shell-default-term-shell "/usr/local/bin/fish")
     spell-checking
     syntax-checking
     themes-megapack

     ;; notes
     org

     ;; markup
     html
     markdown
     yaml

     ;; mgmt tools
     git
     github

     ;; config files
     ansible
     terraform

     ;; languages
     csharp
     elm
     emacs-lisp
     extra-langs
     haskell
     rust
     shell-scripts

     ;; misc
     twitter
     )
   dotspacemacs-additional-packages '(wttrin)
   ;; A list of packages and/or extensions that will not be install and loaded.
   dotspacemacs-excluded-packages '(smartparens)
   ;; If non-nil spacemacs will delete any orphan packages, i.e. packages that
   ;; are declared in a layer which is not a member of
   ;; the list `dotspacemacs-configuration-layers'
   dotspacemacs-delete-orphan-packages t))

(defun dotspacemacs/init ()
  "Initialization function.
This function is called at the very startup of Spacemacs initialization
before layers configuration."
  ;; This setq-default sexp is an exhaustive list of all the supported
  ;; spacemacs settings.
  (setq-default
   ;; Either `vim' or `emacs'. Evil is always enabled but if the variable
   ;; is `emacs' then the `holy-mode' is enabled at startup.
   dotspacemacs-editing-style 'vim
   ;; If non nil output loading progess in `*Messages*' buffer.
   dotspacemacs-verbose-loading nil
   ;; Specify the startup banner. Default value is `official', it displays
   ;; the official spacemacs logo. An integer value is the index of text
   ;; banner, `random' chooses a random text banner in `core/banners'
   ;; directory. A string value must be a path to a .PNG file.
   ;; If the value is nil then no banner is displayed.
   ;; dotspacemacs-startup-banner 'official
   dotspacemacs-startup-banner 'official
   ;; t if you always want to see the changelog at startup
   dotspacemacs-always-show-changelog nil
   ;; List of items to show in the startup buffer. If nil it is disabled.
   ;; Possible values are: `recents' `bookmarks' `projects'."
   dotspacemacs-startup-lists nil
   ;; List of themes, the first of the list is loaded when spacemacs starts.
   ;; Press <SPC> T n to cycle to the next theme in the list (works great
   ;; with 2 themes variants, one dark and one light)
   dotspacemacs-themes '(material spacemacs-dark clues)
   ;; If non nil the cursor color matches the state color.
   dotspacemacs-colorize-cursor-according-to-state t
   ;; Default font. `powerline-scale' allows to quickly tweak the mode-line
   ;; size to make separators look not too crappy.
   dotspacemacs-default-font '("Fira Code Medium"
                               :size 12
                               :weight normal
                               :width normal
                               :powerline-scale 1.1)
   ;; The leader key
   dotspacemacs-leader-key "SPC"
   ;; The leader key accessible in `emacs state' and `insert state'
   dotspacemacs-emacs-leader-key "M-m"
   ;; Major mode leader key is a shortcut key which is the equivalent of
   ;; pressing `<leader> m`. Set it to `nil` to disable it.
   dotspacemacs-major-mode-leader-key ","
   ;; Major mode leader key accessible in `emacs state' and `insert state'
   dotspacemacs-major-mode-emacs-leader-key "C-M-m"
   ;; The command key used for Evil commands (ex-commands) and
   ;; Emacs commands (M-x).
   ;; By default the command key is `:' so ex-commands are executed like in Vim
   ;; with `:' and Emacs commands are executed with `<leader> :'.
   dotspacemacs-command-key ":"
   ;; If non nil the paste micro-state is enabled. While enabled pressing `p`
   ;; several times cycle between the kill ring content.
   dotspacemacs-enable-paste-micro-state nil
   ;; Guide-key delay in seconds. The Guide-key is the popup buffer listing
   ;; the commands bound to the current keystrokes.
   dotspacemacs-guide-key-delay 0.4
   ;; If non nil a progress bar is displayed when spacemacs is loading. This
   ;; may increase the boot time on some systems and emacs builds, set it to
   ;; nil ;; to boost the loading time.
   dotspacemacs-loading-progress-bar t
   ;; If non nil the frame is fullscreen when Emacs starts up.
   ;; (Emacs 24.4+ only)
   dotspacemacs-fullscreen-at-startup nil
   ;; If non nil `spacemacs/toggle-fullscreen' will not use native fullscreen.
   ;; Use to disable fullscreen animations in OSX."
   dotspacemacs-fullscreen-use-non-native nil
   ;; If non nil the frame is maximized when Emacs starts up.
   ;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
   ;; (Emacs 24.4+ only)
   dotspacemacs-maximized-at-startup nil
   ;; A value from the range (0..100), in increasing opacity, which describes
   ;; the transparency level of a frame when it's active or selected.
   ;; Transparency can be toggled through `toggle-transparency'.
   dotspacemacs-active-transparency 90
   ;; A value from the range (0..100), in increasing opacity, which describes
   ;; the transparency level of a frame when it's inactive or deselected.
   ;; Transparency can be toggled through `toggle-transparency'.
   dotspacemacs-inactive-transparency 90
   ;; If non nil unicode symbols are displayed in the mode line.
   dotspacemacs-mode-line-unicode-symbols t
   ;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth
   ;; scrolling overrides the default behavior of Emacs which recenters the
   ;; point when it reaches the top or bottom of the screen.
   dotspacemacs-smooth-scrolling t
   ;; If non-nil smartparens-strict-mode will be enabled in programming modes.
   dotspacemacs-smartparens-strict-mode nil
   ;; If non nil advises quit functions to keep server open when quitting.
   dotspacemacs-persistent-server nil
   ;; List of search tool executable names. Spacemacs uses the first installed
   ;; tool of the list. Supported tools are `ag', `pt', `ack' and `grep'.
   dotspacemacs-search-tools '("ag" "pt" "ack" "grep")
   ;; The default package repository used if no explicit repository has been
   ;; specified with an installed package.
   ;; Not used for now.
   dotspacemacs-default-package-repository nil
   dotspacemacs-scratch-mode 'haskell-mode
   )
  )

(defun dotspacemacs/user-config ()
  ;; system
  (add-to-list 'exec-path "~/.local/bin")
  (remove-hook 'haskell-mode-hook 'flyspell-mode)
  (add-hook 'haskell-mode-hook 'turn-on-fci-mode) ;; 80 columns

  ;; full screen offset hack for native OSX
  (setq ns-auto-hide-menu-bar t)
  (set-frame-position nil 0 -24)
  (tool-bar-mode 0)
  (set-frame-size nil 271 85)

  ;; clock
  (setq display-time-day-and-date t)
  (display-time)

  ;; japanese keyboard
  (global-set-key (quote [134217893]) "\\")

  ;; weather
  (setq wttrin-default-cities '("Osaka"))

  ;; haskell
  (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
  (setq haskell-indent 2)

  ;; org-mode
  (setq org-startup-truncated nil)
  ;;(setq org-bullets-bullet-list '("■" "◆" "▲" "▶"))
  (setq org-agenda-window-setup 'current-window)
  (setq org-todo-keywords
        '((sequence "TODO(t)" "ACTIVE(a)" "ONHOLD(h@/!)" "|" "DONE(d!)" "CANCELED(c@)")))
  (setq org-fontify-done-headline t)
  (setq spaceline-org-clock-p t)

  (when (window-system)
    (set-default-font "Fira Code"))
  (let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
                 (35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)")
                 (36 . ".\\(?:>\\)")
                 (37 . ".\\(?:\\(?:%%\\)\\|%\\)")
                 (38 . ".\\(?:\\(?:&&\\)\\|&\\)")
                 (42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)")
                 (43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
                 (45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
                 (46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=-]\\)")
                 (47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
                 (48 . ".\\(?:x[a-zA-Z]\\)")
                 (58 . ".\\(?:::\\|[:=]\\)")
                 (59 . ".\\(?:;;\\|;\\)")
                 (60 . ".\\(?:\\(?:!--\\)\\|\\(?:~~\\|->\\|\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[*$+~/<=>|-]\\)")
                 (61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
                 (62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
                 (63 . ".\\(?:\\(\\?\\?\\)\\|[:=?]\\)")
                 (91 . ".\\(?:]\\)")
                 (92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
                 (94 . ".\\(?:=\\)")
                 (119 . ".\\(?:ww\\)")
                 (123 . ".\\(?:-\\)")
                 (124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
                 (126 . ".\\(?:~>\\|~~\\|[>=@~-]\\)")
                 )
               ))
    (dolist (char-regexp alist)
      (set-char-table-range composition-function-table (car char-regexp)
                            `([,(cdr char-regexp) 0 font-shape-gstring]))))
)

;; Custom variables
;; ----------------

;; Do not write anything in this section. This is where Emacs will
;; auto-generate custom variable definitions.
	;; -- mode: dotspacemacs --
	;; This file is loaded by Spacemacs at startup.
	;; It must be stored in your home directory.

	(defun dotspacemacs/layers ()
	"Configuration Layers declaration."
	(setq-default
	;; List of additional paths where to look for configuration layers.
	;; Paths must have a trailing slash (ie. `~/.mycontribs/')
	dotspacemacs-configuration-layer-path '()
	;; List of configuration layers to load. If it is the symbol `all' instead
	;; of a list then all discovered layers will be installed.
	dotspacemacs-configuration-layers
	'(
	sql
	;; editor
	(auto-completion
	(haskell :variables haskell-completion-backend 'intero))
	;; better-defaults
	;;(colors :variables
	;; colors-enable-rainbow-identifiers t)
	;; colors-enable-nyan-cat-progress-bar t)
	colors
	emoji
	ibuffer
	ivy
	osx
	(shell :variables
	shell-default-shell 'ansi-term
	shell-default-term-shell "/usr/local/bin/fish")
	spell-checking
	syntax-checking
	themes-megapack

	;; notes
	org

	;; markup
	html
	markdown
	yaml

	;; mgmt tools
	git
	github

	;; config files
	ansible
	terraform

	;; languages
	csharp
	elm
	emacs-lisp
	extra-langs
	haskell
	rust
	shell-scripts

	;; misc
	twitter
	)
	dotspacemacs-additional-packages '(wttrin)
	;; A list of packages and/or extensions that will not be install and loaded.
	dotspacemacs-excluded-packages '(smartparens)
	;; If non-nil spacemacs will delete any orphan packages, i.e. packages that
	;; are declared in a layer which is not a member of
	;; the list `dotspacemacs-configuration-layers'
	dotspacemacs-delete-orphan-packages t))

	(defun dotspacemacs/init ()
	"Initialization function.
	This function is called at the very startup of Spacemacs initialization
	before layers configuration."
	;; This setq-default sexp is an exhaustive list of all the supported
	;; spacemacs settings.
	(setq-default
	;; Either `vim' or `emacs'. Evil is always enabled but if the variable
	;; is `emacs' then the `holy-mode' is enabled at startup.
	dotspacemacs-editing-style 'vim
	;; If non nil output loading progess in `Messages' buffer.
	dotspacemacs-verbose-loading nil
	;; Specify the startup banner. Default value is `official', it displays
	;; the official spacemacs logo. An integer value is the index of text
	;; banner, `random' chooses a random text banner in `core/banners'
	;; directory. A string value must be a path to a .PNG file.
	;; If the value is nil then no banner is displayed.
	;; dotspacemacs-startup-banner 'official
	dotspacemacs-startup-banner 'official
	;; t if you always want to see the changelog at startup
	dotspacemacs-always-show-changelog nil
	;; List of items to show in the startup buffer. If nil it is disabled.
	;; Possible values are: `recents' `bookmarks' `projects'."
	dotspacemacs-startup-lists nil
	;; List of themes, the first of the list is loaded when spacemacs starts.
	;; Press <SPC> T n to cycle to the next theme in the list (works great
	;; with 2 themes variants, one dark and one light)
	dotspacemacs-themes '(material spacemacs-dark clues)
	;; If non nil the cursor color matches the state color.
	dotspacemacs-colorize-cursor-according-to-state t
	;; Default font. `powerline-scale' allows to quickly tweak the mode-line
	;; size to make separators look not too crappy.
	dotspacemacs-default-font '("Fira Code Medium"
	:size 12
	:weight normal
	:width normal
	:powerline-scale 1.1)
	;; The leader key
	dotspacemacs-leader-key "SPC"
	;; The leader key accessible in `emacs state' and `insert state'
	dotspacemacs-emacs-leader-key "M-m"
	;; Major mode leader key is a shortcut key which is the equivalent of
	;; pressing `<leader> m`. Set it to `nil` to disable it.
	dotspacemacs-major-mode-leader-key ","
	;; Major mode leader key accessible in `emacs state' and `insert state'
	dotspacemacs-major-mode-emacs-leader-key "C-M-m"
	;; The command key used for Evil commands (ex-commands) and
	;; Emacs commands (M-x).
	;; By default the command key is `:' so ex-commands are executed like in Vim
	;; with `:' and Emacs commands are executed with `<leader> :'.
	dotspacemacs-command-key ":"
	;; If non nil the paste micro-state is enabled. While enabled pressing `p`
	;; several times cycle between the kill ring content.
	dotspacemacs-enable-paste-micro-state nil
	;; Guide-key delay in seconds. The Guide-key is the popup buffer listing
	;; the commands bound to the current keystrokes.
	dotspacemacs-guide-key-delay 0.4
	;; If non nil a progress bar is displayed when spacemacs is loading. This
	;; may increase the boot time on some systems and emacs builds, set it to
	;; nil ;; to boost the loading time.
	dotspacemacs-loading-progress-bar t
	;; If non nil the frame is fullscreen when Emacs starts up.
	;; (Emacs 24.4+ only)
	dotspacemacs-fullscreen-at-startup nil
	;; If non nil `spacemacs/toggle-fullscreen' will not use native fullscreen.
	;; Use to disable fullscreen animations in OSX."
	dotspacemacs-fullscreen-use-non-native nil
	;; If non nil the frame is maximized when Emacs starts up.
	;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil.
	;; (Emacs 24.4+ only)
	dotspacemacs-maximized-at-startup nil
	;; A value from the range (0..100), in increasing opacity, which describes
	;; the transparency level of a frame when it's active or selected.
	;; Transparency can be toggled through `toggle-transparency'.
	dotspacemacs-active-transparency 90
	;; A value from the range (0..100), in increasing opacity, which describes
	;; the transparency level of a frame when it's inactive or deselected.
	;; Transparency can be toggled through `toggle-transparency'.
	dotspacemacs-inactive-transparency 90
	;; If non nil unicode symbols are displayed in the mode line.
	dotspacemacs-mode-line-unicode-symbols t
	;; If non nil smooth scrolling (native-scrolling) is enabled. Smooth
	;; scrolling overrides the default behavior of Emacs which recenters the
	;; point when it reaches the top or bottom of the screen.
	dotspacemacs-smooth-scrolling t
	;; If non-nil smartparens-strict-mode will be enabled in programming modes.
	dotspacemacs-smartparens-strict-mode nil
	;; If non nil advises quit functions to keep server open when quitting.
	dotspacemacs-persistent-server nil
	;; List of search tool executable names. Spacemacs uses the first installed
	;; tool of the list. Supported tools are `ag', `pt', `ack' and `grep'.
	dotspacemacs-search-tools '("ag" "pt" "ack" "grep")
	;; The default package repository used if no explicit repository has been
	;; specified with an installed package.
	;; Not used for now.
	dotspacemacs-default-package-repository nil
	dotspacemacs-scratch-mode 'haskell-mode
	)
	)

	(defun dotspacemacs/user-config ()
	;; system
	(add-to-list 'exec-path "~/.local/bin")
	(remove-hook 'haskell-mode-hook 'flyspell-mode)
	(add-hook 'haskell-mode-hook 'turn-on-fci-mode) ;; 80 columns

	;; full screen offset hack for native OSX
	(setq ns-auto-hide-menu-bar t)
	(set-frame-position nil 0 -24)
	(tool-bar-mode 0)
	(set-frame-size nil 271 85)

	;; clock
	(setq display-time-day-and-date t)
	(display-time)

	;; japanese keyboard
	(global-set-key (quote [134217893]) "\\")

	;; weather
	(setq wttrin-default-cities '("Osaka"))

	;; haskell
	(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
	(setq haskell-indent 2)

	;; org-mode
	(setq org-startup-truncated nil)
	;;(setq org-bullets-bullet-list '("■" "◆" "▲" "▶"))
	(setq org-agenda-window-setup 'current-window)
	(setq org-todo-keywords
	'((sequence "TODO(t)" "ACTIVE(a)" "ONHOLD(h@/!)" "\|" "DONE(d!)" "CANCELED(c@)")))
	(setq org-fontify-done-headline t)
	(setq spaceline-org-clock-p t)

	(when (window-system)
	(set-default-font "Fira Code"))
	(let ((alist '((33 . ".\\(?:\\(?:==\\\|!!\\)\\\|[!=]\\)")
	(35 . ".\\(?:###\\\|##\\\|_(\\\|[#(?[_{]\\)")
	(36 . ".\\(?:>\\)")
	(37 . ".\\(?:\\(?:%%\\)\\\|%\\)")
	(38 . ".\\(?:\\(?:&&\\)\\\|&\\)")
	(42 . ".\\(?:\\(?:\\\\/\\)\\\|\\(?:\\[/]\\)\\\|[*/>]\\)")
	(43 . ".\\(?:\\(?:\\+\\+\\)\\\|[+>]\\)")
	(45 . ".\\(?:\\(?:-[>-]\\\|<<\\\|>>\\)\\\|[<>}~-]\\)")
	(46 . ".\\(?:\\(?:\\.[.<]\\)\\\|[.=-]\\)")
	(47 . ".\\(?:\\(?:\\\\\\\|//\\\|==\\)\\\|[*/=>]\\)")
	(48 . ".\\(?:x[a-zA-Z]\\)")
	(58 . ".\\(?:::\\\|[:=]\\)")
	(59 . ".\\(?:;;\\\|;\\)")
	(60 . ".\\(?:\\(?:!--\\)\\\|\\(?:~~\\\|->\\\|\\$>\\\|\\>\\\|\\+>\\\|--\\\|<[<=-]\\\|=[<=>]\\\|\|>\\)\\\|[$+~/<=>\|-]\\)")
	(61 . ".\\(?:\\(?:/=\\\|:=\\\|<<\\\|=[=>]\\\|>>\\)\\\|[<=>~]\\)")
	(62 . ".\\(?:\\(?:=>\\\|>[=>-]\\)\\\|[=>-]\\)")
	(63 . ".\\(?:\\(\\?\\?\\)\\\|[:=?]\\)")
	(91 . ".\\(?:]\\)")
	(92 . ".\\(?:\\(?:\\\\\\\\\\)\\\|\\\\\\)")
	(94 . ".\\(?:=\\)")
	(119 . ".\\(?:ww\\)")
	(123 . ".\\(?:-\\)")
	(124 . ".\\(?:\\(?:\|[=\|]\\)\\\|[=>\|]\\)")
	(126 . ".\\(?:~>\\\|~~\\\|[>=@~-]\\)")
	)
	))
	(dolist (char-regexp alist)
	(set-char-table-range composition-function-table (car char-regexp)
	`([,(cdr char-regexp) 0 font-shape-gstring]))))
	)

	;; Custom variables
	;; ----------------

	;; Do not write anything in this section. This is where Emacs will
	;; auto-generate custom variable definitions.