todo: fix gitignore
This commit is contained in:
opalvaults
@@ -0,0 +1,7 @@
|
||||
\.git
|
||||
^/.*\.org
|
||||
LICENSE
|
||||
README:
|
||||
.gitignore
|
||||
.gitmodules
|
||||
archive/
|
||||
@@ -0,0 +1,298 @@
|
||||
(add-to-list 'load-path "~/.guix-profile/bin/guile")
|
||||
(add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp")
|
||||
|
||||
;; Match Emacs program path to be the same as user shell
|
||||
(defun set-exec-path-from-shell-PATH ()
|
||||
"Set up Emacs' `exec-path' and PATH environment variable to match
|
||||
that used by the user's shell."
|
||||
(interactive)
|
||||
(let ((path-from-shell (replace-regexp-in-string
|
||||
"[ \t\n]*$" "" (shell-command-to-string
|
||||
"$SHELL --login -c 'echo $PATH'"))))
|
||||
(setenv "PATH" path-from-shell)
|
||||
(setq exec-path (split-string path-from-shell path-separator))))
|
||||
|
||||
(set-exec-path-from-shell-PATH)
|
||||
|
||||
;; Setting general info
|
||||
(setq user-full-name "Ry"
|
||||
user-mail-address "ry@opal.sh")
|
||||
|
||||
;; Set line number
|
||||
(setq display-line-numbers-type t)
|
||||
|
||||
;; Keeps text lines from going off screen.
|
||||
(set-default 'truncate-lines nil)
|
||||
;; Add this hook to ERC if I run into trouble with truncated lines in other modes.
|
||||
;; (add-hook 'erc-mode-hook (lambda () (setq-default truncate-lines nil)))
|
||||
|
||||
|
||||
;; Only enable line numbers for certain modes
|
||||
(dolist (mode '(org-mode-hook
|
||||
term-mode-hook
|
||||
shell-mode-hook
|
||||
eshell-mode-hook))
|
||||
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
||||
|
||||
;; Enable clipboard
|
||||
(setq x-select-enable-clipboard t)
|
||||
|
||||
;; load theme
|
||||
(setq doom-theme 'modus-operandi)
|
||||
|
||||
;; Configure Modus theme
|
||||
(use-package modus-themes
|
||||
:init
|
||||
(setq modus-themes-italic-constructs t
|
||||
modus-themes-bold-constructs nil
|
||||
modus-themes-region '(accented bg-only no-extend)
|
||||
modus-themes-org-blocks 'greyscale
|
||||
modus-themes-paren-match 'intense
|
||||
modus-themes-mixed-fonts t)
|
||||
|
||||
;; Load the theme files before enabling a theme
|
||||
(modus-themes-load-themes)
|
||||
:config
|
||||
|
||||
(modus-themes-load-vivendi) ;; OR (modus-themes-load-operandi)
|
||||
:bind ("<f5>" . modus-themes-toggle))
|
||||
|
||||
;; Set fonts
|
||||
(set-face-attribute 'default nil :font "Fira Code" :height 125 :weight 'medium)
|
||||
(set-face-attribute 'variable-pitch nil :font "Fira Sans" :height 1.0 :weight 'regular)
|
||||
(set-face-attribute 'fixed-pitch nil :font "Fira Code" :height 1.0 :weight 'medium)
|
||||
|
||||
(defun rymacs/org-font-setup ()
|
||||
;; Replace list hyphen with dot
|
||||
(font-lock-add-keywords 'org-mode
|
||||
'(("^ *\\([-]\\) "
|
||||
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1)
|
||||
"•"))))))
|
||||
|
||||
;; Set faces for heading levels
|
||||
(dolist (face '((org-level-1 . 1.2)
|
||||
(org-level-2 . 1.1)
|
||||
(org-level-3 . 1.05)
|
||||
(org-level-4 . 1.0)
|
||||
(org-level-5 . 1.1)
|
||||
(org-level-6 . 1.1)
|
||||
(org-level-7 . 1.1)
|
||||
(org-level-8 . 1.1)))
|
||||
(set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face)))
|
||||
|
||||
;; Ensure that anything that should be fixed-pitch in Org files appears that way
|
||||
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-table nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-formula nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
|
||||
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
|
||||
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'line-number nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'line-number-current-line nil :inherit 'fixed-pitch))
|
||||
|
||||
;; Set org agenda dir
|
||||
(setq org-directory "~/org/")
|
||||
|
||||
(defun rymacs/org-mode-setup ()
|
||||
(org-indent-mode)
|
||||
(variable-pitch-mode 1)
|
||||
(visual-line-mode 1)
|
||||
(setq org-startup-folded t))
|
||||
|
||||
(use-package org
|
||||
:commands (org-capture org-agenda)
|
||||
:hook (org-mode . rymacs/org-mode-setup)
|
||||
:config
|
||||
(setq org-ellipsis " ▾")
|
||||
(setq org-agenda-start-with-log-mode t)
|
||||
(setq org-log-done 'time)
|
||||
(setq org-log-into-drawer t)
|
||||
|
||||
(setq org-agenda-files
|
||||
'("~/org/projects/"
|
||||
"~/org/tasks/"
|
||||
))
|
||||
|
||||
(require 'org-habit)
|
||||
(add-to-list 'org-modules 'org-habit)
|
||||
(setq org-habit-graph-column 60)
|
||||
|
||||
(setq org-todo-keywords
|
||||
'((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
|
||||
(sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)")))
|
||||
|
||||
(setq org-refile-targets
|
||||
'(("archive.org" :maxlevel . 1)
|
||||
("planner.org" :maxlevel . 1)))
|
||||
|
||||
;; Save Org buffers after refiling!
|
||||
(advice-add 'org-refile :after 'org-save-all-org-buffers)
|
||||
|
||||
(setq org-tag-alist
|
||||
'((:startgroup)
|
||||
; Put mutually exclusive tags here
|
||||
(:endgroup)
|
||||
("@errand" . ?E)
|
||||
("@home" . ?H)
|
||||
("@work" . ?W)
|
||||
("agenda" . ?a)
|
||||
("planning" . ?p)
|
||||
("publish" . ?P)
|
||||
("batch" . ?b)
|
||||
("note" . ?n)
|
||||
("idea" . ?i)))
|
||||
|
||||
;; Configure custom agenda views
|
||||
(setq org-agenda-custom-commands
|
||||
'(("d" "Dashboard"
|
||||
((agenda "" ((org-deadline-warning-days 7)))
|
||||
(todo "NEXT"
|
||||
((org-agenda-overriding-header "Next Tasks")))
|
||||
(tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))
|
||||
|
||||
("n" "Next Tasks"
|
||||
((todo "NEXT"
|
||||
((org-agenda-overriding-header "Next Tasks")))))
|
||||
|
||||
;; Low-effort next actions
|
||||
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
|
||||
((org-agenda-overriding-header "Low Effort Tasks")
|
||||
(org-agenda-max-todos 20)
|
||||
(org-agenda-files org-agenda-files)))))
|
||||
|
||||
;; Create capture templates
|
||||
(setq org-capture-templates
|
||||
`(("t" "Tasks")
|
||||
("tt" "Task" entry (file+olp "~/org/planner/tasks.org" "Inbox")
|
||||
"* TODO %?\n %U\n %a\n %i" :empty-lines 1)
|
||||
|
||||
("p" "Projects")
|
||||
("pp" "Project File" entry (file+olp "~/org/projects/auto-infra-overview.org" "Inbox")
|
||||
"* TODO %?\n %U\n %a\n %i" :empty-lines 1)))
|
||||
;; Init font setup
|
||||
(rymacs/org-font-setup))
|
||||
|
||||
;; Change default pretty bullets to circles
|
||||
(use-package org-bullets
|
||||
:after org
|
||||
:hook (org-mode . org-bullets-mode)
|
||||
:custom
|
||||
(org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")))
|
||||
|
||||
;; Creates margins, and centerrs content in org mode.
|
||||
(defun rymacs/org-mode-visual-fill ()
|
||||
(setq visual-fill-column-width 100
|
||||
visual-fill-column-center-text t)
|
||||
(visual-fill-column-mode 1))
|
||||
|
||||
(use-package visual-fill-column
|
||||
:hook (org-mode . rymacs/org-mode-visual-fill))
|
||||
|
||||
(use-package ob-racket
|
||||
:after org
|
||||
:config
|
||||
(add-hook 'ob-racket-pre-runtime-library-load-hook
|
||||
#'ob-racket-raco-make-runtime-library))
|
||||
|
||||
;; Load languages for babel code blocks.
|
||||
(with-eval-after-load 'org
|
||||
(org-babel-do-load-languages
|
||||
'org-babel-load-languages
|
||||
'((emacs-lisp . t)
|
||||
(racket . t)
|
||||
(python . t)
|
||||
(scheme . t)
|
||||
(javascript . t)
|
||||
(html . t)
|
||||
(css . t)
|
||||
(lisp . t)))
|
||||
|
||||
(push '("conf-unix" . conf-unix) org-src-lang-modes))
|
||||
|
||||
(setq geiser-default-implementation '(guile))
|
||||
|
||||
;; Make shortcuts to easily create babel source code blocks.
|
||||
(with-eval-after-load 'org
|
||||
(require 'org-tempo)
|
||||
|
||||
(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
|
||||
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
|
||||
(add-to-list 'org-structure-template-alist '("py" . "src python"))
|
||||
(add-to-list 'org-structure-template-alist '("yml" . "src yaml"))
|
||||
(add-to-list 'org-structure-template-alist '("scm" . "src scheme"))
|
||||
(add-to-list 'org-structure-template-alist '("js" . "src javascript"))
|
||||
(add-to-list 'org-structure-template-alist '("html" . "src html"))
|
||||
(add-to-list 'org-structure-template-alist '("css" . "src css"))
|
||||
(add-to-list 'org-structure-template-alist '("rt" . "src racket"))
|
||||
(add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
|
||||
|
||||
;; ;; Define a function that automatically executes rymacs/org-babel-tangle-config (a wrapper around org-babel-tangle) when saving this file.
|
||||
;; (defun rymacs/org-babel-tangle-config ()
|
||||
;; (when (string-equal (file-name-directory (buffer-file-name))
|
||||
;; (expand-file-name "~/.dotfiles/.config/doom"))
|
||||
|
||||
;; (let ((org-confirm-babel-evaluate nil))
|
||||
;; (org-babel-tangle))))
|
||||
|
||||
;; (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'rymacs/org-babel-tangle-config)))
|
||||
|
||||
(after! sly
|
||||
(load "/home/ry/quicklisp/clhs-use-local.el" t)
|
||||
(setq sly-lisp-implementations
|
||||
'((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
|
||||
(ccl ("/usr/local/bin/ccl64" :coding-system utf-8-unix)))))
|
||||
|
||||
(defmacro define-sly-lisp (name)
|
||||
`(defun ,name () (interactive) (let ((sly-default-lisp ',name)) (sly))))
|
||||
|
||||
(define-sly-lisp sbcl)
|
||||
(define-sly-lisp ccl)
|
||||
|
||||
(use-package mu4e
|
||||
:config
|
||||
;; This is set to 't' to avoid mail syncing issues when using mbsync
|
||||
(setq mu4e-change-filenames-when-moving t)
|
||||
|
||||
;; Refresh mail using isync every 5 minutes
|
||||
(setq mu4e-update-interval (* 5 60))
|
||||
(setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsync/mbsyncrc")
|
||||
(setq mu4e-maildir "~/Mail")
|
||||
|
||||
(setq mu4e-contexts
|
||||
(list
|
||||
;; Opal.sh
|
||||
(make-mu4e-context
|
||||
:name "Ry P."
|
||||
:match-func
|
||||
(lambda (msg)
|
||||
(when msg
|
||||
(string-prefix-p "/opal.sh" (mu4e-message-field msg :maildir))))
|
||||
|
||||
:vars '((user-mail-address . "ry@opal.sh")
|
||||
(user-full-name . "Ry P.")
|
||||
(mu4e-drafts-folder . "/opal.sh/Drafts")
|
||||
(mu4e-sent-folder . "/opal.sh/Sent")
|
||||
(mu4e-trash-folder . "/opal.sh/Trash")))))
|
||||
|
||||
(setq mu4e-maildir-shortcuts
|
||||
'(("/opal.sh/Inbox" . ?i)
|
||||
("/opal.sh/Sent" . ?s)
|
||||
("/opal.sh/Trash" . ?t)
|
||||
("/opal.sh/Drafts" . ?d))))
|
||||
|
||||
(setq erc-server "irc.libera.chat" ;sets default server
|
||||
erc-nick "opalvaults" ; Sets nick
|
||||
erc-user-full-name "opalvaults"
|
||||
erc-track-shorten-start 8
|
||||
erc-kill-buffer-on-part t
|
||||
erc-auto-query 'bury
|
||||
erc-fill-column 90
|
||||
erc-fill-function 'erc-fill-static
|
||||
erc-fill-static-center 20
|
||||
erc-track-visibility nil
|
||||
erc-interpret-mirc-color t
|
||||
erc-rename-buffers t
|
||||
erc-track-exclude-server-buffer t)
|
||||
@@ -0,0 +1,189 @@
|
||||
;;; init.el -*- lexical-binding: t; -*-
|
||||
|
||||
;; This file controls what Doom modules are enabled and what order they load
|
||||
;; in. Remember to run 'doom sync' after modifying it!
|
||||
|
||||
;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
|
||||
;; documentation. There you'll find a "Module Index" link where you'll find
|
||||
;; a comprehensive list of Doom's modules and what flags they support.
|
||||
|
||||
;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
|
||||
;; 'C-c c k' for non-vim users) to view its documentation. This works on
|
||||
;; flags as well (those symbols that start with a plus).
|
||||
;;
|
||||
;; Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
|
||||
;; directory (for easy access to its source code).
|
||||
|
||||
(doom! :input
|
||||
;;chinese
|
||||
;;japanese
|
||||
;;layout ; auie,ctsrnm is the superior home row
|
||||
|
||||
:completion
|
||||
company ; the ultimate code completion backend
|
||||
;;helm ; the *other* search engine for love and life
|
||||
;;ido ; the other *other* search engine...
|
||||
;;ivy ; a search engine for love and life
|
||||
vertico ; the search engine of the future
|
||||
|
||||
:ui
|
||||
;;deft ; notational velocity for Emacs
|
||||
doom ; what makes DOOM look the way it does
|
||||
;;doom-dashboard ; a nifty splash screen for Emacs
|
||||
;;doom-quit ; DOOM quit-message prompts when you quit Emacs
|
||||
(emoji +unicode) ; 🙂
|
||||
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
|
||||
;;hydra
|
||||
;;indent-guides ; highlighted indent columns
|
||||
ligatures ; ligatures and symbols to make your code pretty again
|
||||
;;minimap ; show a map of the code on the side
|
||||
modeline ; snazzy, Atom-inspired modeline, plus API
|
||||
;;nav-flash ; blink cursor line after big motions
|
||||
;;neotree ; a project drawer, like NERDTree for vim
|
||||
ophints ; highlight the region an operation acts on
|
||||
(popup +defaults) ; tame sudden yet inevitable temporary windows
|
||||
tabs ; a tab bar for Emacs
|
||||
;;treemacs ; a project drawer, like neotree but cooler
|
||||
unicode ; extended unicode support for various languages
|
||||
vc-gutter ; vcs diff in the fringe
|
||||
vi-tilde-fringe ; fringe tildes to mark beyond EOB
|
||||
;;window-select ; visually switch windows
|
||||
workspaces ; tab emulation, persistence & separate workspaces
|
||||
;;zen ; distraction-free coding or writing
|
||||
|
||||
:editor
|
||||
(evil +everywhere); come to the dark side, we have cookies
|
||||
file-templates ; auto-snippets for empty files
|
||||
fold ; (nigh) universal code folding
|
||||
(format +onsave) ; automated prettiness
|
||||
;;god ; run Emacs commands without modifier keys
|
||||
;;lispy ; vim for lisp, for people who don't like vim
|
||||
;;multiple-cursors ; editing in many places at once
|
||||
;;objed ; text object editing for the innocent
|
||||
;;parinfer ; turn lisp into python, sort of
|
||||
;;rotate-text ; cycle region at point between text candidates
|
||||
snippets ; my elves. They type so I don't have to
|
||||
word-wrap ; soft wrapping with language-aware indent
|
||||
|
||||
:emacs
|
||||
dired ; making dired pretty [functional]
|
||||
electric ; smarter, keyword-based electric-indent
|
||||
ibuffer ; interactive buffer management
|
||||
undo ; persistent, smarter undo for your inevitable mistakes
|
||||
vc ; version-control and Emacs, sitting in a tree
|
||||
|
||||
:term
|
||||
eshell ; the elisp shell that works everywhere
|
||||
;;shell ; simple shell REPL for Emacs
|
||||
;;term ; basic terminal emulator for Emacs
|
||||
vterm ; the best terminal emulation in Emacs
|
||||
|
||||
:checkers
|
||||
syntax ; tasing you for every semicolon you forget
|
||||
;;(spell +flyspell) ; tasing you for misspelling mispelling
|
||||
grammar ; tasing grammar mistake every you make
|
||||
|
||||
:tools
|
||||
;;ansible
|
||||
;;debugger ; FIXME stepping through code, to help you add bugs
|
||||
;;direnv
|
||||
docker
|
||||
;;editorconfig ; let someone else argue about tabs vs spaces
|
||||
;;ein ; tame Jupyter notebooks with emacs
|
||||
(eval +overlay) ; run code, run (also, repls)
|
||||
;;gist ; interacting with github gists
|
||||
lookup ; navigate your code and its documentation
|
||||
lsp ; M-x vscode
|
||||
magit ; a git porcelain for Emacs
|
||||
;;make ; run make tasks from Emacs
|
||||
;;pass ; password manager for nerds
|
||||
pdf ; pdf enhancements
|
||||
;;prodigy ; FIXME managing external services & code builders
|
||||
;;rgb ; creating color strings
|
||||
;;taskrunner ; taskrunner for all your projects
|
||||
;;terraform ; infrastructure as code
|
||||
;;tmux ; an API for interacting with tmux
|
||||
;;upload ; map local to remote projects via ssh/ftp
|
||||
|
||||
:os
|
||||
(:if IS-MAC macos) ; improve compatibility with macOS
|
||||
tty ; improve the terminal Emacs experience
|
||||
|
||||
:lang
|
||||
;;agda ; types of types of types of types...
|
||||
;;beancount ; mind the GAAP
|
||||
;;cc ; C > C++ == 1
|
||||
;;clojure ; java with a lisp
|
||||
common-lisp ; if you've seen one lisp, you've seen them all
|
||||
;;coq ; proofs-as-programs
|
||||
;;crystal ; ruby at the speed of c
|
||||
;;csharp ; unity, .NET, and mono shenanigans
|
||||
;;data ; config/data formats
|
||||
;;(dart +flutter) ; paint ui and not much else
|
||||
;;dhall
|
||||
;;elixir ; erlang done right
|
||||
;;elm ; care for a cup of TEA?
|
||||
emacs-lisp ; drown in parentheses
|
||||
;;erlang ; an elegant language for a more civilized age
|
||||
;;ess ; emacs speaks statistics
|
||||
;;factor
|
||||
;;faust ; dsp, but you get to keep your soul
|
||||
;;fsharp ; ML stands for Microsoft's Language
|
||||
;;fstar ; (dependent) types and (monadic) effects and Z3
|
||||
;;gdscript ; the language you waited for
|
||||
;;(go +lsp) ; the hipster dialect
|
||||
;;(haskell +lsp) ; a language that's lazier than I am
|
||||
;;hy ; readability of scheme w/ speed of python
|
||||
;;idris ; a language you can depend on
|
||||
;;json ; At least it ain't XML
|
||||
;;(java +meghanada) ; the poster child for carpal tunnel syndrome
|
||||
;;javascript ; all(hope(abandon(ye(who(enter(here))))))
|
||||
;;julia ; a better, faster MATLAB
|
||||
;;kotlin ; a better, slicker Java(Script)
|
||||
;;latex ; writing papers in Emacs has never been so fun
|
||||
;;lean ; for folks with too much to prove
|
||||
;;ledger ; be audit you can be
|
||||
;;lua ; one-based indices? one-based indices
|
||||
markdown ; writing docs for people to ignore
|
||||
;;nim ; python + lisp at the speed of c
|
||||
;;nix ; I hereby declare "nix geht mehr!"
|
||||
;;ocaml ; an objective camel
|
||||
org ; organize your plain life in plain text
|
||||
;;php ; perl's insecure younger brother
|
||||
;;plantuml ; diagrams for confusing people more
|
||||
;;purescript ; javascript, but functional
|
||||
python ; beautiful is better than ugly
|
||||
;;qt ; the 'cutest' gui framework ever
|
||||
racket ; a DSL for DSLs
|
||||
;;raku ; the artist formerly known as perl6
|
||||
;;rest ; Emacs as a REST client
|
||||
;;rst ; ReST in peace
|
||||
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
|
||||
;;rust ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
|
||||
;;scala ; java, but good
|
||||
(scheme +guile) ; a fully conniving family of lisps
|
||||
sh ; she sells {ba,z,fi}sh shells on the C xor
|
||||
;;sml
|
||||
;;solidity ; do you need a blockchain? No.
|
||||
;;swift ; who asked for emoji variables?
|
||||
;;terra ; Earth and Moon in alignment for performance.
|
||||
web ; the tubes
|
||||
yaml ; JSON, but readable
|
||||
;;zig ; C, but simpler
|
||||
|
||||
:email
|
||||
(mu4e +org +gmail)
|
||||
;;notmuch
|
||||
;;(wanderlust +gmail)
|
||||
|
||||
:app
|
||||
;;calendar
|
||||
;;emms
|
||||
;;everywhere ; *leave* Emacs!? You must be joking
|
||||
irc ; how neckbeards socialize
|
||||
(rss +org) ; emacs as an RSS reader
|
||||
;;twitter ; twitter client https://twitter.com/vnought
|
||||
|
||||
:config
|
||||
;;literate
|
||||
(default +bindings +smartparens))
|
||||
@@ -0,0 +1,57 @@
|
||||
;; -*- no-byte-compile: t; -*-
|
||||
;;; $DOOMDIR/packages.el
|
||||
|
||||
;; To install a package with Doom you must declare them here and run 'doom sync'
|
||||
;; on the command line, then restart Emacs for the changes to take effect -- or
|
||||
;; use 'M-x doom/reload'.
|
||||
|
||||
(package! org-bullets)
|
||||
(package! modus-themes)
|
||||
(package! org-pomodoro)
|
||||
(package! visual-fill-column)
|
||||
(package! tide)
|
||||
(package! ob-racket
|
||||
:recipe (:host github :repo "hasu/emacs-ob-racket"))
|
||||
|
||||
;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
|
||||
;(package! some-package)
|
||||
|
||||
;; To install a package directly from a remote git repo, you must specify a
|
||||
;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
|
||||
;; https://github.com/raxod502/straight.el#the-recipe-format
|
||||
;(package! another-package
|
||||
; :recipe (:host github :repo "username/repo"))
|
||||
|
||||
;; If the package you are trying to install does not contain a PACKAGENAME.el
|
||||
;; file, or is located in a subdirectory of the repo, you'll need to specify
|
||||
;; `:files' in the `:recipe':
|
||||
;(package! this-package
|
||||
; :recipe (:host github :repo "username/repo"
|
||||
; :files ("some-file.el" "src/lisp/*.el")))
|
||||
|
||||
;; If you'd like to disable a package included with Doom, you can do so here
|
||||
;; with the `:disable' property:
|
||||
;(package! builtin-package :disable t)
|
||||
|
||||
;; You can override the recipe of a built in package without having to specify
|
||||
;; all the properties for `:recipe'. These will inherit the rest of its recipe
|
||||
;; from Doom or MELPA/ELPA/Emacsmirror:
|
||||
;(package! builtin-package :recipe (:nonrecursive t))
|
||||
;(package! builtin-package-2 :recipe (:repo "myfork/package"))
|
||||
|
||||
;; Specify a `:branch' to install a package from a particular branch or tag.
|
||||
;; This is required for some packages whose default branch isn't 'master' (which
|
||||
;; our package manager can't deal with; see raxod502/straight.el#279)
|
||||
;(package! builtin-package :recipe (:branch "develop"))
|
||||
|
||||
;; Use `:pin' to specify a particular commit to install.
|
||||
;(package! builtin-package :pin "1a2b3c4d5e")
|
||||
|
||||
|
||||
;; Doom's packages are pinned to a specific commit and updated from release to
|
||||
;; release. The `unpin!' macro allows you to unpin single packages...
|
||||
;(unpin! pinned-package)
|
||||
;; ...or multiple packages
|
||||
;(unpin! pinned-package another-pinned-package)
|
||||
;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
|
||||
;(unpin! t)
|
||||
@@ -0,0 +1,2 @@
|
||||
clear lock
|
||||
keycode 66 = Escape Caps_Lock NoSymbol NoSymbol
|
||||
@@ -0,0 +1,506 @@
|
||||
#+title: Emacs Custom Configuration File
|
||||
#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/.config/doom/config.el :mkdirp yes :lexical yes
|
||||
|
||||
* Configuration
|
||||
:PROPERTIES:
|
||||
:VISITBILITY: children
|
||||
:END:
|
||||
** Table of Contents :TOC_4_gh:
|
||||
- [[#configuration][Configuration]]
|
||||
- [[#general][General]]
|
||||
- [[#load-paths][Load Paths]]
|
||||
- [[#user-info][User Info]]
|
||||
- [[#visual][Visual]]
|
||||
- [[#misc][Misc]]
|
||||
- [[#theme][Theme]]
|
||||
- [[#fonts][Fonts]]
|
||||
- [[#org][Org]]
|
||||
- [[#fonts-and-symbols][Fonts and Symbols]]
|
||||
- [[#general-1][General]]
|
||||
- [[#better-heading-bullets][Better Heading Bullets]]
|
||||
- [[#center-org-buffers][Center Org Buffers]]
|
||||
- [[#org-babel][Org Babel]]
|
||||
- [[#racket-specific-language][Racket Specific Language]]
|
||||
- [[#babel-languages][Babel Languages]]
|
||||
- [[#soure-block-creation-shortcuts][Soure Block Creation Shortcuts]]
|
||||
- [[#babel-configuration-file-automation-hook][Babel Configuration File Automation Hook]]
|
||||
- [[#programming-languages][Programming Languages]]
|
||||
- [[#common-lisp][Common Lisp]]
|
||||
- [[#mu4e-e-mail][Mu4e (E-mail)]]
|
||||
- [[#erc-irc][ERC (IRC)]]
|
||||
|
||||
** General
|
||||
*** Load Paths
|
||||
#+begin_src emacs-lisp
|
||||
(add-to-list 'load-path "~/.guix-profile/bin/guile")
|
||||
(add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp")
|
||||
|
||||
;; Match Emacs program path to be the same as user shell
|
||||
(defun set-exec-path-from-shell-PATH ()
|
||||
"Set up Emacs' `exec-path' and PATH environment variable to match
|
||||
that used by the user's shell."
|
||||
(interactive)
|
||||
(let ((path-from-shell (replace-regexp-in-string
|
||||
"[ \t\n]*$" "" (shell-command-to-string
|
||||
"$SHELL --login -c 'echo $PATH'"))))
|
||||
(setenv "PATH" path-from-shell)
|
||||
(setq exec-path (split-string path-from-shell path-separator))))
|
||||
|
||||
(set-exec-path-from-shell-PATH)
|
||||
#+end_src
|
||||
|
||||
*** User Info
|
||||
#+begin_src emacs-lisp
|
||||
;; Setting general info
|
||||
(setq user-full-name "Ry"
|
||||
user-mail-address "ry@opal.sh")
|
||||
#+end_src
|
||||
|
||||
*** Visual
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Set line number
|
||||
(setq display-line-numbers-type t)
|
||||
|
||||
;; Keeps text lines from going off screen.
|
||||
(set-default 'truncate-lines nil)
|
||||
;; Add this hook to ERC if I run into trouble with truncated lines in other modes.
|
||||
;; (add-hook 'erc-mode-hook (lambda () (setq-default truncate-lines nil)))
|
||||
|
||||
|
||||
;; Only enable line numbers for certain modes
|
||||
(dolist (mode '(org-mode-hook
|
||||
term-mode-hook
|
||||
shell-mode-hook
|
||||
eshell-mode-hook))
|
||||
(add-hook mode (lambda () (display-line-numbers-mode 0))))
|
||||
#+end_src
|
||||
|
||||
*** Misc
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
;; Enable clipboard
|
||||
(setq x-select-enable-clipboard t)
|
||||
#+end_src
|
||||
|
||||
** Theme
|
||||
#+begin_src emacs-lisp
|
||||
;; load theme
|
||||
(setq doom-theme 'modus-operandi)
|
||||
|
||||
;; Configure Modus theme
|
||||
(use-package modus-themes
|
||||
:init
|
||||
(setq modus-themes-italic-constructs t
|
||||
modus-themes-bold-constructs nil
|
||||
modus-themes-region '(accented bg-only no-extend)
|
||||
modus-themes-org-blocks 'greyscale
|
||||
modus-themes-paren-match 'intense
|
||||
modus-themes-mixed-fonts t)
|
||||
|
||||
;; Load the theme files before enabling a theme
|
||||
(modus-themes-load-themes)
|
||||
:config
|
||||
|
||||
(modus-themes-load-vivendi) ;; OR (modus-themes-load-operandi)
|
||||
:bind ("<f5>" . modus-themes-toggle))
|
||||
|
||||
#+end_src
|
||||
|
||||
** Fonts
|
||||
Using [[https://github.com/tonsky/FiraCode][Fira Code]] + Fira Code Retina.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Set fonts
|
||||
(set-face-attribute 'default nil :font "Fira Code" :height 125 :weight 'medium)
|
||||
(set-face-attribute 'variable-pitch nil :font "Fira Sans" :height 1.0 :weight 'regular)
|
||||
(set-face-attribute 'fixed-pitch nil :font "Fira Code" :height 1.0 :weight 'medium)
|
||||
|
||||
#+end_src
|
||||
|
||||
** Org
|
||||
*** Fonts and Symbols
|
||||
Here we are setting general font configuration in order to make editing in org mode a bit more streamlined to look at.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
(defun rymacs/org-font-setup ()
|
||||
;; Replace list hyphen with dot
|
||||
(font-lock-add-keywords 'org-mode
|
||||
'(("^ *\\([-]\\) "
|
||||
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1)
|
||||
"•"))))))
|
||||
|
||||
;; Set faces for heading levels
|
||||
(dolist (face '((org-level-1 . 1.2)
|
||||
(org-level-2 . 1.1)
|
||||
(org-level-3 . 1.05)
|
||||
(org-level-4 . 1.0)
|
||||
(org-level-5 . 1.1)
|
||||
(org-level-6 . 1.1)
|
||||
(org-level-7 . 1.1)
|
||||
(org-level-8 . 1.1)))
|
||||
(set-face-attribute (car face) nil :font "Cantarell" :weight 'regular :height (cdr face)))
|
||||
|
||||
;; Ensure that anything that should be fixed-pitch in Org files appears that way
|
||||
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-table nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-formula nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-table nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
|
||||
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
|
||||
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
|
||||
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'line-number nil :inherit 'fixed-pitch)
|
||||
(set-face-attribute 'line-number-current-line nil :inherit 'fixed-pitch))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** General
|
||||
|
||||
Main Org/Agenda configuration.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
;; Set org agenda dir
|
||||
(setq org-directory "~/org/")
|
||||
|
||||
(defun rymacs/org-mode-setup ()
|
||||
(org-indent-mode)
|
||||
(variable-pitch-mode 1)
|
||||
(visual-line-mode 1)
|
||||
(setq org-startup-folded t))
|
||||
|
||||
(use-package org
|
||||
:commands (org-capture org-agenda)
|
||||
:hook (org-mode . rymacs/org-mode-setup)
|
||||
:config
|
||||
(setq org-ellipsis " ▾")
|
||||
(setq org-agenda-start-with-log-mode t)
|
||||
(setq org-log-done 'time)
|
||||
(setq org-log-into-drawer t)
|
||||
|
||||
(setq org-agenda-files
|
||||
'("~/org/projects/"
|
||||
"~/org/tasks/"
|
||||
))
|
||||
|
||||
(require 'org-habit)
|
||||
(add-to-list 'org-modules 'org-habit)
|
||||
(setq org-habit-graph-column 60)
|
||||
|
||||
(setq org-todo-keywords
|
||||
'((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)")
|
||||
(sequence "BACKLOG(b)" "PLAN(p)" "READY(r)" "ACTIVE(a)" "REVIEW(v)" "WAIT(w@/!)" "HOLD(h)" "|" "COMPLETED(c)" "CANC(k@)")))
|
||||
|
||||
(setq org-refile-targets
|
||||
'(("archive.org" :maxlevel . 1)
|
||||
("planner.org" :maxlevel . 1)))
|
||||
|
||||
;; Save Org buffers after refiling!
|
||||
(advice-add 'org-refile :after 'org-save-all-org-buffers)
|
||||
|
||||
(setq org-tag-alist
|
||||
'((:startgroup)
|
||||
; Put mutually exclusive tags here
|
||||
(:endgroup)
|
||||
("@errand" . ?E)
|
||||
("@home" . ?H)
|
||||
("@work" . ?W)
|
||||
("agenda" . ?a)
|
||||
("planning" . ?p)
|
||||
("publish" . ?P)
|
||||
("batch" . ?b)
|
||||
("note" . ?n)
|
||||
("idea" . ?i)))
|
||||
|
||||
;; Configure custom agenda views
|
||||
(setq org-agenda-custom-commands
|
||||
'(("d" "Dashboard"
|
||||
((agenda "" ((org-deadline-warning-days 7)))
|
||||
(todo "NEXT"
|
||||
((org-agenda-overriding-header "Next Tasks")))
|
||||
(tags-todo "agenda/ACTIVE" ((org-agenda-overriding-header "Active Projects")))))
|
||||
|
||||
("n" "Next Tasks"
|
||||
((todo "NEXT"
|
||||
((org-agenda-overriding-header "Next Tasks")))))
|
||||
|
||||
;; Low-effort next actions
|
||||
("e" tags-todo "+TODO=\"NEXT\"+Effort<15&+Effort>0"
|
||||
((org-agenda-overriding-header "Low Effort Tasks")
|
||||
(org-agenda-max-todos 20)
|
||||
(org-agenda-files org-agenda-files)))))
|
||||
|
||||
;; Create capture templates
|
||||
(setq org-capture-templates
|
||||
`(("t" "Tasks")
|
||||
("tt" "Task" entry (file+olp "~/org/planner/tasks.org" "Inbox")
|
||||
"* TODO %?\n %U\n %a\n %i" :empty-lines 1)
|
||||
|
||||
("p" "Projects")
|
||||
("pp" "Project File" entry (file+olp "~/org/projects/auto-infra-overview.org" "Inbox")
|
||||
"* TODO %?\n %U\n %a\n %i" :empty-lines 1)))
|
||||
;; Init font setup
|
||||
(rymacs/org-font-setup))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Better Heading Bullets
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Change default pretty bullets to circles
|
||||
(use-package org-bullets
|
||||
:after org
|
||||
:hook (org-mode . org-bullets-mode)
|
||||
:custom
|
||||
(org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●")))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Center Org Buffers
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Creates margins, and centerrs content in org mode.
|
||||
(defun rymacs/org-mode-visual-fill ()
|
||||
(setq visual-fill-column-width 100
|
||||
visual-fill-column-center-text t)
|
||||
(visual-fill-column-mode 1))
|
||||
|
||||
(use-package visual-fill-column
|
||||
:hook (org-mode . rymacs/org-mode-visual-fill))
|
||||
|
||||
#+end_src
|
||||
|
||||
*** Org Babel
|
||||
Org Babel allows us to evaluate source code blocks within org mode. With this functionality, we can tell org babel to insert the content of the source block codes into any file specified by using the org-babel-tangle function.
|
||||
**** Racket Specific Language
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package ob-racket
|
||||
:after org
|
||||
:config
|
||||
(add-hook 'ob-racket-pre-runtime-library-load-hook
|
||||
#'ob-racket-raco-make-runtime-library))
|
||||
#+end_src
|
||||
|
||||
**** Babel Languages
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Load languages for babel code blocks.
|
||||
(with-eval-after-load 'org
|
||||
(org-babel-do-load-languages
|
||||
'org-babel-load-languages
|
||||
'((emacs-lisp . t)
|
||||
(racket . t)
|
||||
(python . t)
|
||||
(scheme . t)
|
||||
(javascript . t)
|
||||
(html . t)
|
||||
(css . t)
|
||||
(lisp . t)))
|
||||
|
||||
(push '("conf-unix" . conf-unix) org-src-lang-modes))
|
||||
|
||||
(setq geiser-default-implementation '(guile))
|
||||
#+end_src
|
||||
|
||||
#+RESULTS:
|
||||
| guile |
|
||||
|
||||
**** Soure Block Creation Shortcuts
|
||||
Here we use a package called org-tempo.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; Make shortcuts to easily create babel source code blocks.
|
||||
(with-eval-after-load 'org
|
||||
(require 'org-tempo)
|
||||
|
||||
(add-to-list 'org-structure-template-alist '("sh" . "src shell"))
|
||||
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
|
||||
(add-to-list 'org-structure-template-alist '("py" . "src python"))
|
||||
(add-to-list 'org-structure-template-alist '("yml" . "src yaml"))
|
||||
(add-to-list 'org-structure-template-alist '("scm" . "src scheme"))
|
||||
(add-to-list 'org-structure-template-alist '("js" . "src javascript"))
|
||||
(add-to-list 'org-structure-template-alist '("html" . "src html"))
|
||||
(add-to-list 'org-structure-template-alist '("css" . "src css"))
|
||||
(add-to-list 'org-structure-template-alist '("rt" . "src racket"))
|
||||
(add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
|
||||
#+end_src
|
||||
|
||||
**** Babel Configuration File Automation Hook
|
||||
|
||||
TODO: This needs to be fixed, or find an equiv.
|
||||
Since we don't want to have to manually use the org-babel-tangle function everytime we make changes to the corresponding .org file, we create an automation hook that executes the function every time we save.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
;; ;; Define a function that automatically executes rymacs/org-babel-tangle-config (a wrapper around org-babel-tangle) when saving this file.
|
||||
;; (defun rymacs/org-babel-tangle-config ()
|
||||
;; (when (string-equal (file-name-directory (buffer-file-name))
|
||||
;; (expand-file-name "~/.dotfiles/.config/doom"))
|
||||
|
||||
;; (let ((org-confirm-babel-evaluate nil))
|
||||
;; (org-babel-tangle))))
|
||||
|
||||
;; (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'rymacs/org-babel-tangle-config)))
|
||||
|
||||
#+end_src
|
||||
|
||||
# *** Org Roam
|
||||
# I use Org Roam as an alternative to writing traditional notes. Instead of long sprawling .org files, each note in Org roam is a excerpt of a specific idea or topic that has links to other notes made with Org Roam. Roam also allows you to pull up a buffer to look at which notes are linked in other notes. This creates a spawling network of information that is useful, quick to draw information from, and can create a notetaking experience that is interactive and seamless.
|
||||
|
||||
# #+begin_src emacs-lisp
|
||||
|
||||
# (use-package org-roam
|
||||
# :init
|
||||
# (setq org-roam-v2-ack t)
|
||||
# :custom
|
||||
# (org-roam-directory "~/roam/notes/")
|
||||
# (org-roam-completion-everywhere t)
|
||||
# (org-roam-capture-templates
|
||||
# '(("d" "default" plain
|
||||
# "%?"
|
||||
# :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
|
||||
# :unnarrowed t)
|
||||
# ("r" "resources" plain
|
||||
# (file "~/roam/templates/resource-template.org")
|
||||
# :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
|
||||
# :unnarrowed t)
|
||||
# ("f" "files" plain
|
||||
# (file "~/roam/templates/res-file-note-temp.org")
|
||||
# :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
|
||||
# :unnarrowed t)
|
||||
# ("c" "cli" plain
|
||||
# (file "~/roam/templates/commands-template.org")
|
||||
# :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
|
||||
# :unnarrowed t)))
|
||||
# :bind (("C-c n l" . org-roam-buffer-toggle)
|
||||
# ("C-c n f" . org-roam-node-find)
|
||||
# ("C-c n i" . org-roam-node-insert)
|
||||
# ("C-c n I" . org-roam-node-insert-immediate)
|
||||
# ("C-c n p" . my/org-roam-find-project)
|
||||
# :map org-mode-map
|
||||
# ("C-M-i" . completion-at-point)
|
||||
# :map org-roam-dailies-map
|
||||
# ("Y" . org-roam-dailies-capture-yesterday)
|
||||
# ("T" . org-roam-dailies-capture-tomorrow))
|
||||
# :bind-keymap
|
||||
# ("C-c n d" . org-roam-dailies-map)
|
||||
# :config
|
||||
# (require 'org-roam-dailies) ;; Ensure the keymap is available
|
||||
# (org-roam-db-autosync-mode))
|
||||
|
||||
# ;; Function to enable the ability to quickly insert a link without
|
||||
# ;; opening a capture buffer.
|
||||
# (defun org-roam-node-insert-immediate (arg &rest args)
|
||||
# (interactive "P")
|
||||
# (let ((args (cons arg args))
|
||||
# (org-roam-capture-templates (list (append (car org-roam-capture-templates)
|
||||
# '(:immediate-finish t)))))
|
||||
# (apply #'org-roam-node-insert args)))
|
||||
|
||||
# #+end_src
|
||||
|
||||
# *** Deft Configuration
|
||||
|
||||
# Deft is a package that helps browse and filter plain text files. I use it to search through org-roam notes.
|
||||
|
||||
# #+begin_src emacs-lisp
|
||||
|
||||
# (use-package deft
|
||||
# :after org
|
||||
# :bind
|
||||
# ("C-c n d" . deft)
|
||||
# :custom
|
||||
# (deft-recursive t)
|
||||
# (deft-use-filter-string-for-filename t)
|
||||
# (deft-default-extension "org")
|
||||
# (deft-directory org-roam-directory))
|
||||
|
||||
# #+end_src
|
||||
** Programming Languages
|
||||
*** Common Lisp
|
||||
#+begin_src emacs-lisp
|
||||
(after! sly
|
||||
(load "/home/ry/quicklisp/clhs-use-local.el" t)
|
||||
(setq sly-lisp-implementations
|
||||
'((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
|
||||
(ccl ("/usr/local/bin/ccl64" :coding-system utf-8-unix)))))
|
||||
|
||||
(defmacro define-sly-lisp (name)
|
||||
`(defun ,name () (interactive) (let ((sly-default-lisp ',name)) (sly))))
|
||||
|
||||
(define-sly-lisp sbcl)
|
||||
(define-sly-lisp ccl)
|
||||
#+end_src
|
||||
|
||||
** Mu4e (E-mail)
|
||||
|
||||
Account Information:
|
||||
- IMAP: imap.opal.sh -- 993
|
||||
- SMTP smtp.opal.sh -- 587
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
(use-package mu4e
|
||||
:config
|
||||
;; This is set to 't' to avoid mail syncing issues when using mbsync
|
||||
(setq mu4e-change-filenames-when-moving t)
|
||||
|
||||
;; Refresh mail using isync every 5 minutes
|
||||
(setq mu4e-update-interval (* 5 60))
|
||||
(setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsync/mbsyncrc")
|
||||
(setq mu4e-maildir "~/Mail")
|
||||
|
||||
(setq mu4e-contexts
|
||||
(list
|
||||
;; Opal.sh
|
||||
(make-mu4e-context
|
||||
:name "Ry P."
|
||||
:match-func
|
||||
(lambda (msg)
|
||||
(when msg
|
||||
(string-prefix-p "/opal.sh" (mu4e-message-field msg :maildir))))
|
||||
|
||||
:vars '((user-mail-address . "ry@opal.sh")
|
||||
(user-full-name . "Ry P.")
|
||||
(mu4e-drafts-folder . "/opal.sh/Drafts")
|
||||
(mu4e-sent-folder . "/opal.sh/Sent")
|
||||
(mu4e-trash-folder . "/opal.sh/Trash")))))
|
||||
|
||||
(setq mu4e-maildir-shortcuts
|
||||
'(("/opal.sh/Inbox" . ?i)
|
||||
("/opal.sh/Sent" . ?s)
|
||||
("/opal.sh/Trash" . ?t)
|
||||
("/opal.sh/Drafts" . ?d))))
|
||||
|
||||
#+end_src
|
||||
|
||||
** ERC (IRC)
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
(setq erc-server "irc.libera.chat" ;sets default server
|
||||
erc-nick "opalvaults" ; Sets nick
|
||||
erc-user-full-name "opalvaults"
|
||||
erc-track-shorten-start 8
|
||||
erc-kill-buffer-on-part t
|
||||
erc-auto-query 'bury
|
||||
erc-fill-column 90
|
||||
erc-fill-function 'erc-fill-static
|
||||
erc-fill-static-center 20
|
||||
erc-track-visibility nil
|
||||
erc-interpret-mirc-color t
|
||||
erc-rename-buffers t
|
||||
erc-track-exclude-server-buffer t)
|
||||
#+end_src
|
||||
|
||||
#+RESULTS:
|
||||
: t
|
||||
|
||||
Reference in New Issue
Block a user