372 lines
13 KiB
EmacsLisp
372 lines
13 KiB
EmacsLisp
;;; -*- lexical-binding: t; -*-
|
||
;;; startup without syntax highlighting
|
||
;;; (global-font-lock-mode 0)
|
||
|
||
(require 'cl-lib)
|
||
;; (setq debug-on-error t)
|
||
|
||
|
||
;;; Utilitty functions.
|
||
|
||
(defun localize-path (path)
|
||
"If the path is relative, place it in the user's home directory."
|
||
(let ((home-dir (getenv "HOME")))
|
||
(if (file-name-absolute-p path)
|
||
path
|
||
(expand-file-name path home-dir))))
|
||
|
||
(defun localize-and-filter (paths)
|
||
"Given a list of paths, localize them and remove any that aren't
|
||
present on disk."
|
||
(cl-remove-if-not #'file-exists-p
|
||
(mapcar #'localize-path paths)))
|
||
|
||
(defun emacs-path (path)
|
||
"Return an expanded path inside the emacs directory."
|
||
(expand-file-name path user-emacs-directory))
|
||
|
||
(defun cache-path (path)
|
||
"Return a localized, expanded path within the emacs cache directory."
|
||
(expand-file-name path
|
||
(expand-file-name "cache" user-emacs-directory)))
|
||
|
||
;;; My work machine is braindead --- locked down to be of much use,
|
||
;;; and can't have the org-mode setup.
|
||
(defun braindead-machine-p ()
|
||
(member (system-name) '("GEIMACFHPL9CRFG9")))
|
||
|
||
;; set up package handling
|
||
(require 'package)
|
||
(setq package-user-dir (cache-path "packages"))
|
||
(package-initialize)
|
||
|
||
;;; The work machine needs to go through a corporate proxy. Part of
|
||
;;; what makes it braindead.
|
||
(when (braindead-machine-p)
|
||
(setq url-proxy-services
|
||
'(("no_proxy" . "^\\(localhost\\|127\\..*\\)")
|
||
("http" . "127.0.0.1:9000")
|
||
("https" . "127.0.0.1:9000"))))
|
||
|
||
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
|
||
(add-to-list 'package-archives
|
||
'("melpa" . "https://melpa.org/packages/"))
|
||
|
||
;;; you're a computer, you don't get to disrupt my work
|
||
(setq native-comp-async-report-warnings-errors 'silent)
|
||
|
||
(let* ((home-dir (getenv "HOME"))
|
||
(ensure-lisp (emacs-path "ensure.el")))
|
||
(load ensure-lisp))
|
||
|
||
;; reduce brain damage
|
||
(tool-bar-mode 0)
|
||
(menu-bar-mode 0)
|
||
(setq inhibit-startup-screen t)
|
||
(setq display-time-24hr-format t)
|
||
(display-time-mode)
|
||
(column-number-mode)
|
||
(when (string= system-type "darwin")
|
||
(setq dired-use-ls-dired nil))
|
||
|
||
;;; i like cua-rectangle
|
||
(cua-mode t)
|
||
(cua-selection-mode 'emacs)
|
||
(global-set-key (kbd "M-RET") 'cua-rectangle-mark-mode)
|
||
|
||
(setq backup-directory-alist
|
||
`(("." . ,(cache-path "backups"))))
|
||
|
||
;; useful when writing
|
||
(global-set-key (kbd "C-c w") 'count-words)
|
||
|
||
;; remove whitespace to make room for more cyberspace
|
||
(add-hook 'before-save-hook 'delete-trailing-whitespace)
|
||
|
||
;; hippie-expand is the best
|
||
(require 'hippie-exp)
|
||
(require 'auto-complete)
|
||
(global-auto-complete-mode t)
|
||
(ac-set-trigger-key "<C-tab>")
|
||
(global-set-key (kbd "<C-tab>") 'ac-expand)
|
||
(global-set-key (kbd "C-c /") 'comment-or-uncomment-region)
|
||
|
||
;; eshell is pretty okay
|
||
(setq eshell-directory-name (cache-path "eshell"))
|
||
(global-set-key (kbd "C-x m") 'eshell)
|
||
|
||
;; ido-mode makes finding files way more awesome
|
||
;; note: C-x C-f C-f will kick back to normal find-file for when ido's tab
|
||
;; completion is getting in the way.
|
||
(require 'ido)
|
||
(ido-mode 1)
|
||
|
||
;; magit, not yours
|
||
(require 'magit)
|
||
(global-set-key (kbd "C-x g") 'magit-status)
|
||
|
||
;; undo-tree is undo done right
|
||
(require 'undo-tree)
|
||
(global-undo-tree-mode)
|
||
(setq undo-tree-history-directory-alist `(("." . ,(cache-path "undo"))))
|
||
|
||
;; i like refilling paragraphs
|
||
(global-set-key (kbd "M-q") 'fill-paragraph)
|
||
|
||
(defun normalize-text () (interactive)
|
||
(save-excursion
|
||
(let ((normalizer (lambda (from to)
|
||
(beginning-of-buffer)
|
||
(while (search-forward from nil t)
|
||
(replace-match to nil t))))
|
||
(replacements '(("’" . "'")
|
||
("”" . "\"")
|
||
("“" . "\""))))
|
||
(dolist (replacement replacements)
|
||
(funcall normalizer (car replacement) (cdr replacement))))))
|
||
|
||
;;; add some of the local install paths to the exec path if they
|
||
;;; exist.
|
||
(require 'exec-path-from-shell)
|
||
(mapcar (lambda (path)
|
||
(add-to-list 'exec-path path))
|
||
(localize-and-filter
|
||
'("bin" ".local/bin" "go/bin"
|
||
"/usr/local/bin"
|
||
"/opt/homebrew/bin"
|
||
"/run/current-system/sw/bin")))
|
||
|
||
(require 'scpaste)
|
||
(setq scpaste-http-destination "https://p.kyleisom.net"
|
||
scpaste-scp-destination "p.kyleisom.net:/var/www/sites/p/")
|
||
|
||
;;; used with pollen
|
||
(global-set-key (kbd "C-c C-d")
|
||
(lambda () (interactive) (insert "\u25ca")))
|
||
(add-to-list 'auto-mode-alist '("\\.poly.pm\\'" . text-mode))
|
||
|
||
(require 'markdown-mode)
|
||
(global-set-key (kbd "C-c b")
|
||
'compile)
|
||
|
||
;; python stuff
|
||
;;; virtualenv --system-site-packages ~/.emacs.d/python-environments/default
|
||
(require 'elpy)
|
||
(elpy-enable)
|
||
|
||
;; golang stuff
|
||
;; disabled while I debug some packages
|
||
(setq gofmt-command "goimports")
|
||
(require 'go-mode)
|
||
(add-hook 'before-save-hook 'gofmt-before-save)
|
||
|
||
;;; L I S P
|
||
(when (file-exists-p (expand-file-name "~/quicklisp/slime-helper.el"))
|
||
(load (expand-file-name "~/quicklisp/slime-helper.el"))
|
||
(ensure-package 'slime)
|
||
|
||
(setq inferior-lisp-program "sbcl")
|
||
(slime-setup '(slime-fancy
|
||
slime-autodoc
|
||
slime-indentation))
|
||
|
||
(setq slime-net-coding-system 'utf-8-unix
|
||
slime-truncate-lines nil)
|
||
|
||
(setq lisp-lambda-list-keyword-parameter-alignment t
|
||
lisp-lambda-list-keyword-alignment t))
|
||
;(when (executable-find "nyxt"))
|
||
|
||
(add-hook 'clojure-mode-hook #'enable-paredit-mode)
|
||
(add-hook 'lisp-mode-hook #'enable-paredit-mode)
|
||
(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
|
||
(add-hook 'scheme-mode-hook #'enable-paredit-mode)
|
||
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
|
||
|
||
(setq geiser-mode-auto-p nil) ;; keeps org-export from trying to do weird things
|
||
|
||
(let ((scriba-lisp (emacs-path "scriba.el")))
|
||
(when (and (file-exists-p scriba-lisp)
|
||
(load scriba-lisp))
|
||
(add-to-list 'auto-mode-alist '("\\.scr\\'" . scriba-mode))))
|
||
|
||
;;; gameboy dev
|
||
;;; don't load it until we need it.
|
||
(defun enable-rgbds-mode ()
|
||
"Enables RGBDS mode."
|
||
(let ((rgbds-lisp (expand-file-name "rgbds-mode.el" user-emacs-directory)))
|
||
(when (file-exists-p rgbds-lisp)
|
||
(load rgbds-lisp)
|
||
(require 'rgbds-mode)
|
||
(add-to-list 'auto-mode-alist '("\\.gbasm\\'" . rgbds-mode )))))
|
||
|
||
;;; Project Interaction Library for Emacs
|
||
(require 'projectile)
|
||
(setq projectile-known-projects-file
|
||
(cache-path "projectile-bookmarks.eld"))
|
||
(setq lsp-session-file
|
||
(cache-path ".lsp-session-v1"))
|
||
(setq projectile-project-search-path
|
||
(localize-and-filter
|
||
'("src" "sites" "data/sites" ".emacs.d"
|
||
;; Code is used at work for work-related codes.
|
||
"Code" "code")))
|
||
(keymap-set projectile-mode-map
|
||
"C-c p" 'projectile-command-map)
|
||
(projectile-mode +1)
|
||
|
||
;;; LLM copilot stuff.
|
||
(when (file-accessible-directory-p (localize-path ".ollama"))
|
||
(use-package ellama
|
||
:init
|
||
(setopt ellama-language "English")
|
||
(require 'llm-ollama)
|
||
(setopt ellama-provider
|
||
(make-llm-ollama
|
||
:chat-model "llama3.3:70b"
|
||
:embedding-model "mxbai-embed-large:latest"))))
|
||
|
||
;;;
|
||
;;; _:_
|
||
;;; '-.-'
|
||
;;; () __.'.__
|
||
;;; .-:--:-. |_______|
|
||
;;; () \____/ \=====/
|
||
;;; /\ {====} )___(
|
||
;;; (\=, //\\ )__( /_____\
|
||
;;; __ |'-'-'| // .\ ( ) /____\ | |
|
||
;;; / \ |_____| (( \_ \ )__( | | | |
|
||
;;; \__/ |===| )) `\_) /____\ | | | |
|
||
;;; /____\ | | (/ \ | | | | | |
|
||
;;; | | | | | _.-'| | | | | | |
|
||
;;; |__| )___( )___( /____\ /____\ /_____\
|
||
;;; (====) (=====) (=====) (======) (======) (=======)
|
||
;;; }===={ }====={ }====={ }======{ }======{ }======={
|
||
;;; (______)(_______)(_______)(________)(________)(_________)
|
||
(setq chess-ai-depth 2)
|
||
|
||
;;; IRC chatting
|
||
(setq
|
||
rcirc-reconnect-attempts 5
|
||
rcirc-reconnect-delay 10
|
||
rcirc-fill-column 'frame-width
|
||
rcirc-server-alist '(("irc.tyrfingr.is"
|
||
:encryption tls
|
||
:port 6697
|
||
:nick "kyle"
|
||
:user-name "kyle@imladris.wntrmute.dev"
|
||
:channels ("#tyrfingr" "#hacknet" "#no-reform"))))
|
||
|
||
(custom-set-variables
|
||
;; custom-set-variables was added by Custom.
|
||
;; If you edit it by hand, you could mess it up, so be careful.
|
||
;; Your init file should contain only one such instance.
|
||
;; If there is more than one, they won't work right.
|
||
'(ansi-color-names-vector
|
||
["#2d3743" "#ff4242" "#74af68" "#dbdb95" "#34cae2" "#008b8b" "#00ede1"
|
||
"#e1e1e0"])
|
||
'(chess-default-display 'chess-plain)
|
||
'(custom-safe-themes
|
||
'("5a0ddbd75929d24f5ef34944d78789c6c3421aa943c15218bac791c199fc897d"
|
||
"5aedf993c7220cbbe66a410334239521d8ba91e1815f6ebde59cecc2355d7757"
|
||
"75b371fce3c9e6b1482ba10c883e2fb813f2cc1c88be0b8a1099773eb78a7176"
|
||
"18a1d83b4e16993189749494d75e6adb0e15452c80c431aca4a867bcc8890ca9"
|
||
"8363207a952efb78e917230f5a4d3326b2916c63237c1f61d7e5fe07def8d378"
|
||
"51fa6edfd6c8a4defc2681e4c438caf24908854c12ea12a1fbfd4d055a9647a3"
|
||
"d5fd482fcb0fe42e849caba275a01d4925e422963d1cd165565b31d3f4189c87"
|
||
"4c7228157ba3a48c288ad8ef83c490b94cb29ef01236205e360c2c4db200bb18"
|
||
"7b8f5bbdc7c316ee62f271acf6bcd0e0b8a272fdffe908f8c920b0ba34871d98"
|
||
"37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8"
|
||
"bf390ecb203806cbe351b966a88fc3036f3ff68cd2547db6ee3676e87327b311"
|
||
"e1943fd6568d49ec819ee3711c266a8a120e452ba08569045dd8f50cc5ec5dd3"
|
||
"4561c67b0764aa6343d710bb0a6f3a96319252b2169d371802cc94adfea5cfc9"
|
||
"5f95ce79b4a8870b3486b04de22ca2e0785b287da8779f512cdd847f42266989"
|
||
default))
|
||
'(custom-theme-directory "~/.emacs.d/themes")
|
||
'(ellama-sessions-directory (cache-path "ellama-sessions"))
|
||
'(global-font-lock-mode t)
|
||
'(org-html-mathjax-template
|
||
"<script>\12 window.MathJax = {\12 loader: {load: ['[tex]/physics']},\12 tex: {\12 ams: {\12 multlineWidth: '%MULTLINEWIDTH'\12 },\12 packages: {'[+]': ['physics']},\12 tags: '%TAGS',\12 tagSide: '%TAGSIDE',\12 tagIndent: '%TAGINDENT'\12 },\12 chtml: {\12 scale: %SCALE,\12 displayAlign: '%ALIGN',\12 displayIndent: '%INDENT'\12 },\12 svg: {\12 scale: %SCALE,\12 styles: {\12 color: \"#002266\",\12 },\12 displayAlign: '%ALIGN',\12 displayIndent: '%INDENT'\12 },\12 output: {\12 font: '%FONT',\12 displayOverflow: '%OVERFLOW'\12 }\12 };\12</script>\12\12<script\12 id=\"MathJax-script\"\12 async\12 src=\"/static/mathjax.js\">\12</script>")
|
||
'(package-selected-packages
|
||
'(ag auto-complete bibclean-format bibretrieve c-eldoc ebib ellama
|
||
elpy exec-path-from-shell geiser go-mode gruvbox-theme
|
||
gscholar-bibtex keychain-environment lua-mode luarocks magit
|
||
markdown-mode mwim nix-mode nix-modeline nix-ts-mode
|
||
nixos-options org-journal org-ref org-roam paradox paredit
|
||
pelican-mode projectile racket-mode scpaste simple-httpd slime
|
||
undo-tree xcscope))
|
||
'(paradox-github-token t))
|
||
|
||
(custom-set-faces
|
||
;; custom-set-faces was added by Custom.
|
||
;; If you edit it by hand, you could mess it up, so be careful.
|
||
;; Your init file should contain only one such instance.
|
||
;; If there is more than one, they won't work right.
|
||
)
|
||
|
||
(setq +DEFAULT-THEME+ 'gruvbox)
|
||
(defun toggle-fontlock ()
|
||
(if (font-lock-mode)
|
||
(progn
|
||
(message "disabling font-lock-mode")
|
||
(global-font-lock-mode 0))
|
||
(progn
|
||
(message "enabling font-lock-mode")
|
||
(load-theme +DEFAULT-THEME+)
|
||
(global-font-lock-mode t))))
|
||
|
||
(put 'upcase-region 'disabled nil)
|
||
(put 'downcase-region 'disabled nil)
|
||
|
||
;;;; org-mode publishing
|
||
(unless (braindead-machine-p)
|
||
(load (emacs-path "org.el")))
|
||
|
||
(defvar *host-font-size*
|
||
#s(hash-table
|
||
size 8
|
||
test equal
|
||
data (
|
||
"titan.local" 16 ;; 16" MBP
|
||
"ono-sendai" 13 ;; 12.5" X230
|
||
"orion" 16 ;; Intel NUC
|
||
"imladris" 18 ;; 14" X1 carbon
|
||
"hosaka" 18 ;; uConsole (1280x720)
|
||
"GEIMACFHPL9CRFG9" 18 ;; work machine
|
||
)))
|
||
;;; font sizing bar
|
||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
(defvar *default-font* "Brass Mono")
|
||
(defvar *acceptable-font-sizes* '(13 14 15 16 18))
|
||
|
||
(defun get-default-font ()
|
||
(let* ((select-minimum-equal (lambda (x lst)
|
||
(let ((selected (car lst)))
|
||
(dolist (val (cdr lst))
|
||
(when (<= val x)
|
||
(setf selected val)))
|
||
selected)))
|
||
(scaled-screen-area
|
||
(/ (apply #'* (list
|
||
(display-pixel-width)
|
||
(display-pixel-height)))
|
||
115200))
|
||
(font-size (gethash (system-name)
|
||
*host-font-size*
|
||
(funcall select-minimum-equal scaled-screen-area
|
||
*acceptable-font-sizes*))))
|
||
(format "%s %d" *default-font* font-size)))
|
||
|
||
(defun reset-frame-font () (interactive)
|
||
(set-frame-font (get-default-font)))
|
||
|
||
;; I always end up running emacs from a GUI, easier to add a function
|
||
;; to disable this later.
|
||
(load-theme +DEFAULT-THEME+)
|
||
(reset-frame-font)
|
||
(unless (server-running-p)
|
||
(server-start))
|
||
|
||
(setq default-frame-alist `((font . ,(get-default-font))
|
||
(maximized . fullheight)))
|