303 lines
13 KiB
Text
303 lines
13 KiB
Text
;; -*- mode: emacs-lisp -*-
|
|
;; This file is loaded by Spacemacs at startup.
|
|
;; It must be stored in your home directory.
|
|
|
|
(defun dotspacemacs/layers ()
|
|
"Configuration Layers declaration.
|
|
You should not put any user code in this function besides modifying the variable
|
|
values."
|
|
(setq-default
|
|
;; Base distribution to use. This is a layer contained in the directory
|
|
;; `+distribution'. For now available distributions are `spacemacs-base'
|
|
;; or `spacemacs'. (default 'spacemacs)
|
|
dotspacemacs-distribution 'spacemacs
|
|
;; List of additional paths where to look for configuration layers.
|
|
;; Paths must have a trailing slash (i.e. `~/.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
|
|
'(
|
|
python
|
|
asm
|
|
;; ----------------------------------------------------------------
|
|
;; Example of useful layers you may want to use right away.
|
|
;; Uncomment some layer names and press <SPC f e R> (Vim style) or
|
|
;; <M-m f e R> (Emacs style) to install them.
|
|
;; ----------------------------------------------------------------
|
|
;; auto-completion
|
|
;; better-defaults
|
|
emacs-lisp
|
|
git
|
|
markdown
|
|
;; (shell :variables
|
|
;; shell-default-height 30
|
|
;; shell-default-position 'bottom)
|
|
;; spell-checking
|
|
;; syntax-checking
|
|
;; version-control
|
|
c-c++
|
|
clojure
|
|
haskell
|
|
gtags
|
|
latex
|
|
)
|
|
;; List of additional packages that will be installed without being
|
|
;; wrapped in a layer. If you need some configuration for these
|
|
;; packages then consider to create a layer, you can also put the
|
|
;; configuration in `dotspacemacs/config'.
|
|
dotspacemacs-additional-packages '()
|
|
;; A list of packages and/or extensions that will not be install and loaded.
|
|
dotspacemacs-excluded-packages '()
|
|
;; 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'. (default t)
|
|
dotspacemacs-delete-orphan-packages t))
|
|
|
|
(defun dotspacemacs/init ()
|
|
"Initialization function.
|
|
This function is called at the very startup of Spacemacs initialization
|
|
before layers configuration.
|
|
You should not put any user code in there besides modifying the variable
|
|
values."
|
|
;; This setq-default sexp is an exhaustive list of all the supported
|
|
;; spacemacs settings.
|
|
(setq-default
|
|
;; One of `vim', `emacs' or `hybrid'. Evil is always enabled but if the
|
|
;; variable is `emacs' then the `holy-mode' is enabled at startup. `hybrid'
|
|
;; uses emacs key bindings for vim's insert mode, but otherwise leaves evil
|
|
;; unchanged. (default 'vim)
|
|
dotspacemacs-editing-style 'vim
|
|
;; If non nil output loading progress in `*Messages*' buffer. (default nil)
|
|
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 an image format supported
|
|
;; by your Emacs build.
|
|
;; If the value is nil then no banner is displayed. (default 'official)
|
|
dotspacemacs-startup-banner 'official
|
|
;; List of items to show in the startup buffer. If nil it is disabled.
|
|
;; Possible values are: `recents' `bookmarks' `projects'.
|
|
;; (default '(recents projects))
|
|
dotspacemacs-startup-lists '(recents projects)
|
|
;; 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 '(spacemacs-dark
|
|
spacemacs-light
|
|
solarized-light
|
|
solarized-dark
|
|
monokai
|
|
leuven
|
|
zenburn)
|
|
;; 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 '("Source Code Pro"
|
|
:size 13
|
|
: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'
|
|
;; (default "M-m")
|
|
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. (default ",")
|
|
dotspacemacs-major-mode-leader-key ","
|
|
;; Major mode leader key accessible in `emacs state' and `insert state'.
|
|
;; (default "C-M-m)
|
|
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 `Y' is remapped to `y$'. (default t)
|
|
dotspacemacs-remap-Y-to-y$ t
|
|
;; Location where to auto-save files. Possible values are `original' to
|
|
;; auto-save the file in-place, `cache' to auto-save the file to another
|
|
;; file stored in the cache directory and `nil' to disable auto-saving.
|
|
;; (default 'cache)
|
|
dotspacemacs-auto-save-file-location nil
|
|
;; If non nil then `ido' replaces `helm' for some commands. For now only
|
|
;; `find-files' (SPC f f), `find-spacemacs-file' (SPC f e s), and
|
|
;; `find-contrib-file' (SPC f e c) are replaced. (default nil)
|
|
dotspacemacs-use-ido nil
|
|
;; If non nil, `helm' will try to miminimize the space it uses. (default nil)
|
|
dotspacemacs-helm-resize nil
|
|
;; if non nil, the helm header is hidden when there is only one source.
|
|
;; (default nil)
|
|
dotspacemacs-helm-no-header nil
|
|
;; define the position to display `helm', options are `bottom', `top',
|
|
;; `left', or `right'. (default 'bottom)
|
|
dotspacemacs-helm-position 'bottom
|
|
;; If non nil the paste micro-state is enabled. When enabled pressing `p`
|
|
;; several times cycle between the kill ring content. (default nil)
|
|
dotspacemacs-enable-paste-micro-state nil
|
|
;; Which-key delay in seconds. The which-key buffer is the popup listing
|
|
;; the commands bound to the current keystroke sequence. (default 0.4)
|
|
dotspacemacs-which-key-delay 0.4
|
|
;; Which-key frame position. Possible values are `right', `bottom' and
|
|
;; `right-then-bottom'. right-then-bottom tries to display the frame to the
|
|
;; right; if there is insufficient space it displays it at the bottom.
|
|
;; (default 'bottom)
|
|
dotspacemacs-which-key-position 'bottom
|
|
;; 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. (default t)
|
|
dotspacemacs-loading-progress-bar t
|
|
;; If non nil the frame is fullscreen when Emacs starts up. (default nil)
|
|
;; (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. (default nil)
|
|
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.
|
|
;; (default 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'. (default 90)
|
|
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'. (default 90)
|
|
dotspacemacs-inactive-transparency 90
|
|
;; If non nil unicode symbols are displayed in the mode line. (default t)
|
|
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. (default t)
|
|
dotspacemacs-smooth-scrolling t
|
|
;; If non-nil smartparens-strict-mode will be enabled in programming modes.
|
|
;; (default nil)
|
|
dotspacemacs-smartparens-strict-mode nil
|
|
;; Select a scope to highlight delimiters. Possible values are `any',
|
|
;; `current', `all' or `nil'. Default is `all' (highlight any scope and
|
|
;; emphasis the current one). (default 'all)
|
|
dotspacemacs-highlight-delimiters 'all
|
|
;; If non nil advises quit functions to keep server open when quitting.
|
|
;; (default nil)
|
|
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'.
|
|
;; (default '("ag" "pt" "ack" "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. (default nil)
|
|
dotspacemacs-default-package-repository nil
|
|
))
|
|
|
|
(defun dotspacemacs/user-init ()
|
|
"Initialization function for user code.
|
|
It is called immediately after `dotspacemacs/init'. You are free to put any
|
|
user code."
|
|
)
|
|
|
|
(defun dotspacemacs/user-config ()
|
|
"Configuration function for user code.
|
|
This function is called at the very end of Spacemacs initialization after
|
|
layers configuration. You are free to put any user code."
|
|
|
|
(xterm-mouse-mode -1)
|
|
(setq-default tab-width 8 indent-tabs-mode t)
|
|
(global-set-key (kbd "TAB") 'self-insert-command)
|
|
(when (fboundp 'electric-indent-mode) (electric-indent-mode -1))
|
|
|
|
(global-auto-revert-mode t)
|
|
(windmove-default-keybindings)
|
|
(setq windmove-wrap-around t)
|
|
|
|
(setq TeX-view-program-selection '((output-pdf "Okular")))
|
|
(setq TeX-source-correlate-mode t)
|
|
(setq TeX-source-correlate-start-server t)
|
|
(setq TeX-source-correlate-method 'synctex)
|
|
(setq TeX-view-program-list
|
|
'(("Okular" "okular --unique %o#src:%n%b")))
|
|
|
|
(require 'desktop)
|
|
|
|
(defvar my-desktop-session-dir
|
|
(concat (getenv "HOME") "/.emacs.d/desktop-sessions/")
|
|
"*Directory to save desktop sessions in")
|
|
|
|
(defvar my-desktop-session-name-hist nil
|
|
"Desktop session name history")
|
|
|
|
(defun my-desktop-save (&optional name)
|
|
"Save desktop by name."
|
|
(interactive)
|
|
(unless name
|
|
(setq name (my-desktop-get-session-name "Save session" t)))
|
|
(when name
|
|
(make-directory (concat my-desktop-session-dir name) t)
|
|
(desktop-save (concat my-desktop-session-dir name) t)))
|
|
|
|
(defun my-desktop-save-and-clear ()
|
|
"Save and clear desktop."
|
|
(interactive)
|
|
(call-interactively 'my-desktop-save)
|
|
(desktop-clear)
|
|
(setq desktop-dirname nil))
|
|
|
|
(defun my-desktop-read (&optional name)
|
|
"Read desktop by name."
|
|
(interactive)
|
|
(unless name
|
|
(setq name (my-desktop-get-session-name "Load session")))
|
|
(when name
|
|
(desktop-clear)
|
|
(desktop-read (concat my-desktop-session-dir name))))
|
|
|
|
(defun my-desktop-change (&optional name)
|
|
"Change desktops by name."
|
|
(interactive)
|
|
(let ((name (my-desktop-get-current-name)))
|
|
(when name
|
|
(my-desktop-save name))
|
|
(call-interactively 'my-desktop-read)))
|
|
|
|
(defun my-desktop-name ()
|
|
"Return the current desktop name."
|
|
(interactive)
|
|
(let ((name (my-desktop-get-current-name)))
|
|
(if name
|
|
(message (concat "Desktop name: " name))
|
|
(message "No named desktop loaded"))))
|
|
|
|
(defun my-desktop-get-current-name ()
|
|
"Get the current desktop name."
|
|
(when desktop-dirname
|
|
(let ((dirname (substring desktop-dirname 0 -1)))
|
|
(when (string= (file-name-directory dirname) my-desktop-session-dir)
|
|
(file-name-nondirectory dirname)))))
|
|
|
|
(defun my-desktop-get-session-name (prompt &optional use-default)
|
|
"Get a session name."
|
|
(let* ((default (and use-default (my-desktop-get-current-name)))
|
|
(full-prompt (concat prompt (if default
|
|
(concat " (default " default "): ")
|
|
": "))))
|
|
(completing-read full-prompt (and (file-exists-p my-desktop-session-dir)
|
|
(directory-files my-desktop-session-dir))
|
|
nil nil nil my-desktop-session-name-hist default)))
|
|
|
|
(defun on-frame-open (frame)
|
|
(if (not (display-graphic-p frame))
|
|
(set-face-background 'default "unspecified-bg" frame)))
|
|
(on-frame-open (selected-frame))
|
|
(add-hook 'after-make-frame-functions 'on-frame-open)
|
|
|
|
(define-key global-map "\M-[1~" 'beginning-of-line)
|
|
(define-key global-map [select] 'end-of-line)
|
|
|
|
)
|
|
|
|
;; Do not write anything past this comment. This is where Emacs will
|
|
;; auto-generate custom variable definitions.
|