spacemacs.el

;; -*- mode: dotspacemacs -*-

(defun dotspacemacs/layers ()
  (setq-default
   dotspacemacs-configuration-layers `(
                                       spacemacs
                                       my-web-dev
                                       (colors :variables
                                               colors-enable-rainbow-identifiers t
                                               colors-enable-nyan-cat-progress-bar t)
                                       osx
                                       git
                                       github
                                       latex
                                       version-control
                                       markdown
                                       themes-megapack
                                       html
                                       ;;asciidoc
                                       shell
                                       extra-langs
                                       syntax-checking
                                       spell-checking
                                       emacs-lisp
                                       ibuffer
                                       vim-empty-lines
                                       vim-powerline
                                       better-defaults
                                       deft
                                       search-engine
                                       auto-completion
                                       syntax-checking
                                       ;;persistent-scratch
                                       (org :variables
                                          org-bullets-bullet-list '("■" "◆" "▲" "▶")
                                          org-enable-github-support t)
                                       shell-scripts
                                       javascript
                                       perspectives
                                       ruby
                                       python
                                       smex
                                       rust
                                       finance
                                       haskell
                                       erlang
                                       elixir
                                       java
                                       dash
                                       ranger
                                       clojure
                                       scala
                                       eyebrowse
                                       evil-snipe
                                       )
   dotspacemacs-delete-orphan-packages t))

(defun dotspacemacs/init ()
  (setq-default
   dotspacemacs-startup-banner 'random
   dotspacemacs-themes '(spacemacs-dark
                         material
                         material-light
                         noctilux
                         spacemacs-light 
                         niflheim
                         gruvbox
                         monokai
                         solarized-light
                         solarized-dark
                         flatland
                         flatui
                         darkburn
                         sanityinc-solarized-dark
                         )
   dotspacemacs-colorize-cursor-according-to-state t
   dotspacemacs-editing-style 'vim
   git-magit-status-fullscreen t
   ;; The leader key
   dotspacemacs-leader-key "SPC"
   dotspacemacs-emacs-leader-key ""
   ;; Major mode leader key is a shortcut key which is the equivalent of
   ;; pressing `<leader> m`
   dotspacemacs-major-mode-leader-key ","
   ;; 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 ":"
   ;; 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.3
   ;; 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 nil
   ;; 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 80
   ;; 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 77777770
   ;; 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 t
   ;; If non nil advises quit functions to keep server open when quitting.
   dotspacemacs-persistent-server t
   ;; 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)
  ;; User initialization goes here
  ;; Default font. `powerline-scale' allows to quickly tweak the mode-line
  ;; size to make separators look not too crappy.
  (autoload 'sparql-mode "sparql-mode.el"
    "Major mode for editing SPARQL files" t)
  (add-to-list 'auto-mode-alist '("\\.sparql$" . sparql-mode))
  (when (string= system-name "kendall--macpro--office.lan")
    (setq dotspacemacs-default-font '("Source Code Pro";; "Triplicate T3" ;;"Source Code Pro";;"Fira Mono"
                                      :size 21
                                      :weight normal
                                      :width normal
                                      :powerline-scale 1))
    (defun save-all ()
      (interactive)
      (save-some-buffers t))
    (add-hook 'focus-out-hook 'save-all)
    )
  (when (string= system-name "k-tp")
    (setq dotspacemacs-default-font '("Source Code Pro"
                                      :size 28
                                      :weight normal
                                      :width normal
                                      :powerline-scale 1))
    (defun save-all ()
      (interactive)
      (save-some-buffers t))
    (add-hook 'focus-out-hook 'save-all)
    )
  )


(defun dotspacemacs/user-config ()
  "Configuration function.
 This function is called at the very end of Spacemacs initialization after layers configuration."
  (setq powerline-default-separator 'arrow)
  (setq magit-repo-dirs '("~/work/"))
  (setq edit-server-url-major-mode-alist
        '(("github\\.com" . org-mode)))
  )
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ac-ispell-requires 4)
 '(ahs-case-fold-search nil)
 '(ahs-default-range (quote ahs-range-whole-buffer))
 '(ahs-idle-interval 0.25)
 '(ahs-idle-timer 0 t)
 '(ahs-inhibit-face-list nil)
 '(blink-cursor-mode nil)
 '(column-number-mode t)
 '(paradox-github-token t)
 '(ring-bell-function (quote ignore) t)
 '(show-paren-mode t)
 '(tool-bar-mode nil))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(markup-anchor-face ((t (:inherit markup-meta-face :overline nil))))
 '(markup-attribute-face ((t (:inherit markup-meta-face))))
 '(markup-big-face ((t (:inherit markup-gen-face))))
 '(markup-bold-face ((t (:inherit markup-gen-face))))
; '(markup-code-face ((t (:underline f))))
 '(markup-command-face ((t (:inherit markup-meta-face :weight normal))))
 '(markup-complex-replacement-face ((t (:inherit markup-meta-face :foreground "plum1"))))
 '(markup-error-face ((t (:inherit font-lock-warning-face :family "Source Code Pro"))))
 '(markup-internal-reference-face ((t (:inherit markup-meta-face))))
 '(markup-list-face ((t (:inherit markup-meta-face :foreground "plum1"))))
 '(markup-meta-face ((t (:stipple nil :foreground "dark gray" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 180 :width normal :foundry "unknown" :family "Source Code Pro"))))
 '(markup-meta-hide-face ((t (:inherit markup-meta-face :foreground "gold"))))
 '(markup-preprocessor-face ((t (:inherit font-lock-preprocessor-face))))
 '(markup-replacement-face ((t (:foreground "tomato" :family "Source Code Pro"))))
 '(markup-secondary-text-face ((t (:inherit markup-gen-face :foreground "firebrick"))))
 '(markup-small-face ((t (:inherit markup-gen-face))))
 '(markup-strong-face ((t (:inherit markup-gen-face :weight bold :family "Source Code Pro"))))
 '(markup-subscript-face ((t (:inherit markup-gen-face))))
 '(markup-superscript-face ((t (:inherit markup-gen-face))))
 '(markup-table-cell-face ((t (:inherit markup-table-face :background "coral"))))
 '(markup-table-face ((t (:inherit markup-meta-face :foreground "coral"))))
 '(markup-title-0-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-title-1-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-title-2-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-title-3-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-title-4-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-title-5-face ((t (:inherit markup-gen-face :foreground "magenta"))))
 '(markup-typewriter-face ((t (:inherit (fixed-pitch markup-gen-face)))))
 '(markup-value-face ((t (:inherit markup-meta-face :foreground "orange red"))))
 '(markup-verbatim-face ((t nil))))

(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property (point) 'read-face-name)
                  (get-char-property (point) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

(set-face-bold-p 'bold nil)
(set-face-italic-p 'italic nil)
(add-to-list 'auto-mode-alist (cons "\\.ad\\'" 'adoc-mode))