My name is Henrik and I'm an emacs addict. (Hello Henrik)

init/core-ui.el

@@ -0,0 +1,147 @@
+;;; core-ui.el -- User interface layout & behavior
+
+;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;;
+(when window-system
+  (set-frame-parameter nil 'alpha '(96 86))
+  (cycle-font 0))   ; Load font
+
+(add-to-list 'custom-theme-load-path my-themes-dir)
+(load-dark-theme)
+
+
+;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;;
+(when window-system
+  (scroll-bar-mode -1)    ; no scrollbar
+  (tool-bar-mode -1)      ; no toolbar
+  (menu-bar-mode -1))     ; no menubar
+
+(tooltip-mode -1)
+(blink-cursor-mode 1)        ; blink cursor
+(global-hl-line-mode -1)     ; highlight line
+
+;; Highlight curent line number
+(use-package hlinum
+  :config
+  (progn
+    (hlinum-activate)
+    ;; A little excessive
+    (remove-hook 'pre-command-hook 'hlinum-unhighlight-current-line)))
+
+;; Line numbers
+(setq linum-format " %4d ")
+(add-hooks '(text-mode-hook prog-mode-hook) 'linum-mode)
+
+;; Multiple cursors across buffers cause a strange redraw delay for
+;; some things, like auto-complete or evil-mode's cursor color
+;; switching.
+(setq-default cursor-in-non-selected-windows nil)
+
+(setq-default visible-bell nil)   ; silence of the bells
+(setq-default use-dialog-box nil) ; avoid GUI
+(setq-default redisplay-dont-pause t)
+
+;; do not soft-wrap lines
+(setq-default truncate-lines t)
+(setq-default truncate-partial-width-windows nil)
+(setq-default indicate-buffer-boundaries nil)
+(setq-default indicate-empty-lines nil)
+
+(when window-system
+  (setq frame-title-format '(buffer-file-name "%f" ("%b")))
+  (if (string-equal (system-name) "io")
+      (set-frame-size (selected-frame) 326 119)))
+
+(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
+  "Prevent annoying \"Active processes exist\" query when you quit Emacs."
+  (flet ((process-list ())) ad-do-it))
+
+;; [pedantry intensifies]
+(rename-mode-name emacs-lisp-mode "Elisp")
+
+
+;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; (use-package vim-empty-lines-mode
+;;   :config (global-vim-empty-lines-mode +1))
+
+(use-package uniquify
+  :config
+  (setq uniquify-buffer-name-style 'post-forward-angle-brackets
+        uniquify-separator ":"
+        uniquify-ignore-buffers-re "^\\*"))
+
+(use-package smart-mode-line
+  :init
+  (defvar rm-blacklist
+    (mapconcat 'identity
+               '(" SP"
+                 " Fill"
+                 " EvilOrg"
+                 " Abbrev"
+                 " snipe"
+                 " company"
+                 " Anaconda"
+                 " WS"
+                 " GitGutter"
+                 " Undo-Tree"
+                 " Projectile\\[.+\\]"
+                 " hs"
+                 " ElDoc"
+                 " wg"
+                 " ~"
+                 " s-/"
+                 " emr"
+                 " Refactor"
+                 ) "\\|"))
+  :config
+  (progn
+    (setq sml/no-confirm-load-theme t
+          sml/mode-width      'full
+          sml/extra-filler    (if window-system -1 0)
+          sml/show-remote     nil
+          sml/modified-char   "*"
+          sml/encoding-format nil)
+
+    (setq sml/replacer-regexp-list '(("^~/Dropbox/Projects/" "PROJECTS:")
+                                     ("^~/.emacs.d/" "EMACS.D:")))
+
+    (after "evil" (setq evil-mode-line-format nil))
+
+    (setq-default mode-line-misc-info
+      '((which-func-mode ("" which-func-format ""))
+        (global-mode-string ("" global-mode-string ""))))
+
+    (add-hook! 'after-change-major-mode-hook
+               (setq mode-line-format
+                     '((if window-system " ")
+                       "%e"
+                       mode-line-mule-info
+                       mode-line-client
+                       mode-line-remote
+                       mode-line-frame-identification
+                       mode-line-buffer-identification
+                       mode-line-modified
+                       mode-line-modes
+                       mode-line-misc-info
+                       (vc-mode vc-mode)
+                       " "
+                       mode-line-position
+                       " "
+                       mode-line-front-space
+                       ))
+
+               (add-to-list 'mode-line-modes
+                            '(sml/buffer-identification-filling
+                              sml/buffer-identification-filling
+                              (:eval (setq sml/buffer-identification-filling
+                                           (sml/fill-for-buffer-identification))))))
+
+    (let ((-linepo mode-line-position))
+      (sml/setup)
+      (sml/apply-theme 'respectful)
+
+      (setq mode-line-position -linepo)
+      (sml/filter-mode-line-list 'mode-line-position))))
+
+
+(provide 'core-ui)
+;;; core-ui.el ends here