minor fixes

emacs/data.el

@@ -9,8 +9,14 @@
 (defvar-local agw-no-fixes nil
   "Fixes files before save if nil in this buffer.")
 
+(defvar-local agw-no-tabs nil
+  "Disables tabs in this buffer.")
+
+(defvar-local agw-no-tabs-width 2
+  "The width of non-hardware tabs with `agw-no-tabs'.")
+
 (defvar-local agw-work nil
-  "Changes the functionality of `agw-prog-mode'.")
+  "Changes functionality for a work environment.")
 
 (define-minor-mode agw-key-map-mode
   "Minor mode for key bindings."
@@ -23,15 +29,11 @@
 
 (defun agw-fp-mode ()
   "Sets up lisp and other functional language major modes."
-  (setq-local indent-tabs-mode nil
+  (setq-local agw-no-tabs t))
-              standard-indent  2
-              tab-width        2))
 
 (defun agw-org-mode ()
   "Sets up `org-mode'."
-  (setq-local indent-tabs-mode nil
+  (setq-local agw-no-tabs t)
-              standard-indent  2
-              tab-width        2)
   (define-key evil-normal-state-map (kbd "TAB") 'org-cycle))
 
 (defun agw-cc-mode ()
@@ -64,20 +66,25 @@
 
 (defun agw-prog-mode ()
   "Sets up `prog-mode' and `text-mode'."
-  (if agw-work
+  (setq-local tab-always-indent t)
-      (setq-local tab-always-indent t
+  (when agw-work
-                  tab-width         4
+    (setq-local agw-no-tabs       t
-                  standard-indent   4
+                agw-no-tabs-width 4))
-                  indent-tabs-mode  nil)
+  (if agw-no-tabs
-    (setq-local tab-always-indent nil
+      (progn
-                tab-width         3
+        (setq-local indent-tabs-mode nil
-                standard-indent   3
+                    standard-indent  agw-no-tabs-width
-                indent-tabs-mode  t)))
+                    tab-width        agw-no-tabs-width)
+        (smart-tabs-mode 0))
+    (progn
+      (setq-local indent-tabs-mode t
+                  standard-indent  3
+                  tab-width        3)
+      (smart-tabs-mode 1))))
 
 (defun agw-after-local-vars ()
   (if (or (derived-mode-p 'prog-mode) (derived-mode-p 'text-mode))
-      (agw-prog-mode))
+      (agw-prog-mode)))
-  (unless indent-tabs-mode (smart-tabs-mode 0)))
 
 ;; Lithium dialogues mode
 (setq agw-lithdlg-highlights

emacs/init.el

@@ -106,6 +106,9 @@
                       :foreground "#92ebf0"))
 
 ;; major modes
+(use-package elisp-mode)
+(use-package eldoc)
+
 (use-package powershell
   :ensure t
   :init
@@ -311,6 +314,11 @@
   :config
   (auto-image-file-mode))
 
+(use-package editorconfig
+  :ensure t
+  :config
+  (editorconfig-mode 1))
+
 ;; ergonomics
 (use-package mwheel
   :init
@@ -417,6 +425,26 @@
   :config
   (fringe-mode 0))
 
+(use-package subword)
+
+(use-package dim
+  :ensure t
+  :after (editorconfig
+          eldoc
+          simple
+          subword
+          undo-tree
+          whitespace)
+  :config
+  (dim-minor-names
+   '((abbrev-mode       "Ab")
+     (editorconfig-mode "Ec")
+     (eldoc-mode        "El")
+     (isearch-mode      "Is")
+     (subword-mode      "Sw")
+     (undo-tree-mode    "Ut")
+     (whitespace-mode   "Ws"))))
+
 ;; end of init
 (setq gc-cons-threshold (* 1 1000 1000))