commit fd4f05f6c4b5927ce99810142e0e2ae5b023e109
Author: Simon Watson <spw01@protonmail.com>
Date: Mon Aug 22 11:23:11 2022 -0400
Minor updates to a few things
diff --git a/bashrc/bashrc-all b/bashrc/bashrc-all
index 9709bc7..e1e3c2e 100644
--- a/bashrc/bashrc-all
+++ b/bashrc/bashrc-all
@@ -135,6 +135,8 @@ if [[ "$INSIDE_EMACS" = 'vterm' ]]; then
}
fi
+alias spesktv='mpv http://chate.io:55555'
+
# Case defines platform specific configs
# Platform agnostic configs above
case $(hostname) in
@@ -178,6 +180,7 @@ case $(hostname) in
$TMUX_PATH new -s personal -d
$TMUX_PATH new -s music -d
$TMUX_PATH new -s lisp-koans -d
+ $TMUX_PATH new -s emacs -d
}
# Load non tracked aliases for work specific things
diff --git a/emacs/.emacs-all b/emacs/.emacs-all
index 88945bd..feac811 100644
--- a/emacs/.emacs-all
+++ b/emacs/.emacs-all
@@ -47,6 +47,14 @@
'(fzf :type git :host github
:repo "bling/fzf.el"))
+;; newlisp mode
+(straight-use-package
+ '(newlisp-mode
+ :type git :host github
+ :repo "may/newlisp-mode"))
+;; Straight weirdly doesn't resolve this correctly
+(load-file "~/.emacs.d/straight/repos/newlisp-mode/newlisp.el")
+
;; Mastodon
(straight-use-package
'(mastodon
@@ -134,7 +142,7 @@
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
(package-install 'symon)
-(symon-mode 1)
+;;(symon-mode 1)
(straight-use-package
'(telephone-line :type git :host github
@@ -240,9 +248,7 @@
;;; https://christiantietze.de/posts/2020/12/emacs-scroll-performance-projectile/
(setq mouse-wheel-progressive-speed t)
-;; normal home/end behavior
-(global-set-key (kbd "<home>") 'beginning-of-line)
-(global-set-key (kbd "<end>") 'end-of-line)
+
;; whitespace config
;; make whitespace-mode use just basic coloring
@@ -301,7 +307,9 @@
(interactive)
(switch-to-buffer "*Messages*")))
(global-set-key (kbd "C-c C-f") 'find-file-at-point)
-(global-set-key (kbd "C-c m p") 'mpc-toggle-play)
+(global-set-key (kbd "C-c m p") '(lambda ()
+ (interactive)
+ (shell-command "mpc toggle")))
;;; Erc config
(setq erc-nick "speskk")
@@ -347,10 +355,13 @@
(global-set-key (kbd "C-c 2 p") 'display-pb)
;; Disable bars
-(menu-bar-mode -1)
+;; (menu-bar-mode -1)
(tool-bar-mode -1)
(scroll-bar-mode -1)
+;; Start in server mode
+(server-start)
+
;; Load for macOS
;;; Slime/etc
(if (eq system-type 'darwin)
@@ -378,7 +389,9 @@
(if (eq system-type 'gnu/linux)
(if (display-graphic-p)
(progn
-
+ ;; normal home/end behavior in GUI
+ (global-set-key (kbd "<home>") 'beginning-of-line)
+ (global-set-key (kbd "<end>") 'end-of-line)
(load (expand-file-name "~/quicklisp/slime-helper.el"))
(setq inferior-lisp-program (locate-file "sbcl" exec-path exec-suffixes 1))
;; https://emacs.stackexchange.com/questions/332/how-can-i-find-the-path-to-an-executable-with-emacs-lisp
diff --git a/emacs/early-init.el b/emacs/early-init.el
new file mode 100644
index 0000000..fc79b2c
--- /dev/null
+++ b/emacs/early-init.el
@@ -0,0 +1,2 @@
+;; Squash cl dep warnings
+(setq byte-compile-warnings '(cl-functions))
diff --git a/emacs/elisp/helpers.el b/emacs/elisp/helpers.el
index e33ac23..dece497 100644
--- a/emacs/elisp/helpers.el
+++ b/emacs/elisp/helpers.el
@@ -5,7 +5,6 @@
;;; See great post here:
;;; https://www.manueluberti.eu/emacs/2018/02/17/magit-bury-buffer/
-
(defun mu-magit-kill-buffers ()
"Restore window configuration and kill all Magit buffers."
(interactive)
@@ -32,7 +31,7 @@
(shell-command-on-region
(region-beginning)
(region-end)
- "curl -s -F \"file=@-\" -H \"expire:60min\" http://chate.io:669"
+ "curl -s -F \"file=@-\" -H \"expire:24hours\" http://chate.io:669"
standard-output))
0 -1))
(message *last-pb-url*)
diff --git a/openbox/casana-void/rc.xml b/openbox/casana-void/rc.xml
index 997d05b..4902675 100644
--- a/openbox/casana-void/rc.xml
+++ b/openbox/casana-void/rc.xml
@@ -349,7 +349,7 @@
</keybind>
<keybind key="W-Return">
<action name="Execute">
- <command>st-term</command>
+ <command>alacritty</command>
</action>
</keybind>
<keybind key="W-space">