123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437 |
- ;; Bootstrap Straight Package Manager
- (defvar bootstrap-version)
- (let ((bootstrap-file
- (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
- (bootstrap-version 5))
- (unless (file-exists-p bootstrap-file)
- (with-current-buffer
- (url-retrieve-synchronously
- "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
- 'silent 'inhibit-cookies)
- (goto-char (point-max))
- (eval-print-last-sexp)))
- (load bootstrap-file nil 'nomessage))
- ;; packages to install and load
- (straight-use-package 'auto-complete)
- (straight-use-package '(nano-theme :type git :host github
- :repo "rougier/nano-theme"))
- (straight-use-package
- '(slime-company :type git :host github :repo "anwyn/slime-company"))
- (straight-use-package 'sublimity)
- (straight-use-package 'all-the-icons)
- (straight-use-package 'neotree)
- (straight-use-package 'rust-mode)
- (straight-use-package 'markdown-mode)
- (straight-use-package 'slime)
- (straight-use-package 'ac-slime)
- (straight-use-package 'evil)
- (straight-use-package 'dimmer)
- (straight-use-package 'magit)
- (straight-use-package 'diff-hl)
- (straight-use-package 'rainbow-delimiters)
- (straight-use-package 'focus)
- (straight-use-package 'solarized-theme)
- (straight-use-package 'windresize)
- (straight-use-package 'yasnippet)
- (straight-use-package
- '(janet-mode :type git :host github
- :repo "ALSchwalm/janet-mode"))
- (straight-use-package
- '(puppet-mode :type git :host github
- :repo "voxpupuli/puppet-mode"))
- (straight-use-package
- '(pico8-mode :type git :host github
- :repo "Kaali/pico8-mode"))
- (straight-use-package
- '(fzf :type git :host github
- :repo "bling/fzf.el"))
- ;; EasyPG settings
- (setq epa-pinentry-mode 'loopback)
- ;; 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
- :type git :host nil
- :repo "https://codeberg.org/martianh/mastodon.el"))
- ;; Gopher browser
- (straight-use-package 'elpher)
- (straight-use-package 'xterm-color)
- (defun display-ansi-colors ()
- (interactive)
- (let ((inhibit-read-only t))
- (ansi-color-apply-on-region (point-min) (point-max))))
- ;;; Terminal in emacs via vterm lib
- (straight-use-package
- '(vterm :type git :host github
- :repo "akermu/emacs-libvterm"))
- ;;; Vterm config
- (setq vterm-buffer-name-string "%s")
- (add-hook 'vterm-mode-hook
- (lambda ()
- (set (make-local-variable 'buffer-face-mode-face) 'fixed-pitch)
- (buffer-face-mode t)))
- (global-set-key (kbd "C-<escape>") 'vterm-send-escape)
- (global-set-key (kbd "C-c C-s") 'vterm-send-C-r)
- (global-set-key (kbd "C-c C-u") 'vterm-send-C-u)
- (global-set-key (kbd "C-c C-d") 'vterm-send-C-d)
- ;;; Syntax highlights for uxn-tal
- (straight-use-package
- '(tal-mode :type git :host github
- :repo "rafapaezbas/uxntal-mode"))
- ;; Haskell Mode
- (straight-use-package 'haskell-mode)
- ;;; Cursor highlighter
- (straight-use-package
- '(beacon :type git :host github
- :repo "Malabarba/beacon"))
- (beacon-mode)
- (global-set-key (kbd "C-c B") 'beacon-mode)
- ;; Racket config
- ;; (straight-use-package 'racket-mode)
- ;; Using DrRacket for now
- ;; Org to reveal.js presentations
- ;; Docs: https://github.com/yjwen/org-reveal#configuration
- (straight-use-package 'org-reveal)
- (require 'ox-reveal)
- (setq org-reveal-root "file:///home/swatson/Repos/reveal.js")
- ;; Vimperator like hints for
- ;; file navigationaki2o/emacs-pophint
- (straight-use-package
- '(pophint :type git :host github
- :repo "aki2o/emacs-pophint"))
- (global-set-key (kbd "C-c f") 'pophint:do-flexibly)
- ;;; Code folding
- (add-hook 'prog-mode-hook 'hs-minor-mode)
- (global-set-key (kbd "C-c a") 'hs-toggle-hiding)
- ;;; Error checking
- (global-set-key (kbd "C-c 2 e") 'flymake-mode)
- ;; System monitor
- ;; (straight-use-package
- ;; '(symon :type git :host github
- ;; :repo "zk-phi/symon"))
- ;; For whatever reason, using straight to build this
- ;; package results in bugs on Linux (not OSX). I'm assuming
- ;; because straight is building from git and there is a regression.
- ;; As such -- MELPA config
- ;; This config is likely redudant and I can use the straight
- ;; MELPA interface, but it's working and I'm too lazy to change it
- ;; 2022/03/03 - Using straight MEPLA interface also surfaces this bug.
- ;; Below seems to be only reliable cross platform way to include this package
- ;; (require 'package)
- ;; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
- ;; (package-install 'symon)
- ;; ;;(symon-mode 1)
- (straight-use-package
- '(telephone-line :type git :host github
- :repo "dbordak/telephone-line"))
- (telephone-line-mode 1)
- ;;; Indent highlighting
- (straight-use-package
- '(highlight-indent-guides
- :type git :host github
- :repo "DarthFennec/highlight-indent-guides"))
- (setq highlight-indent-guides-method 'character)
- (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
- ;; Org mode
- ;; Get src block tabs to work how I expect
- (setq org-src-tab-acts-natively t)
- (setq org-src-preserve-indentation nil
- org-edit-src-content-indentation 0)
- ;; tramp
- (setq tramp-default-method "ssh")
- ;; Ivy
- ;; (straight-use-package 'ivy)
- ;; (ivy-mode)
- ;; (setq ivy-use-virtual-buffers t)
- ;; (setq enable-recursive-minibuffers t)
- ;; (require 'ido)
- (ido-mode t)
- (require 'yasnippet)
- ;; Configure focus
- (require 'focus)
- (add-to-list 'focus-mode-to-thing '(lisp-mode . paragraph))
- ;; rainbow delims
- (require 'rainbow-delimiters)
- (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
- ;; Git stuff
- (require 'magit)
- (require 'diff-hl)
- ;; Just enable diff-hl per buffer,
- ;; it seems expensive
- ;; (global-diff-hl-mode)
- (add-hook 'magit-pre-refresh-hook 'diff-hl-magit-pre-refresh)
- (add-hook 'magit-post-refresh-hook 'diff-hl-magit-post-refresh)
- (diff-hl-margin-mode t)
- (require 'dimmer)
- (setq dimmer-fraction 0.4)
- (require 'evil)
- (evil-mode 1)
- ;; Enable tab behavior like vi
- (straight-use-package '(evil-tabs :type git :host github
- :repo "krisajenkins/evil-tabs"))
- (require 'evil-tabs)
- (global-evil-tabs-mode t)
- (require 'auto-complete)
- (global-auto-complete-mode t)
- ;; Common Lisp
- (require 'slime)
- (require 'ac-slime)
- (slime-setup '(slime-fancy ac-slime))
- (add-hook 'slime-mode-hook 'set-up-slime-ac)
- (add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
- (eval-after-load "auto-complete"
- '(add-to-list 'ac-modes 'slime-repl-mode))
- ;; Guile
- (straight-use-package 'geiser)
- (straight-use-package 'geiser-guile)
- (setq geiser-active-implementations '(guile))
- (require 'markdown-mode)
- (require 'neotree)
- (global-set-key [f8] 'neotree-toggle)
- (require 'all-the-icons)
- (require 'sublimity)
- (require 'sublimity-scroll)
- (require 'sublimity-map) ;; experimental
- (require 'sublimity-attractive)
- (setq sublimity-scroll-weight 10
- sublimity-scroll-drift-length 5)
- (setq sublimity-map-size 40)
- (setq sublimity-map-fraction 0.3)
- (setq sublimity-map-text-scale -5)
- (sublimity-map-set-delay 0.1)
- (setq sublimity-attractive-centering-width nil)
- (setq backup-directory-alist
- `((".*" . ,temporary-file-directory)))
- (setq auto-save-file-name-transforms
- `((".*" ,temporary-file-directory t)))
- ;;; Generic options for all OSs
- ;;; Smooth mouse scroll a bit
- ;;; If scrolling performance is bad, remember the profiler:
- ;;; https://christiantietze.de/posts/2020/12/emacs-scroll-performance-projectile/
- (setq mouse-wheel-progressive-speed t)
- ;; whitespace config
- ;; make whitespace-mode use just basic coloring
- (setq whitespace-style '(face tabs))
- (setq tab-face (make-face 'tab-face))
- (set-face-background 'tab-face "gray")
- (setq whitespace-tab 'tab-face)
- (defun sol-dk ()
- (interactive)
- (load-theme 'solarized-dark))
- (defun sol-l ()
- (interactive)
- (load-theme 'solarized-light))
- ;; General is typically used for mode specific
- ;; rebinds and keymaps, while 'global-set-key
- ;; is still used for global keymaps for the sake of
- ;; clarity
- (straight-use-package 'general)
- ;; Keybinds/macros
- (global-set-key (kbd "C-c C-q") #'mu-magit-kill-buffers)
- (global-set-key (kbd "C-c ;") 'comment-line)
- (global-set-key (kbd "C-c b") 'fzf-switch-buffer)
- (global-set-key (kbd "C-c z") '(lambda ()
- (interactive)
- (switch-to-buffer "*scratch*")
- (fzf-find-file)))
- (global-set-key (kbd "C-c e") '(lambda ()
- (interactive)
- (diff-hl-mode)
- (diff-hl-flydiff-mode)))
- (global-set-key (kbd "C-c d") 'slime-describe-symbol)
- (global-set-key (kbd "C-c M-r") 'slime-restart-inferior-lisp)
- (global-set-key (kbd "C-c D") 'dimmer-mode)
- (global-set-key (kbd "C-c S") 'sublimity-mode)
- (global-set-key (kbd "C-c s") 'flyspell-correct-word-before-point)
- (global-set-key (kbd "C-c F") 'focus-mode)
- (global-set-key (kbd "C-c r") '(lambda ()
- (interactive)
- (load-file (file-truename "~/.emacs"))))
- (global-set-key (kbd "C-c C-e") '(lambda ()
- (interactive)
- (find-file (file-truename "~/.emacs"))
- (with-current-buffer (buffer-name)
- (emacs-lisp-mode))))
- (global-set-key (kbd "C-c l") 'display-line-numbers-mode)
- (global-set-key (kbd "C-c w") 'window-swap-states)
- (global-set-key (kbd "C-c C-w") 'windresize)
- (global-set-key (kbd "C-c W") 'whitespace-mode)
- (global-set-key (kbd "C-c t") 'sol-dk)
- (global-set-key (kbd "C-c y") 'sol-l)
- (global-set-key (kbd "C-c g") 'magit)
- (global-set-key (kbd "C-c C-.") '(lambda ()
- (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") '(lambda ()
- (interactive)
- (shell-command "mpc toggle")))
- ;;; Erc config
- (setq erc-nick "speskk")
- (setq erc-hide-list '("JOIN" "PART" "QUIT"))
- (if (file-exists-p "~/.emacs.d/.erc-auth.el")
- (progn
- (load "~/.emacs.d/.erc-auth.el")
- (defun connect-to-libera-erc () (interactive)
- (erc :server "irc.libera.chat" :port "6667"
- :nick "speskk" :password *libera-chat*))))
- ;; Allow M-up / M-down behavior to switch windows
- (windmove-default-keybindings 'meta)
- (display-time-mode t)
- ;; Perl Config
- (setq
- perl-indent-parens-as-block 0
- perl-indent-level 8)
- ;; Set to make mouse focus window
- (setq mouse-autoselect-window t
- focus-follows-mouse t)
- ;; Custom eshell prompt
- (setq eshell-prompt-function
- (lambda nil
- " λ > "))
- (setq eshell-prompt-regexp "^ λ > ")
- (set-language-environment "UTF-8")
- ;; Simple rclone cli wrapper
- (load "~/Repos/dotfiles/emacs/elisp/rclone.el")
- (global-set-key (kbd "C-c o") 'rclone-post-buffer)
- (global-set-key (kbd "C-c C-o") 'rclone-get-org)
- ;; Small helper functions
- (load "~/Repos/dotfiles/emacs/elisp/helpers.el")
- (global-set-key (kbd "C-c p") 'display-full-buffer-path)
- (global-set-key (kbd "C-c C-P") 'post-region-to-pb)
- (global-set-key (kbd "C-c 2 p") 'display-pb)
- ;; Disable bars
- ;; (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)
- (progn
- ;; Configure yasnippet
- (setq yas-snippet-dirs
- '("~/Repos/dotfiles/emacs/yasnippets/"))
- (yas-global-mode 1)
-
- (setq inferior-lisp-program "/opt/homebrew/bin/sbcl")
- (load (expand-file-name "~/.local/opt/quicklisp/slime-helper.el"))
- ;; Font/themes/etc
- (load "/Users/swatson/Repos/dotfiles/emacs/mac-load/customs.el")
- ;; Easily set cua mode on/off so that I don't have to
- ;; use shift+insert for paste on mac
- (global-set-key (kbd "C-c c") 'cua-mode)
- (global-set-key (kbd "C-c n") 'toggle-frame-fullscreen)
- ;; Graphic Display
- (if (display-graphic-p)
- (progn
- (load-theme 'solarized-dark t)))))
- ;; Load for GUI Linux
- (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
- (setq yas-snippet-dirs
- '("~/Repos/dotfiles/emacs/yasnippets/"))
- (yas-global-mode 1)
-
- (if (file-exists-p "~/.enable_exwm")
- (progn
- (straight-use-package 'exwm)
- (require 'exwm)
- (load "~/Repos/dotfiles/emacs/linux-load/exwm-config.el")
-
- (require 'exwm-config-spw)
- (exwm-config-spw)))
- (setq visible-bell 1)
- (load "~/Repos/dotfiles/emacs/linux-load/customs.el")
- (load-theme 'solarized-light t))))
-
- ;; Load for Term
- (unless (display-graphic-p)
- (progn
- (load "~/Repos/dotfiles/emacs/linux-load/customs.el")
- (xterm-mouse-mode t)
- (menu-bar-mode -1)
- (setq vc-follow-symlinks t) ;;; Typically in the full GUI I want to know it's a symlink
- (global-set-key (kbd "<home>") 'beginning-of-line)
- (global-set-key (kbd "<end>") 'end-of-line)
- (global-set-key (kbd "C-c c c") (lambda ()
- (interactive)
- (shell-command-on-region (point) (mark) "xclip -selection clipboard")))
- (load (expand-file-name "~/quicklisp/slime-helper.el"))
- (setq inferior-lisp-program (locate-file "sbcl" exec-path exec-suffixes 1))))
|