emacs: don't use before-save hooks if agw-no-fixes is `t'

applications/gitconfig

@@ -2,6 +2,6 @@
 	email = marrub.xz@gmail.com
 	name = Alison Watson
 [core]
-	editor = vim
+	editor = vi
 [gui]
 	spellingdictionary = none

computers/cain/fish/pulse-server

@@ -0,0 +1,11 @@
+#!/usr/bin/env fish
+
+function pulse-server-up
+	pactl load-module module-simple-protocol-tcp rate=24000 format=s16le channels=2 source=alsa_output.usb-Kingston_HyperX_7.1_Audio_00000000-00.analog-stereo.monitor record=true port=6969
+end
+
+function pulse-server-down
+	pactl unload-module module-simple-protocol-tcp
+end
+
+## EOF

emacs/data.el

@@ -6,6 +6,9 @@
 (defvar agw-mode-map (make-sparse-keymap)
   "Global keymap for `agw-mode'.")
 
+(defvar-local agw-no-fixes nil
+  "Fixes files before save if `t' in this buffer.")
+
 (define-minor-mode agw-key-map-mode
   "Minor mode for key bindings."
   :global t
@@ -34,6 +37,12 @@
               standard-indent  2
               tab-width        2))
 
+(defun agw-before-save ()
+  "Hook to be run before saving a file."
+  (unless agw-no-fixes
+    (copyright-update)
+    (delete-trailing-whitespace)))
+
 (defun agw-remove-elc ()
   "Removes an elc file if it exists."
   (let ((elc (concat buffer-file-name "c")))
@@ -61,11 +70,10 @@
                           "finished" "unfinished" "if" "else"))
              (functions '("option" "page" "name" "icon" "remote"
                           "teleport_interlevel" "teleport_intralevel"
-                          "script" "logon" "logoff" "pict" "info"))
+                          "script" "logon" "logoff" "pict" "info" "text"))
              ( keyword-regexp (regexp-opt  keywords 'words))
              (function-regexp (regexp-opt functions 'words)))
-        `(("`.*$" . font-lock-string-face)
-          ( ,keyword-regexp . font-lock-keyword-face)
+        `(( ,keyword-regexp . font-lock-keyword-face)
           (,function-regexp . font-lock-function-name-face))))
 
 (setq agw-lithdlg-syntax
@@ -99,7 +107,8 @@
 
 ;; Lithium text definition mode
 (setq agw-lithtxt-highlights
-      '(("^\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) " . font-lock-keyword-face)
+      '(("^\\(\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) \\|@@$\\)" .
+         font-lock-keyword-face)
         ("^##.*$" . font-lock-comment-face)
         ("\\\\#"  . font-lock-constant-face)))
 

emacs/init.el

@@ -73,8 +73,7 @@
 (add-hook 'reb-lisp-mode-hook   #'agw-fp-mode)
 (add-hook 'scheme-mode-hook     #'agw-fp-mode)
 
-(add-hook 'before-save-hook #'copyright-update)
-(add-hook 'before-save-hook #'delete-trailing-whitespace)
+(add-hook 'before-save-hook #'agw-before-save)
 
 (agw-set-key "b d" #'kill-this-buffer)
 (agw-set-key "b e" #'ibuffer)
@@ -332,7 +331,8 @@
         evil-mode-line-format 'after
         evil-shift-width 3
         evil-vsplit-window-right t
-        evil-want-keybinding nil)
+        evil-want-keybinding nil
+        evil-indent-convert-tabs nil)
   ;; tags
   (setq evil-normal-state-tag   "~"
         evil-insert-state-tag   "i"

fish/bindings

@@ -1,9 +1,5 @@
 #!/usr/bin/env fish
 
-bind --user \ch backward-char
-bind --user \cl forward-char
-bind --user \cj down-or-search
-bind --user \ck up-or-search
 bind --user \cg echo\ -n\ \(clear\ \|\ string\ replace\ \\e\\\[3J\ \"\"\)\;\ commandline\ -f\ repaint
 
 ## EOF

games/eternity/doom.cfg

@@ -145,10 +145,10 @@ mouse_novert                  0
 smooth_turning                0
 
 [0-15(8)] adjust sound effects volume 
-sfx_volume                    8
+sfx_volume                    7
 
 [0-15(8)] adjust music volume 
-music_volume                  4
+music_volume                 10
 
 [0-1(1)] 1 to enable message display 
 show_messages                 1