Browse Source

Minor updates to a few things

Simon Watson 1 year ago
parent
commit
fd4f05f6c4
5 changed files with 27 additions and 10 deletions
  1. 3 0
      bashrc/bashrc-all
  2. 20 7
      emacs/.emacs-all
  3. 2 0
      emacs/early-init.el
  4. 1 2
      emacs/elisp/helpers.el
  5. 1 1
      openbox/casana-void/rc.xml

+ 3 - 0
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

+ 20 - 7
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	  

+ 2 - 0
emacs/early-init.el

@@ -0,0 +1,2 @@
+;; Squash cl dep warnings
+(setq byte-compile-warnings '(cl-functions))

+ 1 - 2
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*)

+ 1 - 1
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">