Compare commits
7 Commits
5b401eac2b
...
679afca151
Author | SHA1 | Date |
---|---|---|
an | 679afca151 | |
an | ec33f1c305 | |
an | 162f764333 | |
an | 1913885700 | |
an | 32e5e924bc | |
an | 1698b809ba | |
an | 5d42c3d294 |
|
@ -2,6 +2,6 @@
|
||||||
email = marrub.xz@gmail.com
|
email = marrub.xz@gmail.com
|
||||||
name = Alison Watson
|
name = Alison Watson
|
||||||
[core]
|
[core]
|
||||||
editor = vim
|
editor = vi
|
||||||
[gui]
|
[gui]
|
||||||
spellingdictionary = none
|
spellingdictionary = none
|
||||||
|
|
|
@ -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
|
|
@ -6,6 +6,9 @@
|
||||||
(defvar agw-mode-map (make-sparse-keymap)
|
(defvar agw-mode-map (make-sparse-keymap)
|
||||||
"Global keymap for `agw-mode'.")
|
"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
|
(define-minor-mode agw-key-map-mode
|
||||||
"Minor mode for key bindings."
|
"Minor mode for key bindings."
|
||||||
:global t
|
:global t
|
||||||
|
@ -34,6 +37,12 @@
|
||||||
standard-indent 2
|
standard-indent 2
|
||||||
tab-width 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 ()
|
(defun agw-remove-elc ()
|
||||||
"Removes an elc file if it exists."
|
"Removes an elc file if it exists."
|
||||||
(let ((elc (concat buffer-file-name "c")))
|
(let ((elc (concat buffer-file-name "c")))
|
||||||
|
@ -61,11 +70,10 @@
|
||||||
"finished" "unfinished" "if" "else"))
|
"finished" "unfinished" "if" "else"))
|
||||||
(functions '("option" "page" "name" "icon" "remote"
|
(functions '("option" "page" "name" "icon" "remote"
|
||||||
"teleport_interlevel" "teleport_intralevel"
|
"teleport_interlevel" "teleport_intralevel"
|
||||||
"script" "logon" "logoff" "pict" "info"))
|
"script" "logon" "logoff" "pict" "info" "text"))
|
||||||
( keyword-regexp (regexp-opt keywords 'words))
|
( keyword-regexp (regexp-opt keywords 'words))
|
||||||
(function-regexp (regexp-opt functions '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))))
|
(,function-regexp . font-lock-function-name-face))))
|
||||||
|
|
||||||
(setq agw-lithdlg-syntax
|
(setq agw-lithdlg-syntax
|
||||||
|
@ -99,7 +107,8 @@
|
||||||
|
|
||||||
;; Lithium text definition mode
|
;; Lithium text definition mode
|
||||||
(setq agw-lithtxt-highlights
|
(setq agw-lithtxt-highlights
|
||||||
'(("^\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) " . font-lock-keyword-face)
|
'(("^\\(\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) \\|@@$\\)" .
|
||||||
|
font-lock-keyword-face)
|
||||||
("^##.*$" . font-lock-comment-face)
|
("^##.*$" . font-lock-comment-face)
|
||||||
("\\\\#" . font-lock-constant-face)))
|
("\\\\#" . font-lock-constant-face)))
|
||||||
|
|
||||||
|
|
|
@ -73,8 +73,7 @@
|
||||||
(add-hook 'reb-lisp-mode-hook #'agw-fp-mode)
|
(add-hook 'reb-lisp-mode-hook #'agw-fp-mode)
|
||||||
(add-hook 'scheme-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 #'agw-before-save)
|
||||||
(add-hook 'before-save-hook #'delete-trailing-whitespace)
|
|
||||||
|
|
||||||
(agw-set-key "b d" #'kill-this-buffer)
|
(agw-set-key "b d" #'kill-this-buffer)
|
||||||
(agw-set-key "b e" #'ibuffer)
|
(agw-set-key "b e" #'ibuffer)
|
||||||
|
@ -332,7 +331,8 @@
|
||||||
evil-mode-line-format 'after
|
evil-mode-line-format 'after
|
||||||
evil-shift-width 3
|
evil-shift-width 3
|
||||||
evil-vsplit-window-right t
|
evil-vsplit-window-right t
|
||||||
evil-want-keybinding nil)
|
evil-want-keybinding nil
|
||||||
|
evil-indent-convert-tabs nil)
|
||||||
;; tags
|
;; tags
|
||||||
(setq evil-normal-state-tag "~"
|
(setq evil-normal-state-tag "~"
|
||||||
evil-insert-state-tag "i"
|
evil-insert-state-tag "i"
|
||||||
|
|
|
@ -1,9 +1,5 @@
|
||||||
#!/usr/bin/env fish
|
#!/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
|
bind --user \cg echo\ -n\ \(clear\ \|\ string\ replace\ \\e\\\[3J\ \"\"\)\;\ commandline\ -f\ repaint
|
||||||
|
|
||||||
## EOF
|
## EOF
|
||||||
|
|
|
@ -145,10 +145,10 @@ mouse_novert 0
|
||||||
smooth_turning 0
|
smooth_turning 0
|
||||||
|
|
||||||
[0-15(8)] adjust sound effects volume
|
[0-15(8)] adjust sound effects volume
|
||||||
sfx_volume 8
|
sfx_volume 7
|
||||||
|
|
||||||
[0-15(8)] adjust music volume
|
[0-15(8)] adjust music volume
|
||||||
music_volume 4
|
music_volume 10
|
||||||
|
|
||||||
[0-1(1)] 1 to enable message display
|
[0-1(1)] 1 to enable message display
|
||||||
show_messages 1
|
show_messages 1
|
||||||
|
|
Loading…
Reference in New Issue