changelog shortlog graph tags branches files raw help

Mercurial > infra > home / changeset: zor updates

changeset 83: 8bd50ea9a546
parent 52: 5fd0502a3231
child 85: 862659891933
author: Richard Westhaver <ellis@rwest.io>
date: Mon, 12 Aug 2024 21:50:44 -0400
files: .bash_profile .bashrc .emacs.d/ellis.el .profile .skelrc .stumpwm.d/init.lisp
description: zor updates
     1.1--- a/.bash_profile	Thu Jul 04 20:40:22 2024 -0400
     1.2+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3@@ -1,17 +0,0 @@
     1.4-# .bash_profile --- bash profile
     1.5-
     1.6-export PYTHON=python3.11
     1.7-export PYENV_ROOT="$HOME/.pyenv"
     1.8-export PATH="$PYENV_ROOT/bin:$PATH"
     1.9-export PATH="$HOME/go/bin:$HOME/.nimble/bin:$HOME/.cargo/bin:$HOME/.local/bin:$HOME/bin:$PATH"
    1.10-
    1.11-if ! shopt -oq posix; then
    1.12-    if [ -f /usr/share/bash-completion/bash_completion ]; then
    1.13-        . /usr/share/bash-completion/bash_completion
    1.14-    elif [ -f /etc/bash_completion ]; then
    1.15-        . /etc/bash_completion
    1.16-    fi
    1.17-fi
    1.18-
    1.19-eval "$(pyenv init --path)"
    1.20-if command -v rhg>>/dev/null; then alias hg='rhg';fi
     2.1--- a/.bashrc	Thu Jul 04 20:40:22 2024 -0400
     2.2+++ b/.bashrc	Mon Aug 12 21:50:44 2024 -0400
     2.3@@ -1,6 +1,24 @@
     2.4 # .bashrc --- bash configuration 
     2.5 # Set prompt
     2.6 PS1="\u [\!]:\t:\w\n  >> \[\e[0m\]"
     2.7+
     2.8+export PYTHON=python3.11
     2.9+export PYENV_ROOT="$HOME/.pyenv"
    2.10+export PATH="$PYENV_ROOT/bin:$PATH"
    2.11+export PATH="$HOME/go/bin:$HOME/.nimble/bin:$HOME/.cargo/bin:$HOME/.local/bin:$HOME/bin:$PATH"
    2.12+
    2.13+if ! shopt -oq posix; then
    2.14+    if [ -f /usr/share/bash-completion/bash_completion ]; then
    2.15+        . /usr/share/bash-completion/bash_completion
    2.16+    elif [ -f /etc/bash_completion ]; then
    2.17+        . /etc/bash_completion
    2.18+    fi
    2.19+fi
    2.20+
    2.21+eval "$(pyenv init --path)"
    2.22+if command -v rhg>>/dev/null; then alias hg='rhg';fi
    2.23+. "$HOME/.cargo/env"
    2.24+
    2.25 # default Envs
    2.26 export LISP='sbcl'
    2.27 export ESHELL='/usr/bin/bash'
     3.1--- a/.emacs.d/ellis.el	Thu Jul 04 20:40:22 2024 -0400
     3.2+++ b/.emacs.d/ellis.el	Mon Aug 12 21:50:44 2024 -0400
     3.3@@ -1,4 +1,4 @@
     3.4-;;; ellis.el --- Richard's custom Emacs config -*- lexical-binding: t; -*-
     3.5+;;; ellis.el --- Richard's custom Emacs config
     3.6 
     3.7 ;; Copyright (C) 2024
     3.8 
     3.9@@ -562,18 +562,22 @@
    3.10      files)
    3.11     files))
    3.12 
    3.13-(defvar org-agenda-directories (list org-directory user-lab-directory)
    3.14+(defvar org-agenda-directories (list org-directory
    3.15+                                     (join-paths user-lab-directory "org")
    3.16+                                     (join-paths company-source-directory "org/*"))
    3.17   "List of directories containing org files.")
    3.18 (defvar org-agenda-extensions '(".org")
    3.19   "List of extensions of agenda files")
    3.20 
    3.21 (defun org-set-agenda-files ()
    3.22   (interactive)
    3.23-  (setq org-agenda-files (org-list-files
    3.24-                          org-agenda-directories
    3.25-                          org-agenda-extensions)))
    3.26+  (setq org-agenda-files
    3.27+        (org-list-files
    3.28+         org-agenda-directories
    3.29+         org-agenda-extensions)))
    3.30 
    3.31-(add-hook 'after-init-hook 'org-set-agenda-files)
    3.32+(with-eval-after-load 'org
    3.33+  (org-set-agenda-files))
    3.34 
    3.35 ;;; Skel Config
    3.36 (use-package skel
    3.37@@ -734,5 +738,18 @@
    3.38   (auto-insert-mode t)
    3.39   (keymap-set skel-minor-mode-map "C-<return>" 'company-tempo))
    3.40 
    3.41+;;; dictionary
    3.42+;; requires dictd server running
    3.43+(setq dictionary-server "compiler.company")
    3.44+;;; ispell
    3.45+;; requires aspell and a hunspell dictionary (hunspell-en_us)
    3.46+(setq-default ispell-program-name "aspell")
    3.47+(add-hook 'mail-send-hook  #'ispell-message)
    3.48+;;; glossary
    3.49+(with-eval-after-load 'org-glossary
    3.50+  (setq org-glossary-collection-root (join-paths company-source-directory "org/meta/"))
    3.51+  (cl-pushnew '("Terms" . glossary) org-glossary-headings)
    3.52+  (cl-pushnew '("Acronyms" . acronym) org-glossary-headings))
    3.53+
    3.54 (provide 'ellis)
    3.55 ;;; ellis.el ends here
     4.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.2+++ b/.profile	Mon Aug 12 21:50:44 2024 -0400
     4.3@@ -0,0 +1,7 @@
     4.4+# if running bash
     4.5+if [ -n "$BASH_VERSION" -a -n "$PS1" ]; then
     4.6+    # include .bashrc if it exists
     4.7+    if [ -f "$HOME/.bashrc" ]; then
     4.8+    . "$HOME/.bashrc"
     4.9+    fi
    4.10+fi
     5.1--- a/.skelrc	Thu Jul 04 20:40:22 2024 -0400
     5.2+++ b/.skelrc	Mon Aug 12 21:50:44 2024 -0400
     5.3@@ -1,5 +1,6 @@
     5.4 ;;; .skelrc @ 2023-10-12.02:58:08 -*- mode: skel; -*-
     5.5-:name "Richard Westhaver <ellis@rwest.io>"
     5.6+:name "Richard Westhaver"
     5.7+:email "richard.westhaver@gmail.com"
     5.8 :user "ellis"
     5.9 :version "0.1.0"
    5.10 :tags ("auto")
    5.11@@ -8,13 +9,8 @@
    5.12 :auto-insert t
    5.13 :license :mpl2
    5.14 :log-level :info
    5.15-:shed ".shed"
    5.16 :stash ".stash"
    5.17-:scratch ".stash/scratch"
    5.18-:cache ".cache"
    5.19-:registry "~/.data/skel/registry"
    5.20+;; :scratch ".stash/scratch"
    5.21+:cache ".stash/cache"
    5.22+:registry ".data/skel/registry"
    5.23 :scripts ("/usr/local/share/stash/scripts" "~/stash/scripts")
    5.24-:alias-list
    5.25-(("p" "vc push")
    5.26- ("P" "vc pull")
    5.27- ("ci" "vc commit"))
     6.1--- a/.stumpwm.d/init.lisp	Thu Jul 04 20:40:22 2024 -0400
     6.2+++ b/.stumpwm.d/init.lisp	Mon Aug 12 21:50:44 2024 -0400
     6.3@@ -2,28 +2,66 @@
     6.4 
     6.5 (in-package :stumpwm)
     6.6 
     6.7-(defvar *stumpwm-port* 4004)
     6.8-(ql:quickload :swank)
     6.9-(require :swank)
    6.10-(swank-loader:init)
    6.11-(ignore-errors
    6.12- (swank:create-server :port *stumpwm-port*
    6.13-                      :style swank:*communication-style*))
    6.14+;; (ql:quickload :swank)
    6.15+;; (require :swank)
    6.16+
    6.17+;; (defvar *stumpwm-port* 4040)
    6.18+;; (swank-loader:init)
    6.19+;; (swank:create-server :port *stumpwm-port*
    6.20+;;                      :style swank:*communication-style*)
    6.21+
    6.22+(defcommand load-std () ()
    6.23+  (ql:quickload :std))
    6.24+
    6.25+(defcommand load-prelude () ()
    6.26+  (ql:quickload :prelude))
    6.27+
    6.28+(defcommand load-core () ()
    6.29+  (ql:quickload :core))
    6.30+
    6.31+(defcommand load-user () ()
    6.32+  (ql:quickload :user))
    6.33 
    6.34 (setq *mouse-focus-policy*    :sloppy
    6.35       *float-window-modifier* :SUPER
    6.36       *startup-message* "Greetings, stranger.")
    6.37 
    6.38-;; (set-font "CommitMono")
    6.39+(set-font "-*-terminal")
    6.40 (set-module-dir "/usr/share/stupmwm/contrib/")
    6.41 (init-load-path *module-dir*)
    6.42 
    6.43+(set-fg-color "#ffffff")
    6.44+(set-bg-color "#000000")
    6.45+(set-border-color "#7E5D90")
    6.46+(set-focus-color "#170F14")
    6.47+(set-unfocus-color "#232731")
    6.48+(set-win-bg-color "#22272F")
    6.49+(set-float-focus-color "#8ED3A1")
    6.50+(set-float-unfocus-color "#232731")
    6.51+
    6.52+(setf *mode-line-background-color* "#161613")
    6.53+(setf *mode-line-foreground-color* "#FFFFFF")
    6.54+(setf *mode-line-border-color* "#28394c")
    6.55+(setf *mode-line-position* :bottom)
    6.56+
    6.57+(setf *colors* (list "#010101"      ; 0 black
    6.58+                     "#BF616A"      ; 1 red
    6.59+                     "#A3BE8C"      ; 2 green
    6.60+                     "#EBCB8B"      ; 3 yellow
    6.61+                     "#5E81AC"      ; 4 blue
    6.62+                     "#9D5AAF"      ; 5 magenta
    6.63+                     "#8FBCBB"      ; 6 cyan
    6.64+                     "#FEFEFE"))    ; 7 white
    6.65+
    6.66 (setf *window-format* "%m%n%s%c")
    6.67 (setf *screen-mode-line-format* (list "[^B%n^b] %W^>%d"))
    6.68-
    6.69+(set-normal-gravity :center)
    6.70+(set-maxsize-gravity :center)
    6.71+(set-transient-gravity :center)
    6.72 (setf *time-modeline-string* "%a %b %e %k:%M")
    6.73 
    6.74 (setq *mode-line-timeout* 4)
    6.75+(which-key-mode)
    6.76 
    6.77 (when *initializing*
    6.78   (run-shell-command "sh ~/.fehbg")
    6.79@@ -32,8 +70,6 @@
    6.80   (dolist (s stumpwm:*screen-list*) 
    6.81     (enable-mode-line s (car (screen-heads s)) t)))
    6.82 
    6.83-(which-key-mode)
    6.84-
    6.85 (defcommand term (&optional program) ()
    6.86   (sb-thread:make-thread
    6.87    (lambda ()