Using guix home now

This commit is contained in:
opal
2021-12-31 11:17:48 -08:00
parent 28f4dfc9b3
commit d1d107eb35
82 changed files with 264 additions and 11258 deletions

View File

@@ -1,298 +0,0 @@
(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)

View File

@@ -1,189 +0,0 @@
;;; 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))

View File

@@ -1,57 +0,0 @@
;; -*- 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)

View File

@@ -1,436 +0,0 @@
# See dunst(5) for all configuration options
[global]
### Display ###
# Which monitor should the notifications be displayed on.
monitor = 0
# Display notification on focused monitor. Possible modes are:
# mouse: follow mouse pointer
# keyboard: follow window with keyboard focus
# none: don't follow anything
#
# "keyboard" needs a window manager that exports the
# _NET_ACTIVE_WINDOW property.
# This should be the case for almost all modern window managers.
#
# If this option is set to mouse or keyboard, the monitor option
# will be ignored.
follow = none
### Geometry ###
# dynamic width from 0 to 300
# width = (0, 300)
# constant width of 300
width = 300
# The maximum height of a single notification, excluding the frame.
height = 300
# Position the notification in the top right corner
origin = top-right
# Offset from the origin
offset = 10x50
# Scale factor. It is auto-detected if value is 0.
scale = 0
# Maximum number of notification (0 means no limit)
notification_limit = 0
### Progress bar ###
# Turn on the progess bar. It appears when a progress hint is passed with
# for example dunstify -h int:value:12
progress_bar = true
# Set the progress bar height. This includes the frame, so make sure
# it's at least twice as big as the frame width.
progress_bar_height = 10
# Set the frame width of the progress bar
progress_bar_frame_width = 1
# Set the minimum width for the progress bar
progress_bar_min_width = 150
# Set the maximum width for the progress bar
progress_bar_max_width = 300
# Show how many messages are currently hidden (because of
# notification_limit).
indicate_hidden = yes
# The transparency of the window. Range: [0; 100].
# This option will only work if a compositing window manager is
# present (e.g. xcompmgr, compiz, etc.). (X11 only)
transparency = 0
# Draw a line of "separator_height" pixel height between two
# notifications.
# Set to 0 to disable.
separator_height = 2
# Padding between text and separator.
padding = 8
# Horizontal padding.
horizontal_padding = 8
# Padding between text and icon.
text_icon_padding = 0
# Defines width in pixels of frame around the notification window.
# Set to 0 to disable.
frame_width = 3
# Defines color of the frame around the notification window.
frame_color = "#aaaaaa"
# Define a color for the separator.
# possible values are:
# * auto: dunst tries to find a color fitting to the background;
# * foreground: use the same color as the foreground;
# * frame: use the same color as the frame;
# * anything else will be interpreted as a X color.
separator_color = frame
# Sort messages by urgency.
sort = yes
# Don't remove messages, if the user is idle (no mouse or keyboard input)
# for longer than idle_threshold seconds.
# Set to 0 to disable.
# A client can set the 'transient' hint to bypass this. See the rules
# section for how to disable this if necessary
# idle_threshold = 120
### Text ###
font = Monospace 8
# The spacing between lines. If the height is smaller than the
# font height, it will get raised to the font height.
line_height = 0
# Possible values are:
# full: Allow a small subset of html markup in notifications:
# <b>bold</b>
# <i>italic</i>
# <s>strikethrough</s>
# <u>underline</u>
#
# For a complete reference see
# <https://docs.gtk.org/Pango/pango_markup.html>.
#
# strip: This setting is provided for compatibility with some broken
# clients that send markup even though it's not enabled on the
# server. Dunst will try to strip the markup but the parsing is
# simplistic so using this option outside of matching rules for
# specific applications *IS GREATLY DISCOURAGED*.
#
# no: Disable markup parsing, incoming notifications will be treated as
# plain text. Dunst will not advertise that it has the body-markup
# capability if this is set as a global setting.
#
# It's important to note that markup inside the format option will be parsed
# regardless of what this is set to.
markup = full
# The format of the message. Possible variables are:
# %a appname
# %s summary
# %b body
# %i iconname (including its path)
# %I iconname (without its path)
# %p progress value if set ([ 0%] to [100%]) or nothing
# %n progress value if set without any extra characters
# %% Literal %
# Markup is allowed
format = "<b>%s</b>\n%b"
# Alignment of message text.
# Possible values are "left", "center" and "right".
alignment = left
# Vertical alignment of message text and icon.
# Possible values are "top", "center" and "bottom".
vertical_alignment = center
# Show age of message if message is older than show_age_threshold
# seconds.
# Set to -1 to disable.
show_age_threshold = 60
# Specify where to make an ellipsis in long lines.
# Possible values are "start", "middle" and "end".
ellipsize = middle
# Ignore newlines '\n' in notifications.
ignore_newline = no
# Stack together notifications with the same content
stack_duplicates = true
# Hide the count of stacked notifications with the same content
hide_duplicate_count = false
# Display indicators for URLs (U) and actions (A).
show_indicators = yes
### Icons ###
# Align icons left/right/off
icon_position = left
# Scale small icons up to this size, set to 0 to disable. Helpful
# for e.g. small files or high-dpi screens. In case of conflict,
# max_icon_size takes precedence over this.
min_icon_size = 0
# Scale larger icons down to this size, set to 0 to disable
max_icon_size = 32
# Paths to default icons.
icon_path = /usr/share/icons/gnome/16x16/status/:/usr/share/icons/gnome/16x16/devices/
### History ###
# Should a notification popped up from history be sticky or timeout
# as if it would normally do.
sticky_history = yes
# Maximum amount of notifications kept in history
history_length = 20
### Misc/Advanced ###
# dmenu path.
dmenu = /usr/bin/dmenu -p dunst:
# Browser for opening urls in context menu.
browser = /usr/bin/xdg-open
# Always run rule-defined scripts, even if the notification is suppressed
always_run_script = true
# Define the title of the windows spawned by dunst
title = Dunst
# Define the class of the windows spawned by dunst
class = Dunst
# Define the corner radius of the notification window
# in pixel size. If the radius is 0, you have no rounded
# corners.
# The radius will be automatically lowered if it exceeds half of the
# notification height to avoid clipping text and/or icons.
corner_radius = 0
# Ignore the dbus closeNotification message.
# Useful to enforce the timeout set by dunst configuration. Without this
# parameter, an application may close the notification sent before the
# user defined timeout.
ignore_dbusclose = false
### Wayland ###
# These settings are Wayland-specific. They have no effect when using X11
# Uncomment this if you want to let notications appear under fullscreen
# applications (default: overlay)
# layer = top
# Set this to true to use X11 output on Wayland.
force_xwayland = false
### Legacy
# Use the Xinerama extension instead of RandR for multi-monitor support.
# This setting is provided for compatibility with older nVidia drivers that
# do not support RandR and using it on systems that support RandR is highly
# discouraged.
#
# By enabling this setting dunst will not be able to detect when a monitor
# is connected or disconnected which might break follow mode if the screen
# layout changes.
force_xinerama = false
### mouse
# Defines list of actions for each mouse event
# Possible values are:
# * none: Don't do anything.
# * do_action: Invoke the action determined by the action_name rule. If there is no
# such action, open the context menu.
# * open_url: If the notification has exactly one url, open it. If there are multiple
# ones, open the context menu.
# * close_current: Close current notification.
# * close_all: Close all notifications.
# * context: Open context menu for the notification.
# * context_all: Open context menu for all notifications.
# These values can be strung together for each mouse event, and
# will be executed in sequence.
mouse_left_click = close_current
mouse_middle_click = do_action, close_current
mouse_right_click = close_all
# Experimental features that may or may not work correctly. Do not expect them
# to have a consistent behaviour across releases.
[experimental]
# Calculate the dpi to use on a per-monitor basis.
# If this setting is enabled the Xft.dpi value will be ignored and instead
# dunst will attempt to calculate an appropriate dpi value for each monitor
# using the resolution and physical size. This might be useful in setups
# where there are multiple screens with very different dpi values.
per_monitor_dpi = false
[urgency_low]
# IMPORTANT: colors have to be defined in quotation marks.
# Otherwise the "#" and following would be interpreted as a comment.
background = "#222222"
foreground = "#888888"
timeout = 10
# Icon for notifications with low urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_normal]
background = "#285577"
foreground = "#ffffff"
timeout = 10
# Icon for notifications with normal urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_critical]
background = "#900000"
foreground = "#ffffff"
frame_color = "#ff0000"
timeout = 0
# Icon for notifications with critical urgency, uncomment to enable
#default_icon = /path/to/icon
# Every section that isn't one of the above is interpreted as a rules to
# override settings for certain messages.
#
# Messages can be matched by
# appname (discouraged, see desktop_entry)
# body
# category
# desktop_entry
# icon
# match_transient
# msg_urgency
# stack_tag
# summary
#
# and you can override the
# background
# foreground
# format
# frame_color
# fullscreen
# new_icon
# set_stack_tag
# set_transient
# set_category
# timeout
# urgency
# skip_display
# history_ignore
# action_name
# word_wrap
# ellipsize
# alignment
#
# Shell-like globbing will get expanded.
#
# Instead of the appname filter, it's recommended to use the desktop_entry filter.
# GLib based applications export their desktop-entry name. In comparison to the appname,
# the desktop-entry won't get localized.
#
# SCRIPTING
# You can specify a script that gets run when the rule matches by
# setting the "script" option.
# The script will be called as follows:
# script appname summary body icon urgency
# where urgency can be "LOW", "NORMAL" or "CRITICAL".
#
# NOTE: It might be helpful to run dunst -print in a terminal in order
# to find fitting options for rules.
# Disable the transient hint so that idle_threshold cannot be bypassed from the
# client
#[transient_disable]
# match_transient = yes
# set_transient = no
#
# Make the handling of transient notifications more strict by making them not
# be placed in history.
#[transient_history_ignore]
# match_transient = yes
# history_ignore = yes
# fullscreen values
# show: show the notifications, regardless if there is a fullscreen window opened
# delay: displays the new notification, if there is no fullscreen window active
# If the notification is already drawn, it won't get undrawn.
# pushback: same as delay, but when switching into fullscreen, the notification will get
# withdrawn from screen again and will get delayed like a new notification
#[fullscreen_delay_everything]
# fullscreen = delay
#[fullscreen_show_critical]
# msg_urgency = critical
# fullscreen = show
#[espeak]
# summary = "*"
# script = dunst_espeak.sh
#[script-test]
# summary = "*script*"
# script = dunst_test.sh
#[ignore]
# # This notification will not be displayed
# summary = "foobar"
# skip_display = true
#[history-ignore]
# # This notification will not be saved in history
# summary = "foobar"
# history_ignore = yes
#[skip-display]
# # This notification will not be displayed, but will be included in the history
# summary = "foobar"
# skip_display = yes
#[signed_on]
# appname = Pidgin
# summary = "*signed on*"
# urgency = low
#
#[signed_off]
# appname = Pidgin
# summary = *signed off*
# urgency = low
#
#[says]
# appname = Pidgin
# summary = *says*
# urgency = critical
#
#[twitter]
# appname = Pidgin
# summary = *twitter.com*
# urgency = normal
#
#[stack-volumes]
# appname = "some_volume_notifiers"
# set_stack_tag = "volume"
#
# vim: ft=cfg

View File

@@ -1,727 +0,0 @@
(setq package-enable-at-startup nil)
;; * Package Management with straight.el
(unless (featurep 'straight)
;; Bootstrap straight.el
(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)))
;; Use straight.el for use-package expressions
(straight-use-package 'use-package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
(scroll-bar-mode -1) ;; Disable scroll bar
(tool-bar-mode -1) ;; Disable tool bar menu
(tooltip-mode -1) ;; Disable tooltips
(set-fringe-mode 10) ;; Disable fringe mode
(menu-bar-mode -1) ;; Disable menu bar
(global-display-line-numbers-mode t) ;; Display line numbers
(set-default 'truncate-lines nil) ;; Wrap lines at end of screen
(setq visible-bell t) ;; Visible flash to represent a bell
(setq x-select-enable-clipboard t) ;; Enable clipboard
(global-tab-line-mode -1) ;; Disable tab mode
(setq inhibit-startup-message t) ;; What it says
(setq global-auto-revert-non-file-buffers t)
(global-auto-revert-mode 1) ;; Revert all buffers on change
(setq custom-safe-themes t) ;; Treat themes as safe
;; Disable line mode for specific major/minor modes.
(dolist (mode '(org-mode-hook
vterm-mode-hook
term-mode-hook
eshell-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))
(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
(add-to-list 'default-frame-alist '(alpha . (90 . 90)))
(set-frame-parameter (selected-frame) 'fullscreen 'maximized)
(add-to-list 'default-frame-alist '(fullscreen . maximized))
(use-package doom-modeline
:straight t
:init (doom-modeline-mode 1)
:custom ((doom-modeline-height 15)))
;; install all-the-icons when first loading the emacs conf
;; remember to run M-x all-the-icons-install-fonts
(use-package all-the-icons
:straight t
:if (display-graphic-p))
(use-package which-key
:straight t
:defer 0
:diminish which-key-mode
:config
(which-key-mode)
(setq which-key-idle-delay 0.3))
(use-package alert
:straight t
:config
(setq alert-default-style 'notification))
(setq large-file-warning-threshold nil) ;; Disables warnings for large files
(setq vc-follow-symlinks t) ;; Disables warnings for symlinks
(use-package helpful
:straight t
:commands (helpful-callable helpful-variable helpful-command helpful-key))
(use-package super-save
:straight t
:config
(super-save-mode +1))
;; Auto reverting Changed Files
(setq global-auto-revert-non-file-buffers nil)
(global-auto-revert-mode -1)
(use-package pinentry :straight t)
(setq epa-pinentry-mode 'loopback)
(pinentry-start)
(setq tramp-default-method "ssh")
;; (use-package modus-themes
;; :straight t
;; :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)
;; (modus-themes-load-themes)
;; :config
;; (modus-themes-load-vivendi)
;; :bind
;; ("<f5>" . modus-themes-toggle))
;; Doing some doom themes for a while.
(use-package doom-themes
:straight t
:init
(load-theme 'doom-Iosvkem))
(set-face-attribute 'default nil :font "Fira Mono" :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)
(use-package mixed-pitch
:straight t
:config
(add-hook 'org-mode-hook #'mixed-pitch-mode))
(use-package unicode-fonts :straight t)
(global-set-key (kbd "<escape>") 'keyboard-escape-quit) ;; Escape exits out of prompts
;; Define Leader Key
(use-package general
:straight t
:config
(general-evil-setup t)
(general-create-definer opal/leader-keys
:keymaps '(normal insert visual emacs)
:prefix "SPC"
:global-prefix "C-SPC")
;; Define Keybindings (potentially move into own file)
(opal/leader-keys
;; Leader-map
";" #'pp-eval-expression ;; Eval expression
":" #'execute-extended-command ;; Eq to M-x
"u" #'universal-argument ;; Universal argument
"w" #'evil-window-map ;; Window functions
"." #'find-file ;; Find file (opens in mini-buffer)
"," #'consult-buffer ;; Switch to buffer
"<" #'switch-to-buffer ;; Switch to non-perspective.el minibuffer
"s" #'consult-line
"p" #'projectile-command-map
"l" #'lsp-map
;; Magit
"gg" #'magit-status
"gi" #'magit-init
"gc" #'magit-clone
;; Workspaces
"bi" #'persp-ibuffer
"bl" #'persp-next
"bh" #'persp-prev
"br" #'persp-rename
"bD" #'persp-remove-buffer
"bd" #'kill-buffer
;; Terminal/Shell
"tt" #'vterm
"te" #'eshell
;; Org
;; Babel
"obt" #'org-babel-tangle
;; Gen
"ol" #'org-insert-link
"or" #'org-reload
;; Agenda
"oa" #'org-agenda
;; Eval
"eb" #'eval-buffer
"er" #'eval-region
"ef" #'eval-defun
"el" #'eval-last-sexp
;; Describe
"df" #'describe-function
"dv" #'describe-variable
"ds" #'describe-symbol
"dk" #'describe-key
"dp" #'describe-package))
(use-package evil
:straight t
:init
(setq evil-want-integration t)
(setq evil-want-keybinding nil)
(setq evil-want-C-u-scroll t)
(setq evil-want-C-i-jump nil)
(setq evil-respect-visual-line-mode t)
:config
(evil-mode 1)
(define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)
(define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join)
;; Use visual line motions even outside of visual-line-mode buffers
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)
(evil-set-initial-state 'messages-buffer-mode 'normal)
(evil-set-initial-state 'dashboard-mode 'normal))
(use-package evil-collection
:straight t
:after evil
:config
(evil-collection-init))
;; Enable vertico
(use-package vertico
:straight t
:bind
(:map vertico-map
("C-j" . vertico-next)
("C-k" . vertico-previous))
:init
(vertico-mode)
(setq vertico-scroll-margin 0) ;; Scroll margin
(setq vertico-count 10) ;; Candidates
(setq vertico-cycle t)) ;; Enable cycling
;; (use-package ivy
;; :straight t
;; :bind (("C-s" . 'swiper)
;; :map ivy-minibuffer-map
;; ("TAB" . ivy-alt-done)
;; ("C-l" . ivy-alt-done)
;; ("C-j" . ivy-next-line)
;; ("C-k" . ivy-previous-line)
;; :map ivy-switch-buffer-map
;; ("C-k" . ivy-previous-line)
;; ("C-l" . ivy-done)
;; ("C-d" . ivy-reverse-i-search-kill))
;; :config
;; (ivy-mode 1))
;; (use-package ivy-rich
;; :straight t
;; :after ivy
;; :init (ivy-rich-mode 1))
(use-package orderless
:straight t
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles partial-completion)))))
(use-package savehist
:straight t
:init
(savehist-mode))
(use-package consult
:straight t
:defer t
:config
(setq
consult-narrow-key "<"
consult-line-numbers-widen t
consult-async-min-input 2
consult-async-refresh-delay 0.15
consult-async-input-throttle 0.2
consult-async-input-debounce 0.1))
;; (use-package counsel
;; :straight t
;; :bind
;; (("C-M-j" . 'counsel-switch-buffer)
;; :map minibuffer-local-map
;; ("C-r" . 'counsel-minibuffer-history))
;; :custom
;; (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
;; :config
;; (counsel-mode 1))
(use-package marginalia
:straight t
:bind (("M-A" . marginalia-cycle)
:map minibuffer-local-map
("M-A" . marginalia-cycle))
:init
(marginalia-mode))
(use-package company
:straight t
:commands (company-complete-common
company-complete-common-or-cycle
company-manual-begin
company-grab-line)
:init
(setq company-minimum-prefix-length 2
company-tooltip-limit 14
company-tooltip-align-annotations t
company-require-match 'never
company-global-modes
'(not erc-mode
message-mode
help-mode
vterm-mode)
company-frontends
'(company-pseudo-tooltip-frontend ; always show candidates in overlay tooltip
company-echo-metadata-frontend) ; show selected candidate docs in echo area
company-backends '(company-capf)
company-auto-commit nil
company-dabbrev-other-buffers nil
company-dabbrev-ignore-case nil
company-dabbrev-downcase nil))
(use-package perspective
:straight t
:config
(persp-mode))
(use-package bufler :straight t)
(use-package winner
:straight t)
(use-package dired
:init
(setq dired-auto-revert-buffer t
dired-dwim-target t
dired-hide-details-hide-symlink-targets nil
dired-recursive-copies 'always
dired-recursive-deletes 'top
dired-create-destination-dirs 'ask))
(use-package dired-rsync
:straight t
:general (dired-mode-map "C-c C-r" #'dired-rsync))
(use-package all-the-icons-dired :straight t)
(use-package dired-single :straight t)
(use-package dired-collapse :straight t)
;; Make pretty colors!
(use-package dired-rainbow
:straight t
:after dired
:config
(dired-rainbow-define-chmod directory "#6cb2eb" "d.*")
(dired-rainbow-define html "#eb5286" ("css" "less" "sass" "scss" "htm" "html" "jhtm" "mht" "eml" "mustache" "xhtml"))
(dired-rainbow-define xml "#f2d024" ("xml" "xsd" "xsl" "xslt" "wsdl" "bib" "json" "msg" "pgn" "rss" "yaml" "yml" "rdata"))
(dired-rainbow-define document "#9561e2" ("docm" "doc" "docx" "odb" "odt" "pdb" "pdf" "ps" "rtf" "djvu" "epub" "odp" "ppt" "pptx"))
(dired-rainbow-define markdown "#ffed4a" ("org" "etx" "info" "markdown" "md" "mkd" "nfo" "pod" "rst" "tex" "textfile" "txt"))
(dired-rainbow-define database "#6574cd" ("xlsx" "xls" "csv" "accdb" "db" "mdb" "sqlite" "nc"))
(dired-rainbow-define media "#de751f" ("mp3" "mp4" "mkv" "MP3" "MP4" "avi" "mpeg" "mpg" "flv" "ogg" "mov" "mid" "midi" "wav" "aiff" "flac"))
(dired-rainbow-define image "#f66d9b" ("tiff" "tif" "cdr" "gif" "ico" "jpeg" "jpg" "png" "psd" "eps" "svg"))
(dired-rainbow-define log "#c17d11" ("log"))
(dired-rainbow-define shell "#f6993f" ("awk" "bash" "bat" "sed" "sh" "zsh" "vim"))
(dired-rainbow-define interpreted "#38c172" ("py" "ipynb" "rb" "pl" "t" "msql" "mysql" "pgsql" "sql" "r" "clj" "cljs" "scala" "js"))
(dired-rainbow-define compiled "#4dc0b5" ("asm" "cl" "lisp" "el" "c" "h" "c++" "h++" "hpp" "hxx" "m" "cc" "cs" "cp" "cpp" "go" "f" "for" "ftn" "f90" "f95" "f03" "f08" "s" "rs" "hi" "hs" "pyc" ".java"))
(dired-rainbow-define executable "#8cc4ff" ("exe" "msi"))
(dired-rainbow-define compressed "#51d88a" ("7z" "zip" "bz2" "tgz" "txz" "gz" "xz" "z" "Z" "jar" "war" "ear" "rar" "sar" "xpi" "apk" "xz" "tar"))
(dired-rainbow-define packaged "#faad63" ("deb" "rpm" "apk" "jad" "jar" "cab" "pak" "pk3" "vdf" "vpk" "bsp"))
(dired-rainbow-define encrypted "#ffed4a" ("gpg" "pgp" "asc" "bfe" "enc" "signature" "sig" "p12" "pem"))
(dired-rainbow-define fonts "#6cb2eb" ("afm" "fon" "fnt" "pfb" "pfm" "ttf" "otf"))
(dired-rainbow-define partition "#e3342f" ("dmg" "iso" "bin" "nrg" "qcow" "toast" "vcd" "vmdk" "bak"))
(dired-rainbow-define vc "#0074d9" ("git" "gitignore" "gitattributes" "gitmodules"))
(dired-rainbow-define-chmod executable-unix "#38c172" "-.*x.*"))
(defun opal/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))
(defun opal/org-mode-setup ()
(org-indent-mode)
(variable-pitch-mode 1)
(visual-line-mode 1)
(setq org-startup-folded t))
(use-package org
:straight t
:commands (org-capture org-agenda)
:hook (org-mode . opal/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)))
;; Tell Org to stop indenting inside of org source blocks.
(setq org-edit-src-content-indentation 0)
;; Set org agenda dir
(setq org-directory "~/Org/")
;; Open links in browser
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "firefox")
;; Init org font setup
(opal/org-font-setup))
(use-package org-bullets
:straight t
:after org
:hook (org-mode . org-bullets-mode)
:custom
(org-bullets-bullet-list '("" "" "" "" "" "" "")))
(use-package org-make-toc :straight t)
(defun opal/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
:straight t
:hook (org-mode . opal/org-mode-visual-fill))
;; Load languages for babel code blocks.
(with-eval-after-load 'org
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(lisp . t)))
(push '("conf-unix" . conf-unix) org-src-lang-modes))
;; Set geiser default language
(setq geiser-default-implementation '(guile))
(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 '("scm" . "src scheme"))
(add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
(use-package flycheck :straight t)
(setq-default tab-width 2) ;; Set tab indent to 2
(setq-default evil-shift-width tab-width) ;; Ensure evil matches tab-width
(setq-default indent-tabs-mode nil) ;; Use spaces instead of tabs
;; Clean up whitespace
(use-package ws-butler :straight t)
(use-package rainbow-delimiters
:straight t
:init
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
(add-hook 'org-mode-hook #'rainbow-delimiters-mode))
(use-package rainbow-mode :straight t)
(use-package magit
:straight t)
(use-package projectile
:straight t
:config
(projectile-mode)
:init
(when (file-directory-p "~/Projects/Code")
(setq projectile-project-search-path '("~/Projects/Code")))
(setq projectile-switch-project-action #'projectile-dired))
(use-package lsp-mode
:straight t
:commands (lsp lsp-deferred)
:config
(lsp-enable-which-key-integration t))
(use-package lsp-ui
:straight t
:hook (lsp-mode . lsp-ui-mode)
:custom
(lsp-ui-doc-position 'bottom))
(use-package python-mode
:ensure t
:hook (python-mode . lsp-deferred))
(use-package parinfer
:straight t
:init
(progn
(setq parinfer-extensions
'(defaults
pretty-parens
evil))
(add-hook 'prog-mode-hook #'parinfer-mode)))
(defvar inferior-lisp-program "sbcl")
(use-package sly :straight t)
(use-package geiser
:straight t
:ensure t
:custom
(setq geiser-guile-binary "guile")
(setq geiser-active-implementations '(guile)))
(use-package yasnippet
:straight t
:hook (prog-mode . yas-minor-mode)
:config
(yas-reload-all))
(use-package eshell
:straight t
:config
;; Save command history when commands are entered
(add-hook 'eshell-pre-command-hook 'eshell-save-some-history)
;; Truncate buffer for performance
(add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
(evil-normalize-keymaps)
(setq eshell-banner-message
'(format "%s %s\n"
(propertize (format " %s " (string-trim (buffer-name)))
'face 'mode-line-highlight)
(propertize (current-time-string)
'face 'font-lock-keyword-face)))
(setq eshell-scroll-to-bottom-on-input 'all
eshell-scroll-to-bottom-on-output 'all
eshell-kill-processes-on-exit t
eshell-hist-ignoredups t
eshell-prompt-regexp "^.* λ "
;; em-glob
eshell-history-size 10000
eshell-buffer-maximum-lines 10000
eshell-scroll-to-bottom-on-input t)
(with-eval-after-load 'esh-opt
(setq eshell-destroy-buffer-when-process-dies t)
(setq eshell-visual-commands '("htop" "zsh" "vim"))))
(use-package vterm
:straight t
:commands vterm
:config
(setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") ;; Terminal prompt
(setq vterm-shell "zsh")
(setq vterm-max-scrollback 10000))
(use-package pdf-tools
:straight t
:init
(pdf-tools-install))
;; (use-package mu4e
;; :straight t
;; :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))))
;; (use-package erc
;; :straight t
;; (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))
(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.
'(safe-local-variable-values
'((eval modify-syntax-entry 43 "'")
(eval modify-syntax-entry 36 "'")
(eval modify-syntax-entry 126 "'")
(eval let
((root-dir-unexpanded
(locate-dominating-file default-directory ".dir-locals.el")))
(when root-dir-unexpanded
(let*
((root-dir
(expand-file-name root-dir-unexpanded))
(root-dir*
(directory-file-name root-dir)))
(unless
(boundp 'geiser-guile-load-path)
(defvar geiser-guile-load-path 'nil))
(make-local-variable 'geiser-guile-load-path)
(require 'cl-lib)
(cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal))))
(eval setq-local guix-directory
(locate-dominating-file default-directory ".dir-locals.el")))))
(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.
)

View File

@@ -1,2 +0,0 @@
clear lock
keycode 66 = Escape Caps_Lock NoSymbol NoSymbol

View File

@@ -1,92 +0,0 @@
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(host-name "borges")
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(users (cons* (user-account
(name "opal")
(comment "opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel"
"netdev"
"audio"
"video")))
%base-user-accounts))
(packages
(append
(list
(specification->package "git")
(specification->package "wl-clipboard")
(specification->package "vim")
(specification->package "nss-certs")
(specification->package "stow")
(specification->package "exfat-utils")
(specification->package "emacs")
(specification->package "emacs-exwm")
(specification->package "sway")
(specification->package "swaybg")
(specification->package "swaylock")
(specification->package "swayidle")
(specification->package "polybar")
(specification->package "nyxt")
(specification->package "dmenu")
(specification->package "bluez")
(specification->package "bluez-alsa")
(specification->package "pulseaudio")
(specification->package "keepassxc")
(specification->package "font-fira-mono")
(specification->package "font-fira-sans")
(specification->package "font-fira-code")
(specification->package "gcc-toolchain"))
%base-packages))
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "40aa6387-e935-4f70-8e7d-1975678a5a32"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "1C3B-10F5" 'fat32))
(type "vfat"))
%base-file-systems)))

View File

@@ -1,88 +0,0 @@
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(host-name "work")
(users (cons* (user-account
(name "opal")
(comment "Opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel" "netdev" "audio" "video")))
%base-user-accounts))
(packages
(append
(list
(specification->package "git")
(specification->package "wl-clipboard")
(specification->package "vim")
(specification->package "nss-certs")
(specification->package "stow")
(specification->package "exfat-utils")
(specification->package "emacs")
(specification->package "emacs-exwm")
(specification->package "sway")
(specification->package "swaybg")
(specification->package "swaylock")
(specification->package "swayidle")
(specification->package "polybar")
(specification->package "nyxt")
(specification->package "dmenu")
(specification->package "bluez")
(specification->package "bluez-alsa")
(specification->package "pulseaudio")
(specification->package "keepassxc")
(specification->package "font-fira-mono")
(specification->package "font-fira-sans")
(specification->package "font-fira-code")
(specification->package "gcc-toolchain"))
%base-packages))
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "15B3-5DE5" 'fat32))
(type "vfat"))
%base-file-systems)))

View File

@@ -1,72 +0,0 @@
;; This is an operating system configuration generated
;; by the graphical installer.
(use-modules (gnu)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(host-name "work")
(users (cons* (user-account
(name "opal")
(comment "Opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel" "netdev" "audio" "video")))
%base-user-accounts))
(packages
(append
(list
(specification->package "git")
(specification->package "vim")
(specification->package "nss-certs")
(specification->package "stow")
(specification->package "exfat-utils")
(specification->package "emacs")
(specification->package "bluez")
(specification->package "bluez-alsa")
(specification->package "pulseaudio")
(specification->package "nyxt")
(specification->package "keepassxc"))
%base-packages))
(services
(append
(list (service gnome-desktop-service-type)
(service cups-service-type)
(set-xorg-configuration
(xorg-configuration
(keyboard-layout keyboard-layout))))
%desktop-services))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "15B3-5DE5" 'fat32))
(type "vfat"))
%base-file-systems)))

View File

@@ -1,217 +0,0 @@
# Default config for sway
#
# Copy this to ~/.config/sway/config and edit it to your liking.
#
# Read `man 5 sway` for a complete reference.
### Variables
#
# Logo key. Use Mod1 for Alt.
set $mod Mod4
# Home row direction keys, like vim
set $left h
set $down j
set $up k
set $right l
# Your preferred terminal emulator
set $term alacritty
# Your preferred application launcher
# Note: pass the final command to swaymsg so that the resulting window can be opened
# on the original workspace that the command was run on.
set $menu dmenu_path | dmenu | xargs swaymsg exec --
### Output configuration
#
# Default wallpaper (more resolutions are available in /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/)
output * bg /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/Sway_Wallpaper_Blue_1920x1080.png fill
#
# Example configuration:
#
# output HDMI-A-1 resolution 1920x1080 position 1920,0
#
# You can get the names of your outputs by running: swaymsg -t get_outputs
### Idle configuration
#
# Example configuration:
#
# exec swayidle -w \
# timeout 300 'swaylock -f -c 000000' \
# timeout 600 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
# before-sleep 'swaylock -f -c 000000'
#
# This will lock your screen after 300 seconds of inactivity, then turn off
# your displays after another 300 seconds, and turn your screens back on when
# resumed. It will also lock your screen before your computer goes to sleep.
### Input configuration
#
# Example configuration:
#
# input "2:14:SynPS/2_Synaptics_TouchPad" {
# dwt enabled
# tap enabled
# natural_scroll enabled
# middle_emulation enabled
# }
#
# You can get the names of your inputs by running: swaymsg -t get_inputs
# Read `man 5 sway-input` for more information about this section.
### Key bindings
#
# Basics:
#
# Start a terminal
bindsym $mod+Return exec $term
# Kill focused window
bindsym $mod+Shift+q kill
# Start your launcher
bindsym $mod+d exec $menu
# Drag floating windows by holding down $mod and left mouse button.
# Resize them with right mouse button + $mod.
# Despite the name, also works for non-floating windows.
# Change normal to inverse to use left mouse button for resizing and right
# mouse button for dragging.
floating_modifier $mod normal
# Reload the configuration file
bindsym $mod+Shift+c reload
# Exit sway (logs you out of your Wayland session)
bindsym $mod+Shift+e exec swaynag -t warning -m 'You pressed the exit shortcut. Do you really want to exit sway? This will end your Wayland session.' -b 'Yes, exit sway' 'swaymsg exit'
#
# Moving around:
#
# Move your focus around
bindsym $mod+$left focus left
bindsym $mod+$down focus down
bindsym $mod+$up focus up
bindsym $mod+$right focus right
# Or use $mod+[up|down|left|right]
bindsym $mod+Left focus left
bindsym $mod+Down focus down
bindsym $mod+Up focus up
bindsym $mod+Right focus right
# Move the focused window with the same, but add Shift
bindsym $mod+Shift+$left move left
bindsym $mod+Shift+$down move down
bindsym $mod+Shift+$up move up
bindsym $mod+Shift+$right move right
# Ditto, with arrow keys
bindsym $mod+Shift+Left move left
bindsym $mod+Shift+Down move down
bindsym $mod+Shift+Up move up
bindsym $mod+Shift+Right move right
#
# Workspaces:
#
# Switch to workspace
bindsym $mod+1 workspace number 1
bindsym $mod+2 workspace number 2
bindsym $mod+3 workspace number 3
bindsym $mod+4 workspace number 4
bindsym $mod+5 workspace number 5
bindsym $mod+6 workspace number 6
bindsym $mod+7 workspace number 7
bindsym $mod+8 workspace number 8
bindsym $mod+9 workspace number 9
bindsym $mod+0 workspace number 10
# Move focused container to workspace
bindsym $mod+Shift+1 move container to workspace number 1
bindsym $mod+Shift+2 move container to workspace number 2
bindsym $mod+Shift+3 move container to workspace number 3
bindsym $mod+Shift+4 move container to workspace number 4
bindsym $mod+Shift+5 move container to workspace number 5
bindsym $mod+Shift+6 move container to workspace number 6
bindsym $mod+Shift+7 move container to workspace number 7
bindsym $mod+Shift+8 move container to workspace number 8
bindsym $mod+Shift+9 move container to workspace number 9
bindsym $mod+Shift+0 move container to workspace number 10
# Note: workspaces can have any name you want, not just numbers.
# We just use 1-10 as the default.
#
# Layout stuff:
#
# You can "split" the current object of your focus with
# $mod+b or $mod+v, for horizontal and vertical splits
# respectively.
bindsym $mod+b splith
bindsym $mod+v splitv
# Switch the current container between different layout styles
bindsym $mod+s layout stacking
bindsym $mod+w layout tabbed
bindsym $mod+e layout toggle split
# Make the current focus fullscreen
bindsym $mod+f fullscreen
# Toggle the current focus between tiling and floating mode
bindsym $mod+Shift+space floating toggle
# Swap focus between the tiling area and the floating area
bindsym $mod+space focus mode_toggle
# Move focus to the parent container
bindsym $mod+a focus parent
#
# Scratchpad:
#
# Sway has a "scratchpad", which is a bag of holding for windows.
# You can send windows there and get them back later.
# Move the currently focused window to the scratchpad
bindsym $mod+Shift+minus move scratchpad
# Show the next scratchpad window or hide the focused scratchpad window.
# If there are multiple scratchpad windows, this command cycles through them.
bindsym $mod+minus scratchpad show
#
# Resizing containers:
#
mode "resize" {
# left will shrink the containers width
# right will grow the containers width
# up will shrink the containers height
# down will grow the containers height
bindsym $left resize shrink width 10px
bindsym $down resize grow height 10px
bindsym $up resize shrink height 10px
bindsym $right resize grow width 10px
# Ditto, with arrow keys
bindsym Left resize shrink width 10px
bindsym Down resize grow height 10px
bindsym Up resize shrink height 10px
bindsym Right resize grow width 10px
# Return to default mode
bindsym Return mode "default"
bindsym Escape mode "default"
}
bindsym $mod+r mode "resize"
#
# Status Bar:
#
# Read `man 5 sway-bar` for more information about this section.
bar {
position top
# When the status_command prints a new line to stdout, swaybar updates.
# The default just shows the current date and time.
status_command while date +'%Y-%m-%d %l:%M:%S %p'; do sleep 1; done
colors {
statusline #ffffff
background #323232
inactive_workspace #32323200 #32323200 #5c5c5c
}
}
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*

View File

@@ -1,15 +0,0 @@
# Each new shell auto-imports all environment variables.
# Hence exporting needs to be done only once.
# Also, all non-login shells are descendants of a login shell.
# Ergo, exports need to be done in the login shell only.
# Hence, we put exports in .zprofile
# Only vars needed by external commands should be exported.
# Note that you can export vars w/out assigning a value to them.
export XDG_CONFIG_HOME=~/.config
export XDG_CACHE_HOME=~/.cache
export XDG_DATA_HOME=~/.local/share
export XDG_STATE_HOME=~/.config/zsh
export EDITOR=nvim
export VISUAL=nvim
GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"

View File

@@ -1,402 +0,0 @@
: 1631168625:0;vim .zshrc
: 1631169669:0;wal ~/Downloads/grain.jpg
: 1631169685:0;wal -b /home/ry/Downloads/grain.jpg
: 1631169702:0;man wal
: 1631169723:0;wal --backend
: 1631169743:0;wal -i /home/ry/Downloads/grain.jpg
: 1631169806:0;ls
: 1631169832:0;mkdir ~/.config/alacritty
: 1631169849:0;vim ~/.config/alacritty/alacritty.yml
: 1631170200:0;wal -i ~/Downloads/grain.jpg
: 1631170207:0;wal -i ~/Downloads/grain.jpg -b
: 1631170222:0;wal -b -i ~/Downloads/grain.jpg
: 1631170346:0;vim ~/.config/awesome/rc.lua
: 1631170969:0;mkdir ~/.config/awesome/themes
: 1631170996:0;cp -R /usr/share/awesome/themes/* ~/.config/awesome/themes
: 1631171002:0;ls
: 1631171003:0;cd .config
: 1631171004:0;ls
: 1631171006:0;cd awesome
: 1631171006:0;ls
: 1631171009:0;vim rc.lua
: 1631171201:0;vim ~/.config/awesome/themes/default
: 1631171246:0;ls
: 1631171255:0;rm -r themes
: 1631171255:0;ls
: 1631171269:0;vim rc.lua
: 1631171553:0;sudo pacman -S inconsolata
: 1631171572:0;sudo pacman -Ss inconsolata
: 1631171580:0;sudo pacman -S ttf-inconsolata
: 1631171776:0;vim rc.lua
: 1631171957:0;sudo pacman -S zip unzip
: 1631171977:0;cd Downloads
: 1631171980:0;unzip Hack-v3.003-ttf.zip
: 1631171981:0;ls
: 1631171987:0;cd ttf
: 1631171988:0;ls
: 1631171989:0;cd ..
: 1631171990:0;ls
: 1631172033:0;cp ttf/* /usr/share/fonts
: 1631172085:0;mv ttf hack
: 1631172096:0;sudo cp hack /usr/share/fonts/
: 1631172104:0;sudo cp -r hack /usr/share/fonts/
: 1631172109:0;ls
: 1631172111:0;cd hack
: 1631172112:0;ls
: 1631172113:0;cd ..
: 1631172217:0;fc-cache -f -v
: 1631172234:0;fc-list | grep "Hack"
: 1631172291:0;vim ~/.config/alacritty/alacritty.yml
: 1631173180:0;sudo pacman -S picom
: 1631173359:0;vim /usr/share/awesome/themes/default/theme.lua
: 1631173453:0;vim rc.lua
: 1631173502:0;vim /usr/share/awesome/themes/default/theme.lua
: 1631173517:0;sudo vim /usr/share/awesome/themes/default/theme.lua
: 1631173575:0;sudo -i
: 1631173807:0;pacman -S --needed lightdm-webkit2-greeter lightdm-webkit-theme-litarvan
: 1631173810:0;sudo pacman -S --needed lightdm-webkit2-greeter lightdm-webkit-theme-litarvan
: 1631173827:0;sudo vim /etc/lightdm/lightdm.conf
: 1631173861:0;sudo vim /etc/lightdm/lightdm-webkit2-greeter.conf
: 1631173882:0;reboot
: 1631174209:0;sudo -i
: 1631174291:0;mv ~/Downloads/grain.jpg ~/Pictures/grain.jpg
: 1631174307:0;vim ~/.config/awesome/rc.lua
: 1631174714:0;man shutdown
: 1631174741:0;man poweroff
: 1631174762:0;poweroff -f
: 1631174765:0;sudo poweroff -f
: 1631203235:0;ls
: 1631203239:0;ls -la
: 1631203437:0;ls
: 1631203442:0;cd Downloads
: 1631203442:0;ls
: 1631203447:0;unzip Attachments-asd.zip
: 1631203449:0;ls
: 1631203459:0;mkdir ~/.ssh
: 1631203463:0;mv config ~/.ssh
: 1631203469:0;mv id_rsa ~/.ssh
: 1631203478:0;mv id_rsa.pub ~/.ssh/
: 1631203487:0;mv known_hosts ~/.ssh
: 1631203490:0;ssh-add
: 1631203502:0;chmod 600 ~/.ssh/id_rsa
: 1631203505:0;chmod 600 ~/.ssh/id_rsa.pub
: 1631203508:0;ssh-add
: 1631203518:0;ssh mail
: 1631204194:0;ls
: 1631205222:0;ls -la
: 1631205240:0;sudo vim /etc/lightdm/lightdm.conf
: 1631205263:0;reboot
: 1631205489:0;ls
: 1631205495:0;ls -la
: 1631205701:0;uname -a
: 1631205719:0;uname
: 1631205722:0;name -a
: 1631205725:0;uname -a
: 1631206735:0;vim ~/.config/awesome/rc.lua
: 1631206901:0;ssh mail
: 1631207021:0;sudo pacman -S terminfo
: 1631207026:0;terminfo
: 1631207140:0;vim ~/.config/alacritty/alacritty.yml
: 1631207171:0;ssh mail
: 1631207341:0;vim ~/.zshrc
: 1631207398:0;vim ~/.config/alacritty/alacritty.yml
: 1631207419:0;ssh mail
: 1631207707:0;xflock4
: 1631208953:0;ssh mail
: 1631209463:0;ls -la /etc/lightdm
: 1631209504:0;sudo systemctl status lightdm
: 1631209564:0;sudo vim /etc/lightdm/lightdm.conf
: 1631210719:0;ssh mail
: 1631211283:0;ls
: 1631211284:0;ls -la
: 1631211293:0;cat .Xauthority
: 1631211299:0;cat .xsession-errors
: 1631211316:0;ls
: 1631211443:0;vim ~/.xprofile
: 1631211488:0;sudo -i
: 1631211817:0;ls
: 1631211820:0;vim ~/.xsession-errors
: 1631211833:0;vim ~/.Xsession
: 1631211958:0;which nitrogen
: 1631212118:0;lightdm --version
: 1631212155:0;vim ~/.config/awesome/rc.lua
: 1631213050:0;sudo pacman -Rs nitrogen
: 1631213259:0;vim ~/.config/awesome/rc.lua
: 1631213504:0;sudo -i
: 1631213545:0;ls
: 1631213547:0;cd .config
: 1631213547:0;ls
: 1631213552:0;cd awesome
: 1631213557:0;sudo chmod 644 default
: 1631213557:0;ls
: 1631213558:0;ls -la
: 1631213574:0;sudo chmod 744 default
: 1631213575:0;ls
: 1631213576:0;ls -la
: 1631213578:0;cd default
: 1631213578:0;ls
: 1631213587:0;sudo chown ry:ry default
: 1631213588:0;ls
: 1631213589:0;ls -la
: 1631213590:0;cd default
: 1631213591:0;ls
: 1631213592:0;ls -la
: 1631213600:0;sudo chown -r ry:ry default
: 1631213603:0;sudo chown -R ry:ry default
: 1631213609:0;sudo chown -R ry:ry ../default
: 1631213610:0;ls -la
: 1631213618:0;vim theme.lua
: 1631213715:0;vim ../rc.lua
: 1631213765:0;SSH MAIL
: 1631213767:0;ssh mail
: 1631214012:0;ls
: 1631214014:0;ls -la
: 1631214018:0;pwd
: 1631214068:0;ls
: 1631214073:0;vim theme.lua
: 1631214117:0;cd .config
: 1631214117:0;ls
: 1631214293:0;cd ..
: 1631214293:0;ls
: 1631214321:0;vim autorun.sh
: 1631214406:0;cp ~/Pictures/grain.jpg ~/.config/
: 1631214415:0;rm ~/.config/grain.jpg
: 1631214421:0;sudo pacman -S feh
: 1631214469:0;which wal
: 1631214660:0;wal -i ~/Pictures/grain.jpg
: 1631214675:0;sudo pacman -S imagemagick
: 1631214710:0;wal -i ~/Pictures/grain.jpg
: 1631214795:0;ls
: 1631214803:0;vim default/theme.lua
: 1631214822:0;vim rc.lua
: 1631215060:0;ls
: 1631215061:0;pwd
: 1631215077:0;mkdir themes
: 1631215082:0;mv default themes
: 1631215083:0;ls
: 1631215116:0;vim themes/default/theme.lua
: 1631215219:0;cp ~/Pictures/grain.jpg ~/.config/awesome/themes/default/pic.jpg
: 1631215475:0;ls ~/.config/awesome/themes/default/pic.jpg
: 1631215559:0;ls
: 1631215578:0;ls -la
: 1631215601:0;chmod -R 664 ~/.config
: 1631215612:0;ls -la
: 1631215614:0;cd ..
: 1631215615:0;ls -la
: 1631215616:0;cd
: 1631215617:0;ls -la
: 1631215633:0;sudo chmod -R 664 ~/.config
: 1631215647:0;ls
: 1631215649:0;cd .config
: 1631215650:0;ls
: 1631215651:0;ls -la
: 1631215666:0;sudo chmod -R 774 ~/.config
: 1631215773:0;~
: 1631215774:0;ls
: 1631215836:0;cd .config/awesome
: 1631215836:0;ls
: 1631215837:0;ls -la
: 1631215852:0;vim themes/default/theme.lua
: 1631216516:0;sudo pacman -Syyu
: 1631216552:0;vim /etc/pacman.conf
: 1631216635:0;ls
: 1631216643:0;vim ~/.config/user-dirs.locale
: 1631216648:0;vim ~/.config/user-dirs.dirs
: 1631216688:0;ls
: 1631216695:0;rm -r Desktop
: 1631216695:0;ls
: 1631216700:0;mv Documents docs
: 1631216707:0;mv Downloads dls
: 1631216708:0;ls
: 1631216715:0;mv Music music
: 1631216718:0;mv Pictures pics
: 1631216731:0;ls
: 1631216734:0;rm Public Templates
: 1631216738:0;rm -r Public Templates
: 1631216739:0;ls
: 1631216743:0;mv Videos vids
: 1631216743:0;ls
: 1631216803:0;cd scripts
: 1631216803:0;ls
: 1631216816:0;ls -la
: 1631216945:0;ls
: 1631216975:0;sudo pacman -S neovim
: 1631216988:0;ls
: 1631216991:0;neofetch
: 1631217001:0;ls
: 1631217034:0;cd ~/.config
: 1631217034:0;ls
: 1631217037:0;ls -la
: 1631217056:0;vim neofetch/config.conf
: 1631217261:0;ssh mail
: 1631218022:0;ls
: 1631218031:0;sudo vim /etc/pacman.conf
: 1631218049:0;sudo cp /etc/pacman.conf /etc/pacman.conf.bak
: 1631218053:0;ls
: 1631218057:0;vim /etc/pacman.conf
: 1631218083:0;sudo vim /etc/pacman.conf
: 1631218112:0;man pacman
: 1631218129:0;pacman -Q endeavor
: 1631218130:0;pacman -Q endeavor*
: 1631218133:0;pacman -Q
: 1631218186:0;pacman -S | tee ~/output.txt
: 1631218193:0;pacman -Q | tee ~/output.txt
: 1631218195:0;ls
: 1631218470:0;sudo pacman -Rs endeavoros-keyring endeavoros-mirrorlist endeavor-skel-xfce4 endeavoros-theming endeavoros-xfce4-terminal-colors eos-apps-info eos-bash-shared eos-hooks eos-log-tool eos-rankmirrors eos-translations eos-update-notifier
: 1631218515:0;pacman -Q endeavouros-keyring
: 1631218522:0;pacman -R endeavouros-keyring
: 1631218525:0;sudo pacman -R endeavouros-keyring
: 1631218533:0;sudo pacman -R endeavouros-mirrorlist
: 1631218548:0;sudo pacman -R endeavouros-skel-xfce4 endeavouros-theming endeavouros-xfce4-terminal-colors
: 1631218566:0;sudo pacman -R eos-bash-shared
: 1631218576:0;sudo pacman -R eos-log-tool
: 1631218580:0;sudo pacman -R eos-hooks
: 1631218585:0;sudo pacman -R eos-rankmirrors
: 1631218591:0;sudo pacman -R eos-apps-info
: 1631218596:0;sudo pacman -R eos-bash-shared
: 1631218601:0;sudo pacman -R eos-translations
: 1631218606:0;sudo pacman -R eos-update-notifier
: 1631218612:0;sudo pacman -R welcome
: 1631218622:0;sudo pacman -R endeavouros-skel-xfce4
: 1631218627:0;sudo pacman -R endeavouros-theming
: 1631218636:0;sudo pacman -R endeavouros-xfce4-terminal-colors
: 1631218640:0;sudo pacman -R endeavouros-theming
: 1631218648:0;sudo pacman -R eos-bash-shared
: 1631218655:0;sudo pacman -R reflector-simple
: 1631218658:0;sudo pacman -R eos-bash-shared
: 1631218661:0;sudo pacman -R endeavouros-theming
: 1631218678:0;sudo pacman -Syyu
: 1631218728:0;sudo pacman -Scc
: 1631218753:0;pacman -S filesystem
: 1631218756:0;sudo pacman -S filesystem
: 1631218763:0;sudo pacman -S grub
: 1631218775:0;vim /etc/default/grub
: 1631218794:0;sudo -i
: 1631219694:0;ssh mail
: 1631220256:0;sudo pacman -S zathura-pdf-mupdf
: 1631220336:0;ssh mail
: 1631223216:0;uname -r
: 1631223220:0;neofetch
: 1631223230:0;pacman -S lsb-release
: 1631223233:0;sudo pacman -S lsb-release
: 1631223240:0;neofetch
: 1631223251:0;ls
: 1631223253:0;cd bin
: 1631223253:0;ls
: 1631223319:0;vim ~/.config/user-dirs.dirs
: 1631223334:0;cd
: 1631223340:0;rm -rf Public Templates Desktop
: 1631223341:0;ls
: 1631223361:0;cd go
: 1631223361:0;ls
: 1631223362:0;cd ..
: 1631223363:0;rm go
: 1631223364:0;ls
: 1631223367:0;rm -r go
: 1631223367:0;ls
: 1631223370:0;rm output.txt
: 1631223371:0;ls
: 1631223379:0;vim ~/.config/user-dirs.dirs
: 1631223451:0;ls
: 1631223453:0;rm -r Desktop
: 1631223453:0;ls
: 1631223455:0;ls -la
: 1631223458:0;ls
: 1631224903:0;pkill lightdm
: 1631224906:0;sudo pkill lightdm
: 1631225001:0;pacman -Q | grep lightdm
: 1631225014:0;ls
: 1631225048:0;xdg-user-dirs-update
: 1631225056:0;rm -r Desktop Public Templates
: 1631225056:0;ls
: 1631225067:0;vim ~/.config/user-dirs.dirs
: 1631225082:0;ls
: 1631225977:0;cd .config
: 1631225977:0;ls
: 1631226648:0;git init
: 1631226679:0;ls
: 1631226683:0;vim .gitignore
: 1631226723:0;cd .config
: 1631226729:0;ls
: 1631226785:0;git add .
: 1631226788:0;git commit -m "first"
: 1631226803:0;git config --global user.email "rpem66@pm.me"
: 1631226825:0;git config --global user.name "Ry"
: 1631226826:0;ls
: 1631226830:0;git commit -m "first"
: 1631226835:0;ls
: 1631226854:0;git remote add origin http://git.tr909.sh/ry/dotfiles.git
: 1631226858:0;git push origin master
: 1631226882:0;cd .config
: 1631226885:0;vim .gitignore
: 1631226935:0;git add .
: 1631226939:0;git commit -m "first"
: 1631226942:0;git push origin master
: 1631227729:0;cd bin
: 1631227735:0;$ git clone --depth=1 https://github.com/adi1090x/rofi.git
: 1631227743:0;git clone --depth=1 https://github.com/adi1090x/rofi.git
: 1631227745:0;ls
: 1631227750:0;cd rofi
: 1631227750:0;ls
: 1631227759:0;chmod +x setup.sh
: 1631227762:0;./setup.sh
: 1631227876:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631227970:0;vim ~/.config/awesome/rc.lua
: 1631228023:0;ls
: 1631228028:0;cd ..
: 1631228029:0;ls
: 1631228032:0;cd ~/.config/rofi
: 1631228033:0;l
: 1631228034:0;ls
: 1631228040:0;./launchers/text/launcher.sh
: 1631228048:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228090:0;vim ~/.config/rofi/launchers/text/styles/colors.rasi
: 1631228146:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228157:0;vim ~/.config/awesome/rc.lua
: 1631228217:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228284:0;vim ~/.config/rofi/launchers/text/styles/colors.rasi
: 1631228353:0;;s
: 1631228354:0;ls
: 1631228355:0;cd ..
: 1631228355:0;ls
: 1631228362:0;git add .
: 1631228368:0;git commit -m "added rofi stuff"
: 1631228373:0;git push origin master
: 1631228433:0;ls
: 1631228527:0;sudo vim /etc/zsh/zshenv
: 1631228550:0;mkdir ~/.config/zsh
: 1631228566:0;mv ~/.zshrc ~/.config/zsh
: 1631228567:0;ls
: 1631228584:0;source ~/.config/zsh/.zshrc
: 1631228593:0;ls
: 1631228594:0;ls -la
: 1631228603:0;rm -rf EOS-greeter.conf
: 1631228607:0;rm EOS-initial-wallpaper.XFCE
: 1631228608:0;ls
: 1631228613:0;rm reflector-simple-free-params.txt
: 1631228623:0;sudo pacman -Rs neofetch
: 1631228625:0;ls
: 1631228629:0;rm -r neofetch
: 1631228629:0;ls
: 1631228632:0;cd ../bin
: 1631228633:0;ls
: 1631228647:0;git clone https://github.com/dylanaraps/pfetch.git
: 1631228650:0;ls
: 1631228652:0;cd pfetch
: 1631228652:0;ls
: 1631228655:0;cat README.md
: 1631228672:0;make pfetch
: 1631228674:0;ls
: 1631228677:0;sudo make install pfetch
: 1631228686:0;sudo make pfetch
: 1631228709:0;make install pfetch
: 1631228712:0;make install
: 1631228714:0;sudo make install
: 1631228715:0;ls
: 1631228716:0;pfetch
: 1631228726:0;vim ~/.config/zsh/.zshrc
: 1631228785:0;cd .config
: 1631228785:0;ls
: 1631228788:0;vim .gitignore
: 1631228808:0;ls
: 1631228818:0;mv ~/.zsh_history ~/.config/zsh/

View File

@@ -1,66 +0,0 @@
[[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
# --- zsh config --- #
export ZSH="$XDG_CONFIG_HOME/oh-my-zsh"
HISTFILE=$XDG_CONFIG_HOME/zsh/.history
ZSH_THEME="mrtazz"
DISABLE_AUTO_UPDATE="true"
ENABLE_CORRECTION="true"
plugins=(git)
# This has to stay below plugins.
source $ZSH/oh-my-zsh.sh
# --- user paths --- #
# scripts
export PATH=/home/ry/scripts:$PATH
# cron scripts
export PATH=/home/ry/scripts/cron-scripts:$PATH
# doom
export PATH=~/.config/emacs/bin:$PATH
# GNU Guix path
export PATH=/home/ry/.guix-profile/bin:$PATH
# --- locale --- #
export LANG=en_US.UTF-8
# --- autostart --- #
pfetch
# --- Functions --- #
# Move files to trash folder instead.
del () { mv "$@" $HOME/.local/share/Trash/files/.; }
# Make directory and CD into it.
mkcd () { mkdir -p -- "$1" && cd -P -- "$1" }
# --- Aliases --- #
# dnf
alias install="sudo dnf -y install"
alias remove="sudo dnf remove"
alias search="dnf search"
alias update="sudo dnf update"
# qol
alias vi="nvim"
alias vim="nvim"
alias unmount="umount"
# systemD
alias sr="sudo systemctl restart"
alias se="sudo systemctl enable"
alias sen="sudo systemctl enable --now"
alias sd="sudo systemctl disable"
# git
alias ga="git add"
alias gc="git commit -m"
alias gs="git status"
alias gd="git diff"
alias gm="git merge"
alias gp="git push"
alias gco="git checkout"
# config
alias zshrc="vim ~/dotfiles/.config/zsh/.zshrc"
alias zshrcsource="source ~/.config/zsh/.zshrc"
# firewalld
alias fcmd="firewall-cmd"

View File

@@ -1,3 +0,0 @@
: 1633197304:0;ls
: 1633197308:0;vim .zshrc
: 1633197317:0;zshrcsource

View File

@@ -1,21 +0,0 @@
{
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:profile:off": [ ],
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:profile:off": [ ],
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:profile:output:analog-stereo+input:mono-fallback": [ "analog-output-speaker" ],
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:profile:HiFi": [ ],
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:output:analog-output-speaker": { "mute": false, "volumes": [ 0.438993, 0.438993 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:output:[Out] Speaker": { "mute": true, "volumes": [ 0.551383, 0.551383 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:input:[In] Mic1": { "mute": true, "volumes": [ 0.399992, 0.399992, 0.399992, 0.399992 ], "channels": [ "FL", "FR", "RL", "RR" ], "latencyOffsetNsec": 0 },
"default.route.bluez_card.00_1B_66_BD_13_AA:profile:a2dp-sink-aac": [ "headphone-output" ],
"default.route.bluez_card.00_1B_66_BD_13_AA:output:headphone-output": { "mute": false, "volumes": [ 0.017544, 0.017544 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.bluez_card.B8_F6_53_95_E8_5B:profile:a2dp-sink-sbc": [ "speaker-output" ],
"default.route.bluez_card.B8_F6_53_95_E8_5B:output:speaker-output": { "mute": false, "volumes": [ 0.830590, 0.830590 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:output:[Out] Headphones": { "mute": false, "volumes": [ 0.031800, 0.031800 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:off": [ ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:off": [ ],
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:output:analog-stereo+input:mono-fallback": [ "analog-output-speaker" ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:output:analog-stereo+input:analog-stereo": [ ],
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:output:analog-output-speaker": { "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:output:iec958-stereo+input:mono-fallback": [ ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:output:hdmi-stereo+input:analog-stereo": [ ]
}

View File

@@ -1,14 +0,0 @@
{
"restore.stream.Output/Audio.application.name:Firefox": { "volume": 1.000000, "mute": false, "volumes": [ 0.984018, 0.984018 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.media.role:Notification": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:eSpeak": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ] },
"restore.stream.Output/Audio.application.name:speech-dispatcher-espeak-ng": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:speech-dispatcher-dummy": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:Tor Browser": { "volume": 1.000000, "mute": false, "volumes": [ 0.000000, 0.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Input/Audio.application.name:GNOME Settings": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:VirtualBoxVM": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:Chromium": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:WEBRTC VoiceEngine": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.media.role:Movie": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:IceCat": { "volume": 1.000000, "mute": false, "volumes": [ 0.585362, 0.585362 ], "channels": [ "FL", "FR" ] }
}

View File

@@ -1,7 +0,0 @@
\.git
^/.*\.org
LICENSE
README:
.gitignore
.gitmodules
archive/

View File

@@ -1,9 +0,0 @@
if [[ -z "$XDG_CONFIG_HOME" ]]
then
export XDG_CONFIG_HOME="$HOME/.config"
fi
if [[ -d "$XDG_CONFIG_HOME/zsh" ]]
then
export ZDOTDIR="$XDG_CONFIG_HOME/zsh"
fi

View File

@@ -1,809 +0,0 @@
#+TITLE: Desktop Configuration
This =.org= document is where I store all of my small time user-level configuration.
I prefer to use programs that I can extend the functionality of via configuration files and source code.
* Sway
#+begin_src shell :tangle ~/Dotfiles/.config/sway/config :mkdirp yes
### Variables
set $mod Mod4
# Home row direction keys, like vim
set $left h
set $down j
set $up k
set $right l
# Your preferred terminal emulator
set $term alacritty
# Application Launcher
set $menu dmenu_path | dmenu | xargs swaymsg exec --
# Window Borders
default_border none
# Gaps
gaps top 2
gaps inner 3
#gaps outer 3
# Hide mouse cursor after inactivity
seat * hide_cursor 4000
# Notifications
exec_always dunst
# Opacity
set $opacity 0.92
for_window [class=".*"] opacity $opacity
for_window [app_id=".*"] opacity $opacity
# Wlsunset (Night Light)
exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
### Output configuration
#
# Default wallpaper (more resolutions are available in /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/)
output * bg /home/opal/Dotfiles/guix-wallpaper.jpg stretch
#
# Example configuration:
#
output eDP-1 resolution 1920x1080 position 0,0
#
# You can get the names of your outputs by running: swaymsg -t get_outputs
### Idle configuration
# This will lock your screen after 300 seconds of inactivity, then turn off
# your displays after another 300 seconds, and turn your screens back on when
# resumed. It will also lock your screen before your computer goes to sleep.
exec swayidle -w \
timeout 300 'swaylock -f -c 000000' \
timeout 600 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
before-sleep 'swaylock -f -c 000000'
### Input configuration
#
# Example configuration:
#
# input "2:14:SynPS/2_Synaptics_TouchPad" {
# dwt enabled
# tap enabled
# natural_scroll enabled
# middle_emulation enabled
# }
#
# You can get the names of your inputs by running: swaymsg -t get_inputs
# Read `man 5 sway-input` for more information about this section.
### Key bindings
#
# Basics:
#
# Start a terminal
bindsym $mod+Return exec $term
# Kill focused window
bindsym $mod+Shift+q kill
# Lock SwayWM
# Doesn't work for some reason. Needs fix.
bindsym Control+Shift+l exec swaylock
# Start your launcher
bindsym $mod+d exec $menu
# Change normal to inverse to use left mouse button for resizing and right
# mouse button for dragging.
floating_modifier $mod normal
# Reload the configuration file
bindsym $mod+Shift+c reload
# Exit sway (logs you out of your Wayland session)
bindsym $mod+Shift+x exec swaymsg -r exit
# Moving around:
#
# Move your focus around
bindsym $mod+$left focus left
bindsym $mod+$down focus down
bindsym $mod+$up focus up
bindsym $mod+$right focus right
# Or use $mod+[up|down|left|right]
bindsym $mod+Left focus left
bindsym $mod+Down focus down
bindsym $mod+Up focus up
bindsym $mod+Right focus right
# Move the focused window with the same, but add Shift
bindsym $mod+Shift+$left move left
bindsym $mod+Shift+$down move down
bindsym $mod+Shift+$up move up
bindsym $mod+Shift+$right move right
# Ditto, with arrow keys
bindsym $mod+Shift+Left move left
bindsym $mod+Shift+Down move down
bindsym $mod+Shift+Up move up
bindsym $mod+Shift+Right move right
#
# Workspaces:
set $ws1 ۱
set $ws2 ۲
set $ws3 ۳
set $ws4 ۴
set $ws5 ۵
#
# Switch to workspace
bindsym $mod+1 workspace $ws1
bindsym $mod+2 workspace $ws2
bindsym $mod+3 workspace $ws3
bindsym $mod+4 workspace $ws4
bindsym $mod+5 workspace $ws5
# Move focused container to workspace
bindsym $mod+Shift+1 move container to workspace $ws1
bindsym $mod+Shift+2 move container to workspace $ws2
bindsym $mod+Shift+3 move container to workspace $ws3
bindsym $mod+Shift+4 move container to workspace $ws4
bindsym $mod+Shift+5 move container to workspace $ws5
# Note: workspaces can have any name you want, not just numbers.
# We just use 1-10 as the default.
#
# Layout stuff:
#
# You can "split" the current object of your focus with
# $mod+b or $mod+v, for horizontal and vertical splits
# respectively.
bindsym $mod+b splith
bindsym $mod+v splitv
# Switch the current container between different layout styles
bindsym $mod+s layout stacking
bindsym $mod+w layout tabbed
bindsym $mod+e layout toggle split
# Make the current focus fullscreen
bindsym $mod+f fullscreen
# Toggle the current focus between tiling and floating mode
bindsym $mod+Shift+space floating toggle
# Swap focus between the tiling area and the floating area
bindsym $mod+space focus mode_toggle
# Move focus to the parent container
bindsym $mod+a focus parent
#
# Scratchpad:
#
# Sway has a "scratchpad", which is a bag of holding for windows.
# You can send windows there and get them back later.
# Move the currently focused window to the scratchpad
bindsym $mod+Shift+minus move scratchpad
# Show the next scratchpad window or hide the focused scratchpad window.
# If there are multiple scratchpad windows, this command cycles through them.
bindsym $mod+minus scratchpad show
#
# Resizing containers:
#
mode "resize" {
# left will shrink the containers width
# right will grow the containers width
# up will shrink the containers height
# down will grow the containers height
bindsym $left resize shrink width 10px
bindsym $down resize grow height 10px
bindsym $up resize shrink height 10px
bindsym $right resize grow width 10px
# Ditto, with arrow keys
bindsym Left resize shrink width 10px
bindsym Down resize grow height 10px
bindsym Up resize shrink height 10px
bindsym Right resize grow width 10px
# Return to default mode
bindsym Return mode "default"
bindsym Escape mode "default"
}
bindsym $mod+r mode "resize"
#
# Status Bar:
#
# Read `man 5 sway-bar` for more information about this section.
bar {
position top
gaps 5
# When the status_command prints a new line to stdout, swaybar updates.
# The default just shows the current date and time.
status_command while date +'%Y-%m-%d %l:%M:%S %p'; do sleep 1; done
colors {
statusline #ffffff
background #323232
inactive_workspace #32323200 #32323200 #5c5c5c
}
}
input type:keyboard {
# Capslock key should work as escape key
# See /usr/share/X11/xkb/rules/xorg.lst for options
xkb_options caps:escape
repeat_delay 250
repeat_rate 45
}
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*
#+end_src
* Shell
Aside from using e-shell for quick command line usage, I mainly use vterm with Zsh. It's a bit of a complicated setup but allows for the maximum number of files possible to live in .config instead of littering my home directory.
** zshrc
#+begin_src shell :tangle ~/Dotfiles/.config/zsh/.zshrc :mkdirp yes
[[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
# --- zsh config --- #
export ZSH="$XDG_CONFIG_HOME/oh-my-zsh"
HISTFILE=$XDG_CONFIG_HOME/zsh/.history
ZSH_THEME="mrtazz"
DISABLE_AUTO_UPDATE="true"
ENABLE_CORRECTION="true"
plugins=(git)
# This has to stay below plugins.
source $ZSH/oh-my-zsh.sh
# --- user paths --- #
# scripts
export PATH=/home/ry/scripts:$PATH
# cron scripts
export PATH=/home/ry/scripts/cron-scripts:$PATH
# doom
export PATH=~/.config/emacs/bin:$PATH
# GNU Guix path
export PATH=/home/ry/.guix-profile/bin:$PATH
# --- locale --- #
export LANG=en_US.UTF-8
# --- autostart --- #
pfetch
# --- Functions --- #
# Move files to trash folder instead.
del () { mv "$@" $HOME/.local/share/Trash/files/.; }
# Make directory and CD into it.
mkcd () { mkdir -p -- "$1" && cd -P -- "$1" }
# --- Aliases --- #
# dnf
alias install="sudo dnf -y install"
alias remove="sudo dnf remove"
alias search="dnf search"
alias update="sudo dnf update"
# qol
alias vi="nvim"
alias vim="nvim"
alias unmount="umount"
# systemD
alias sr="sudo systemctl restart"
alias se="sudo systemctl enable"
alias sen="sudo systemctl enable --now"
alias sd="sudo systemctl disable"
# git
alias ga="git add"
alias gc="git commit -m"
alias gs="git status"
alias gd="git diff"
alias gm="git merge"
alias gp="git push"
alias gco="git checkout"
# config
alias zshrc="vim ~/dotfiles/.config/zsh/.zshrc"
alias zshrcsource="source ~/.config/zsh/.zshrc"
# firewalld
alias fcmd="firewall-cmd"
#+end_src
**
** zprofile
#+begin_src shell :tangle ~/Dotfiles/.config/zsh/.zprofile :mkdirp yes
# Each new shell auto-imports all environment variables.
# Hence exporting needs to be done only once.
# Also, all non-login shells are descendants of a login shell.
# Ergo, exports need to be done in the login shell only.
# Hence, we put exports in .zprofile
# Only vars needed by external commands should be exported.
# Note that you can export vars w/out assigning a value to them.
export XDG_CONFIG_HOME=~/.config
export XDG_CACHE_HOME=~/.cache
export XDG_DATA_HOME=~/.local/share
export XDG_STATE_HOME=~/.config/zsh
export EDITOR=nvim
export VISUAL=nvim
GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"
#+end_src
** zshenv
#+begin_src shell :tangle ~/Dotfiles/.zshenv :mkdirp yes
if [[ -z "$XDG_CONFIG_HOME" ]]
then
export XDG_CONFIG_HOME="$HOME/.config"
fi
if [[ -d "$XDG_CONFIG_HOME/zsh" ]]
then
export ZDOTDIR="$XDG_CONFIG_HOME/zsh"
fi
#+end_src
#+RESULTS:
* Terminal
#+begin_src sh :tangle ~/Dotfiles/.config/alacritty/alacritty.yml :mkdirp yes
# Env
env:
TERM: xterm-256color
# Font configuration
font:
normal:
family: inconsolata
style: Regular
bold:
family: inconsolata
style: Bold
italic:
family: inconsolata
style: Italic
bold_italic:
family: inconsolata
style: Bold Italic
size: 16
#+end_src
* Dunst
#+begin_src shell
[global]
### Display ###
# Which monitor should the notifications be displayed on.
monitor = 0
# Display notification on focused monitor. Possible modes are:
# mouse: follow mouse pointer
# keyboard: follow window with keyboard focus
# none: don't follow anything
#
# "keyboard" needs a window manager that exports the
# _NET_ACTIVE_WINDOW property.
# This should be the case for almost all modern window managers.
#
# If this option is set to mouse or keyboard, the monitor option
# will be ignored.
follow = none
### Geometry ###
# dynamic width from 0 to 300
# width = (0, 300)
# constant width of 300
width = 300
# The maximum height of a single notification, excluding the frame.
height = 300
# Position the notification in the top right corner
origin = top-right
# Offset from the origin
offset = 10x50
# Scale factor. It is auto-detected if value is 0.
scale = 0
# Maximum number of notification (0 means no limit)
notification_limit = 0
### Progress bar ###
# Turn on the progess bar. It appears when a progress hint is passed with
# for example dunstify -h int:value:12
progress_bar = true
# Set the progress bar height. This includes the frame, so make sure
# it's at least twice as big as the frame width.
progress_bar_height = 10
# Set the frame width of the progress bar
progress_bar_frame_width = 1
# Set the minimum width for the progress bar
progress_bar_min_width = 150
# Set the maximum width for the progress bar
progress_bar_max_width = 300
# Show how many messages are currently hidden (because of
# notification_limit).
indicate_hidden = yes
# The transparency of the window. Range: [0; 100].
# This option will only work if a compositing window manager is
# present (e.g. xcompmgr, compiz, etc.). (X11 only)
transparency = 0
# Draw a line of "separator_height" pixel height between two
# notifications.
# Set to 0 to disable.
separator_height = 2
# Padding between text and separator.
padding = 8
# Horizontal padding.
horizontal_padding = 8
# Padding between text and icon.
text_icon_padding = 0
# Defines width in pixels of frame around the notification window.
# Set to 0 to disable.
frame_width = 3
# Defines color of the frame around the notification window.
frame_color = "#aaaaaa"
# Define a color for the separator.
# possible values are:
# * auto: dunst tries to find a color fitting to the background;
# * foreground: use the same color as the foreground;
# * frame: use the same color as the frame;
# * anything else will be interpreted as a X color.
separator_color = frame
# Sort messages by urgency.
sort = yes
# Don't remove messages, if the user is idle (no mouse or keyboard input)
# for longer than idle_threshold seconds.
# Set to 0 to disable.
# A client can set the 'transient' hint to bypass this. See the rules
# section for how to disable this if necessary
# idle_threshold = 120
### Text ###
font = Monospace 8
# The spacing between lines. If the height is smaller than the
# font height, it will get raised to the font height.
line_height = 0
# Possible values are:
# full: Allow a small subset of html markup in notifications:
# <b>bold</b>
# <i>italic</i>
# <s>strikethrough</s>
# <u>underline</u>
#
# For a complete reference see
# <https://docs.gtk.org/Pango/pango_markup.html>.
#
# strip: This setting is provided for compatibility with some broken
# clients that send markup even though it's not enabled on the
# server. Dunst will try to strip the markup but the parsing is
# simplistic so using this option outside of matching rules for
# specific applications *IS GREATLY DISCOURAGED*.
#
# no: Disable markup parsing, incoming notifications will be treated as
# plain text. Dunst will not advertise that it has the body-markup
# capability if this is set as a global setting.
#
# It's important to note that markup inside the format option will be parsed
# regardless of what this is set to.
markup = full
# The format of the message. Possible variables are:
# %a appname
# %s summary
# %b body
# %i iconname (including its path)
# %I iconname (without its path)
# %p progress value if set ([ 0%] to [100%]) or nothing
# %n progress value if set without any extra characters
# %% Literal %
# Markup is allowed
format = "<b>%s</b>\n%b"
# Alignment of message text.
# Possible values are "left", "center" and "right".
alignment = left
# Vertical alignment of message text and icon.
# Possible values are "top", "center" and "bottom".
vertical_alignment = center
# Show age of message if message is older than show_age_threshold
# seconds.
# Set to -1 to disable.
show_age_threshold = 60
# Specify where to make an ellipsis in long lines.
# Possible values are "start", "middle" and "end".
ellipsize = middle
# Ignore newlines '\n' in notifications.
ignore_newline = no
# Stack together notifications with the same content
stack_duplicates = true
# Hide the count of stacked notifications with the same content
hide_duplicate_count = false
# Display indicators for URLs (U) and actions (A).
show_indicators = yes
### Icons ###
# Align icons left/right/off
icon_position = left
# Scale small icons up to this size, set to 0 to disable. Helpful
# for e.g. small files or high-dpi screens. In case of conflict,
# max_icon_size takes precedence over this.
min_icon_size = 0
# Scale larger icons down to this size, set to 0 to disable
max_icon_size = 32
# Paths to default icons.
icon_path = /usr/share/icons/gnome/16x16/status/:/usr/share/icons/gnome/16x16/devices/
### History ###
# Should a notification popped up from history be sticky or timeout
# as if it would normally do.
sticky_history = yes
# Maximum amount of notifications kept in history
history_length = 20
### Misc/Advanced ###
# dmenu path.
dmenu = /usr/bin/dmenu -p dunst:
# Browser for opening urls in context menu.
browser = /usr/bin/xdg-open
# Always run rule-defined scripts, even if the notification is suppressed
always_run_script = true
# Define the title of the windows spawned by dunst
title = Dunst
# Define the class of the windows spawned by dunst
class = Dunst
# Define the corner radius of the notification window
# in pixel size. If the radius is 0, you have no rounded
# corners.
# The radius will be automatically lowered if it exceeds half of the
# notification height to avoid clipping text and/or icons.
corner_radius = 0
# Ignore the dbus closeNotification message.
# Useful to enforce the timeout set by dunst configuration. Without this
# parameter, an application may close the notification sent before the
# user defined timeout.
ignore_dbusclose = false
### Wayland ###
# These settings are Wayland-specific. They have no effect when using X11
# Uncomment this if you want to let notications appear under fullscreen
# applications (default: overlay)
# layer = top
# Set this to true to use X11 output on Wayland.
force_xwayland = false
### Legacy
# Use the Xinerama extension instead of RandR for multi-monitor support.
# This setting is provided for compatibility with older nVidia drivers that
# do not support RandR and using it on systems that support RandR is highly
# discouraged.
#
# By enabling this setting dunst will not be able to detect when a monitor
# is connected or disconnected which might break follow mode if the screen
# layout changes.
force_xinerama = false
### mouse
# Defines list of actions for each mouse event
# Possible values are:
# * none: Don't do anything.
# * do_action: Invoke the action determined by the action_name rule. If there is no
# such action, open the context menu.
# * open_url: If the notification has exactly one url, open it. If there are multiple
# ones, open the context menu.
# * close_current: Close current notification.
# * close_all: Close all notifications.
# * context: Open context menu for the notification.
# * context_all: Open context menu for all notifications.
# These values can be strung together for each mouse event, and
# will be executed in sequence.
mouse_left_click = close_current
mouse_middle_click = do_action, close_current
mouse_right_click = close_all
# Experimental features that may or may not work correctly. Do not expect them
# to have a consistent behaviour across releases.
[experimental]
# Calculate the dpi to use on a per-monitor basis.
# If this setting is enabled the Xft.dpi value will be ignored and instead
# dunst will attempt to calculate an appropriate dpi value for each monitor
# using the resolution and physical size. This might be useful in setups
# where there are multiple screens with very different dpi values.
per_monitor_dpi = false
[urgency_low]
# IMPORTANT: colors have to be defined in quotation marks.
# Otherwise the "#" and following would be interpreted as a comment.
background = "#222222"
foreground = "#888888"
timeout = 10
# Icon for notifications with low urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_normal]
background = "#285577"
foreground = "#ffffff"
timeout = 10
# Icon for notifications with normal urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_critical]
background = "#900000"
foreground = "#ffffff"
frame_color = "#ff0000"
timeout = 0
# Icon for notifications with critical urgency, uncomment to enable
#default_icon = /path/to/icon
# Every section that isn't one of the above is interpreted as a rules to
# override settings for certain messages.
#
# Messages can be matched by
# appname (discouraged, see desktop_entry)
# body
# category
# desktop_entry
# icon
# match_transient
# msg_urgency
# stack_tag
# summary
#
# and you can override the
# background
# foreground
# format
# frame_color
# fullscreen
# new_icon
# set_stack_tag
# set_transient
# set_category
# timeout
# urgency
# skip_display
# history_ignore
# action_name
# word_wrap
# ellipsize
# alignment
#
# Shell-like globbing will get expanded.
#
# Instead of the appname filter, it's recommended to use the desktop_entry filter.
# GLib based applications export their desktop-entry name. In comparison to the appname,
# the desktop-entry won't get localized.
#
# SCRIPTING
# You can specify a script that gets run when the rule matches by
# setting the "script" option.
# The script will be called as follows:
# script appname summary body icon urgency
# where urgency can be "LOW", "NORMAL" or "CRITICAL".
#
# NOTE: It might be helpful to run dunst -print in a terminal in order
# to find fitting options for rules.
# Disable the transient hint so that idle_threshold cannot be bypassed from the
# client
#[transient_disable]
# match_transient = yes
# set_transient = no
#
# Make the handling of transient notifications more strict by making them not
# be placed in history.
#[transient_history_ignore]
# match_transient = yes
# history_ignore = yes
# fullscreen values
# show: show the notifications, regardless if there is a fullscreen window opened
# delay: displays the new notification, if there is no fullscreen window active
# If the notification is already drawn, it won't get undrawn.
# pushback: same as delay, but when switching into fullscreen, the notification will get
# withdrawn from screen again and will get delayed like a new notification
#[fullscreen_delay_everything]
# fullscreen = delay
#[fullscreen_show_critical]
# msg_urgency = critical
# fullscreen = show
#[espeak]
# summary = "*"
# script = dunst_espeak.sh
#[script-test]
# summary = "*script*"
# script = dunst_test.sh
#[ignore]
# # This notification will not be displayed
# summary = "foobar"
# skip_display = true
#[history-ignore]
# # This notification will not be saved in history
# summary = "foobar"
# history_ignore = yes
#[skip-display]
# # This notification will not be displayed, but will be included in the history
# summary = "foobar"
# skip_display = yes
#[signed_on]
# appname = Pidgin
# summary = "*signed on*"
# urgency = low
#
#[signed_off]
# appname = Pidgin
# summary = *signed off*
# urgency = low
#
#[says]
# appname = Pidgin
# summary = *says*
# urgency = critical
#
#[twitter]
# appname = Pidgin
# summary = *twitter.com*
# urgency = normal
#
#[stack-volumes]
# appname = "some_volume_notifiers"
# set_stack_tag = "volume"
#
# vim: ft=cfg
#+end_src

900
Emacs.org
View File

@@ -1,900 +0,0 @@
#+TITLE: Emacs Configuration
#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/.config/emacs/init.el :mkdirp yes :lexical yes
* Configuration
:PROPERTIES:
:TOC: :include all :depth 3 :force (depth) :ignore (this) :local (depth)
:END:
:CONTENTS:
- [[#configuration][Configuration]]
- [[#package-management][Package Management]]
- [[#general][General]]
- [[#theme][Theme]]
- [[#fonts][Fonts]]
- [[#keybinding][Keybinding]]
- [[#completion-frameworks][Completion Frameworks]]
- [[#buffer--workspaces][Buffer & Workspaces]]
- [[#file-browser][File Browser]]
- [[#org][Org]]
- [[#programmingeditor][Programming/Editor]]
- [[#tools][Tools]]
- [[#magit][Magit]]
- [[#eshell][Eshell]]
- [[#vterm][Vterm]]
- [[#pdf][PDF]]
- [[#e-mail][E-Mail]]
- [[#irc][IRC]]
:END:
** Package Management
I use [[https://github.com/raxod502/straight.el][straight.el]] for managing packages as it's fairly simple and robust. At some point I'd like to move to primarily using Guix for Emacs package management.
#+begin_src emacs-lisp
(setq package-enable-at-startup nil)
;; * Package Management with straight.el
(unless (featurep 'straight)
;; Bootstrap straight.el
(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)))
;; Use straight.el for use-package expressions
(straight-use-package 'use-package)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("org" . "https://orgmode.org/elpa/")
("elpa" . "https://elpa.gnu.org/packages/")))
#+end_src
** General
*** User Interface
#+begin_src emacs-lisp
(scroll-bar-mode -1) ;; Disable scroll bar
(tool-bar-mode -1) ;; Disable tool bar menu
(tooltip-mode -1) ;; Disable tooltips
(set-fringe-mode 10) ;; Disable fringe mode
(menu-bar-mode -1) ;; Disable menu bar
(global-display-line-numbers-mode t) ;; Display line numbers
(set-default 'truncate-lines nil) ;; Wrap lines at end of screen
(setq visible-bell t) ;; Visible flash to represent a bell
(setq x-select-enable-clipboard t) ;; Enable clipboard
(global-tab-line-mode -1) ;; Disable tab mode
(setq inhibit-startup-message t) ;; What it says
(setq global-auto-revert-non-file-buffers t)
(global-auto-revert-mode 1) ;; Revert all buffers on change
(setq custom-safe-themes t) ;; Treat themes as safe
;; Disable line mode for specific major/minor modes.
(dolist (mode '(org-mode-hook
vterm-mode-hook
term-mode-hook
eshell-mode-hook))
(add-hook mode (lambda () (display-line-numbers-mode 0))))
#+end_src
*** Transparency
#+begin_src emacs-lisp
(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
(add-to-list 'default-frame-alist '(alpha . (90 . 90)))
(set-frame-parameter (selected-frame) 'fullscreen 'maximized)
(add-to-list 'default-frame-alist '(fullscreen . maximized))
#+end_src
*** Modeline
Doom's modeline is excellent, and much less cluttered than the default Emacs modeline.
#+begin_src emacs-lisp
(use-package doom-modeline
:straight t
:init (doom-modeline-mode 1)
:custom ((doom-modeline-height 15)))
;; install all-the-icons when first loading the emacs conf
;; remember to run M-x all-the-icons-install-fonts
(use-package all-the-icons
:straight t
:if (display-graphic-p))
#+end_src
*** Keybinding display
Which-key is a package that displays the available commands granted that it's incomplete. For instance, if I type "SPC", I will see all of the commands available to the leader key.
#+begin_src emacs-lisp
(use-package which-key
:straight t
:defer 0
:diminish which-key-mode
:config
(which-key-mode)
(setq which-key-idle-delay 0.3))
#+end_src
*** Notifications
**** Alerts
Minimal alerts so I can see notifications from various programs in Emacs.
#+begin_src emacs-lisp
(use-package alert
:straight t
:config
(setq alert-default-style 'notification))
#+end_src
**** Disable Warnings
#+begin_src emacs-lisp
(setq large-file-warning-threshold nil) ;; Disables warnings for large files
(setq vc-follow-symlinks t) ;; Disables warnings for symlinks
#+end_src
*** Helpful Describe Functionality
Helpful.el is a package that reformats the describe-X functions to be much more informative.
#+begin_src emacs-lisp
(use-package helpful
:straight t
:commands (helpful-callable helpful-variable helpful-command helpful-key))
#+end_src
*** Autosaves
#+begin_src emacs-lisp
(use-package super-save
:straight t
:config
(super-save-mode +1))
;; Auto reverting Changed Files
(setq global-auto-revert-non-file-buffers nil)
(global-auto-revert-mode -1)
#+end_src
*** Pinentry
#+begin_src emacs-lisp
(use-package pinentry :straight t)
(setq epa-pinentry-mode 'loopback)
(pinentry-start)
#+end_src
*** Tramp
#+begin_src emacs-lisp
(setq tramp-default-method "ssh")
#+end_src
** Theme
#+begin_src emacs-lisp
;; (use-package modus-themes
;; :straight t
;; :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)
;; (modus-themes-load-themes)
;; :config
;; (modus-themes-load-vivendi)
;; :bind
;; ("<f5>" . modus-themes-toggle))
;; Doing some doom themes for a while.
(use-package doom-themes
:straight t
:init
(load-theme 'doom-Iosvkem))
#+end_src
** Fonts
#+begin_src emacs-lisp
(set-face-attribute 'default nil :font "Fira Mono" :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)
(use-package mixed-pitch
:straight t
:config
(add-hook 'org-mode-hook #'mixed-pitch-mode))
(use-package unicode-fonts :straight t)
#+end_src
** Keybinding
I came from vim, so naturally I use Evil keybindings. I also used to use Doom Emacs before rolling my own configuration so I've borrowed some ideas from my time spent there as well. Between the two paradigms I rarely leave the home row which is ideal for typing for extended periods of time.
*** General.el (leader-key keybindings)
I really enjoy having a leader key and eschewing the Control and Alt keys entirely. Doom had far too many leader keybindings that I never used so I've boiled them down to the essentials that I used the most.
#+begin_src emacs-lisp
(global-set-key (kbd "<escape>") 'keyboard-escape-quit) ;; Escape exits out of prompts
;; Define Leader Key
(use-package general
:straight t
:config
(general-evil-setup t)
(general-create-definer opal/leader-keys
:keymaps '(normal insert visual emacs)
:prefix "SPC"
:global-prefix "C-SPC")
;; Define Keybindings (potentially move into own file)
(opal/leader-keys
;; Leader-map
";" #'pp-eval-expression ;; Eval expression
":" #'execute-extended-command ;; Eq to M-x
"u" #'universal-argument ;; Universal argument
"w" #'evil-window-map ;; Window functions
"." #'find-file ;; Find file (opens in mini-buffer)
"," #'consult-buffer ;; Switch to buffer
"<" #'switch-to-buffer ;; Switch to non-perspective.el minibuffer
"s" #'consult-line
"p" #'projectile-command-map
"l" #'lsp-map
;; Magit
"gg" #'magit-status
"gi" #'magit-init
"gc" #'magit-clone
;; Workspaces
"bi" #'persp-ibuffer
"bl" #'persp-next
"bh" #'persp-prev
"br" #'persp-rename
"bD" #'persp-remove-buffer
"bd" #'kill-buffer
;; Terminal/Shell
"tt" #'vterm
"te" #'eshell
;; Org
;; Babel
"obt" #'org-babel-tangle
;; Gen
"ol" #'org-insert-link
"or" #'org-reload
;; Agenda
"oa" #'org-agenda
;; Eval
"eb" #'eval-buffer
"er" #'eval-region
"ef" #'eval-defun
"el" #'eval-last-sexp
;; Describe
"df" #'describe-function
"dv" #'describe-variable
"ds" #'describe-symbol
"dk" #'describe-key
"dp" #'describe-package))
#+end_src
*** Evil
#+begin_src emacs-lisp
(use-package evil
:straight t
:init
(setq evil-want-integration t)
(setq evil-want-keybinding nil)
(setq evil-want-C-u-scroll t)
(setq evil-want-C-i-jump nil)
(setq evil-respect-visual-line-mode t)
:config
(evil-mode 1)
(define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)
(define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join)
;; Use visual line motions even outside of visual-line-mode buffers
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)
(evil-set-initial-state 'messages-buffer-mode 'normal)
(evil-set-initial-state 'dashboard-mode 'normal))
(use-package evil-collection
:straight t
:after evil
:config
(evil-collection-init))
#+end_src
** Completion Frameworks
*** Vertico
#+begin_src emacs-lisp
;; Enable vertico
(use-package vertico
:straight t
:bind
(:map vertico-map
("C-j" . vertico-next)
("C-k" . vertico-previous))
:init
(vertico-mode)
(setq vertico-scroll-margin 0) ;; Scroll margin
(setq vertico-count 10) ;; Candidates
(setq vertico-cycle t)) ;; Enable cycling
;; (use-package ivy
;; :straight t
;; :bind (("C-s" . 'swiper)
;; :map ivy-minibuffer-map
;; ("TAB" . ivy-alt-done)
;; ("C-l" . ivy-alt-done)
;; ("C-j" . ivy-next-line)
;; ("C-k" . ivy-previous-line)
;; :map ivy-switch-buffer-map
;; ("C-k" . ivy-previous-line)
;; ("C-l" . ivy-done)
;; ("C-d" . ivy-reverse-i-search-kill))
;; :config
;; (ivy-mode 1))
;; (use-package ivy-rich
;; :straight t
;; :after ivy
;; :init (ivy-rich-mode 1))
#+end_src
*** Orderless
Completion style
#+begin_src emacs-lisp
(use-package orderless
:straight t
:init
(setq completion-styles '(orderless)
completion-category-defaults nil
completion-category-overrides '((file (styles partial-completion)))))
#+end_src
*** History
Persistent history
#+begin_src emacs-lisp
(use-package savehist
:straight t
:init
(savehist-mode))
#+end_src
*** Consult
#+begin_src emacs-lisp
(use-package consult
:straight t
:defer t
:config
(setq
consult-narrow-key "<"
consult-line-numbers-widen t
consult-async-min-input 2
consult-async-refresh-delay 0.15
consult-async-input-throttle 0.2
consult-async-input-debounce 0.1))
;; (use-package counsel
;; :straight t
;; :bind
;; (("C-M-j" . 'counsel-switch-buffer)
;; :map minibuffer-local-map
;; ("C-r" . 'counsel-minibuffer-history))
;; :custom
;; (counsel-linux-app-format-function #'counsel-linux-app-format-function-name-only)
;; :config
;; (counsel-mode 1))
#+end_src
*** Marginalia
Marginalia provides annotations next to minibuffer items.
#+begin_src emacs-lisp
(use-package marginalia
:straight t
:bind (("M-A" . marginalia-cycle)
:map minibuffer-local-map
("M-A" . marginalia-cycle))
:init
(marginalia-mode))
#+end_src
*** Company
#+begin_src emacs-lisp
(use-package company
:straight t
:commands (company-complete-common
company-complete-common-or-cycle
company-manual-begin
company-grab-line)
:init
(setq company-minimum-prefix-length 2
company-tooltip-limit 14
company-tooltip-align-annotations t
company-require-match 'never
company-global-modes
'(not erc-mode
message-mode
help-mode
vterm-mode)
company-frontends
'(company-pseudo-tooltip-frontend ; always show candidates in overlay tooltip
company-echo-metadata-frontend) ; show selected candidate docs in echo area
company-backends '(company-capf)
company-auto-commit nil
company-dabbrev-other-buffers nil
company-dabbrev-ignore-case nil
company-dabbrev-downcase nil))
#+end_src
** Buffer & Workspaces
*** Perspective
#+begin_src emacs-lisp
(use-package perspective
:straight t
:config
(persp-mode))
#+end_src
*** Bufler
Helps organize buffers in groups.
#+begin_src emacs-lisp
(use-package bufler :straight t)
#+end_src
*** Winner
Allows window undo
#+begin_src emacs-lisp
(use-package winner
:straight t)
#+end_src
** File Browser
I don't even think I've heard of an alternative to Dired...
#+begin_src emacs-lisp
(use-package dired
:init
(setq dired-auto-revert-buffer t
dired-dwim-target t
dired-hide-details-hide-symlink-targets nil
dired-recursive-copies 'always
dired-recursive-deletes 'top
dired-create-destination-dirs 'ask))
(use-package dired-rsync
:straight t
:general (dired-mode-map "C-c C-r" #'dired-rsync))
(use-package all-the-icons-dired :straight t)
(use-package dired-single :straight t)
(use-package dired-collapse :straight t)
;; Make pretty colors!
(use-package dired-rainbow
:straight t
:after dired
:config
(dired-rainbow-define-chmod directory "#6cb2eb" "d.*")
(dired-rainbow-define html "#eb5286" ("css" "less" "sass" "scss" "htm" "html" "jhtm" "mht" "eml" "mustache" "xhtml"))
(dired-rainbow-define xml "#f2d024" ("xml" "xsd" "xsl" "xslt" "wsdl" "bib" "json" "msg" "pgn" "rss" "yaml" "yml" "rdata"))
(dired-rainbow-define document "#9561e2" ("docm" "doc" "docx" "odb" "odt" "pdb" "pdf" "ps" "rtf" "djvu" "epub" "odp" "ppt" "pptx"))
(dired-rainbow-define markdown "#ffed4a" ("org" "etx" "info" "markdown" "md" "mkd" "nfo" "pod" "rst" "tex" "textfile" "txt"))
(dired-rainbow-define database "#6574cd" ("xlsx" "xls" "csv" "accdb" "db" "mdb" "sqlite" "nc"))
(dired-rainbow-define media "#de751f" ("mp3" "mp4" "mkv" "MP3" "MP4" "avi" "mpeg" "mpg" "flv" "ogg" "mov" "mid" "midi" "wav" "aiff" "flac"))
(dired-rainbow-define image "#f66d9b" ("tiff" "tif" "cdr" "gif" "ico" "jpeg" "jpg" "png" "psd" "eps" "svg"))
(dired-rainbow-define log "#c17d11" ("log"))
(dired-rainbow-define shell "#f6993f" ("awk" "bash" "bat" "sed" "sh" "zsh" "vim"))
(dired-rainbow-define interpreted "#38c172" ("py" "ipynb" "rb" "pl" "t" "msql" "mysql" "pgsql" "sql" "r" "clj" "cljs" "scala" "js"))
(dired-rainbow-define compiled "#4dc0b5" ("asm" "cl" "lisp" "el" "c" "h" "c++" "h++" "hpp" "hxx" "m" "cc" "cs" "cp" "cpp" "go" "f" "for" "ftn" "f90" "f95" "f03" "f08" "s" "rs" "hi" "hs" "pyc" ".java"))
(dired-rainbow-define executable "#8cc4ff" ("exe" "msi"))
(dired-rainbow-define compressed "#51d88a" ("7z" "zip" "bz2" "tgz" "txz" "gz" "xz" "z" "Z" "jar" "war" "ear" "rar" "sar" "xpi" "apk" "xz" "tar"))
(dired-rainbow-define packaged "#faad63" ("deb" "rpm" "apk" "jad" "jar" "cab" "pak" "pk3" "vdf" "vpk" "bsp"))
(dired-rainbow-define encrypted "#ffed4a" ("gpg" "pgp" "asc" "bfe" "enc" "signature" "sig" "p12" "pem"))
(dired-rainbow-define fonts "#6cb2eb" ("afm" "fon" "fnt" "pfb" "pfm" "ttf" "otf"))
(dired-rainbow-define partition "#e3342f" ("dmg" "iso" "bin" "nrg" "qcow" "toast" "vcd" "vmdk" "bak"))
(dired-rainbow-define vc "#0074d9" ("git" "gitignore" "gitattributes" "gitmodules"))
(dired-rainbow-define-chmod executable-unix "#38c172" "-.*x.*"))
#+end_src
** Org
*** General Configuration
#+begin_src emacs-lisp
(defun opal/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))
(defun opal/org-mode-setup ()
(org-indent-mode)
(variable-pitch-mode 1)
(visual-line-mode 1)
(setq org-startup-folded t))
(use-package org
:straight t
:commands (org-capture org-agenda)
:hook (org-mode . opal/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)))
;; Tell Org to stop indenting inside of org source blocks.
(setq org-edit-src-content-indentation 0)
;; Set org agenda dir
(setq org-directory "~/Org/")
;; Open links in browser
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "firefox")
;; Init org font setup
(opal/org-font-setup))
#+end_src
*** Pretty Bullets
Creates nicer (-) bullets.
#+begin_src emacs-lisp
(use-package org-bullets
:straight t
:after org
:hook (org-mode . org-bullets-mode)
:custom
(org-bullets-bullet-list '("" "" "" "" "" "" "")))
#+end_src
*** Org Table of Contents
#+begin_src emacs-lisp
(use-package org-make-toc :straight t)
#+end_src
*** Visual Fill Mode
Creates margins in Org mode to make it more pleasant to look at.
#+begin_src emacs-lisp
(defun opal/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
:straight t
:hook (org-mode . opal/org-mode-visual-fill))
#+end_src
*** Org Babel
#+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)
(lisp . t)))
(push '("conf-unix" . conf-unix) org-src-lang-modes))
;; Set geiser default language
(setq geiser-default-implementation '(guile))
(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 '("scm" . "src scheme"))
(add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
#+end_src
** Development/Editing
*** General
**** Syntax (Flycheck)
#+begin_src emacs-lisp
(use-package flycheck :straight t)
#+end_src
**** Tabs/Spaces
#+begin_src emacs-lisp
(setq-default tab-width 2) ;; Set tab indent to 2
(setq-default evil-shift-width tab-width) ;; Ensure evil matches tab-width
(setq-default indent-tabs-mode nil) ;; Use spaces instead of tabs
;; Clean up whitespace
(use-package ws-butler :straight t)
#+end_src
**** Rainbow Delimiters
#+begin_src emacs-lisp
(use-package rainbow-delimiters
:straight t
:init
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
(add-hook 'org-mode-hook #'rainbow-delimiters-mode))
#+end_src
**** Rainbow Mode
Sets HTML strings to have the background of the color they represent.
#+begin_src emacs-lisp
(use-package rainbow-mode :straight t)
#+end_src
*** Magit
#+begin_src emacs-lisp
(use-package magit
:straight t)
#+end_src
*** Projectile
#+begin_src emacs-lisp
(use-package projectile
:straight t
:config
(projectile-mode)
:init
(when (file-directory-p "~/Projects/Code")
(setq projectile-project-search-path '("~/Projects/Code")))
(setq projectile-switch-project-action #'projectile-dired))
#+end_src
*** LSP
#+begin_src emacs-lisp
(use-package lsp-mode
:straight t
:commands (lsp lsp-deferred)
:config
(lsp-enable-which-key-integration t))
(use-package lsp-ui
:straight t
:hook (lsp-mode . lsp-ui-mode)
:custom
(lsp-ui-doc-position 'bottom))
#+end_src
*** Python
#+begin_src emacs-lisp
(use-package python-mode
:ensure t
:hook (python-mode . lsp-deferred))
#+end_src
*** Ruby
<<<<<<< HEAD
**** Code Completion
#+begin_src emacs-lisp
(use-package robe
:straight t)
#+end_src
**** Bundler
#+begin_src emacs-lisp
(use-package bundler
:straight t)
=======
#+begin_src emacs-lisp
>>>>>>> origin/master
#+end_src
*** Lisp
#+begin_src emacs-lisp
(use-package parinfer
:straight t
:init
(progn
(setq parinfer-extensions
'(defaults
pretty-parens
evil))
(add-hook 'prog-mode-hook #'parinfer-mode)))
#+end_src
*** Common Lisp
#+begin_src emacs-lisp
(defvar inferior-lisp-program "sbcl")
(use-package sly :straight t)
#+end_src
*** Scheme
#+begin_src emacs-lisp
(use-package geiser
:straight t
:ensure t)
(use-package geiser-guile
:straight t)
#+end_src
*** Snippets
Snippets allow certain files to be filled with a template depending on its filename extension.
#+begin_src emacs-lisp
(use-package yasnippet
:straight t
:hook (prog-mode . yas-minor-mode)
:config
(yas-reload-all))
#+end_src
** Eshell
#+begin_src emacs-lisp
(use-package eshell
:straight t
:config
;; Save command history when commands are entered
(add-hook 'eshell-pre-command-hook 'eshell-save-some-history)
;; Truncate buffer for performance
(add-to-list 'eshell-output-filter-functions 'eshell-truncate-buffer)
(evil-normalize-keymaps)
(setq eshell-banner-message
'(format "%s %s\n"
(propertize (format " %s " (string-trim (buffer-name)))
'face 'mode-line-highlight)
(propertize (current-time-string)
'face 'font-lock-keyword-face)))
(setq eshell-scroll-to-bottom-on-input 'all
eshell-scroll-to-bottom-on-output 'all
eshell-kill-processes-on-exit t
eshell-hist-ignoredups t
eshell-prompt-regexp "^.* λ "
;; em-glob
eshell-history-size 10000
eshell-buffer-maximum-lines 10000
eshell-scroll-to-bottom-on-input t)
(with-eval-after-load 'esh-opt
(setq eshell-destroy-buffer-when-process-dies t)
(setq eshell-visual-commands '("htop" "zsh" "vim"))))
#+end_src
** Vterm
#+begin_src emacs-lisp
(use-package vterm
:straight t
:commands vterm
:config
(setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") ;; Terminal prompt
(setq vterm-shell "zsh")
(setq vterm-max-scrollback 10000))
#+end_src
** PDF
#+begin_src emacs-lisp
(use-package pdf-tools
:straight t
:init
(pdf-tools-install))
#+end_src
** E-Mail
I've been using IceDove/Thunderbird for e-mail until I get around to making this a comparable solutions.
#+begin_src emacs-lisp
;; (use-package mu4e
;; :straight t
;; :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
** IRC
Right now I'm pretty happy with Matrix bridging into IRC rooms so this will stay commented out for now. I might try out the Emacs Matrix client at some point soon.
#+begin_src emacs-lisp
;; (use-package erc
;; :straight t
;; (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
:

424
Guix.org
View File

@@ -1,424 +0,0 @@
#+TITLE: Guix Configuration
I use GNU Guix as my operating system. I'm able to declare the state of the operating system in a series of configuration files in a similar way to Puppet. Eventually I would like to integrate Guix Home into this configuration.
* Channels
Disclaimer: I use the nonguix channel only for the use of building Firefox from source easily.
#+begin_src scheme
(list (channel
(name 'guix)
(url "https://git.savannah.gnu.org/git/guix.git")
(introduction
(make-channel-introduction
"9edb3f66fd807b096b48283debdcddccfea34bad"
(openpgp-fingerprint
"BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))
(channel
(name 'nonguix)
(url "https://gitlab.com/nonguix/nonguix")
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))))
#+end_src
* System
** Home Desktop
#+begin_src scheme :tangle ~/Dotfiles/.config/guix/home-desk.scm :mkdirp yes
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(host-name "borges")
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(users (cons* (user-account
(name "opal")
(comment "opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel"
"netdev"
"audio"
"video")))
%base-user-accounts))
(packages
(append
(list
(specification->package "git")
(specification->package "wl-clipboard")
(specification->package "vim")
(specification->package "nss-certs")
(specification->package "stow")
(specification->package "exfat-utils")
(specification->package "emacs")
(specification->package "emacs-exwm")
(specification->package "sway")
(specification->package "swaybg")
(specification->package "swaylock")
(specification->package "swayidle")
(specification->package "polybar")
(specification->package "nyxt")
(specification->package "dmenu")
(specification->package "bluez")
(specification->package "bluez-alsa")
(specification->package "pulseaudio")
(specification->package "keepassxc")
(specification->package "font-fira-mono")
(specification->package "font-fira-sans")
(specification->package "font-fira-code")
(specification->package "gcc-toolchain"))
%base-packages))
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "40aa6387-e935-4f70-8e7d-1975678a5a32"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "1C3B-10F5" 'fat32))
(type "vfat"))
%base-file-systems)))
;; (setuid-programs
;; (let ((from (lambda (package file)
;; (setuid-program (program (file-append package file))))))
;; (cons* (from light "/bin/light")
;; (from mtr "/sbin/mtr")
;; (from network-manager "/bin/nmtui")
;; (from nfs-utils "/sbin/mount.nfs")
;; (from swaylock "/bin/swaylock")
;; %setuid-programs)))
;; (services (cons* ...
;; (modify-services %desktop-services
;; (gdm-service-type config
;; => (gdm-configuration
;; (inherit config)
;; (wayland? #t)
;; (debug? #t))))))
#+end_src
** Work Laptop
#+begin_src scheme :tangle ~/Dotfiles/.config/guix/work-laptop.scm :mkdirp yes
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(host-name "work")
(users (cons* (user-account
(name "opal")
(comment "Opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel" "netdev" "audio" "video")))
%base-user-accounts))
(packages
(append
(list
(specification->package "git")
(specification->package "wl-clipboard")
(specification->package "vim")
(specification->package "nss-certs")
(specification->package "stow")
(specification->package "exfat-utils")
(specification->package "emacs")
(specification->package "emacs-exwm")
(specification->package "sway")
(specification->package "swaybg")
(specification->package "swaylock")
(specification->package "swayidle")
(specification->package "polybar")
(specification->package "nyxt")
(specification->package "dmenu")
(specification->package "bluez")
(specification->package "bluez-alsa")
(specification->package "pulseaudio")
(specification->package "keepassxc")
(specification->package "font-fira-mono")
(specification->package "font-fira-sans")
(specification->package "font-fira-code")
(specification->package "gcc-toolchain"))
%base-packages))
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "15B3-5DE5" 'fat32))
(type "vfat"))
%base-file-systems)))
#+end_src
* Home
#+begin_src emacs-lisp
(use-modules
(gnu)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu home services shepard)
(gnu packages libreoffice)
(gnu packages mail)
(gnu packages pdf))
(home-environment
(packages
(append
;; Tools/Libraries
(list
gcc-toolchain
wget
curl
cmake
make
zip
unzip
libtool
binutils-gold
openssl
openssh
gst-plugins-bad
gst-plugins-base
gst-plugins-good
gst-plugins-ugly
gst-libav
wl-clipboard
zsh
gnupg)
;; Applications
(list
alacritty
nyxt
zathura-pdf-mupdf
thunar
firefox
wl-randr
libreoffice
calibre
mpv
youtube-dl
icedove)
;; Emacs
(list
emacs-vterm
emacs-geiser
emacs-geiser-guile
emacs-doom-modeline
emacs-all-the-icons
emacs-all-the-icons-dired
emacs-general
emacs-which-key
emacs-alert
emacs-helpful
emacs-pinentry
emacs-doom-themes
emacs-evil
emacs-evil-collection
emacs-vertico
emacs-orderless
emacs-consult
emacs-company
emacs-marginalia
emacs-perspective
emacs-dired-rsync
emacs-dired-hacks
emacs-org-bullets
emacs-org-make-toc
emacs-visual-fill-column
emacs-flycheck
emacs-rainbow-mode
emacs-rainbow-delimiters
emacs-magit
emacs-projectile
emacs-lsp-mode
emacs-lsp-ui
emacs-treemacs
emacs-lsp-treemacs
emacs-parinfer
emacs-yasnippet
emacs-pdf-tools)
;; Languages
(list
ruby
python
guile
sbcl
perl
python-lsp-server
ruby-solargraph)
;; Aesthetics/Fonts
(list
papirus-icon-theme
arc-theme
font-fira-mono
font-fira-code
font-fira-sans
font-abattis-cantarell
font-google-noto
font-awesome)))
(services
(append
;; Shell
(list
(service home-zsh-service-type
(home-zsh-configuration
;; Place all configs to $XDG_CONFIG_HOME/zsh. Makes
;; ~/.zshenv to set ZDOTDIR to $XDG_CONFIG_HOME/zsh
;; and shell process starts with ~/.config/zsh/.zshenv
(xdg-flavor? #t)
;; .zshenv
(zshenv
(list
(local-file
(string-append (getenv "HOME")
"/Dotfiles/.config/zsh/.zshenv")
"/.config/zsh/.zshenv")))
;; .zprofile
(zprofile
(list
(local-file
(string-append (getenv "HOME")
"/Dotfiles/.config/zsh/.zprofile")
"/.config/zsh/.zprofile")))
(zshrc
(list
(local-file
(string-append (getenv "HOME")
"/Dotfiles/.config/zsh/.zshrc")
"/.config/zsh/.zshrc"))))))
;; Files
(list
(simple-service 'emacs-config
home-files-service-type
(list
`(".config/emacs/init.el"
,(local-file
(string-append (getenv "HOME")
"/Dotfiles/emacs/init.el")))))
(simple-service 'nyxt-config
home-files-service-type
(list
`(".config/nyxt/init.lisp"
,(local-file
(string-append (getenv "HOME")
"/Dotfiles/nyxt/init.lisp")))))
(simple-service 'dunst-config
home-files-service-type
(list
`(".config/dunst/dunstrc"
,(local-file
(string-append (getenv "HOME")
"/Dotfiles/dunst/dunstrc")))))
(simple-service 'alacritty-config
home-files-service-type
(list
`(".config/alacritty/alacritty.yml"
,(local-file
(string-append (getenv "HOME")
"/Dotfiles/alacritty/alacritty.yml")))))
(simple-service 'alacritty-config
)
;; Daemons
(list
(service home-shepard-service-type
(home-shepherd-configuration
(services
(list
(shepard-service
(provision '(emacs))
(start #~(make-system-constructor "emacs --daemon"))
(stop #~(make-system-constructor "emacsclient -e '(kill-emacs)'")))
(shepard-service
(provision '(gnome-keyring-daemon))
(start #~(make-system-contructor "gnome-keyring-daemon --daemonize"))
(stop #~(make-system-contructor "pkill gnome-keyring-daemon")))))))))))
#+end_src

238
Nyxt.org
View File

@@ -1,238 +0,0 @@
#+TITLE: Nyxt Configuration
#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/nyxt/init.lisp :mkdirp yes
Nyxt is a browser written in Common Lisp that follows the same philosophy of extensibility as Emacs. This makes it a perfect companion to an Emacs centered eco-system when you need a browser with more features than Eww or w3m.
* Load Quicklisp & Slynk
#+begin_src lisp
(in-package :nyxt)
(load "~/quicklisp/setup.lisp")
(ql:quickload 'slynk)
;; (push #p"~/common-lisp/sly/" asdf:*central-registry*)
;; (asdf:load-system :slynk)
;; (slynk:create-server :port 4008)
#+end_src
* Import Functions
#+begin_src lisp
(load-after-system :slynk (nyxt-init-file "my-slink.lisp"))
;; (load-after-system :slynk "~/.config/nyxt/my-slynk.lisp")
#+end_src
* Keybindings
#+begin_src lisp
;; Vim-normal mode by default
(define-configuration buffer
((default-modes (append '(vi-normal-mode) '(blocker-mode) %slot-default%))))
;; Vim-insert for prompt-buffer (minibuffer)
(define-configuration prompt-buffer
((default-modes (append '(vi-insert-mode) %slot-default%))))
;; Keybindings
;; (Note: Override Map will override any other custom keybindings so use a prefix key.)
(define-configuration buffer
((override-map (define-key %slot-default%
"C-x s" 'nyxt/web-mode:search-buffers
"C-x u" 'copy-username
"C-x p" 'copy-password))))
#+end_src
* Theme
#+begin_src lisp
;;Message buffer color configuration
(define-configuration window
((message-buffer-style
(str:concat
%slot-default%
(cl-css:css
'((body
:background-color "black"
:color "white")))))))
;; Mini-buffer style
(define-configuration prompt-buffer
((style (str:concat
%slot-default%
(cl-css:css
'((body
:background-color "black"
:color "white")
("#prompt-area"
:background-color "black")
;; The area you input text in.
("#input"
:background-color "#EDDDAA")
(".source-name"
:color "black"
:background-color "#125458")
(".source-content"
:background-color "black")
(".source-content th"
:border "1px solid #125458"
:background-color "black")
;; The currently highlighted option.
("#selection"
:background-color "#125458"
:color "black")
(.marked :background-color "#8B3A3A"
:font-weight "bold"
:color "white")
(.selected :background-color "black"
:color "white")))))))
;; Internal buffer (help, bookmarks, buffers panel)
(define-configuration (internal-buffer panel-buffer)
((style
(str:concat
%slot-default%
(cl-css:css
'((title
:color "#CD5C5C")
(body
:background-color "black"
:color "lightgray")
(hr
:color "lightgray")
(a
:color "#125458")
(.button
:color "white"
:background-color "#125458")))))))
;; Link hints in web mode
(define-configuration nyxt/web-mode:web-mode
((nyxt/web-mode:highlighted-box-style
(cl-css:css
'((".nyxt-hint.nyxt-highlight-hint"
:background "#125458"))))))
;; Modeline
(define-configuration status-buffer
((style (str:concat
%slot-default%
(cl-css:css
;; Arrows on the left.
'(("#controls"
:border-top "1px solid white"
:background-color "#125458")
;; To the right of the arrows.
("#url"
:background-color "black"
:color "white"
:border-top "1px solid white")
;; Far to the right.
("#modes"
:background-color "black"
:border-top "1px solid white")
;; The center segment.
("#tabs"
:background-color "#125458"
:color "black"
:border-top "1px solid white")))))))
;; Overriding dark theme colors
(define-configuration nyxt/style-mode:dark-mode
((style #.(cl-css:css
'((*
:background-color "black !important"
:background-image "none !important"
:color "white")
(a
:background-color "black !important"
:background-image "none !important"
:color "#556B2F !important"))))))
#+end_src
* Password Management
Password managers are an essential feature and thankfully Nyxt allows me to integrate KeepassXC which I use regularly.
#+begin_src lisp
(define-configuration password:keepassxc-interface
((password:password-file "/home/opal/.config/keepassxc/.kdbx-store/opal.kdbx")))
(define-configuration buffer
((password-interface (make-instance 'password:user-keepassxc-interface))))
#+end_src
* Functions
** Show bookmarks first
I've ripped these functions out of the source code and swapped the sources in order to have bookmarks show up first upon executing set-url or set-url-new-buffer.
#+begin_src lisp
(define-command set-url (&key (prefill-current-url-p t))
"Set the URL for the current buffer, completing with history."
(let ((history (set-url-history *browser*))
(actions (list (make-command buffer-load* (suggestion-values)
"Load first selected URL in current buffer and the rest in new buffer(s)."
(mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
(buffer-load (url (first suggestion-values))))
(make-command new-buffer-load (suggestion-values)
"Load URL(s) in new buffer(s)."
(mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
(make-buffer-focus :url (url (first suggestion-values)))))))
(pushnew-url-history history (url (current-buffer)))
(prompt
:prompt "Open URL"
:input (if prefill-current-url-p
(render-url (url (current-buffer))) "")
:history history
:sources (list (make-instance 'user-new-url-or-search-source :actions actions)
(make-instance 'bookmark-source :actions actions)
(make-instance 'user-global-history-source :actions actions)
(make-instance 'search-engine-url-source :actions actions)))))
(define-command set-url-new-buffer (&key (prefill-current-url-p t))
"Prompt for a URL and set it in a new focused buffer."
(let ((history (set-url-history *browser*))
(actions (list (make-command new-buffer-load (suggestion-values)
"Load URL(s) in new buffer(s)"
(mapc (lambda (suggestion) (make-buffer :url (url suggestion)))
(rest suggestion-values))
(make-buffer-focus :url (url (first suggestion-values)))))))
(pushnew-url-history history (url (current-buffer)))
(prompt
:prompt "Open URL in new buffer"
:input (if prefill-current-url-p
(render-url (url (current-buffer))) "")
:history history
:sources (list (make-instance 'user-new-url-or-search-source :actions actions)
(make-instance 'bookmark-source :actions actions)
(make-instance 'user-global-history-source :actions actions)
(make-instance 'search-engine-url-source :actions actions)))))
#+end_src
* Misc
** Redirection
I would like to keep expanding on these redirection functions so I can have native redirection away from sites that don't respect user privacy.
#+begin_src lisp
;; I would like to implement redirection, or some extension to handle it for me.
;; todo: Redirect reddit to teddit
;; (defun old-reddit-handler (request-data)
;; (let ((url (url request-data)))
;; (setf (url request-data)
;; (if (search "reddit.com" (quri:uri-host url))
;; (progn
;; (setf (quri:uri-host url) "old.reddit.com")
;; (log:info "Switching to old Reddit: ~s" (render-url url))
;; url)
;; url)))
;; request-data)
;; (define-configuration web-buffer
;; ((request-resource-hook
;; (hooks:add-hook %slot-default% (make-handler-resource #'old-reddit-handler)))))
;; (See url-dispatching-handler for a simpler way to achieve the same result.)
#+end_src
* Testing
#+begin_src lisp
(defun nyxt-init-file (&optional subpath)
"Return SUBPATH relative to `*init-file-path*'.
Return nil if `*init-file-path*' is nil.
Example:
If we want to load a define-command procedure that lives in ~/path/to/nyxt/config/dir/my-slink.lisp
(load-after-system :slynk (nyxt-init-file \"my-slink.lisp\"))"
(if subpath
(uiop:subpathname* (uiop:pathname-directory-pathname
(expand-path *init-file-path*))
subpath)
(expand-path *init-file-path*)))
#+end_src

View File

@@ -1,13 +0,0 @@
#+TITLE: Dotfiles
* Workflow
I prefer software that presents a low cognitive load in integrating and using on a day to day basis. This typically ends up being software that I can manipulate through the use of configuration files.
* Tools (or How I Do My Computing)
With a slight nod to RMS's article of a similar name; here is a list of programs that I use on a day to day basis.
*Text Editor*: Emacs with Evil mode. Truly the best of both worlds.
*Browser*: Nyxt Browser, an extensible browser in the vein of Emacs written in Common Lisp. I use Icecat/Firefox for anything that Nyxt can't handle.
*Windows Manager*: I've found SwayWM recently. I'm a huge fan of Wayland over Xorg and it had the least complicated integration into my workflow.
*Desktop Environment*: If I need a full DE, I use GNOME. By far the most minimal and 'out of the way' of the GNU/Linux DE's in my opinion.
*Chat*: Someone turned my onto Matrix recently and I've been really liking it. I'm able to bridge into IRC chatrooms and it keeps chat history locally so I don't need a bouncer.

View File

@@ -1,7 +0,0 @@
\.git
^/.*\.org
LICENSE
README:
.gitignore
.gitmodules
archive/

View File

@@ -1,298 +0,0 @@
(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)

View File

@@ -1,189 +0,0 @@
;;; 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))

View File

@@ -1,57 +0,0 @@
;; -*- 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)

View File

@@ -1,2 +0,0 @@
clear lock
keycode 66 = Escape Caps_Lock NoSymbol NoSymbol

View File

@@ -1,506 +0,0 @@
#+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

View File

@@ -1,16 +0,0 @@
(list (channel
(name 'guix)
(url "https://git.savannah.gnu.org/git/guix.git")
(introduction
(make-channel-introduction
"9edb3f66fd807b096b48283debdcddccfea34bad"
(openpgp-fingerprint
"BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))
(channel
(name 'nonguix)
(url "https://gitlab.com/nonguix/nonguix")
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))))

View File

@@ -1,19 +0,0 @@
# Env
env:
TERM: xterm-256color
# Font configuration
font:
normal:
family: inconsolata
style: Regular
bold:
family: inconsolata
style: Bold
italic:
family: inconsolata
style: Italic
bold_italic:
family: inconsolata
style: Bold Italic
size: 16

View File

@@ -1,26 +0,0 @@
IMAPAccount opal.sh
Host imap.opal.sh
Port 993
User ry@opal.sh
PassCmd "gpg --quiet --for-your-eyes-only --no-tty --decrypt ~/Dotfiles/.config/mbsync/.mu4e.gpg"
SSLType IMAPS
CertificateFile /etc/ssl/certs/ca-certificates.crt
IMAPStore opal-remote
Account opal.sh
MaildirStore opal-local
Path ~/Mail/opal.sh/
Inbox ~/Mail/opal.sh/Inbox
Trash ~/Mail/opal.sh/Trash
SubFolders Verbatim
Channel opal.sh
Master :opal-remote:
Slave :opal-local:
Patterns *
Expunge None
CopyArrivalDate yes
Sync All
Create Both
SyncState *

View File

@@ -1,151 +0,0 @@
let mapleader =","
if ! filereadable(system('echo -n "${XDG_CONFIG_HOME:-$HOME/.config}/nvim/autoload/plug.vim"'))
echo "Downloading junegunn/vim-plug to manage plugins..."
silent !mkdir -p ${XDG_CONFIG_HOME:-$HOME/.config}/nvim/autoload/
silent !curl "https://raw.githubusercontent.com/junegunn/vim-plug/master/plug.vim" > ${XDG_CONFIG_HOME:-$HOME/.config}/nvim/autoload/plug.vim
autocmd VimEnter * PlugInstall
endif
call plug#begin(system('echo -n "${XDG_CONFIG_HOME:-$HOME/.config}/nvim/plugged"'))
Plug 'tpope/vim-surround'
Plug 'preservim/nerdtree'
Plug 'junegunn/goyo.vim'
Plug 'jreybert/vimagit'
Plug 'lukesmithxyz/vimling'
Plug 'vimwiki/vimwiki'
Plug 'vim-airline/vim-airline'
Plug 'tpope/vim-commentary'
Plug 'ap/vim-css-color'
Plug 'fatih/vim-go'
Plug 'vlime/vlime'
call plug#end()
set title
set bg=light
set go=a
set mouse=a
set nohlsearch
set clipboard+=unnamedplus
set noshowmode
set noruler
set laststatus=0
set noshowcmd
" Some basics:
nnoremap c "_c
set nocompatible
filetype plugin on
syntax on
set encoding=utf-8
set number relativenumber
" Enable autocompletion:
set wildmode=longest,list,full
" Disables automatic commenting on newline:
autocmd FileType * setlocal formatoptions-=c formatoptions-=r formatoptions-=o
" Perform dot commands over visual blocks:
vnoremap . :normal .<CR>
" Goyo plugin makes text more readable when writing prose:
map <leader>f :Goyo \| set bg=light \| set linebreak<CR>
" Spell-check set to <leader>o, 'o' for 'orthography':
map <leader>o :setlocal spell! spelllang=en_us<CR>
" Splits open at the bottom and right, which is non-retarded, unlike vim defaults.
set splitbelow splitright
" Nerd tree
map <leader>n :NERDTreeToggle<CR>
autocmd bufenter * if (winnr("$") == 1 && exists("b:NERDTree") && b:NERDTree.isTabTree()) | q | endif
if has('nvim')
let NERDTreeBookmarksFile = stdpath('data') . '/NERDTreeBookmarks'
else
let NERDTreeBookmarksFile = '~/.vim' . '/NERDTreeBookmarks'
endif
" vimling:
nm <leader><leader>d :call ToggleDeadKeys()<CR>
imap <leader><leader>d <esc>:call ToggleDeadKeys()<CR>a
nm <leader><leader>i :call ToggleIPA()<CR>
imap <leader><leader>i <esc>:call ToggleIPA()<CR>a
nm <leader><leader>q :call ToggleProse()<CR>
" Shortcutting split navigation, saving a keypress:
map <C-h> <C-w>h
map <C-j> <C-w>j
map <C-k> <C-w>k
map <C-l> <C-w>l
" Replace ex mode with gq
map Q gq
" Check file in shellcheck:
map <leader>s :!clear && shellcheck -x %<CR>
" Open my bibliography file in split
map <leader>b :vsp<space>$BIB<CR>
map <leader>r :vsp<space>$REFER<CR>
" Replace all is aliased to S.
nnoremap S :%s//g<Left><Left>
" Compile document, be it groff/LaTeX/markdown/etc.
map <leader>c :w! \| !compiler "<c-r>%"<CR>
" Open corresponding .pdf/.html or preview
map <leader>p :!opout <c-r>%<CR><CR>
" Runs a script that cleans out tex build files whenever I close out of a .tex file.
autocmd VimLeave *.tex !texclear %
" Ensure files are read as what I want:
let g:vimwiki_ext2syntax = {'.Rmd': 'markdown', '.rmd': 'markdown','.md': 'markdown', '.markdown': 'markdown', '.mdown': 'markdown'}
map <leader>v :VimwikiIndex
let g:vimwiki_list = [{'path': '~/vimwiki', 'syntax': 'markdown', 'ext': '.md'}]
autocmd BufRead,BufNewFile /tmp/calcurse*,~/.calcurse/notes/* set filetype=markdown
autocmd BufRead,BufNewFile *.ms,*.me,*.mom,*.man set filetype=groff
autocmd BufRead,BufNewFile *.tex set filetype=tex
" Save file as sudo on files that require root permission
cnoremap w!! execute 'silent! write !sudo tee % >/dev/null' <bar> edit!
" Enable Goyo by default for mutt writing
autocmd BufRead,BufNewFile /tmp/neomutt* let g:goyo_width=80
autocmd BufRead,BufNewFile /tmp/neomutt* :Goyo | set bg=light
autocmd BufRead,BufNewFile /tmp/neomutt* map ZZ :Goyo\|x!<CR>
autocmd BufRead,BufNewFile /tmp/neomutt* map ZQ :Goyo\|q!<CR>
" Automatically deletes all trailing whitespace and newlines at end of file on save.
autocmd BufWritePre * %s/\s\+$//e
autocmd BufWritePre * %s/\n\+\%$//e
autocmd BufWritePre *.[ch] %s/\%$/\r/e
" When shortcut files are updated, renew bash and rager configs with new material:
autocmd BufWritePost bm-files,bm-dirs !shortcuts
" Run xrdb whenever Xdefaults or Xresources are updated.
autocmd BufRead,BufNewFile Xresources,Xdefaults,xresources,xdefaults set filetype=xdefaults
autocmd BufWritePost Xresources,Xdefaults,xresources,xdefaults !xrdb %
" Recompile dwmblocks on config edit.
autocmd BufWritePost ~/.local/src/dwmblocks/config.h !cd ~/.local/src/dwmblocks/; sudo make install && { killall -q dwmblocks;setsid -f dwmblocks }
" Turns off highlighting on the bits of code that are changed, so the line that is changed is highlighted but the actual text that has changed stands out on the line and is readable.
if &diff
highlight! link DiffText MatchParen
endif
" Function for toggling the bottom statusbar:
let s:hidden_all = 1
function! ToggleHiddenAll()
if s:hidden_all == 0
let s:hidden_all = 1
set noshowmode
set noruler
set laststatus=0
set noshowcmd
else
let s:hidden_all = 0
set showmode
set ruler
set laststatus=2
set showcmd
endif
endfunction
nnoremap <leader>h :call ToggleHiddenAll()<CR>

View File

@@ -1,206 +0,0 @@
(in-package :nyxt)
(load "~/quicklisp/setup.lisp")
(ql:quickload 'slynk)
;; (push #p"~/common-lisp/sly/" asdf:*central-registry*)
;; (asdf:load-system :slynk)
;; (slynk:create-server :port 4008)
(load-after-system :slynk (nyxt-init-file "my-slink.lisp"))
;; (load-after-system :slynk "~/.config/nyxt/my-slynk.lisp")
;; Vim-normal mode by default
(define-configuration buffer
((default-modes (append '(vi-normal-mode) '(blocker-mode) %slot-default%))))
;; Vim-insert for prompt-buffer (minibuffer)
(define-configuration prompt-buffer
((default-modes (append '(vi-insert-mode) %slot-default%))))
;; Keybindings
;; (Note: Override Map will override any other custom keybindings so use a prefix key.)
(define-configuration buffer
((override-map (define-key %slot-default%
"C-x s" 'nyxt/web-mode:search-buffers
"C-x u" 'copy-username
"C-x p" 'copy-password))))
;;Message buffer color configuration
(define-configuration window
((message-buffer-style
(str:concat
%slot-default%
(cl-css:css
'((body
:background-color "black"
:color "white")))))))
;; Mini-buffer style
(define-configuration prompt-buffer
((style (str:concat
%slot-default%
(cl-css:css
'((body
:background-color "black"
:color "white")
("#prompt-area"
:background-color "black")
;; The area you input text in.
("#input"
:background-color "#EDDDAA")
(".source-name"
:color "black"
:background-color "#125458")
(".source-content"
:background-color "black")
(".source-content th"
:border "1px solid #125458"
:background-color "black")
;; The currently highlighted option.
("#selection"
:background-color "#125458"
:color "black")
(.marked :background-color "#8B3A3A"
:font-weight "bold"
:color "white")
(.selected :background-color "black"
:color "white")))))))
;; Internal buffer (help, bookmarks, buffers panel)
(define-configuration (internal-buffer panel-buffer)
((style
(str:concat
%slot-default%
(cl-css:css
'((title
:color "#CD5C5C")
(body
:background-color "black"
:color "lightgray")
(hr
:color "lightgray")
(a
:color "#125458")
(.button
:color "white"
:background-color "#125458")))))))
;; Link hints in web mode
(define-configuration nyxt/web-mode:web-mode
((nyxt/web-mode:highlighted-box-style
(cl-css:css
'((".nyxt-hint.nyxt-highlight-hint"
:background "#125458"))))))
;; Modeline
(define-configuration status-buffer
((style (str:concat
%slot-default%
(cl-css:css
;; Arrows on the left.
'(("#controls"
:border-top "1px solid white"
:background-color "#125458")
;; To the right of the arrows.
("#url"
:background-color "black"
:color "white"
:border-top "1px solid white")
;; Far to the right.
("#modes"
:background-color "black"
:border-top "1px solid white")
;; The center segment.
("#tabs"
:background-color "#125458"
:color "black"
:border-top "1px solid white")))))))
;; Overriding dark theme colors
(define-configuration nyxt/style-mode:dark-mode
((style #.(cl-css:css
'((*
:background-color "black !important"
:background-image "none !important"
:color "white")
(a
:background-color "black !important"
:background-image "none !important"
:color "#556B2F !important"))))))
(define-configuration password:keepassxc-interface
((password:password-file "/home/opal/.config/keepassxc/.kdbx-store/opal.kdbx")))
(define-configuration buffer
((password-interface (make-instance 'password:user-keepassxc-interface))))
(define-command set-url (&key (prefill-current-url-p t))
"Set the URL for the current buffer, completing with history."
(let ((history (set-url-history *browser*))
(actions (list (make-command buffer-load* (suggestion-values)
"Load first selected URL in current buffer and the rest in new buffer(s)."
(mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
(buffer-load (url (first suggestion-values))))
(make-command new-buffer-load (suggestion-values)
"Load URL(s) in new buffer(s)."
(mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
(make-buffer-focus :url (url (first suggestion-values)))))))
(pushnew-url-history history (url (current-buffer)))
(prompt
:prompt "Open URL"
:input (if prefill-current-url-p
(render-url (url (current-buffer))) "")
:history history
:sources (list (make-instance 'user-new-url-or-search-source :actions actions)
(make-instance 'bookmark-source :actions actions)
(make-instance 'user-global-history-source :actions actions)
(make-instance 'search-engine-url-source :actions actions)))))
(define-command set-url-new-buffer (&key (prefill-current-url-p t))
"Prompt for a URL and set it in a new focused buffer."
(let ((history (set-url-history *browser*))
(actions (list (make-command new-buffer-load (suggestion-values)
"Load URL(s) in new buffer(s)"
(mapc (lambda (suggestion) (make-buffer :url (url suggestion)))
(rest suggestion-values))
(make-buffer-focus :url (url (first suggestion-values)))))))
(pushnew-url-history history (url (current-buffer)))
(prompt
:prompt "Open URL in new buffer"
:input (if prefill-current-url-p
(render-url (url (current-buffer))) "")
:history history
:sources (list (make-instance 'user-new-url-or-search-source :actions actions)
(make-instance 'bookmark-source :actions actions)
(make-instance 'user-global-history-source :actions actions)
(make-instance 'search-engine-url-source :actions actions)))))
;; I would like to implement redirection, or some extension to handle it for me.
;; todo: Redirect reddit to teddit
;; (defun old-reddit-handler (request-data)
;; (let ((url (url request-data)))
;; (setf (url request-data)
;; (if (search "reddit.com" (quri:uri-host url))
;; (progn
;; (setf (quri:uri-host url) "old.reddit.com")
;; (log:info "Switching to old Reddit: ~s" (render-url url))
;; url)
;; url)))
;; request-data)
;; (define-configuration web-buffer
;; ((request-resource-hook
;; (hooks:add-hook %slot-default% (make-handler-resource #'old-reddit-handler)))))
;; (See url-dispatching-handler for a simpler way to achieve the same result.)
(defun nyxt-init-file (&optional subpath)
"Return SUBPATH relative to `*init-file-path*'.
Return nil if `*init-file-path*' is nil.
Example:
If we want to load a define-command procedure that lives in ~/path/to/nyxt/config/dir/my-slink.lisp
(load-after-system :slynk (nyxt-init-file \"my-slink.lisp\"))"
(if subpath
(uiop:subpathname* (uiop:pathname-directory-pathname
(expand-path *init-file-path*))
subpath)
(expand-path *init-file-path*)))

View File

@@ -1,10 +0,0 @@
(define-command-global start-slynk (&optional (slynk-port *swank-port*))
"Start a Slynk server that can be connected to, for instance, in
Emacs via SLY.
Warning: This allows Nyxt to be controlled remotely, that is, to execute
arbitrary code with the privileges of the user running Nyxt. Make sure
you understand the security risks associated with this before running
this command."
(slynk:create-server :port slynk-port :dont-close t)
(echo "Slynk server started at port ~a" slynk-port))

View File

@@ -1,125 +0,0 @@
;;; -*- mode: lisp; -*-
(in-package :stumpwm)
;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
;; StumpWM Modules
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
(run-commands
"gnewbg I"
"gnew II"
"gnewbg III"
"gnewbg IV"
"gnewbg V"
"gnewbg-float F")
(set-prefix-key (kbd "s-ESC"))
(setf *mouse-focus-policy* :click)
(setf *message-window-gravity* :center
*input-window-gravity* :center
*window-border-style* :thin
*message-window-padding* 3
*maxsize-border-width* 2
*normal-border-width* 2
*transient-border-width* 2
stumpwm::*float-window-border* 1
stumpwm::*float-window-title-height* 1)
(setq *input-window-gravity* :center)
;; (load-module "kbd-layouts")
;; (run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
;; Set some super key bindings
(define-key *top-map* (kbd "s-h") "move-focus left")
(define-key *top-map* (kbd "s-l") "move-focus right")
(define-key *top-map* (kbd "s-j") "move-focus down")
(define-key *top-map* (kbd "s-k") "move-focus up")
(define-key *top-map* (kbd "s-H") "move-window left")
(define-key *top-map* (kbd "s-L") "move-window right")
(define-key *top-map* (kbd "s-J") "move-window down")
(define-key *top-map* (kbd "s-K") "move-window up")
(define-key *top-map* (kbd "s-f") "fullscreen")
(define-key *top-map* (kbd "s-r") "iresize")
(define-key *top-map* (kbd "s-Q") "delete")
(define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
(define-key *top-map* (kbd "s-L") "run-shell-command slock")
(define-key *top-map* (kbd "s-E") "run-shell-command emacs")
(define-key *top-map* (kbd "s-W") "run-shell-command firefox")
(define-key *top-map* (kbd "s-TAB") "next-in-frame")
(define-key *top-map* (kbd "s-S-TAB") "prev-in-frame")
(define-key *top-map* (kbd "s-1") "gselect I")
(define-key *top-map* (kbd "s-2") "gselect II")
(define-key *top-map* (kbd "s-3") "gselect III")
(define-key *top-map* (kbd "s-4") "gselect IV")
(define-key *top-map* (kbd "s-5") "gselect V")
(define-key *top-map* (kbd "s-!") "gmove I")
(define-key *top-map* (kbd "s-@") "gmove II")
(define-key *top-map* (kbd "s-#") "gmove III")
(define-key *top-map* (kbd "s-$") "gmove IV")
(define-key *top-map* (kbd "s-%") "gmove V")
;; Brightness and volume
;; (define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
;; (define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
;; (define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
;; (define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
;; (define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
;; Set UI colors
(setf *colors*
'("#000000" ;black
"#BF6262" ;red
"#a1bf78" ;green
"#dbb774" ;yellow
"#7D8FA3" ;blue
"#ff99ff" ;magenta
"#53cdbd" ;cyan
"#b7bec9")) ;white
(setf *default-bg-color* "#e699cc")
(update-color-map (current-screen))
(setf *window-format* "%m%s%50t")
;; (load-module "swm-gaps")
;; (setf swm-gaps:*inner-gaps-size* 3)
;; (run-commands "toggle-gaps-on")
;; Enable TTF fonts
;; (load-module "ttf-fonts")
;; (setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
;; (setf clx-truetype:+font-cache-filename+ "/home/daviwil/.local/share/fonts/font-cache.sexp")
;; (xft:cache-fonts)
;; (set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
(setf *mode-line-background-color* (car *colors*)
*mode-line-foreground-color* (car (last *colors*))
*mode-line-timeout* 1)
;; ;; Add the system tray module
;; (load-module "stumptray")
;; (stumptray:stumptray)
;; (run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
;; (run-shell-command "dunst")
;; (run-shell-command "nm-applet")
;; (run-shell-command "syncthing-gtk --minimized")
;; (run-shell-command "redshift -l 37.983810:23.727539 -t 6500:3500")
(run-shell-command "emacs")
;; (require :slynk)
;; (slynk:create-server :dont-close t)

View File

@@ -1,217 +0,0 @@
# Default config for sway
#
# Copy this to ~/.config/sway/config and edit it to your liking.
#
# Read `man 5 sway` for a complete reference.
### Variables
#
# Logo key. Use Mod1 for Alt.
set $mod Mod4
# Home row direction keys, like vim
set $left h
set $down j
set $up k
set $right l
# Your preferred terminal emulator
set $term alacritty
# Your preferred application launcher
# Note: pass the final command to swaymsg so that the resulting window can be opened
# on the original workspace that the command was run on.
set $menu dmenu_path | dmenu | xargs swaymsg exec --
### Output configuration
#
# Default wallpaper (more resolutions are available in /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/)
output * bg /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/Sway_Wallpaper_Blue_1920x1080.png fill
#
# Example configuration:
#
# output HDMI-A-1 resolution 1920x1080 position 1920,0
#
# You can get the names of your outputs by running: swaymsg -t get_outputs
### Idle configuration
#
# Example configuration:
#
# exec swayidle -w \
# timeout 300 'swaylock -f -c 000000' \
# timeout 600 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
# before-sleep 'swaylock -f -c 000000'
#
# This will lock your screen after 300 seconds of inactivity, then turn off
# your displays after another 300 seconds, and turn your screens back on when
# resumed. It will also lock your screen before your computer goes to sleep.
### Input configuration
#
# Example configuration:
#
# input "2:14:SynPS/2_Synaptics_TouchPad" {
# dwt enabled
# tap enabled
# natural_scroll enabled
# middle_emulation enabled
# }
#
# You can get the names of your inputs by running: swaymsg -t get_inputs
# Read `man 5 sway-input` for more information about this section.
### Key bindings
#
# Basics:
#
# Start a terminal
bindsym $mod+Return exec $term
# Kill focused window
bindsym $mod+Shift+q kill
# Start your launcher
bindsym $mod+d exec $menu
# Drag floating windows by holding down $mod and left mouse button.
# Resize them with right mouse button + $mod.
# Despite the name, also works for non-floating windows.
# Change normal to inverse to use left mouse button for resizing and right
# mouse button for dragging.
floating_modifier $mod normal
# Reload the configuration file
bindsym $mod+Shift+c reload
# Exit sway (logs you out of your Wayland session)
bindsym $mod+Shift+e exec swaynag -t warning -m 'You pressed the exit shortcut. Do you really want to exit sway? This will end your Wayland session.' -b 'Yes, exit sway' 'swaymsg exit'
#
# Moving around:
#
# Move your focus around
bindsym $mod+$left focus left
bindsym $mod+$down focus down
bindsym $mod+$up focus up
bindsym $mod+$right focus right
# Or use $mod+[up|down|left|right]
bindsym $mod+Left focus left
bindsym $mod+Down focus down
bindsym $mod+Up focus up
bindsym $mod+Right focus right
# Move the focused window with the same, but add Shift
bindsym $mod+Shift+$left move left
bindsym $mod+Shift+$down move down
bindsym $mod+Shift+$up move up
bindsym $mod+Shift+$right move right
# Ditto, with arrow keys
bindsym $mod+Shift+Left move left
bindsym $mod+Shift+Down move down
bindsym $mod+Shift+Up move up
bindsym $mod+Shift+Right move right
#
# Workspaces:
#
# Switch to workspace
bindsym $mod+1 workspace number 1
bindsym $mod+2 workspace number 2
bindsym $mod+3 workspace number 3
bindsym $mod+4 workspace number 4
bindsym $mod+5 workspace number 5
bindsym $mod+6 workspace number 6
bindsym $mod+7 workspace number 7
bindsym $mod+8 workspace number 8
bindsym $mod+9 workspace number 9
bindsym $mod+0 workspace number 10
# Move focused container to workspace
bindsym $mod+Shift+1 move container to workspace number 1
bindsym $mod+Shift+2 move container to workspace number 2
bindsym $mod+Shift+3 move container to workspace number 3
bindsym $mod+Shift+4 move container to workspace number 4
bindsym $mod+Shift+5 move container to workspace number 5
bindsym $mod+Shift+6 move container to workspace number 6
bindsym $mod+Shift+7 move container to workspace number 7
bindsym $mod+Shift+8 move container to workspace number 8
bindsym $mod+Shift+9 move container to workspace number 9
bindsym $mod+Shift+0 move container to workspace number 10
# Note: workspaces can have any name you want, not just numbers.
# We just use 1-10 as the default.
#
# Layout stuff:
#
# You can "split" the current object of your focus with
# $mod+b or $mod+v, for horizontal and vertical splits
# respectively.
bindsym $mod+b splith
bindsym $mod+v splitv
# Switch the current container between different layout styles
bindsym $mod+s layout stacking
bindsym $mod+w layout tabbed
bindsym $mod+e layout toggle split
# Make the current focus fullscreen
bindsym $mod+f fullscreen
# Toggle the current focus between tiling and floating mode
bindsym $mod+Shift+space floating toggle
# Swap focus between the tiling area and the floating area
bindsym $mod+space focus mode_toggle
# Move focus to the parent container
bindsym $mod+a focus parent
#
# Scratchpad:
#
# Sway has a "scratchpad", which is a bag of holding for windows.
# You can send windows there and get them back later.
# Move the currently focused window to the scratchpad
bindsym $mod+Shift+minus move scratchpad
# Show the next scratchpad window or hide the focused scratchpad window.
# If there are multiple scratchpad windows, this command cycles through them.
bindsym $mod+minus scratchpad show
#
# Resizing containers:
#
mode "resize" {
# left will shrink the containers width
# right will grow the containers width
# up will shrink the containers height
# down will grow the containers height
bindsym $left resize shrink width 10px
bindsym $down resize grow height 10px
bindsym $up resize shrink height 10px
bindsym $right resize grow width 10px
# Ditto, with arrow keys
bindsym Left resize shrink width 10px
bindsym Down resize grow height 10px
bindsym Up resize shrink height 10px
bindsym Right resize grow width 10px
# Return to default mode
bindsym Return mode "default"
bindsym Escape mode "default"
}
bindsym $mod+r mode "resize"
#
# Status Bar:
#
# Read `man 5 sway-bar` for more information about this section.
bar {
position top
# When the status_command prints a new line to stdout, swaybar updates.
# The default just shows the current date and time.
status_command while date +'%Y-%m-%d %l:%M:%S %p'; do sleep 1; done
colors {
statusline #ffffff
background #323232
inactive_workspace #32323200 #32323200 #5c5c5c
}
}
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*

View File

@@ -1,55 +0,0 @@
: 1640634603:0;guix install pfetch
: 1640634927:0;i
: 1640635399:0;ls
: 1640635401:0;cd Projects
: 1640635401:0;ls
: 1640635402:0;cd Code
: 1640635402:0;ls
: 1640635423:0;git clone https://git.savannah.gnu.org/git/guix.git ~/Guix
: 1640635497:0;ls
: 1640635500:0;ls -la
: 1640635501:0;cd ..
: 1640635501:0;ls
: 1640635509:0;mv ~/Guix Code/Guix
: 1640635510:0;ls
: 1640635511:0;cd Code
: 1640635512:0;ls
: 1640635514:0;cd Guix
: 1640635514:0;ls
: 1640636228:0;cd ~/Downloads
: 1640636228:0;ls
: 1640636236:0;cd ..
: 1640636236:0;ls
: 1640636238:0;cd Downloads
: 1640636239:0;ls
: 1640636303:0;find ~ -name elisp-tree
: 1640636308:0;find ~/ -name elisp-tree
: 1640636312:0;find ~/.* -name elisp-tree
: 1640636315:0;find ~/.* -name elisp-tree*
: 1640636318:0;find ~/.* -name elisp-tree
: 1640636327:0;find ~
: 1640636332:0;find ~/.* -name elisp
: 1640636337:0;find ~ -name elisp
: 1640636347:0;sudo find ~ -name elisp
: 1640636355:0;ls
: 1640636366:0;guix search nautilus
: 1640636381:0;guix search thunar
: 1640636395:0;guix install thunar
: 1640636527:0;ls
: 1640636558:0;cd ~/Bin
: 1640636558:0;ls
: 1640636563:0;guix install zip unzip
: 1640636665:0;ls
: 1640636671:0;unzip elisp-tree-sitter-0.16.1.zip
: 1640636672:0;ls
: 1640636681:0;cd elisp-tree-sitter-0.16.1
: 1640636682:0;ls
: 1640636685:0;cd ..
: 1640636692:0;guix hash elisp-tree-sitter-0.16.1
: 1640636703:0;guix hash -r elisp-tree-sitter-0.16.1
: 1640636710:0;guix hash --serializer elisp-tree-sitter-0.16.1
: 1640636727:0;guix hash -r elisp-tree-sitter-0.16.1
: 1640639001:0;ls
: 1640639010:0;guix package --install-from-file=emacs-tree-sitter.scm
: 1640717471:0;guix repl
: 1640717480:0;ls

File diff suppressed because it is too large Load Diff

View File

@@ -1,15 +0,0 @@
# Each new shell auto-imports all environment variables.
# Hence exporting needs to be done only once.
# Also, all non-login shells are descendants of a login shell.
# Ergo, exports need to be done in the login shell only.
# Hence, we put exports in .zprofile
# Only vars needed by external commands should be exported.
# Note that you can export vars w/out assigning a value to them.
export XDG_CONFIG_HOME=~/.config
export XDG_CACHE_HOME=~/.cache
export XDG_DATA_HOME=~/.local/share
export XDG_STATE_HOME=~/.config/zsh
export EDITOR=nvim
export VISUAL=nvim
GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"

View File

@@ -1,402 +0,0 @@
: 1631168625:0;vim .zshrc
: 1631169669:0;wal ~/Downloads/grain.jpg
: 1631169685:0;wal -b /home/ry/Downloads/grain.jpg
: 1631169702:0;man wal
: 1631169723:0;wal --backend
: 1631169743:0;wal -i /home/ry/Downloads/grain.jpg
: 1631169806:0;ls
: 1631169832:0;mkdir ~/.config/alacritty
: 1631169849:0;vim ~/.config/alacritty/alacritty.yml
: 1631170200:0;wal -i ~/Downloads/grain.jpg
: 1631170207:0;wal -i ~/Downloads/grain.jpg -b
: 1631170222:0;wal -b -i ~/Downloads/grain.jpg
: 1631170346:0;vim ~/.config/awesome/rc.lua
: 1631170969:0;mkdir ~/.config/awesome/themes
: 1631170996:0;cp -R /usr/share/awesome/themes/* ~/.config/awesome/themes
: 1631171002:0;ls
: 1631171003:0;cd .config
: 1631171004:0;ls
: 1631171006:0;cd awesome
: 1631171006:0;ls
: 1631171009:0;vim rc.lua
: 1631171201:0;vim ~/.config/awesome/themes/default
: 1631171246:0;ls
: 1631171255:0;rm -r themes
: 1631171255:0;ls
: 1631171269:0;vim rc.lua
: 1631171553:0;sudo pacman -S inconsolata
: 1631171572:0;sudo pacman -Ss inconsolata
: 1631171580:0;sudo pacman -S ttf-inconsolata
: 1631171776:0;vim rc.lua
: 1631171957:0;sudo pacman -S zip unzip
: 1631171977:0;cd Downloads
: 1631171980:0;unzip Hack-v3.003-ttf.zip
: 1631171981:0;ls
: 1631171987:0;cd ttf
: 1631171988:0;ls
: 1631171989:0;cd ..
: 1631171990:0;ls
: 1631172033:0;cp ttf/* /usr/share/fonts
: 1631172085:0;mv ttf hack
: 1631172096:0;sudo cp hack /usr/share/fonts/
: 1631172104:0;sudo cp -r hack /usr/share/fonts/
: 1631172109:0;ls
: 1631172111:0;cd hack
: 1631172112:0;ls
: 1631172113:0;cd ..
: 1631172217:0;fc-cache -f -v
: 1631172234:0;fc-list | grep "Hack"
: 1631172291:0;vim ~/.config/alacritty/alacritty.yml
: 1631173180:0;sudo pacman -S picom
: 1631173359:0;vim /usr/share/awesome/themes/default/theme.lua
: 1631173453:0;vim rc.lua
: 1631173502:0;vim /usr/share/awesome/themes/default/theme.lua
: 1631173517:0;sudo vim /usr/share/awesome/themes/default/theme.lua
: 1631173575:0;sudo -i
: 1631173807:0;pacman -S --needed lightdm-webkit2-greeter lightdm-webkit-theme-litarvan
: 1631173810:0;sudo pacman -S --needed lightdm-webkit2-greeter lightdm-webkit-theme-litarvan
: 1631173827:0;sudo vim /etc/lightdm/lightdm.conf
: 1631173861:0;sudo vim /etc/lightdm/lightdm-webkit2-greeter.conf
: 1631173882:0;reboot
: 1631174209:0;sudo -i
: 1631174291:0;mv ~/Downloads/grain.jpg ~/Pictures/grain.jpg
: 1631174307:0;vim ~/.config/awesome/rc.lua
: 1631174714:0;man shutdown
: 1631174741:0;man poweroff
: 1631174762:0;poweroff -f
: 1631174765:0;sudo poweroff -f
: 1631203235:0;ls
: 1631203239:0;ls -la
: 1631203437:0;ls
: 1631203442:0;cd Downloads
: 1631203442:0;ls
: 1631203447:0;unzip Attachments-asd.zip
: 1631203449:0;ls
: 1631203459:0;mkdir ~/.ssh
: 1631203463:0;mv config ~/.ssh
: 1631203469:0;mv id_rsa ~/.ssh
: 1631203478:0;mv id_rsa.pub ~/.ssh/
: 1631203487:0;mv known_hosts ~/.ssh
: 1631203490:0;ssh-add
: 1631203502:0;chmod 600 ~/.ssh/id_rsa
: 1631203505:0;chmod 600 ~/.ssh/id_rsa.pub
: 1631203508:0;ssh-add
: 1631203518:0;ssh mail
: 1631204194:0;ls
: 1631205222:0;ls -la
: 1631205240:0;sudo vim /etc/lightdm/lightdm.conf
: 1631205263:0;reboot
: 1631205489:0;ls
: 1631205495:0;ls -la
: 1631205701:0;uname -a
: 1631205719:0;uname
: 1631205722:0;name -a
: 1631205725:0;uname -a
: 1631206735:0;vim ~/.config/awesome/rc.lua
: 1631206901:0;ssh mail
: 1631207021:0;sudo pacman -S terminfo
: 1631207026:0;terminfo
: 1631207140:0;vim ~/.config/alacritty/alacritty.yml
: 1631207171:0;ssh mail
: 1631207341:0;vim ~/.zshrc
: 1631207398:0;vim ~/.config/alacritty/alacritty.yml
: 1631207419:0;ssh mail
: 1631207707:0;xflock4
: 1631208953:0;ssh mail
: 1631209463:0;ls -la /etc/lightdm
: 1631209504:0;sudo systemctl status lightdm
: 1631209564:0;sudo vim /etc/lightdm/lightdm.conf
: 1631210719:0;ssh mail
: 1631211283:0;ls
: 1631211284:0;ls -la
: 1631211293:0;cat .Xauthority
: 1631211299:0;cat .xsession-errors
: 1631211316:0;ls
: 1631211443:0;vim ~/.xprofile
: 1631211488:0;sudo -i
: 1631211817:0;ls
: 1631211820:0;vim ~/.xsession-errors
: 1631211833:0;vim ~/.Xsession
: 1631211958:0;which nitrogen
: 1631212118:0;lightdm --version
: 1631212155:0;vim ~/.config/awesome/rc.lua
: 1631213050:0;sudo pacman -Rs nitrogen
: 1631213259:0;vim ~/.config/awesome/rc.lua
: 1631213504:0;sudo -i
: 1631213545:0;ls
: 1631213547:0;cd .config
: 1631213547:0;ls
: 1631213552:0;cd awesome
: 1631213557:0;sudo chmod 644 default
: 1631213557:0;ls
: 1631213558:0;ls -la
: 1631213574:0;sudo chmod 744 default
: 1631213575:0;ls
: 1631213576:0;ls -la
: 1631213578:0;cd default
: 1631213578:0;ls
: 1631213587:0;sudo chown ry:ry default
: 1631213588:0;ls
: 1631213589:0;ls -la
: 1631213590:0;cd default
: 1631213591:0;ls
: 1631213592:0;ls -la
: 1631213600:0;sudo chown -r ry:ry default
: 1631213603:0;sudo chown -R ry:ry default
: 1631213609:0;sudo chown -R ry:ry ../default
: 1631213610:0;ls -la
: 1631213618:0;vim theme.lua
: 1631213715:0;vim ../rc.lua
: 1631213765:0;SSH MAIL
: 1631213767:0;ssh mail
: 1631214012:0;ls
: 1631214014:0;ls -la
: 1631214018:0;pwd
: 1631214068:0;ls
: 1631214073:0;vim theme.lua
: 1631214117:0;cd .config
: 1631214117:0;ls
: 1631214293:0;cd ..
: 1631214293:0;ls
: 1631214321:0;vim autorun.sh
: 1631214406:0;cp ~/Pictures/grain.jpg ~/.config/
: 1631214415:0;rm ~/.config/grain.jpg
: 1631214421:0;sudo pacman -S feh
: 1631214469:0;which wal
: 1631214660:0;wal -i ~/Pictures/grain.jpg
: 1631214675:0;sudo pacman -S imagemagick
: 1631214710:0;wal -i ~/Pictures/grain.jpg
: 1631214795:0;ls
: 1631214803:0;vim default/theme.lua
: 1631214822:0;vim rc.lua
: 1631215060:0;ls
: 1631215061:0;pwd
: 1631215077:0;mkdir themes
: 1631215082:0;mv default themes
: 1631215083:0;ls
: 1631215116:0;vim themes/default/theme.lua
: 1631215219:0;cp ~/Pictures/grain.jpg ~/.config/awesome/themes/default/pic.jpg
: 1631215475:0;ls ~/.config/awesome/themes/default/pic.jpg
: 1631215559:0;ls
: 1631215578:0;ls -la
: 1631215601:0;chmod -R 664 ~/.config
: 1631215612:0;ls -la
: 1631215614:0;cd ..
: 1631215615:0;ls -la
: 1631215616:0;cd
: 1631215617:0;ls -la
: 1631215633:0;sudo chmod -R 664 ~/.config
: 1631215647:0;ls
: 1631215649:0;cd .config
: 1631215650:0;ls
: 1631215651:0;ls -la
: 1631215666:0;sudo chmod -R 774 ~/.config
: 1631215773:0;~
: 1631215774:0;ls
: 1631215836:0;cd .config/awesome
: 1631215836:0;ls
: 1631215837:0;ls -la
: 1631215852:0;vim themes/default/theme.lua
: 1631216516:0;sudo pacman -Syyu
: 1631216552:0;vim /etc/pacman.conf
: 1631216635:0;ls
: 1631216643:0;vim ~/.config/user-dirs.locale
: 1631216648:0;vim ~/.config/user-dirs.dirs
: 1631216688:0;ls
: 1631216695:0;rm -r Desktop
: 1631216695:0;ls
: 1631216700:0;mv Documents docs
: 1631216707:0;mv Downloads dls
: 1631216708:0;ls
: 1631216715:0;mv Music music
: 1631216718:0;mv Pictures pics
: 1631216731:0;ls
: 1631216734:0;rm Public Templates
: 1631216738:0;rm -r Public Templates
: 1631216739:0;ls
: 1631216743:0;mv Videos vids
: 1631216743:0;ls
: 1631216803:0;cd scripts
: 1631216803:0;ls
: 1631216816:0;ls -la
: 1631216945:0;ls
: 1631216975:0;sudo pacman -S neovim
: 1631216988:0;ls
: 1631216991:0;neofetch
: 1631217001:0;ls
: 1631217034:0;cd ~/.config
: 1631217034:0;ls
: 1631217037:0;ls -la
: 1631217056:0;vim neofetch/config.conf
: 1631217261:0;ssh mail
: 1631218022:0;ls
: 1631218031:0;sudo vim /etc/pacman.conf
: 1631218049:0;sudo cp /etc/pacman.conf /etc/pacman.conf.bak
: 1631218053:0;ls
: 1631218057:0;vim /etc/pacman.conf
: 1631218083:0;sudo vim /etc/pacman.conf
: 1631218112:0;man pacman
: 1631218129:0;pacman -Q endeavor
: 1631218130:0;pacman -Q endeavor*
: 1631218133:0;pacman -Q
: 1631218186:0;pacman -S | tee ~/output.txt
: 1631218193:0;pacman -Q | tee ~/output.txt
: 1631218195:0;ls
: 1631218470:0;sudo pacman -Rs endeavoros-keyring endeavoros-mirrorlist endeavor-skel-xfce4 endeavoros-theming endeavoros-xfce4-terminal-colors eos-apps-info eos-bash-shared eos-hooks eos-log-tool eos-rankmirrors eos-translations eos-update-notifier
: 1631218515:0;pacman -Q endeavouros-keyring
: 1631218522:0;pacman -R endeavouros-keyring
: 1631218525:0;sudo pacman -R endeavouros-keyring
: 1631218533:0;sudo pacman -R endeavouros-mirrorlist
: 1631218548:0;sudo pacman -R endeavouros-skel-xfce4 endeavouros-theming endeavouros-xfce4-terminal-colors
: 1631218566:0;sudo pacman -R eos-bash-shared
: 1631218576:0;sudo pacman -R eos-log-tool
: 1631218580:0;sudo pacman -R eos-hooks
: 1631218585:0;sudo pacman -R eos-rankmirrors
: 1631218591:0;sudo pacman -R eos-apps-info
: 1631218596:0;sudo pacman -R eos-bash-shared
: 1631218601:0;sudo pacman -R eos-translations
: 1631218606:0;sudo pacman -R eos-update-notifier
: 1631218612:0;sudo pacman -R welcome
: 1631218622:0;sudo pacman -R endeavouros-skel-xfce4
: 1631218627:0;sudo pacman -R endeavouros-theming
: 1631218636:0;sudo pacman -R endeavouros-xfce4-terminal-colors
: 1631218640:0;sudo pacman -R endeavouros-theming
: 1631218648:0;sudo pacman -R eos-bash-shared
: 1631218655:0;sudo pacman -R reflector-simple
: 1631218658:0;sudo pacman -R eos-bash-shared
: 1631218661:0;sudo pacman -R endeavouros-theming
: 1631218678:0;sudo pacman -Syyu
: 1631218728:0;sudo pacman -Scc
: 1631218753:0;pacman -S filesystem
: 1631218756:0;sudo pacman -S filesystem
: 1631218763:0;sudo pacman -S grub
: 1631218775:0;vim /etc/default/grub
: 1631218794:0;sudo -i
: 1631219694:0;ssh mail
: 1631220256:0;sudo pacman -S zathura-pdf-mupdf
: 1631220336:0;ssh mail
: 1631223216:0;uname -r
: 1631223220:0;neofetch
: 1631223230:0;pacman -S lsb-release
: 1631223233:0;sudo pacman -S lsb-release
: 1631223240:0;neofetch
: 1631223251:0;ls
: 1631223253:0;cd bin
: 1631223253:0;ls
: 1631223319:0;vim ~/.config/user-dirs.dirs
: 1631223334:0;cd
: 1631223340:0;rm -rf Public Templates Desktop
: 1631223341:0;ls
: 1631223361:0;cd go
: 1631223361:0;ls
: 1631223362:0;cd ..
: 1631223363:0;rm go
: 1631223364:0;ls
: 1631223367:0;rm -r go
: 1631223367:0;ls
: 1631223370:0;rm output.txt
: 1631223371:0;ls
: 1631223379:0;vim ~/.config/user-dirs.dirs
: 1631223451:0;ls
: 1631223453:0;rm -r Desktop
: 1631223453:0;ls
: 1631223455:0;ls -la
: 1631223458:0;ls
: 1631224903:0;pkill lightdm
: 1631224906:0;sudo pkill lightdm
: 1631225001:0;pacman -Q | grep lightdm
: 1631225014:0;ls
: 1631225048:0;xdg-user-dirs-update
: 1631225056:0;rm -r Desktop Public Templates
: 1631225056:0;ls
: 1631225067:0;vim ~/.config/user-dirs.dirs
: 1631225082:0;ls
: 1631225977:0;cd .config
: 1631225977:0;ls
: 1631226648:0;git init
: 1631226679:0;ls
: 1631226683:0;vim .gitignore
: 1631226723:0;cd .config
: 1631226729:0;ls
: 1631226785:0;git add .
: 1631226788:0;git commit -m "first"
: 1631226803:0;git config --global user.email "rpem66@pm.me"
: 1631226825:0;git config --global user.name "Ry"
: 1631226826:0;ls
: 1631226830:0;git commit -m "first"
: 1631226835:0;ls
: 1631226854:0;git remote add origin http://git.tr909.sh/ry/dotfiles.git
: 1631226858:0;git push origin master
: 1631226882:0;cd .config
: 1631226885:0;vim .gitignore
: 1631226935:0;git add .
: 1631226939:0;git commit -m "first"
: 1631226942:0;git push origin master
: 1631227729:0;cd bin
: 1631227735:0;$ git clone --depth=1 https://github.com/adi1090x/rofi.git
: 1631227743:0;git clone --depth=1 https://github.com/adi1090x/rofi.git
: 1631227745:0;ls
: 1631227750:0;cd rofi
: 1631227750:0;ls
: 1631227759:0;chmod +x setup.sh
: 1631227762:0;./setup.sh
: 1631227876:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631227970:0;vim ~/.config/awesome/rc.lua
: 1631228023:0;ls
: 1631228028:0;cd ..
: 1631228029:0;ls
: 1631228032:0;cd ~/.config/rofi
: 1631228033:0;l
: 1631228034:0;ls
: 1631228040:0;./launchers/text/launcher.sh
: 1631228048:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228090:0;vim ~/.config/rofi/launchers/text/styles/colors.rasi
: 1631228146:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228157:0;vim ~/.config/awesome/rc.lua
: 1631228217:0;vim ~/.config/rofi/launchers/text/launcher.sh
: 1631228284:0;vim ~/.config/rofi/launchers/text/styles/colors.rasi
: 1631228353:0;;s
: 1631228354:0;ls
: 1631228355:0;cd ..
: 1631228355:0;ls
: 1631228362:0;git add .
: 1631228368:0;git commit -m "added rofi stuff"
: 1631228373:0;git push origin master
: 1631228433:0;ls
: 1631228527:0;sudo vim /etc/zsh/zshenv
: 1631228550:0;mkdir ~/.config/zsh
: 1631228566:0;mv ~/.zshrc ~/.config/zsh
: 1631228567:0;ls
: 1631228584:0;source ~/.config/zsh/.zshrc
: 1631228593:0;ls
: 1631228594:0;ls -la
: 1631228603:0;rm -rf EOS-greeter.conf
: 1631228607:0;rm EOS-initial-wallpaper.XFCE
: 1631228608:0;ls
: 1631228613:0;rm reflector-simple-free-params.txt
: 1631228623:0;sudo pacman -Rs neofetch
: 1631228625:0;ls
: 1631228629:0;rm -r neofetch
: 1631228629:0;ls
: 1631228632:0;cd ../bin
: 1631228633:0;ls
: 1631228647:0;git clone https://github.com/dylanaraps/pfetch.git
: 1631228650:0;ls
: 1631228652:0;cd pfetch
: 1631228652:0;ls
: 1631228655:0;cat README.md
: 1631228672:0;make pfetch
: 1631228674:0;ls
: 1631228677:0;sudo make install pfetch
: 1631228686:0;sudo make pfetch
: 1631228709:0;make install pfetch
: 1631228712:0;make install
: 1631228714:0;sudo make install
: 1631228715:0;ls
: 1631228716:0;pfetch
: 1631228726:0;vim ~/.config/zsh/.zshrc
: 1631228785:0;cd .config
: 1631228785:0;ls
: 1631228788:0;vim .gitignore
: 1631228808:0;ls
: 1631228818:0;mv ~/.zsh_history ~/.config/zsh/

View File

@@ -1,66 +0,0 @@
[[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
# --- zsh config --- #
export ZSH="$XDG_CONFIG_HOME/oh-my-zsh"
HISTFILE=$XDG_CONFIG_HOME/zsh/.history
ZSH_THEME="mrtazz"
DISABLE_AUTO_UPDATE="true"
ENABLE_CORRECTION="true"
plugins=(git)
# This has to stay below plugins.
source $ZSH/oh-my-zsh.sh
# --- user paths --- #
# scripts
export PATH=/home/ry/scripts:$PATH
# cron scripts
export PATH=/home/ry/scripts/cron-scripts:$PATH
# doom
export PATH=~/.config/emacs/bin:$PATH
# GNU Guix path
export PATH=/home/ry/.guix-profile/bin:$PATH
# --- locale --- #
export LANG=en_US.UTF-8
# --- autostart --- #
pfetch
# --- Functions --- #
# Move files to trash folder instead.
del () { mv "$@" $HOME/.local/share/Trash/files/.; }
# Make directory and CD into it.
mkcd () { mkdir -p -- "$1" && cd -P -- "$1" }
# --- Aliases --- #
# dnf
alias install="sudo dnf -y install"
alias remove="sudo dnf remove"
alias search="dnf search"
alias update="sudo dnf update"
# qol
alias vi="nvim"
alias vim="nvim"
alias unmount="umount"
# systemD
alias sr="sudo systemctl restart"
alias se="sudo systemctl enable"
alias sen="sudo systemctl enable --now"
alias sd="sudo systemctl disable"
# git
alias ga="git add"
alias gc="git commit -m"
alias gs="git status"
alias gd="git diff"
alias gm="git merge"
alias gp="git push"
alias gco="git checkout"
# config
alias zshrc="vim ~/dotfiles/.config/zsh/.zshrc"
alias zshrcsource="source ~/.config/zsh/.zshrc"
# firewalld
alias fcmd="firewall-cmd"

View File

@@ -1,3 +0,0 @@
: 1633197304:0;ls
: 1633197308:0;vim .zshrc
: 1633197317:0;zshrcsource

View File

@@ -1,21 +0,0 @@
{
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:profile:off": [ ],
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:profile:off": [ ],
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:profile:output:analog-stereo+input:mono-fallback": [ "analog-output-speaker" ],
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:profile:HiFi": [ ],
"default.route.alsa_card.usb-C-Media_Electronics_Inc._USB_Audio_Device-00:output:analog-output-speaker": { "mute": false, "volumes": [ 0.438993, 0.438993 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:output:[Out] Speaker": { "mute": true, "volumes": [ 0.551383, 0.551383 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:input:[In] Mic1": { "mute": true, "volumes": [ 0.399992, 0.399992, 0.399992, 0.399992 ], "channels": [ "FL", "FR", "RL", "RR" ], "latencyOffsetNsec": 0 },
"default.route.bluez_card.00_1B_66_BD_13_AA:profile:a2dp-sink-aac": [ "headphone-output" ],
"default.route.bluez_card.00_1B_66_BD_13_AA:output:headphone-output": { "mute": false, "volumes": [ 0.017544, 0.017544 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.bluez_card.B8_F6_53_95_E8_5B:profile:a2dp-sink-sbc": [ "speaker-output" ],
"default.route.bluez_card.B8_F6_53_95_E8_5B:output:speaker-output": { "mute": false, "volumes": [ 0.830590, 0.830590 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.pci-0000_00_1f.3-platform-skl_hda_dsp_generic:output:[Out] Headphones": { "mute": false, "volumes": [ 0.031800, 0.031800 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:off": [ ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:off": [ ],
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:output:analog-stereo+input:mono-fallback": [ "analog-output-speaker" ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:output:analog-stereo+input:analog-stereo": [ ],
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:output:analog-output-speaker": { "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ], "latencyOffsetNsec": 0 },
"default.route.alsa_card.usb-0c76_USB_PnP_Audio_Device-00:profile:output:iec958-stereo+input:mono-fallback": [ ],
"default.route.alsa_card.pci-0000_00_1f.3:profile:output:hdmi-stereo+input:analog-stereo": [ ]
}

View File

@@ -1,14 +0,0 @@
{
"restore.stream.Output/Audio.application.name:Firefox": { "volume": 1.000000, "mute": false, "volumes": [ 0.984018, 0.984018 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.media.role:Notification": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:eSpeak": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ] },
"restore.stream.Output/Audio.application.name:speech-dispatcher-espeak-ng": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:speech-dispatcher-dummy": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:Tor Browser": { "volume": 1.000000, "mute": false, "volumes": [ 0.000000, 0.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Input/Audio.application.name:GNOME Settings": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:VirtualBoxVM": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:Chromium": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.application.name:WEBRTC VoiceEngine": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000, 1.000000 ], "channels": [ "FL", "FR" ] },
"restore.stream.Output/Audio.media.role:Movie": { "volume": 1.000000, "mute": false, "volumes": [ 1.000000 ], "channels": [ "MONO" ] },
"restore.stream.Output/Audio.application.name:IceCat": { "volume": 1.000000, "mute": false, "volumes": [ 0.585362, 0.585362 ], "channels": [ "FL", "FR" ] }
}

View File

@@ -1,201 +0,0 @@
(use-modules
(gnu)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu home services shepard)
(gnu packages libreoffice)
(gnu packages mail)
(gnu packages pdf))
(home-environment
(packages
(append
;; Tools/Libraries
(list
gcc-toolchain
wget
curl
cmake
make
zip
unzip
libtool
openssl
openssh
gst-plugins-bad
gst-plugins-base
gst-plugins-good
gst-plugins-ugly
gst-libav
wl-clipboard
zsh
gnupg)
;; Applications
(list
alacritty
nyxt
zathura-pdf-mupdf
thunar
firefox
wl-randr
libreoffice
calibre
mpv
youtube-dl
icedove
keepassxc
nautilus)
;; Emacs
(list
emacs-vterm
emacs-geiser
emacs-geiser-guile
emacs-doom-modeline
emacs-all-the-icons
emacs-all-the-icons-dired
emacs-general
emacs-which-key
emacs-alert
emacs-helpful
emacs-pinentry
emacs-doom-themes
emacs-evil
emacs-evil-collection
emacs-vertico
emacs-orderless
emacs-consult
emacs-company
emacs-marginalia
emacs-perspective
emacs-dired-rsync
emacs-dired-hacks
emacs-org-bullets
emacs-org-make-toc
emacs-visual-fill-column
emacs-flycheck
emacs-rainbow-mode
emacs-rainbow-delimiters
emacs-magit
emacs-projectile
emacs-lsp-mode
emacs-lsp-ui
emacs-treemacs
emacs-lsp-treemacs
emacs-parinfer
emacs-yasnippet
emacs-pdf-tools)
;; Languages
(list
ruby
python
guile
sbcl
perl
python-lsp-server
ruby-solargraph)
;; Aesthetics/Fonts
(list
gnome-tweaks
papirus-icon-theme
arc-theme
font-fira-mono
font-fira-code
font-fira-sans
font-abattis-cantarell
font-google-noto
font-awesome)))
(services
(append
;; Shell
(list
(service home-zsh-service-type
(home-zsh-configuration
;; Place all configs to $XDG_CONFIG_HOME/zsh. Makes
;; ~/.zshenv set ZDOTDIR to $XDG_CONFIG_HOME/zsh
;; and shell process starts with ~/.config/zsh/.zshenv
(xdg-flavor? #t)
;; .zshenv
(zshenv
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zshenv")
"/.config/zsh/.zshenv")))
;; .zprofile
(zprofile
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zprofile")
"/.config/zsh/.zprofile")))
;; .zshrc
(zshrc
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zshrc")
"/.config/zsh/.zshrc"))))))
;; Files
(list
(simple-service 'user-dirs-config
home-files-service-type
(list
`(".config/user-dirs.dirs"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/user-dirs.dirs")))))
(simple-service 'emacs-config
home-files-service-type
(list
`(".config/emacs/init.el"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/emacs/init.el")))))
(simple-service 'nyxt-config
home-files-service-type
(list
`(".config/nyxt/init.lisp"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/nyxt/init.lisp")))))
(simple-service 'dunst-config
home-files-service-type
(list
`(".config/dunst/dunstrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/dunst/dunstrc")))))
(simple-service 'mbsync-config
home-files-service-type
(list
`(".config/mbsync/mbsyncrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/mbsync/mbsyncrc")))))
(simple-service 'alacritty-config
home-files-service-type
(list
`(".config/alacritty/alacritty.yml"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/alacritty/alacritty.yml"))))))
;; Daemons
(list
(service home-shepard-service-type
(home-shepherd-configuration
(services
(list
(shepard-service
(provision '(emacs))
(start #~(make-system-constructor "emacs --daemon"))
(stop #~(make-system-constructor "emacsclient -e '(kill-emacs)'")))
(shepard-service
(provision '(gnome-keyring-daemon))
(start #~(make-system-contructor "gnome-keyring-daemon --daemonize "))
(stop #~(make-system-contructor "pkill gnome-keyring-daemon")))))))))))

View File

@@ -1,851 +0,0 @@
#+TITLE: Desktop Configuration
This =.org= document is where I store all of my small time user-level configuration.
I prefer to use programs that I can extend the functionality of via configuration files and source code.
* Sway
** General
*** Include
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*
#+end_src
*** Mod Key
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
set $mod Mod4
#+end_src
*** Directional Keys
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
set $left h
set $down j
set $up k
set $right l
#+end_src
*** Applications
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Terminal
set $term alacritty
# Application Launcher
set $menu dmenu_path | dmenu | xargs swaymsg exec --
#+end_src
*** Opacity
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
set $opacity 0.92
for_window [class=".*"] opacity $opacity
for_window [app_id=".*"] opacity $opacity
#+end_src
*** Borders and Gaps
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Window Borders
default_border none
# Gaps
gaps top 2
gaps inner 3
# gaps outer 3
#+end_src
*** Mouse Behavior
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Hide mouse cursor after inactivity
seat * hide_cursor 4000
#+end_src
*** Autostart
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Notifications
exec_always dunst
# Wlsunset (Night Light)
exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
#+end_src
*** Wallpaper & Monitor(s)
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Wallpaper
output * bg /home/opal/Dotfiles/guix-wallpaper.jpg stretch
# Monitors
# You can get the names of your outputs by running: swaymsg -t get_outputs
output eDP-1 resolution 1920x1080 position 0,0
#+end_src
*** Idle Behavior
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
### Idle configuration
# This will lock your screen after 300 seconds of inactivity, then turn off
# your displays after another 300 seconds, and turn your screens back on when
# resumed. It will also lock your screen before your computer goes to sleep.
exec swayidle -w \
timeout 300 'swaylock -f -c 000000' \
timeout 600 'swaymsg "output * dpms off"' resume 'swaymsg "output * dpms on"' \
before-sleep 'swaylock -f -c 000000'
#+end_src
*** Input
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
### Input configuration
#
# Example configuration:
#
# input "2:14:SynPS/2_Synaptics_TouchPad" {
# dwt enabled
# tap enabled
# natural_scroll enabled
# middle_emulation enabled
# }
#
# You can get the names of your inputs by running: swaymsg -t get_inputs
# Read `man 5 sway-input` for more information about this section.
input type:keyboard {
# Capslock key should work as escape key
# See /usr/share/X11/xkb/rules/xorg.lst for options
xkb_options caps:escape
repeat_delay 250
repeat_rate 45
}
#+end_src
** Keybindings
*** General
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Start a terminal
bindsym $mod+Return exec $term
# Kill focused window
bindsym $mod+Shift+q kill
# Lock SwayWM
bindsym Control+Shift+l exec swaylock
# Start your launcher
bindsym $mod+d exec $menu
# Change normal to inverse to use left mouse button for resizing and right
# mouse button for dragging.
floating_modifier $mod normal
# Reload the configuration file
bindsym $mod+Shift+c reload
# Exit sway (logs you out of your Wayland session)
bindsym $mod+Shift+x exec swaymsg -r exit
#+end_src
*** Navigation & Focus
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Moving around:
# Move your focus around
bindsym $mod+$left focus left
bindsym $mod+$down focus down
bindsym $mod+$up focus up
bindsym $mod+$right focus right
# Or use $mod+[up|down|left|right]
bindsym $mod+Left focus left
bindsym $mod+Down focus down
bindsym $mod+Up focus up
bindsym $mod+Right focus right
# Move the focused window with the same, but add Shift
bindsym $mod+Shift+$left move left
bindsym $mod+Shift+$down move down
bindsym $mod+Shift+$up move up
bindsym $mod+Shift+$right move right
# Ditto, with arrow keys
bindsym $mod+Shift+Left move left
bindsym $mod+Shift+Down move down
bindsym $mod+Shift+Up move up
bindsym $mod+Shift+Right move right
#+end_src
*** Workspaces
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
set $ws1 ۱
set $ws2 ۲
set $ws3 ۳
set $ws4 ۴
set $ws5 ۵
# Switch to workspace
bindsym $mod+1 workspace $ws1
bindsym $mod+2 workspace $ws2
bindsym $mod+3 workspace $ws3
bindsym $mod+4 workspace $ws4
bindsym $mod+5 workspace $ws5
# Move focused container to workspace
bindsym $mod+Shift+1 move container to workspace $ws1
bindsym $mod+Shift+2 move container to workspace $ws2
bindsym $mod+Shift+3 move container to workspace $ws3
bindsym $mod+Shift+4 move container to workspace $ws4
bindsym $mod+Shift+5 move container to workspace $ws5
#+end_src
*** Layout
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Layout stuff:
#
# You can "split" the current object of your focus with
# $mod+b or $mod+v, for horizontal and vertical splits
# respectively.
bindsym $mod+b splith
bindsym $mod+v splitv
# Switch the current container between different layout styles
bindsym $mod+s layout stacking
bindsym $mod+w layout tabbed
bindsym $mod+e layout toggle split
# Make the current focus fullscreen
bindsym $mod+f fullscreen
# Toggle the current focus between tiling and floating mode
bindsym $mod+Shift+space floating toggle
# Swap focus between the tiling area and the floating area
bindsym $mod+space focus mode_toggle
# Move focus to the parent container
bindsym $mod+a focus parent
#
# Scratchpad:
#
# Sway has a "scratchpad", which is a bag of holding for windows.
# You can send windows there and get them back later.
# Move the currently focused window to the scratchpad
bindsym $mod+Shift+minus move scratchpad
# Show the next scratchpad window or hide the focused scratchpad window.
# If there are multiple scratchpad windows, this command cycles through them.
bindsym $mod+minus scratchpad show
#
# Resizing containers:
#
mode "resize" {
# left will shrink the containers width
# right will grow the containers width
# up will shrink the containers height
# down will grow the containers height
bindsym $left resize shrink width 10px
bindsym $down resize grow height 10px
bindsym $up resize shrink height 10px
bindsym $right resize grow width 10px
# Ditto, with arrow keys
bindsym Left resize shrink width 10px
bindsym Down resize grow height 10px
bindsym Up resize shrink height 10px
bindsym Right resize grow width 10px
# Return to default mode
bindsym Return mode "default"
bindsym Escape mode "default"
}
bindsym $mod+r mode "resize"
#+end_src
** Swaybar
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
#
# Status Bar:
#
# Read `man 5 sway-bar` for more information about this section.
bar {
position top
gaps 5
# When the status_command prints a new line to stdout, swaybar updates.
# The default just shows the current date and time.
status_command while date +'%Y-%m-%d %l:%M:%S %p'; do sleep 1; done
colors {
statusline #ffffff
background #323232
inactive_workspace #32323200 #32323200 #5c5c5c
}
}
#+end_src
* Zsh
Aside from using e-shell for quick command line usage, I mainly use vterm with Zsh. It's a bit of a complicated setup but allows for the maximum number of files possible to live in .config instead of littering my home directory.
** zshrc
#+begin_src shell :tangle ~/dotfiles/guix/home/files/zsh/zshrc :mkdirp yes
[[ $TERM == "dumb" ]] && unsetopt zle && PS1='$ ' && return
# --- zsh config --- #
export ZSH="$XDG_CONFIG_HOME/oh-my-zsh"
HISTFILE=$XDG_CONFIG_HOME/zsh/.history
ZSH_THEME="mrtazz"
DISABLE_AUTO_UPDATE="true"
ENABLE_CORRECTION="true"
plugins=(git)
# This has to stay below plugins.
source $ZSH/oh-my-zsh.sh
# --- user paths --- #
# scripts
export PATH=/home/ry/scripts:$PATH
# cron scripts
export PATH=/home/ry/scripts/cron-scripts:$PATH
# doom
export PATH=~/.config/emacs/bin:$PATH
# GNU Guix path
export PATH=/home/ry/.guix-profile/bin:$PATH
# --- locale --- #
export LANG=en_US.UTF-8
# --- autostart --- #
pfetch
# --- Functions --- #
# Move files to trash folder instead.
del () { mv "$@" $HOME/.local/share/Trash/files/.; }
# Make directory and CD into it.
mkcd () { mkdir -p -- "$1" && cd -P -- "$1" }
# --- Aliases --- #
# dnf
alias install="sudo dnf -y install"
alias remove="sudo dnf remove"
alias search="dnf search"
alias update="sudo dnf update"
# qol
alias vi="nvim"
alias vim="nvim"
alias unmount="umount"
# systemD
alias sr="sudo systemctl restart"
alias se="sudo systemctl enable"
alias sen="sudo systemctl enable --now"
alias sd="sudo systemctl disable"
# git
alias ga="git add"
alias gc="git commit -m"
alias gs="git status"
alias gd="git diff"
alias gm="git merge"
alias gp="git push"
alias gco="git checkout"
# config
alias zshrc="vim ~/dotfiles/.config/zsh/.zshrc"
alias zshrcsource="source ~/.config/zsh/.zshrc"
# firewalld
alias fcmd="firewall-cmd"
#+end_src
**
** zprofile
#+begin_src shell :tangle ~/dotfiles/guix/home/files/zsh/zprofile :mkdirp yes
# Each new shell auto-imports all environment variables.
# Hence exporting needs to be done only once.
# Also, all non-login shells are descendants of a login shell.
# Ergo, exports need to be done in the login shell only.
# Hence, we put exports in .zprofile
# Only vars needed by external commands should be exported.
# Note that you can export vars w/out assigning a value to them.
export XDG_CONFIG_HOME=~/.config
export XDG_CACHE_HOME=~/.cache
export XDG_DATA_HOME=~/.local/share
export XDG_STATE_HOME=~/.config/zsh
export EDITOR=nvim
export VISUAL=nvim
GUIX_PROFILE="$HOME/.config/guix/current" . "$GUIX_PROFILE/etc/profile"
#+end_src
** zshenv
#+begin_src shell :tangle ~/dotfiles/guix/home/files/zsh/zshenv :mkdirp yes
if [[ -z "$XDG_CONFIG_HOME" ]]
then
export XDG_CONFIG_HOME="$HOME/.config"
fi
if [[ -d "$XDG_CONFIG_HOME/zsh" ]]
then
export ZDOTDIR="$XDG_CONFIG_HOME/zsh"
fi
#+end_src
#+RESULTS:
* Alacritty
#+begin_src sh :tangle ~/dotfiles/guix/home/files/alacritty.yml :mkdirp yes
# Env
env:
TERM: xterm-256color
# Font configuration
font:
normal:
family: inconsolata
style: Regular
bold:
family: inconsolata
style: Bold
italic:
family: inconsolata
style: Italic
bold_italic:
family: inconsolata
style: Bold Italic
size: 16
#+end_src
* Dunst
#+begin_src shell :tangle ~/dotfiles/guix/home/files/dunst/dunstrc
[global]
### Display ###
# Which monitor should the notifications be displayed on.
monitor = 0
# Display notification on focused monitor. Possible modes are:
# mouse: follow mouse pointer
# keyboard: follow window with keyboard focus
# none: don't follow anything
#
# "keyboard" needs a window manager that exports the
# _NET_ACTIVE_WINDOW property.
# This should be the case for almost all modern window managers.
#
# If this option is set to mouse or keyboard, the monitor option
# will be ignored.
follow = none
### Geometry ###
# dynamic width from 0 to 300
# width = (0, 300)
# constant width of 300
width = 300
# The maximum height of a single notification, excluding the frame.
height = 300
# Position the notification in the top right corner
origin = top-right
# Offset from the origin
offset = 10x50
# Scale factor. It is auto-detected if value is 0.
scale = 0
# Maximum number of notification (0 means no limit)
notification_limit = 0
### Progress bar ###
# Turn on the progess bar. It appears when a progress hint is passed with
# for example dunstify -h int:value:12
progress_bar = true
# Set the progress bar height. This includes the frame, so make sure
# it's at least twice as big as the frame width.
progress_bar_height = 10
# Set the frame width of the progress bar
progress_bar_frame_width = 1
# Set the minimum width for the progress bar
progress_bar_min_width = 150
# Set the maximum width for the progress bar
progress_bar_max_width = 300
# Show how many messages are currently hidden (because of
# notification_limit).
indicate_hidden = yes
# The transparency of the window. Range: [0; 100].
# This option will only work if a compositing window manager is
# present (e.g. xcompmgr, compiz, etc.). (X11 only)
transparency = 0
# Draw a line of "separator_height" pixel height between two
# notifications.
# Set to 0 to disable.
separator_height = 2
# Padding between text and separator.
padding = 8
# Horizontal padding.
horizontal_padding = 8
# Padding between text and icon.
text_icon_padding = 0
# Defines width in pixels of frame around the notification window.
# Set to 0 to disable.
frame_width = 3
# Defines color of the frame around the notification window.
frame_color = "#aaaaaa"
# Define a color for the separator.
# possible values are:
# * auto: dunst tries to find a color fitting to the background;
# * foreground: use the same color as the foreground;
# * frame: use the same color as the frame;
# * anything else will be interpreted as a X color.
separator_color = frame
# Sort messages by urgency.
sort = yes
# Don't remove messages, if the user is idle (no mouse or keyboard input)
# for longer than idle_threshold seconds.
# Set to 0 to disable.
# A client can set the 'transient' hint to bypass this. See the rules
# section for how to disable this if necessary
# idle_threshold = 120
### Text ###
font = Monospace 8
# The spacing between lines. If the height is smaller than the
# font height, it will get raised to the font height.
line_height = 0
# Possible values are:
# full: Allow a small subset of html markup in notifications:
# <b>bold</b>
# <i>italic</i>
# <s>strikethrough</s>
# <u>underline</u>
#
# For a complete reference see
# <https://docs.gtk.org/Pango/pango_markup.html>.
#
# strip: This setting is provided for compatibility with some broken
# clients that send markup even though it's not enabled on the
# server. Dunst will try to strip the markup but the parsing is
# simplistic so using this option outside of matching rules for
# specific applications *IS GREATLY DISCOURAGED*.
#
# no: Disable markup parsing, incoming notifications will be treated as
# plain text. Dunst will not advertise that it has the body-markup
# capability if this is set as a global setting.
#
# It's important to note that markup inside the format option will be parsed
# regardless of what this is set to.
markup = full
# The format of the message. Possible variables are:
# %a appname
# %s summary
# %b body
# %i iconname (including its path)
# %I iconname (without its path)
# %p progress value if set ([ 0%] to [100%]) or nothing
# %n progress value if set without any extra characters
# %% Literal %
# Markup is allowed
format = "<b>%s</b>\n%b"
# Alignment of message text.
# Possible values are "left", "center" and "right".
alignment = left
# Vertical alignment of message text and icon.
# Possible values are "top", "center" and "bottom".
vertical_alignment = center
# Show age of message if message is older than show_age_threshold
# seconds.
# Set to -1 to disable.
show_age_threshold = 60
# Specify where to make an ellipsis in long lines.
# Possible values are "start", "middle" and "end".
ellipsize = middle
# Ignore newlines '\n' in notifications.
ignore_newline = no
# Stack together notifications with the same content
stack_duplicates = true
# Hide the count of stacked notifications with the same content
hide_duplicate_count = false
# Display indicators for URLs (U) and actions (A).
show_indicators = yes
### Icons ###
# Align icons left/right/off
icon_position = left
# Scale small icons up to this size, set to 0 to disable. Helpful
# for e.g. small files or high-dpi screens. In case of conflict,
# max_icon_size takes precedence over this.
min_icon_size = 0
# Scale larger icons down to this size, set to 0 to disable
max_icon_size = 32
# Paths to default icons.
icon_path = /usr/share/icons/gnome/16x16/status/:/usr/share/icons/gnome/16x16/devices/
### History ###
# Should a notification popped up from history be sticky or timeout
# as if it would normally do.
sticky_history = yes
# Maximum amount of notifications kept in history
history_length = 20
### Misc/Advanced ###
# dmenu path.
dmenu = /usr/bin/dmenu -p dunst:
# Browser for opening urls in context menu.
browser = /usr/bin/xdg-open
# Always run rule-defined scripts, even if the notification is suppressed
always_run_script = true
# Define the title of the windows spawned by dunst
title = Dunst
# Define the class of the windows spawned by dunst
class = Dunst
# Define the corner radius of the notification window
# in pixel size. If the radius is 0, you have no rounded
# corners.
# The radius will be automatically lowered if it exceeds half of the
# notification height to avoid clipping text and/or icons.
corner_radius = 0
# Ignore the dbus closeNotification message.
# Useful to enforce the timeout set by dunst configuration. Without this
# parameter, an application may close the notification sent before the
# user defined timeout.
ignore_dbusclose = false
### Wayland ###
# These settings are Wayland-specific. They have no effect when using X11
# Uncomment this if you want to let notications appear under fullscreen
# applications (default: overlay)
# layer = top
# Set this to true to use X11 output on Wayland.
force_xwayland = false
### Legacy
# Use the Xinerama extension instead of RandR for multi-monitor support.
# This setting is provided for compatibility with older nVidia drivers that
# do not support RandR and using it on systems that support RandR is highly
# discouraged.
#
# By enabling this setting dunst will not be able to detect when a monitor
# is connected or disconnected which might break follow mode if the screen
# layout changes.
force_xinerama = false
### mouse
# Defines list of actions for each mouse event
# Possible values are:
# * none: Don't do anything.
# * do_action: Invoke the action determined by the action_name rule. If there is no
# such action, open the context menu.
# * open_url: If the notification has exactly one url, open it. If there are multiple
# ones, open the context menu.
# * close_current: Close current notification.
# * close_all: Close all notifications.
# * context: Open context menu for the notification.
# * context_all: Open context menu for all notifications.
# These values can be strung together for each mouse event, and
# will be executed in sequence.
mouse_left_click = close_current
mouse_middle_click = do_action, close_current
mouse_right_click = close_all
# Experimental features that may or may not work correctly. Do not expect them
# to have a consistent behaviour across releases.
[experimental]
# Calculate the dpi to use on a per-monitor basis.
# If this setting is enabled the Xft.dpi value will be ignored and instead
# dunst will attempt to calculate an appropriate dpi value for each monitor
# using the resolution and physical size. This might be useful in setups
# where there are multiple screens with very different dpi values.
per_monitor_dpi = false
[urgency_low]
# IMPORTANT: colors have to be defined in quotation marks.
# Otherwise the "#" and following would be interpreted as a comment.
background = "#222222"
foreground = "#888888"
timeout = 10
# Icon for notifications with low urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_normal]
background = "#285577"
foreground = "#ffffff"
timeout = 10
# Icon for notifications with normal urgency, uncomment to enable
#default_icon = /path/to/icon
[urgency_critical]
background = "#900000"
foreground = "#ffffff"
frame_color = "#ff0000"
timeout = 0
# Icon for notifications with critical urgency, uncomment to enable
#default_icon = /path/to/icon
# Every section that isn't one of the above is interpreted as a rules to
# override settings for certain messages.
#
# Messages can be matched by
# appname (discouraged, see desktop_entry)
# body
# category
# desktop_entry
# icon
# match_transient
# msg_urgency
# stack_tag
# summary
#
# and you can override the
# background
# foreground
# format
# frame_color
# fullscreen
# new_icon
# set_stack_tag
# set_transient
# set_category
# timeout
# urgency
# skip_display
# history_ignore
# action_name
# word_wrap
# ellipsize
# alignment
#
# Shell-like globbing will get expanded.
#
# Instead of the appname filter, it's recommended to use the desktop_entry filter.
# GLib based applications export their desktop-entry name. In comparison to the appname,
# the desktop-entry won't get localized.
#
# SCRIPTING
# You can specify a script that gets run when the rule matches by
# setting the "script" option.
# The script will be called as follows:
# script appname summary body icon urgency
# where urgency can be "LOW", "NORMAL" or "CRITICAL".
#
# NOTE: It might be helpful to run dunst -print in a terminal in order
# to find fitting options for rules.
# Disable the transient hint so that idle_threshold cannot be bypassed from the
# client
#[transient_disable]
# match_transient = yes
# set_transient = no
#
# Make the handling of transient notifications more strict by making them not
# be placed in history.
#[transient_history_ignore]
# match_transient = yes
# history_ignore = yes
# fullscreen values
# show: show the notifications, regardless if there is a fullscreen window opened
# delay: displays the new notification, if there is no fullscreen window active
# If the notification is already drawn, it won't get undrawn.
# pushback: same as delay, but when switching into fullscreen, the notification will get
# withdrawn from screen again and will get delayed like a new notification
#[fullscreen_delay_everything]
# fullscreen = delay
#[fullscreen_show_critical]
# msg_urgency = critical
# fullscreen = show
#[espeak]
# summary = "*"
# script = dunst_espeak.sh
#[script-test]
# summary = "*script*"
# script = dunst_test.sh
#[ignore]
# # This notification will not be displayed
# summary = "foobar"
# skip_display = true
#[history-ignore]
# # This notification will not be saved in history
# summary = "foobar"
# history_ignore = yes
#[skip-display]
# # This notification will not be displayed, but will be included in the history
# summary = "foobar"
# skip_display = yes
#[signed_on]
# appname = Pidgin
# summary = "*signed on*"
# urgency = low
#
#[signed_off]
# appname = Pidgin
# summary = *signed off*
# urgency = low
#
#[says]
# appname = Pidgin
# summary = *says*
# urgency = critical
#
#[twitter]
# appname = Pidgin
# summary = *twitter.com*
# urgency = normal
#
#[stack-volumes]
# appname = "some_volume_notifiers"
# set_stack_tag = "volume"
#
# vim: ft=cfg
#+end_src
* XDG User Directories
#+begin_src shell :tangle ~/dotfiles/guix/home/files/user-dirs.dirs
# This file is written by xdg-user-dirs-update
# If you want to change or add directories, just edit the line you're
# interested in. All local changes will be retained on the next run.
# Format is XDG_xxx_DIR="$HOME/yyy", where yyy is a shell-escaped
# homedir-relative path, or XDG_xxx_DIR="/yyy", where /yyy is an
# absolute path. No other format is supported.
#
XDG_DESKTOP_DIR="$HOME"
XDG_DOWNLOAD_DIR="$HOME/downloads"
XDG_TEMPLATES_DIR="$HOME"
XDG_PUBLICSHARE_DIR="$HOME"
XDG_DOCUMENTS_DIR="$HOME/documents"
XDG_MUSIC_DIR="$HOME/music"
XDG_PICTURES_DIR="$HOME/pictures"
XDG_VIDEOS_DIR="$HOME/videos"
#+end_src

View File

@@ -1,454 +0,0 @@
#+TITLE: Guix Configuration
I use GNU Guix as my operating system. I'm able to declare the state of the operating system in a series of configuration files in a similar way to Puppet. Eventually I would like to integrate Guix Home into this configuration.
* Channels
Disclaimer: I use the nonguix channel only for the use of building Firefox from source easily.
#+begin_src scheme :tangle ~/dotfiles/guix/system/channels.scm
(list (channel
(name 'guix)
(url "https://git.savannah.gnu.org/git/guix.git")
(introduction
(make-channel-introduction
"9edb3f66fd807b096b48283debdcddccfea34bad"
(openpgp-fingerprint
"BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))
(channel
(name 'nonguix)
(url "https://gitlab.com/nonguix/nonguix")
(introduction
(make-channel-introduction
"897c1a470da759236cc11798f4e0a5f7d4d59fbc"
(openpgp-fingerprint
"2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))))
#+end_src
* System
** Home Desktop
#+begin_src scheme :tangle ~/dotfiles/guix/system/home-desktop.scm
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(host-name "borges")
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(users (cons* (user-account
(name "opal")
(comment "opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel"
"netdev"
"audio"
"video")))
%base-user-accounts))
(packages (append (list git
wl-clipboard
icecat
vim
nss-certs
stow
exfat-utils
emacs
sway
swaybg
swaylock
swayidle
dmenu
bluez
bluez-alsa
pulseaudio))
%base-packages)
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "40aa6387-e935-4f70-8e7d-1975678a5a32"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "1C3B-10F5" 'fat32))
(type "vfat"))
%base-file-systems)))
;; (setuid-programs
;; (let ((from (lambda (package file)
;; (setuid-program (program (file-append package file))))))
;; (cons* (from light "/bin/light")
;; (from mtr "/sbin/mtr")
;; (from network-manager "/bin/nmtui")
;; (from nfs-utils "/sbin/mount.nfs")
;; (from swaylock "/bin/swaylock")
;; %setuid-programs)))
;; (services (cons* ...
;; (modify-services %desktop-services
;; (gdm-service-type config
;; =;;putabrackethere (gdm-configuration
;; (inherit config)
;; (wayland? #t)
;; (debug? #t))))))
#+end_src
** Work Laptop
#+begin_src scheme :tangle ~/dotfiles/guix/system/work-laptop.scm
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
(gnu system setuid)
(gnu packages admin)
(nongnu packages linux))
(use-service-modules
cups
desktop
networking
ssh
sddm
xorg)
(operating-system
(kernel linux)
(firmware (list linux-firmware))
(locale "en_US.utf8")
(timezone "America/Los_Angeles")
(keyboard-layout (keyboard-layout "us"))
(host-name "borges")
(setuid-programs
(cons (setuid-program
(program (file-append swaylock "/bin/swaylock")))
%setuid-programs))
(users (cons* (user-account
(name "opal")
(comment "opal")
(group "users")
(home-directory "/home/opal")
(supplementary-groups
'("wheel"
"netdev"
"audio"
"video")))
%base-user-accounts))
(packages (append (list git
wl-clipboard
vim
nss-certs
stow
exfat-utils
emacs
emacs-exwm
sway
swaybg
swaylock
swayidle
polybar
nyxt
dmenu
bluez
bluez-alsa
pulseaudio
keepassxc
font-fira-mono
font-fira-sans
font-fira-code
gcc-toolchain))
%base-packages)
(services
(append (modify-services %desktop-services
(delete gdm-service-type))
(list (service sddm-service-type
(sddm-configuration
(display-server "wayland"))))))
(bootloader
(bootloader-configuration
(bootloader grub-efi-bootloader)
(targets (list "/boot/efi"))
(keyboard-layout keyboard-layout)))
(mapped-devices
(list (mapped-device
(source
(uuid "abe760e2-4ba5-4f43-81a2-1c3f16eb62a8"))
(target "cryptroot")
(type luks-device-mapping))))
(file-systems
(cons* (file-system
(mount-point "/")
(device "/dev/mapper/cryptroot")
(type "btrfs")
(dependencies mapped-devices))
(file-system
(mount-point "/boot/efi")
(device (uuid "15B3-5DE5" 'fat32))
(type "vfat"))
%base-file-systems)))
;; (setuid-programs
;; (let ((from (lambda (package file)
;; (setuid-program (program (file-append package file))))))
;; (cons* (from light "/bin/light")
;; (from mtr "/sbin/mtr")
;; (from network-manager "/bin/nmtui")
;; (from nfs-utils "/sbin/mount.nfs")
;; (from swaylock "/bin/swaylock")
;; %setuid-programs)))
;; (services (cons* ...
;; (modify-services %desktop-services
;; (gdm-service-type config
;; =;;putabrackethere (gdm-configuration
;; (inherit config)
;; (wayland? #t)
;; (debug? #t))))))
#+end_src
* Home
#+begin_src emacs-lisp :tangle ~/dotfiles/guix/home/guix-home.scm
(use-modules
(gnu)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu home services shepard)
(gnu packages libreoffice)
(gnu packages mail)
(gnu packages pdf))
(home-environment
(packages
(append
;; Tools/Libraries
(list
gcc-toolchain
wget
curl
cmake
make
zip
unzip
libtool
openssl
openssh
gst-plugins-bad
gst-plugins-base
gst-plugins-good
gst-plugins-ugly
gst-libav
wl-clipboard
zsh
gnupg)
;; Applications
(list
alacritty
nyxt
zathura-pdf-mupdf
thunar
firefox
wl-randr
libreoffice
calibre
mpv
youtube-dl
icedove
keepassxc
nautilus)
;; Emacs
(list
emacs-vterm
emacs-geiser
emacs-geiser-guile
emacs-doom-modeline
emacs-all-the-icons
emacs-all-the-icons-dired
emacs-general
emacs-which-key
emacs-alert
emacs-helpful
emacs-pinentry
emacs-doom-themes
emacs-evil
emacs-evil-collection
emacs-vertico
emacs-orderless
emacs-consult
emacs-company
emacs-marginalia
emacs-perspective
emacs-dired-rsync
emacs-dired-hacks
emacs-org-bullets
emacs-org-make-toc
emacs-visual-fill-column
emacs-flycheck
emacs-rainbow-mode
emacs-rainbow-delimiters
emacs-magit
emacs-projectile
emacs-lsp-mode
emacs-lsp-ui
emacs-treemacs
emacs-lsp-treemacs
emacs-parinfer
emacs-yasnippet
emacs-pdf-tools)
;; Languages
(list
ruby
python
guile
sbcl
perl
python-lsp-server
ruby-solargraph)
;; Aesthetics/Fonts
(list
gnome-tweaks
papirus-icon-theme
arc-theme
font-fira-mono
font-fira-code
font-fira-sans
font-abattis-cantarell
font-google-noto
font-awesome)))
(services
(append
;; Shell
(list
(service home-zsh-service-type
(home-zsh-configuration
;; Place all configs to $XDG_CONFIG_HOME/zsh. Makes
;; ~/.zshenv set ZDOTDIR to $XDG_CONFIG_HOME/zsh
;; and shell process starts with ~/.config/zsh/.zshenv
(xdg-flavor? #t)
;; .zshenv
(zshenv
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zshenv")
"/.config/zsh/.zshenv")))
;; .zprofile
(zprofile
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zprofile")
"/.config/zsh/.zprofile")))
;; .zshrc
(zshrc
(list
(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/zsh/zshrc")
"/.config/zsh/.zshrc"))))))
;; Files
(list
(simple-service 'sway
home-files-service-type
(list
`(".config/sway/config"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/sway/config")))))
(simple-service 'emacs-config
home-files-service-type
(list
`(".config/emacs/init.el"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/emacs/init.el")))))
(simple-service 'nyxt-config
home-files-service-type
(list
`(".config/nyxt/init.lisp"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/nyxt/init.lisp")))))
(simple-service 'dunst-config
home-files-service-type
(list
`(".config/dunst/dunstrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/dunst/dunstrc")))))
(simple-service 'mbsync-config
home-files-service-type
(list
`(".config/mbsync/mbsyncrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/mbsync/mbsyncrc")))))
(simple-service 'alacritty-config
home-files-service-type
(list
`(".config/alacritty/alacritty.yml"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/alacritty/alacritty.yml"))))))
;; Daemons
(list
(service home-shepard-service-type
(home-shepherd-configuration
(services
(list
(shepard-service
(provision '(emacs))
(start #~(make-system-constructor "emacs --daemon"))
(stop #~(make-system-constructor "emacsclient -e '(kill-emacs)'")))
(shepard-service
(provision '(gnome-keyring-daemon))
(start #~(make-system-contructor "gnome-keyring-daemon --daemonize "))
(stop #~(make-system-contructor "pkill gnome-keyring-daemon")))))))))))
#+end_src

View File

@@ -1,181 +0,0 @@
#+TITLE: StumpWM Configuration
#+PROPERTY: :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes
In my quest to make my computer a Lisp machine in its own right, I am using StumpWM as my window manager.
* Init
#+begin_src lisp
;;; -*- mode: lisp; -*-
(in-package :stumpwm)
;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
;; StumpWM Modules
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray")
(stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts")
#+end_src
* Environment
** Workspaces
#+begin_src lisp
(run-commands
"gnewbg I"
"gnew II"
"gnewbg III"
"gnewbg IV"
"gnewbg V"
"gnewbg-float F")
#+end_src
** Set Prefix
#+begin_src lisp
(set-prefix-key (kbd "s-ESC"))
#+end_src
** Focus window with mouse
#+begin_src lisp
(setf *mouse-focus-policy* :click)
#+end_src
** Messages
#+begin_src lisp
(setf *message-window-gravity* :center
*input-window-gravity* :center
*window-border-style* :thin
*message-window-padding* 3
*maxsize-border-width* 2
*normal-border-width* 2
*transient-border-width* 2
stumpwm::*float-window-border* 1
stumpwm::*float-window-title-height* 1)
#+end_src
** Command Window
#+begin_src lisp
(setq *input-window-gravity* :center)
#+end_src
* Keyboard
** Load Keyboard Layout Module
#+begin_src lisp
(load-module "kbd-layouts")
#+end_src
** Remap Caps Lock
#+begin_src lisp :tangle yes
(setf kbd-layouts:*caps-lock-behavior* :esc)
#+end_src
** Xmodmap
#+begin_src lisp
(run-shell-command "xmodmap ~/Dotfiles/.config/Xmodmap")
#+end_src
** Keybinds
#+begin_src lisp
;; Set some super key bindings
(define-key *top-map* (kbd "s-h") "move-focus left")
(define-key *top-map* (kbd "s-l") "move-focus right")
(define-key *top-map* (kbd "s-j") "move-focus down")
(define-key *top-map* (kbd "s-k") "move-focus up")
(define-key *top-map* (kbd "s-H") "move-window left")
(define-key *top-map* (kbd "s-L") "move-window right")
(define-key *top-map* (kbd "s-J") "move-window down")
(define-key *top-map* (kbd "s-K") "move-window up")
(define-key *top-map* (kbd "s-f") "fullscreen")
(define-key *top-map* (kbd "s-r") "iresize")
(define-key *top-map* (kbd "s-Q") "delete")
(define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
(define-key *top-map* (kbd "s-L") "run-shell-command slock")
(define-key *top-map* (kbd "s-E") "run-shell-command emacs")
(define-key *top-map* (kbd "s-W") "run-shell-command firefox")
(define-key *top-map* (kbd "s-TAB") "next-in-frame")
(define-key *top-map* (kbd "s-S-TAB") "prev-in-frame")
(define-key *top-map* (kbd "s-1") "gselect I")
(define-key *top-map* (kbd "s-2") "gselect II")
(define-key *top-map* (kbd "s-3") "gselect III")
(define-key *top-map* (kbd "s-4") "gselect IV")
(define-key *top-map* (kbd "s-5") "gselect V")
(define-key *top-map* (kbd "s-!") "gmove I")
(define-key *top-map* (kbd "s-@") "gmove II")
(define-key *top-map* (kbd "s-#") "gmove III")
(define-key *top-map* (kbd "s-$") "gmove IV")
(define-key *top-map* (kbd "s-%") "gmove V")
;; Brightness and volume
(define-key *top-map* (kbd "XF86MonBrightnessDown") "run-shell-command brightnessctl set 5%-")
(define-key *top-map* (kbd "XF86MonBrightnessUp") "run-shell-command brightnessctl set +5%")
(define-key *top-map* (kbd "XF86AudioLowerVolume") "run-shell-command amixer set Master 3%- unmute")
(define-key *top-map* (kbd "XF86AudioRaiseVolume") "run-shell-command amixer set Master 3%+ unmute")
(define-key *top-map* (kbd "XF86AudioMute") "run-shell-command amixer set Master toggle")
#+end_src
* UI
** Colors
#+begin_src lisp
;; Set UI colors
(setf *colors*
'("#000000" ;black
"#BF6262" ;red
"#a1bf78" ;green
"#dbb774" ;yellow
"#7D8FA3" ;blue
"#ff99ff" ;magenta
"#53cdbd" ;cyan
"#b7bec9")) ;white
(setf *default-bg-color* "#e699cc")
(update-color-map (current-screen))
(setf *window-format* "%m%s%50t")
#+end_src
** Gaps
#+begin_src lisp
(load-module "swm-gaps")
(setf swm-gaps:*inner-gaps-size* 3)
(run-commands "toggle-gaps-on")
#+end_src
** Fonts
#+begin_src lisp
Enable TTF fonts
(load-module "ttf-fonts")
(setf xft:*font-dirs* '("/home/opal/.guix-home/profile/share/fonts/"))
(xft:cache-fonts)
(set-font (make-instance 'xft:font :family "Fira Mono" :subfamily "Regular" :size 16))
#+end_src
** Mode-Line
#+begin_src lisp
(setf *mode-line-background-color* (car *colors*)
*mode-line-foreground-color* (car (last *colors*))
*mode-line-timeout* 1)
#+end_src
** System tray
#+begin_src lisp
;; Add the system tray module
(load-module "stumptray")
(stumptray:stumptray)
#+end_src
* Applications
#+begin_src lisp
(run-shell-command "emacs")
#+end_src
* Repl Start
#+begin_src lisp
(require :slynk)
(slynk:create-server :dont-close t)
#+end_src
* Reference
- https://github.com/daviwil/dotfiles/blob/guix-home/Stump.org
- https://github.com/alezost/stumpwm-config
- https://github.com/herbertjones/my-stumpwm-config
- https://github.com/Phundrak/dotfiles/blob/master/org/config/stumpwm.org

Binary file not shown.

Before

Width:  |  Height:  |  Size: 1.1 MiB

View File

@@ -1,23 +1,29 @@
### Variables
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*
set $mod Mod4
# Home row direction keys, like vim
set $left h
set $down j
set $up k
set $right l
# Your preferred terminal emulator
# Terminal
set $term alacritty
# Application Launcher
set $menu dmenu_path | dmenu | xargs swaymsg exec --
set $opacity 0.92
for_window [class=".*"] opacity $opacity
for_window [app_id=".*"] opacity $opacity
# Window Borders
default_border none
# Gaps
gaps top 2
gaps inner 3
#gaps outer 3
# gaps outer 3
# Hide mouse cursor after inactivity
seat * hide_cursor 4000
@@ -25,24 +31,15 @@ seat * hide_cursor 4000
# Notifications
exec_always dunst
# Opacity
set $opacity 0.92
for_window [class=".*"] opacity $opacity
for_window [app_id=".*"] opacity $opacity
# Wlsunset (Night Light)
exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
### Output configuration
#
# Default wallpaper (more resolutions are available in /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/share/backgrounds/sway/)
output * bg /home/opal/Dotfiles/guix-wallpaper.jpg stretch
#
# Example configuration:
#
output eDP-1 resolution 1920x1080 position 0,0
#
# Wallpaper
output * bg /home/opal/dotfiles/guix/home/files/wallpapers/guix-wallpaper.jpg stretch
# Monitors
# You can get the names of your outputs by running: swaymsg -t get_outputs
output eDP-1 resolution 1920x1080 position 0,0
### Idle configuration
# This will lock your screen after 300 seconds of inactivity, then turn off
@@ -66,11 +63,15 @@ exec swayidle -w \
#
# You can get the names of your inputs by running: swaymsg -t get_inputs
# Read `man 5 sway-input` for more information about this section.
input type:keyboard {
# Capslock key should work as escape key
# See /usr/share/X11/xkb/rules/xorg.lst for options
xkb_options caps:escape
repeat_delay 250
repeat_rate 45
}
### Key bindings
#
# Basics:
#
# Start a terminal
bindsym $mod+Return exec $term
@@ -78,8 +79,8 @@ bindsym $mod+Return exec $term
bindsym $mod+Shift+q kill
# Lock SwayWM
# Doesn't work for some reason. Needs fix.
bindsym Control+Shift+l exec swaylock
# Start your launcher
bindsym $mod+d exec $menu
@@ -94,7 +95,6 @@ bindsym $mod+Shift+c reload
bindsym $mod+Shift+x exec swaymsg -r exit
# Moving around:
#
# Move your focus around
bindsym $mod+$left focus left
bindsym $mod+$down focus down
@@ -116,30 +116,27 @@ bindsym $mod+Shift+Left move left
bindsym $mod+Shift+Down move down
bindsym $mod+Shift+Up move up
bindsym $mod+Shift+Right move right
#
# Workspaces:
set $ws1 ۱
set $ws2 ۲
set $ws3 ۳
set $ws4 ۴
set $ws5 ۵
#
# Switch to workspace
bindsym $mod+1 workspace $ws1
bindsym $mod+2 workspace $ws2
bindsym $mod+3 workspace $ws3
bindsym $mod+4 workspace $ws4
bindsym $mod+5 workspace $ws5
# Move focused container to workspace
bindsym $mod+Shift+1 move container to workspace $ws1
bindsym $mod+Shift+2 move container to workspace $ws2
bindsym $mod+Shift+3 move container to workspace $ws3
bindsym $mod+Shift+4 move container to workspace $ws4
bindsym $mod+Shift+5 move container to workspace $ws5
# Note: workspaces can have any name you want, not just numbers.
# We just use 1-10 as the default.
#
# Layout stuff:
#
# You can "split" the current object of your focus with
@@ -219,14 +216,3 @@ bar {
inactive_workspace #32323200 #32323200 #5c5c5c
}
}
input type:keyboard {
# Capslock key should work as escape key
# See /usr/share/X11/xkb/rules/xorg.lst for options
xkb_options caps:escape
repeat_delay 250
repeat_rate 45
}
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*

View File

Before

Width:  |  Height:  |  Size: 1.1 MiB

After

Width:  |  Height:  |  Size: 1.1 MiB

221
guix/home/guix-home.scm Normal file
View File

@@ -0,0 +1,221 @@
(use-modules
(gnu)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu home services shepherd)
(gnu packages)
(gnu packages pulseaudio)
(gnu packages web-browsers)
(gnu packages guile)
(gnu packages wget)
(gnu packages curl)
(gnu packages pdf)
(gnu packages ebook)
(gnu packages gnome)
(gnu packages gnome-xyz)
(gnu packages compression)
(gnu packages cmake)
(gnu packages autotools)
(gnu packages gstreamer)
(gnu packages video)
(gnu packages mpd)
(gnu packages terminals)
(gnu packages xdisorg)
(gnu packages gnupg)
(gnu packages password-utils)
(gnu packages emacs)
(gnu packages emacs-xyz)
(gnu packages gnuzilla)
(gnu packages ruby)
(gnu packages python)
(gnu packages lisp)
(gnu packages python-xyz)
(gnu packages fonts)
(gnu packages wm)
(gnu services)
(guix gexp))
(home-environment
(packages
(append
;; Tools/Libraries
(list
wget
curl
cmake
zip
unzip
libtool
gst-plugins-bad
gst-plugins-base
gst-plugins-good
gst-plugins-ugly
gst-libav
wl-clipboard
pavucontrol)
;; Applications
(list
alacritty
nyxt
zathura-pdf-mupdf
nautilus
wlr-randr
calibre
mpv
youtube-dl
icedove
keepassxc
nautilus)
;; Emacs
(list
emacs-vterm
emacs-geiser
emacs-geiser-guile
emacs-doom-modeline
emacs-all-the-icons
emacs-all-the-icons-dired
emacs-general
emacs-which-key
emacs-alert
emacs-helpful
emacs-pinentry
emacs-doom-themes
emacs-evil
emacs-evil-collection
emacs-vertico
emacs-orderless
emacs-consult
emacs-company
emacs-marginalia
emacs-perspective
emacs-dired-rsync
emacs-dired-hacks
emacs-org-bullets
emacs-org-make-toc
emacs-visual-fill-column
emacs-flycheck
emacs-rainbow-mode
emacs-rainbow-delimiters
emacs-magit
emacs-projectile
emacs-lsp-mode
emacs-lsp-ui
emacs-treemacs
emacs-lsp-treemacs
emacs-parinfer-mode
emacs-yasnippet
emacs-pdf-tools)
;; Languages
(list
ruby
python
guile-3.0
sbcl
python-lsp-server
ruby-solargraph)
;; Aesthetics/Fonts
(list
gnome-tweaks
papirus-icon-theme
arc-theme
font-fira-mono
font-fira-code
font-fira-sans
font-abattis-cantarell
font-google-noto
font-awesome)))
(services
(append
;; Shell
(list
(service home-zsh-service-type
(home-zsh-configuration
;; Place all configs to $XDG_CONFIG_HOME/zsh. Makes
;; ~/.zshenv set ZDOTDIR to $XDG_CONFIG_HOME/zsh
;; and shell process starts with ~/.config/zsh/.zshenv
(xdg-flavor? #t)
;; .zshenv
(zshenv
(list
(local-file "files/zsh/zshenv")))
;; .zprofile
(zprofile
(list
(local-file "files/zsh/zprofile")))
;; .zshrc
(zshrc
(list
(local-file "files/zsh/zshrc"))))))
;; Files
(list
(simple-service 'sway-config
home-files-service-type
(list
`("config/sway/config"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/sway/config")))))
(simple-service 'user-dirs-config
home-files-service-type
(list
`("config/user-dirs.dirs"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/user-dirs.dirs")))))
(simple-service 'emacs-config
home-files-service-type
(list
`("config/emacs/init.el"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/emacs/init.el")))))
(simple-service 'nyxt-config
home-files-service-type
(list
`("config/nyxt/init.lisp"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/nyxt/init.lisp")))))
(simple-service 'dunst-config
home-files-service-type
(list
`("config/dunst/dunstrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/dunst/dunstrc")))))
(simple-service 'mbsync-config
home-files-service-type
(list
`("config/mbsync/mbsyncrc"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/mbsync/mbsyncrc")))))
(simple-service 'alacritty-config
home-files-service-type
(list
`("config/alacritty/alacritty.yml"
,(local-file
(string-append (getenv "HOME")
"/dotfiles/guix/home/files/alacritty/alacritty.yml"))))))
;; Daemons
(list
(service home-shepherd-service-type
(home-shepherd-configuration
(services
(list
(shepherd-service
(provision '(emacs))
(start #~(make-system-constructor "emacs --daemon"))
(stop #~(make-system-constructor "emacsclient -e '(kill-emacs)'")))
(shepherd-service
(provision '(gnome-keyring-daemon))
(start #~(make-system-contructor "gnome-keyring-daemon --daemonize "))
(stop #~(make-system-contructor "pkill gnome-keyring-daemon")))))))))))

View File

@@ -38,10 +38,8 @@
(packages (append (list git
wl-clipboard
icecat
vim
nss-certs
stow
exfat-utils
emacs
sway
@@ -51,7 +49,10 @@
dmenu
bluez
bluez-alsa
pulseaudio))
pulseaudio
openssl
openssh
zsh))
%base-packages)
(services

View File

@@ -61,7 +61,7 @@ exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
*** Wallpaper & Monitor(s)
#+begin_src shell :tangle ~/dotfiles/guix/home/files/sway/config :mkdirp yes
# Wallpaper
output * bg /home/opal/Dotfiles/guix-wallpaper.jpg stretch
output * bg /home/opal/dotfiles/guix/home/files/wallpapers/guix-wallpaper.jpg stretch
# Monitors
# You can get the names of your outputs by running: swaymsg -t get_outputs
@@ -394,7 +394,7 @@ font:
#+end_src
* Dunst
#+begin_src shell :tangle ~/dotfiles/guix/home/files/dunst/dunstrc
#+begin_src shell :tangle ~/dotfiles/guix/home/files/dunst/dunstrc :mkdirp yes
[global]
### Display ###
@@ -832,7 +832,7 @@ font:
#+end_src
* XDG User Directories
#+begin_src shell :tangle ~/dotfiles/guix/home/files/user-dirs.dirs
#+begin_src shell :tangle ~/dotfiles/guix/home/files/user-dirs.dirs :mkdirp yes
# This file is written by xdg-user-dirs-update
# If you want to change or add directories, just edit the line you're
# interested in. All local changes will be retained on the next run.

View File

@@ -1,4 +1,3 @@
#+TITLE: Emacs Configuration
#+PROPERTY: header-args:emacs-lisp :tangle ~/dotfiles/guix/home/files/emacs/init.el :mkdirp yes :lexical yes

View File

@@ -3,7 +3,7 @@
I use GNU Guix as my operating system. I'm able to declare the state of the operating system in a series of configuration files in a similar way to Puppet.
* Channels
#+begin_src scheme :tangle ~/dotfiles/guix/system/channels.scm
#+begin_src scheme :tangle ~/dotfiles/guix/system/channels.scm :mkdirp yes
(list (channel
(name 'guix)
(url "https://git.savannah.gnu.org/git/guix.git")
@@ -25,7 +25,7 @@ I use GNU Guix as my operating system. I'm able to declare the state of the oper
* System
** Home Desktop
#+begin_src scheme :tangle ~/dotfiles/guix/system/home-desktop.scm
#+begin_src scheme :tangle ~/dotfiles/guix/system/home-desktop.scm :mkdirp yes
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
@@ -133,7 +133,7 @@ I use GNU Guix as my operating system. I'm able to declare the state of the oper
#+end_src
** Work Laptop
#+begin_src scheme :tangle ~/dotfiles/guix/system/work-laptop.scm
#+begin_src scheme :tangle ~/dotfiles/guix/system/work-laptop.scm :mkdirp yes
(use-modules (gnu)
(gnu services desktop)
(gnu packages wm)
@@ -247,7 +247,7 @@ I use GNU Guix as my operating system. I'm able to declare the state of the oper
#+end_src
* Home
#+begin_src emacs-lisp :tangle ~/dotfiles/guix/home/guix-home.scm
#+begin_src emacs-lisp :tangle ~/dotfiles/guix/home/guix-home.scm :mkdirp yes
(use-modules
(gnu)
(gnu home)
@@ -265,6 +265,8 @@ I use GNU Guix as my operating system. I'm able to declare the state of the oper
(list
gcc-toolchain
wget
grim
wlsunse
curl
cmake
make
@@ -295,7 +297,8 @@ I use GNU Guix as my operating system. I'm able to declare the state of the oper
youtube-dl
icedove
keepassxc
nautilus)
nautilus
wofi)
;; Emacs
(list
emacs-vterm