Skip to content

Instantly share code, notes, and snippets.

@kendall kendall/spacemacs.el
Created Dec 17, 2015

Embed
What would you like to do?
;; -*- 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))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.