init

;;; init.el --- Spacemacs Initialization File
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

;; Without this comment emacs25 adds (package-initialize) here
;; (package-initialize)

(keyboard-translate ?\C-j ?\C-x)
(keyboard-translate ?\C-x ?\C-j)
(keyboard-translate ?\C-l ?\C-c)
(keyboard-translate ?\C-c ?\C-l)
(delete-selection-mode t)

(setq backup-directory-alist `(("." . "~/.saves")))
(setq auto-save-default nil)
(setq inhibit-startup-message t)


(defvar remchi-mode-map (make-keymap) "my keys")

(when (fboundp 'windmove-default-keybindings)
  (windmove-default-keybindings))

(defun line-above()
  "Inserts line above current one"
  (interactive)
  (move-beginning-of-line nil)
  (newline-and-indent)
  (forward-line -1)
  (indent-according-to-mode))

(define-key remchi-mode-map (kbd "M-k") 'next-line)
(define-key remchi-mode-map (kbd "M-i") 'previous-line)
(define-key remchi-mode-map (kbd "M-j") 'backward-char)
(define-key remchi-mode-map (kbd "M-l") 'forward-char)

(define-key remchi-mode-map (kbd "M-RET") 'line-above)

(defun move-line (n)
  "Move the current line up or down by N lines."
  (interactive "p")
  (setq col (current-column))
  (beginning-of-line) (setq start (point))
  (end-of-line) (forward-char) (setq end (point))
  (let ((line-text (delete-and-extract-region start end)))
    (forward-line n)
    (insert line-text)
    ;; restore point to original column in moved line
    (forward-line -1)
    (forward-char col)))

(defun move-line-up (n)
  "Move the current line up by N lines."
  (interactive "p")
  (move-line (if (null n) -1 (- n))))

(defun move-line-down (n)
  "Move the current line down by N lines."
  (interactive "p")
  (move-line (if (null n) 1 n)))
(global-set-key (kbd "M-<up>") 'move-line-up)
(global-set-key (kbd "M-<down>") 'move-line-down)

(require 'saveplace)
(setq save-place-file (concat user-emacs-directory "saveplace.el"))
(setq-default save-place t)

(define-minor-mode remchi-mode
  "A minor mode for my custom keys and functions"
  t " remchi" 'remchi-mode-map)
(remchi-mode t)

(global-set-key (kbd "C-'") 'avy-goto-char-2)

(setq gc-cons-threshold 100000000)

(defconst spacemacs-version          "0.105.4" "Spacemacs version.")
(defconst spacemacs-emacs-min-version   "24.3" "Minimal version of Emacs.")

(if (not (version<= spacemacs-emacs-min-version emacs-version))
    (message (concat "Your version of Emacs (%s) is too old. "
                     "Spacemacs requires Emacs version %d or above.")
             emacs-version spacemacs-emacs-min-version)
  (load-file (concat user-emacs-directory "core/core-load-paths.el"))
  (require 'core-spacemacs)
  (spacemacs/init)
  (spacemacs/maybe-install-dotfile)
  (configuration-layer/sync)
  (spacemacs/setup-startup-hook)
  (require 'server)
  (unless (server-running-p) (server-start)))