emacs: add documentation for defuns

copy-files

@@ -1,18 +1,6 @@
 #!/usr/bin/env fish
 
 # copy regular files
-mkdir -vp \
-	applications \
-	build-system \
-	fonts \
-	network \
-	scripts \
-	system \
-	themes \
-	unused \
-	vim \
-	virtual-machines
-
 while read f t
 	eval set t $t
 	cp -vr "$t" "$f"

emacs/auto/-keys.el

@@ -7,24 +7,26 @@
   :keymap agw-mode-map)
 
 (defun agw-set-key (key def)
+  "Binds a key into `agw-mode-map'."
   (define-key agw-mode-map (kbd (concat "C-<tab> " key)) def))
 
 (agw-set-key "b d" #'kill-this-buffer)
 (agw-set-key "b e" #'ibuffer)
 
-(agw-set-key "f" #'dired)
-
-(agw-set-key "w" #'deadgrep)
+(agw-set-key "f" #'dired-jump)
 
 (agw-set-key "h" #'windmove-left)
 (agw-set-key "j" #'windmove-down)
 (agw-set-key "k" #'windmove-up)
 (agw-set-key "l" #'windmove-right)
 
-(agw-set-key "s" #'sort-lines)
-
 (agw-key-map)
 
+(evil-global-set-key 'normal (kbd "K w") #'deadgrep)
+
+(evil-global-set-key 'visual (kbd "g s") #'sort-lines)
+(evil-global-set-key 'visual (kbd "g a") #'ialign)
+
 ; just in case - bind for disabling key map mode
 (global-set-key (kbd "C-x C-<tab>") #'agw-key-map)
 

emacs/auto/-macro.el

@@ -1,13 +1,16 @@
 (defun agw-touch (fname)
+  "Touches a file asynchronously."
   (interactive "FFile to touch: ")
   (start-process "agw-touch" nil "touch" (expand-file-name fname)))
 
 (defun agw-lisp-mode ()
+  "Sets up lisp and other functional language major modes."
   (setq-local indent-tabs-mode nil)
   (setq-local standard-indent  2)
   (setq-local tab-width        2))
 
 (defun agw-org-mode ()
+  "Sets up `org-mode'."
   (variable-pitch-mode)
   (org-bullets-mode)
   (flyspell-mode)
@@ -15,7 +18,8 @@
   (setq-local standard-indent  2)
   (setq-local tab-width        2))
 
-(defun agw-ranger-mode ()
+(defun agw-dired-mode ()
+  "Sets up `dired-mode'."
   (local-set-key (kbd "C-c t") #'agw-touch))
 
 (add-hook 'org-mode-hook #'agw-org-mode)
@@ -26,6 +30,6 @@
 (add-hook 'scheme-mode-hook     #'agw-lisp-mode)
 (add-hook 'haskell-mode-hook    #'agw-lisp-mode)
 
-(add-hook 'ranger-mode-hook #'agw-ranger-mode)
+(add-hook 'dired-mode-hook #'agw-dired-mode)
 
 ;; EOF

emacs/auto/-packages.el

@@ -5,12 +5,11 @@
 
 (require 'evil)
 (evil-collection-init)
+(evil-mode 1)
 
 (require 'powerline)
 (powerline-center-evil-theme)
 
-(require 'all-the-icons)
-
 (require 'org)
 (dolist (face '(org-block-begin-line
                 org-block-end-line
@@ -27,15 +26,36 @@
   ((rust-mode-indent-line . rust-indent-offset)))
 (smart-tabs-add-language-support fish fish-mode-hook
   ((fish-indent-line . fish-indent-offset)))
+(smart-tabs-add-language-support glsl glsl-mode-hook
+  ((c-indent-line . c-basic-offset)
+   (c-indent-region . c-basic-offset)))
 (smart-tabs-insinuate
  'c
  'fish
  'javascript
- 'rust)
+ 'rust
+ 'glsl)
 
 (require 'ranger)
 
 (require 'mozc)
 (setq default-input-method "japanese-mozc")
 
+; HOW IS THERE SERIOUSLY A PACKAGE FOR THIS!?
+(require 'rand-theme)
+(setq rand-theme-wanted '(base16-ashes
+                          base16-atelier-cave
+                          base16-atelier-forest
+                          base16-atelier-heath
+                          base16-circus
+                          base16-dracula
+                          base16-material-palenight
+                          base16-monokai
+                          base16-onedark
+                          base16-porple
+                          base16-unikitty-dark))
+(rand-theme)
+
+(require 'ialign)
+
 ;; EOF

emacs/custom.el

@@ -3,23 +3,22 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(ansi-color-names-vector
+   ["#19171c" "#be4678" "#2a9292" "#a06e3b" "#576ddb" "#955ae7" "#576ddb" "#8b8792"])
+ '(ansi-term-color-vector
+   [unspecified "#19171c" "#be4678" "#2a9292" "#a06e3b" "#576ddb" "#955ae7" "#576ddb" "#8b8792"])
  '(auto-save-default nil)
  '(backup-directory-alist (quote ((".*" . "~/.emacs.d/backup"))))
  '(before-save-hook (quote (copyright-update delete-trailing-whitespace)))
  '(create-lockfiles nil)
  '(current-language-environment "UTF-8")
- '(custom-enabled-themes (quote (base16-atelier-cave)))
  '(custom-safe-themes
    (quote
     ("1d079355c721b517fdc9891f0fda927fe3f87288f2e6cc3b8566655a64ca5453" default)))
  '(dired-listing-switches "-alhp --si")
- '(dired-mode-hook (quote (all-the-icons-dired-mode)))
  '(diredfl-global-mode t nil (diredfl))
  '(evil-cjk-emacs-word-boundary t)
  '(evil-cross-lines t)
- '(evil-lion-left-align-key "ga")
- '(evil-lion-mode t)
- '(evil-lion-right-align-key "gA")
  '(evil-lookup-func (quote man))
  '(evil-mode t)
  '(evil-shift-width 3)
@@ -31,6 +30,8 @@
  '(global-whitespace-mode nil)
  '(horizontal-scroll-bar-mode nil)
  '(hscroll-step 1)
+ '(ialign-default-spacing 2)
+ '(ialign-initial-repeat t)
  '(indent-tabs-mode t)
  '(inhibit-startup-screen t)
  '(initial-buffer-choice "~/org/init.org")
@@ -62,13 +63,12 @@
  '(package-enable-at-startup nil)
  '(package-selected-packages
    (quote
-    (haskell-mode fish-mode evil-collection ranger deadgrep smart-tabs-mode evil-lion dired-sidebar diredfl rainbow-delimiters all-the-icons-dired org-bullets markdown-mode all-the-icons rust-mode base16-theme powerline evil ## undo-tree paradox)))
+    (ialign rand-theme glsl-mode haskell-mode fish-mode evil-collection ranger deadgrep smart-tabs-mode diredfl rainbow-delimiters org-bullets markdown-mode rust-mode base16-theme powerline evil ## undo-tree paradox)))
  '(prog-mode-hook
    (quote
     (flyspell-prog-mode prettify-symbols-mode subword-mode rainbow-delimiters-mode whitespace-mode)))
  '(rainbow-delimiters-max-face-count 8)
  '(ranger-override-dired (quote ranger))
- '(ranger-override-dired-mode t)
  '(repeat-too-dangerous nil)
  '(require-final-newline t)
  '(ruby-insert-encoding-magic-comment nil)

system/fonts/conflist

@@ -4,6 +4,7 @@
 /etc/fonts/conf.d/11-lcdfilter-default.conf
 /etc/fonts/conf.d/20-unhint-small-vera.conf
 /etc/fonts/conf.d/30-metric-aliases.conf
+/etc/fonts/conf.d/30-win32-aliases.conf
 /etc/fonts/conf.d/40-nonlatin.conf
 /etc/fonts/conf.d/45-generic.conf
 /etc/fonts/conf.d/45-latin.conf