Fix backup saving

behaviour.el

@@ -4,15 +4,17 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;; Overall behaviour ;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (setq backup-directory-alist
-      `(("" . "~/.emacs.d/backups")))
+      `((".*" . "~/.emacs_backups/auto-save-list")))
 (setq auto-save-file-name-transforms
-      `((".*" ,"~/.emacs.d/backups/auto-save" t)))
+      `((".*", "~/.emacs_backups/auto-save-list" t)))
+
 (setq backup-by-copying t)
 (setq delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)
 
+
 ; Use Shells variables
 (when (memq window-system '(mac ns))
   (exec-path-from-shell-initialize))
@@ -40,7 +42,7 @@
 ; Enable line numbers and show cursors position
 (global-linum-mode t)
 (column-number-mode 1)
-(global-hl-line-mode)
+;; (global-hl-line-mode)
 
 ;; Turn off sounds
 (setq ring-bell-function 'ignore)
@@ -170,6 +172,10 @@
 (require 'evil-magit)
 
 
+;; Additional configuration for flycheck.
+(require 'flycheck)
+(setq flycheck-highlighting-mode 'lines)
+
 ;;;;;;;;;;;;;;;;;;;;;;;; Projectile  ;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'projectile)
 (projectile-mode)

emacs

@@ -59,7 +59,7 @@
  )
 
 ;;; Set performance
-(setq gc-cons-threshold 100000000)
+(setq gc-cons-threshold 8000000)
 
 ; load custom config files
 (load "~/.emacs.d/init.elc")

functions.el

@@ -40,6 +40,18 @@
             nil
             t))
 
+(defun call-in-windowed-mode (callee)
+  "Call function passed as CALLEE only if run in window mode."
+  (interactive)
+  (if (display-graphic-p)
+      (progn
+        (funcall callee))))
+
+;; (call-in-windowed-mode 'byte-compile-init-dir)
+
+(add-hook 'kill-emacs-hook 'byte-compile-init-dir)
+(add-hook 'emacs-lisp-mode-hook 'remove-elc-on-save)
+
 ;; Always start in fullscreen
 (defun toggle-fullscreen ()
   "Toggle full screen."

init.el

@@ -8,14 +8,14 @@
 ;; You may delete these explanatory comments.
 (package-initialize)
 
-(load "~/.emacs.d/packages.el")
-(load "~/.emacs.d/functions.el")
-(load "~/.emacs.d/behaviour.el")
-(load "~/.emacs.d/themes.el")
-(load "~/.emacs.d/key-bindings.el")
-(load "~/.emacs.d/spelling.el")
-(load "~/.emacs.d/languages.el")
-(load "~/.emacs.d/windows.el")
+(load "~/.emacs.d/packages.elc")
+(load "~/.emacs.d/functions.elc")
+(load "~/.emacs.d/behaviour.elc")
+(load "~/.emacs.d/themes.elc")
+(load "~/.emacs.d/key-bindings.elc")
+(load "~/.emacs.d/spelling.elc")
+(load "~/.emacs.d/languages.elc")
+(load "~/.emacs.d/windows.elc")
 
 (provide 'init)
 ;;; init.el ends here
@@ -26,7 +26,7 @@
  ;; If there is more than one, they won't work right.
  '(package-selected-packages
    (quote
-    (etags-select nvm tide yaml-mode window-purpose web-mode ujelly-theme toml-mode smart-mode-line scala-mode rvm ruby-end rspec-mode robe rainbow-mode rainbow-delimiters racer pyenv-mode noctilux-theme monokai-theme markdown-mode less-css-mode json-reformat jade-mode indent-guide helm-themes helm-projectile helm-ag haskell-mode haml-mode groovy-mode flymake-ruby flymake-cursor flycheck flatui-theme exec-path-from-shell evil-nerd-commenter evil-magit evil-leader elpy dumb-jump dockerfile-mode diff-hl dash-at-point company-tern company-racer company-jedi column-enforce-mode color-theme-approximate base16-theme atom-one-dark-theme alchemist aggressive-indent ag)))
+    (hlinum etags-select nvm tide yaml-mode window-purpose web-mode ujelly-theme toml-mode smart-mode-line scala-mode rvm ruby-end rspec-mode robe rainbow-mode rainbow-delimiters racer pyenv-mode noctilux-theme monokai-theme markdown-mode less-css-mode json-reformat jade-mode indent-guide helm-themes helm-projectile helm-ag haskell-mode haml-mode groovy-mode flymake-ruby flymake-cursor flycheck flatui-theme exec-path-from-shell evil-nerd-commenter evil-magit evil-leader elpy dumb-jump dockerfile-mode diff-hl dash-at-point company-tern company-racer company-jedi column-enforce-mode color-theme-approximate base16-theme atom-one-dark-theme alchemist aggressive-indent ag)))
  '(safe-local-variable-values (quote ((encoding . utf-8)))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.

key-bindings.el

@@ -17,7 +17,7 @@
 (evil-leader/set-leader "<SPC>")
 
 (evil-leader/set-key
-  "w"  'kill-buffer
+  "w"  'delete-window
   ","  'previous-buffer
   "."  'next-buffer
   "k"  'kill-buffer-and-window

languages.el

@@ -71,12 +71,4 @@
 
 (add-hook 'markdown-mode-hook 'markdown-mode-config)
 (add-hook 'markdown-mode-hook 'set-width-80)
-
-;; Shell things
-(defun shell-mode-config ()
-  "Setup shell mode."
-  )
-
-(setq ansi-color-for-comint-mode t) ;; Properly display colors in shell mode
-(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
-;;; languages.el ends here
+;;; languages.el ends here.

languages/elisp.el

@@ -15,11 +15,9 @@
   (company-mode 1)
   (flycheck-mode 1)
   (set (make-local-variable 'company-backends)
-       '((elisp-company company-capf company-yasnippet company-files))))
+       '((company-yasnippet company-dabbrev-code company-files))))
 
 ;;========== Hooks =================================
 (add-hook 'emacs-lisp-mode-hook 'editor-config-elisp)
 (add-hook 'emacs-lisp-mode-hook 'completion-config-elisp)
-
-(provide 'elisp)
 ;;; elisp.el ends here.

languages/elixir.el

@@ -15,8 +15,7 @@
   (alchemist-mode 1)
   (company-mode 1)
   (set (make-local-variable 'company-backends)
-       '((alchemist-company company-capf company-dabbrev-code company-yasnippet
-                        company-files))))
+       '((company-alchemist company-yasnippet company-dabbrev company-files))))
 
 ;;========== Hooks =================================
 (add-hook 'elixir-mode-hook 'editor-config-elixir)

languages/ruby.el

@@ -14,6 +14,7 @@
   ;; Indentation and line length
   (set-width-80)
   (set-indent 2)
+  (setq ruby-deep-indent-paren nil)
 
   ;; Do not align 'begin' and 'while' ;;
   (setq ruby-align-to-stmt-keywords '(if begin case elseif rescue))
@@ -48,7 +49,7 @@
 
   ;; Initalize completion
   (set (make-local-variable 'company-backends)
-       '((company-etags company-yasnippet company-files))))
+       '((company-yasnippet company-etags company-dabbrev-code company-files))))
 
 ;;========== Hooks ================================
 (add-hook 'ruby-mode-hook 'editor-ruby-mode-config)

languages/rust.el

@@ -15,7 +15,7 @@
   (racer-mode 1)
   (company-mode 1)
   (flycheck-mode 1)
-  (flymake-mode)
+  (flymake-mode 1)
   (set (make-local-variable 'company-backends)
        '((company-racer company-capf company-dabbrev-code company-yasnippet
                         company-files))))

packages.el

@@ -5,10 +5,13 @@
 (require 'package)
 (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/"))
 (package-initialize)
-(package-refresh-contents) ; Refresh only once, on startup
+(if (display-graphic-p) ; If GUI version
+    (progn
+      (package-refresh-contents))) ; Refresh only once, on startup
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Behaviour
+
 (unless (package-installed-p 'helm)
   (package-install 'helm))
 
@@ -68,6 +71,7 @@
 (unless (package-installed-p 'helm-ag)
   (package-install 'helm-ag))
 
+
 (unless (package-installed-p 'dumb-jump)
   (package-install 'dumb-jump))
 

themes.el

@@ -12,7 +12,7 @@
 ;; Display time on mode line
 (setq display-time-format "%H:%M")
 (display-time-mode t)
-
+()
 (load-theme 'flatui t t)
 (load "~/.emacs.d/base16-not-harmonic-theme.el")
 (load-theme 'base16-not-harmonic t t)

windows.el

@@ -15,6 +15,8 @@
              '("_test\\.exs\\(<.*>\\)?$" . test)) ;; ExUnit
 (add-to-list 'purpose-user-regexp-purposes
              '("test_.*\\.py\\(<.*>\\)?$" . test)) ;; Pytest
+(add-to-list 'purpose-user-regexp-purposes
+             '("tests.rs\\(<.*>\\)?$" . test)) ;; Rust tests
 
 (add-to-list 'purpose-user-mode-purposes '(shell-mode . test))
 (add-to-list 'purpose-user-mode-purposes '(magit-diff-mode . test))
@@ -37,6 +39,7 @@
 (add-to-list 'purpose-user-mode-purposes '(python-mode . code))
 (add-to-list 'purpose-user-mode-purposes '(js-mode . code))
 (add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . code))
+(add-to-list 'purpose-user-mode-purposes '(sql-mode . code))
 
 ;; Other files that fall into 'code'
 (add-to-list 'purpose-user-mode-purposes '(xml-mode . code))