switch to super emacs

emacs/super-emacs/interface.el

@@ -0,0 +1,20 @@
+;Change title-bar text
+(setq frame-title-format
+      "super-emacs")
+
+;Disable menu-bar
+(menu-bar-mode -1)
+
+;Disable tool-bar
+(tool-bar-mode -1)
+
+;Disable scroll-bar
+(scroll-bar-mode -1)
+
+;Activate material theme
+(load-theme 'material
+            t)
+
+;Set font
+(custom-set-faces
+ '(default ((t (:height 120)))))

emacs/super-emacs/key-bindings.el

@@ -0,0 +1,36 @@
+(defvar super-emacs--my-keyboard-bindings 
+  '(("C-}" . mc/mark-next-like-this)
+    ("C-{" . mc/mark-previous-like-this)
+    ("C-|" . mc/mark-all-like-this)
+    ("C->" . ace-jump-mode)
+    ("C-<" . ace-jump-mode-pop-mark)
+    ("M-/" . undo-tree-visualize)
+    ("C-\," . neotree-toggle)
+    ("C-\"" . theme-looper-enable-next-theme)
+    ("C-M-'" . myterminal-controls-open-controls)
+    ("C-c M-x" . execute-extended-command)
+    ("M-x" . helm-M-x)
+    ("C-x b" . helm-mini)
+    ("C-x C-b" . helm-buffers-list)
+    ("C-x C-f" . helm-find-files)
+    ("C-x C-r" . helm-recentf)
+    ("M-y" . helm-show-kill-ring)
+    ("C-;" . ace-window)
+    ("C-S-<up>" . buf-move-up)
+    ("C-S-<down>" . buf-move-down)
+    ("C-S-<left>" . buf-move-left)
+    ("C-S-<right>" . buf-move-right)
+    ("<f5>" . super-emacs-reload-current-file)
+    ("C--" . undo)
+    ("C-x p" . previous-multiframe-window)
+    ("s--" . text-scale-decrease)
+    ("s-=" . text-scale-increase)
+    ))
+
+(defun super-emacs-apply-keyboard-bindings (pair)
+  "Apply keyboard-bindings for supplied list of key-pair values"
+  (global-set-key (kbd (car pair))
+                  (cdr pair)))
+
+(mapc 'super-emacs-apply-keyboard-bindings
+      super-emacs--my-keyboard-bindings)

emacs/super-emacs/misc.el

@@ -0,0 +1,25 @@
+(defun super-emacs-reload-current-file ()
+  "Reload the file loaded in current buffer from the disk"
+  (interactive)
+  (cond (buffer-file-name (progn (find-alternate-file buffer-file-name)
+                                 (message "File reloaded")))
+        (t (message "You're not editing a file!"))))
+
+;Disable splash message, start *scratch* buffer by default
+(setq initial-buffer-choice 
+      t)
+(setq initial-scratch-message 
+      "")
+
+;Enforce spaces for indentation, instead of tabs
+(setq-default indent-tabs-mode 
+              nil)
+
+;Enable show-paren-mode
+(show-paren-mode)
+
+;Enable winner-mode
+(winner-mode t)
+
+;Enable windmove
+(windmove-default-keybindings)

emacs/super-emacs/packages.el

@@ -0,0 +1,86 @@
+;Create repositories cache, if required
+(when (not package-archive-contents)
+  (package-refresh-contents))
+
+;Declare a list of required packages
+(defvar super-emacs--required-packages
+  '(helm
+    multiple-cursors
+    ace-jump-mode
+    ace-window
+    powerline
+    buffer-move
+    ztree
+    undo-tree
+    neotree
+    material-theme
+    dired-launch
+    which-key
+    meta-presenter
+    myterminal-controls
+    theme-looper
+    magit
+    rust-mode
+    racer
+    company
+    ))
+
+;Install required packages
+(mapc (lambda (p)
+        (package-install p))
+      super-emacs--required-packages)
+
+
+;Start undo-tree
+(global-undo-tree-mode)
+
+;Set hooks for dired-launch-mode
+(add-hook 'dired-mode-hook
+          'dired-launch-mode)
+
+;Start which-key-mode
+(which-key-mode)
+
+;Setup company-mode
+(setq company-dabbrev-downcase 0)
+(setq company-idle-delay 0)
+(setq company-minimum-prefix-length 2)
+
+
+;Set up ace-jump-mode
+(autoload 'ace-jump-mode 
+  "ace-jump-mode" 
+  "Emacs quick move minor mode"
+  t)
+(autoload 'ace-jump-mode-pop-mark 
+  "ace-jump-mode" 
+  "Ace jump back:-"
+  t)
+
+;Enable powerline
+(powerline-center-theme)
+(setq powerline-default-separator
+      'slant)
+
+;Configure theme-looper
+(theme-looper-set-theme-set '(deeper-blue
+                              wheatgrass
+                              wombat
+                              material))
+(theme-looper-set-customizations 'powerline-reset)
+
+;Configure myterminal-controls
+(myterminal-controls-set-controls-data
+ '(("t" "Change color theme" theme-looper-enable-next-theme)
+   ("r" "Reload file" super-emacs-reload-current-file)))
+
+;Set up helm-mode
+(helm-mode 1)
+(helm-autoresize-mode 1)
+(setq helm-split-window-in-side-p
+      t)
+
+;Set up racer for rust-mode
+(add-hook 'rust-mode-hook #'racer-mode)
+(add-hook 'rust-mode-hook #'eldoc-mode)
+(add-hook 'racer-mode-hook #'company-mode)

emacs/super-emacs/repositories.el

@@ -0,0 +1,10 @@
+;Load package.el
+(require 'package)
+
+;Add melpa to list of repositories
+(add-to-list 'package-archives
+	     '("melpa" . "http://melpa.milkbox.net/packages/") 
+             t)
+
+;Initialize package.el
+(package-initialize)