Rewrote initfiles; bugfixes galore

init/core-editor.el

@@ -1,8 +1,8 @@
 (require-package 'evil)
-(evil-mode nil)
 
 ;; Has to be done this way to ensure special buffers have evil,
 ;; evil-leader, and all the various keymaps enabled.
+(evil-mode nil)
 (add-hook 'after-init-hook (lambda() (evil-mode 1)))
 
 ;; Now we can carry on with the rest...
@@ -34,13 +34,13 @@
 ;;;; Editor behavior ;;;;;;;;;;;;;;;;
 
 (setq initial-scratch-buffer nil)   ; empty scratch buffer
-(kill-buffer "*scratch*")
+(associate-mode 'text-mode 			'("\\`\\*Messages\\*\\'") t)
 
 (electric-indent-mode +1) 			; auto-indent on RET
 (global-hl-line-mode +1)            ; highlight the line
 (setq-default
   tab-width             4           ; set tab width to 4 for all buffers
-  indent-tabs-mode      t           ; always replace tabs with spaces
+  indent-tabs-mode      t           ; use tabs, not spaces
   tab-always-indent     nil)
 
 ;; do not soft-wrap lines

init/core-keymaps.el

@@ -72,11 +72,13 @@
   ";"       'helm-imenu
   ","       'ido-switch-buffer
   "="       'align-regexp
-  "X"       'kill-other-buffers
+  "x"       'kill-other-buffers
+  "X"       'kill-all-buffers
 )
 
 (nmap
-  ";"       'evil-ex		; Remap ; to : - SPC and shift-SPC replace ; and ,
+  ";"       'evil-ex				; Remap ; to : - SPC and shift-SPC replace ; and ,
+  ":"       'eval-expression		; Elisp command
 
   ;; Moving rows rather than lines (in case of wrapping)
   "j"       'evil-next-visual-line'
@@ -128,8 +130,8 @@
 (vmap "gc"  'evilnc-comment-or-uncomment-lines)
 
 ;; Rotate-text (see elisp/rotate-text.el)
-(nmap (kbd "RET") 'rotate-word-at-point)
-(vmap (kbd "RET") 'rotate-region)
+(nmap "!" 'rotate-word-at-point)
+(vmap "!" 'rotate-region)
 ;; (imap (kbd "RET") 'comment-indent-new-line)
 ;; Disable return for auto-completion, since tab does the trick
 (define-key ac-completing-map (kbd "RET") nil)

init/core.el

@@ -20,11 +20,15 @@
 
 (defun kill-other-buffers ()
   (interactive)
-    (mapc 'kill-buffer (cdr (buffer-list (current-buffer)))))
+  (mapc 'kill-buffer (cdr (buffer-list (current-buffer))))
+  (message "All other buffers killed")
+  )
 
 (defun kill-all-buffers ()
   (interactive)
-  (mapc 'kill-buffer (buffer-list)))
+  (mapc 'kill-buffer (buffer-list))
+  (message "All buffers killed")
+  )
 
 ;;;; Advice ;;;;;;;;;;;;;;;;;;;;;;;;
 
@@ -52,7 +56,6 @@
     ad-do-it))
 
 
-
 ;;;; My personal minor mode ;;;;;;;;
 
 (defvar my-mode-map (make-sparse-keymap))
@@ -111,6 +114,8 @@
 (defun major-mode-module-path ()
   (expand-file-name (concat (major-mode-module-name) ".el") my-modules-dir))
 
+;; TODO: Write better eval-and-replace
+
 
 ;;;; Macros ;;;;;;;;;;;;;;;;;;;;;;;;