Using guix home now
This commit is contained in:
opal
16
guix/channels.scm
Normal file
16
guix/channels.scm
Normal file
@@ -0,0 +1,16 @@
|
||||
(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")))))
|
||||
19
guix/home/files/alacritty.yml
Normal file
19
guix/home/files/alacritty.yml
Normal file
@@ -0,0 +1,19 @@
|
||||
# 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
|
||||
19
guix/home/files/alacritty/alacritty.yml
Normal file
19
guix/home/files/alacritty/alacritty.yml
Normal file
@@ -0,0 +1,19 @@
|
||||
# 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
|
||||
434
guix/home/files/dunst/dunstrc
Normal file
434
guix/home/files/dunst/dunstrc
Normal file
@@ -0,0 +1,434 @@
|
||||
[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
|
||||
705
guix/home/files/emacs/init.el
Normal file
705
guix/home/files/emacs/init.el
Normal file
@@ -0,0 +1,705 @@
|
||||
(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 robe
|
||||
:straight t)
|
||||
|
||||
(use-package bundler
|
||||
:straight t)
|
||||
=======
|
||||
#+begin_src emacs-lisp
|
||||
|
||||
>>>>>>> origin/master
|
||||
|
||||
(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)
|
||||
|
||||
(use-package geiser-guile
|
||||
:straight t)
|
||||
|
||||
(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))
|
||||
BIN
guix/home/files/mbsync/.mu4e.gpg
Normal file
BIN
guix/home/files/mbsync/.mu4e.gpg
Normal file
Binary file not shown.
26
guix/home/files/mbsync/mbsyncrc
Normal file
26
guix/home/files/mbsync/mbsyncrc
Normal file
@@ -0,0 +1,26 @@
|
||||
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 *
|
||||
0
guix/home/files/nvim/autoload/plug.vim
Normal file
0
guix/home/files/nvim/autoload/plug.vim
Normal file
151
guix/home/files/nvim/init.vim
Normal file
151
guix/home/files/nvim/init.vim
Normal file
@@ -0,0 +1,151 @@
|
||||
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>
|
||||
206
guix/home/files/nyxt/init.lisp
Normal file
206
guix/home/files/nyxt/init.lisp
Normal file
@@ -0,0 +1,206 @@
|
||||
(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*)))
|
||||
10
guix/home/files/nyxt/my-slink.lisp
Normal file
10
guix/home/files/nyxt/my-slink.lisp
Normal file
@@ -0,0 +1,10 @@
|
||||
(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))
|
||||
125
guix/home/files/stumpwm/config
Normal file
125
guix/home/files/stumpwm/config
Normal file
@@ -0,0 +1,125 @@
|
||||
;;; -*- 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)
|
||||
218
guix/home/files/sway/config
Normal file
218
guix/home/files/sway/config
Normal file
@@ -0,0 +1,218 @@
|
||||
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*
|
||||
|
||||
set $mod Mod4
|
||||
|
||||
set $left h
|
||||
set $down j
|
||||
set $up k
|
||||
set $right l
|
||||
|
||||
# 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
|
||||
|
||||
# Hide mouse cursor after inactivity
|
||||
seat * hide_cursor 4000
|
||||
|
||||
# Notifications
|
||||
exec_always dunst
|
||||
|
||||
# Wlsunset (Night Light)
|
||||
exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
|
||||
|
||||
# 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
|
||||
# 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.
|
||||
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
|
||||
}
|
||||
|
||||
# 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
|
||||
|
||||
# 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
|
||||
|
||||
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
|
||||
|
||||
# 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
|
||||
}
|
||||
}
|
||||
218
guix/home/files/sway/config~
Normal file
218
guix/home/files/sway/config~
Normal file
@@ -0,0 +1,218 @@
|
||||
include /gnu/store/6d3q9f1bdfn4cchsziws33ixq2p4zjhw-sway-1.6.1/etc/sway/config.d/*
|
||||
|
||||
set $mod Mod4
|
||||
|
||||
set $left h
|
||||
set $down j
|
||||
set $up k
|
||||
set $right l
|
||||
|
||||
# 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
|
||||
|
||||
# Hide mouse cursor after inactivity
|
||||
seat * hide_cursor 4000
|
||||
|
||||
# Notifications
|
||||
exec_always dunst
|
||||
|
||||
# Wlsunset (Night Light)
|
||||
exec_always wlsunset -l 47.6, -122.3 -t 3500 -T 6500
|
||||
|
||||
# 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
|
||||
|
||||
### 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.
|
||||
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
|
||||
}
|
||||
|
||||
# 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
|
||||
|
||||
# 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
|
||||
|
||||
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
|
||||
|
||||
# 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
|
||||
}
|
||||
}
|
||||
15
guix/home/files/user-dirs.dirs
Normal file
15
guix/home/files/user-dirs.dirs
Normal file
@@ -0,0 +1,15 @@
|
||||
# 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"
|
||||
15
guix/home/files/user-dirs.dirs~
Normal file
15
guix/home/files/user-dirs.dirs~
Normal file
@@ -0,0 +1,15 @@
|
||||
# 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/Desktop"
|
||||
XDG_DOWNLOAD_DIR="$HOME/Downloads"
|
||||
XDG_TEMPLATES_DIR="$HOME/Templates"
|
||||
XDG_PUBLICSHARE_DIR="$HOME/Public"
|
||||
XDG_DOCUMENTS_DIR="$HOME/Documents"
|
||||
XDG_MUSIC_DIR="$HOME/Music"
|
||||
XDG_PICTURES_DIR="$HOME/Pictures"
|
||||
XDG_VIDEOS_DIR="$HOME/Videos"
|
||||
BIN
guix/home/files/wallpapers/guix-wallpaper.jpg
Normal file
BIN
guix/home/files/wallpapers/guix-wallpaper.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 MiB |
15
guix/home/files/zsh/zprofile
Normal file
15
guix/home/files/zsh/zprofile
Normal file
@@ -0,0 +1,15 @@
|
||||
# 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"
|
||||
9
guix/home/files/zsh/zshenv
Normal file
9
guix/home/files/zsh/zshenv
Normal file
@@ -0,0 +1,9 @@
|
||||
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
|
||||
66
guix/home/files/zsh/zshrc
Normal file
66
guix/home/files/zsh/zshrc
Normal file
@@ -0,0 +1,66 @@
|
||||
[[ $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"
|
||||
221
guix/home/guix-home.scm
Normal file
221
guix/home/guix-home.scm
Normal 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")))))))))))
|
||||
17
guix/system/channels.scm
Normal file
17
guix/system/channels.scm
Normal file
@@ -0,0 +1,17 @@
|
||||
(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")))))
|
||||
103
guix/system/home-desktop.scm
Normal file
103
guix/system/home-desktop.scm
Normal file
@@ -0,0 +1,103 @@
|
||||
(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
|
||||
exfat-utils
|
||||
emacs
|
||||
sway
|
||||
swaybg
|
||||
swaylock
|
||||
swayidle
|
||||
dmenu
|
||||
bluez
|
||||
bluez-alsa
|
||||
pulseaudio
|
||||
openssl
|
||||
openssh
|
||||
zsh))
|
||||
%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))))))
|
||||
110
guix/system/work-laptop.scm
Normal file
110
guix/system/work-laptop.scm
Normal file
@@ -0,0 +1,110 @@
|
||||
(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))))))
|
||||
Reference in New Issue
Block a user