chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updates for guix

Browse source
This commit is contained in:
Chris Cochrun 2023-06-23 14:13:29 -05:00
parent 1dee0c5c5f
commit 86b40a9d75
3 changed files with 153 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

149
init.el
View file

@ -28,6 +28,7 @@
(defun chris/set-font-faces ()
"Set the faces for our fonts"
(interactive)
(message "Setting faces!")
(set-face-attribute 'default nil :font "VictorMono Nerd Font Propo"
:height chris/default-font-size)
@ -43,14 +44,13 @@
(add-to-list 'default-frame-alist '(alpha-background . 100))
(add-to-list 'initial-frame-alist '(alpha-background . 100)))
(if (daemonp)
(add-hook 'after-make-frame-functions
(lambda (frame)
(with-selected-frame frame
(chris/set-font-faces)
(chris/set-transparency)
(tool-bar-mode -1)))
(chris/set-font-faces)))
(if (daemonp) (add-hook 'after-make-frame-functions
(lambda (frame)
(with-selected-frame frame
(chris/set-font-faces)
(chris/set-transparency)
(tool-bar-mode -1)))
(chris/set-font-faces)))
(setq display-line-numbers-type t)
(global-display-line-numbers-mode +1)
@ -94,6 +94,10 @@
(with-demoted-errors "init.el error: %s"
(load autoload-file nil t)))))
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
(eval-when-compile (require 'use-package))
(setq use-package-verbose t)
@ -159,6 +163,8 @@
'(("en_US" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)))
(add-hook 'org-mode-hook 'chris/org-mode-setup)
(setq proced-auto-update-flag t)
(use-package no-littering)
;; no-littering doesn't set this by default so we must place
@ -254,6 +260,8 @@
"n" '(:ignore t :which-key "notes")
"m" '(:ignore t :which-key "music")
"l" '(:ignore t :which-key "lsp")
"x" '(:ignore t :which-key "guix")
"xx" '(guix :which-key "guix")
"sp" '(:ignore t :which-key "passwords")
"bs" '(consult-buffer :which-key "buffer search")
"bd" '(kill-this-buffer :which-key "kill buffer")
@ -1347,32 +1355,13 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
org-re-reveal-mobile-app t)
)
(use-package ox-zola
:load-path "ox-zola/"
:config
(setq org-hugo-base-dir "/home/chris/dev/cochrun.xyz"
org-hugo-section "blog"))
(use-package gptel
:ensure t
:commands (gptel-send
gptel)
:config
(setq gptel-default-mode 'org-mode
gptel-api-key "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"))
(use-package jinx
:hook (emacs-startup . global-jinx-mode)
;; :hook (emacs-startup . global-jinx-mode)
:init (flyspell-mode -1)
:config (flyspell-mode -1)
:bind (("M-c" . jinx-correct)
("C-M-$" . Jinx-Languages)))
(use-package unicode-fonts
:ensure t
:config
(unicode-fonts-setup))
(use-package emojify
:ensure t
:hook (after-init . global-emojify-mode)
@ -2032,6 +2021,11 @@ targets."
"gh" 'sp-backward-slurp-sexp
"C-l" 'sp-forward-sexp
"C-h" 'sp-backward-sexp)
('normal scheme-mode-map
"gl" 'sp-forward-slurp-sexp
"gh" 'sp-backward-slurp-sexp
"C-l" 'sp-forward-sexp
"C-h" 'sp-backward-sexp)
('normal cider-repl-mode-map
"gl" 'sp-forward-slurp-sexp
"gh" 'sp-backward-slurp-sexp
@ -2043,6 +2037,35 @@ targets."
"C-l" 'sp-forward-sexp
"C-h" 'sp-backward-sexp))
(use-package paredit
:config
:general
('normal lisp-mode-map
"gl" 'paredit-forward-slurp-sexp
"gh" 'paredit-backward-slurp-sexp
"C-l" 'paredit-forward
"C-h" 'paredit-backward)
('normal lisp-shared-mode-map
"gl" 'paredit-forward-slurp-sexp
"gh" 'paredit-backward-slurp-sexp
"C-l" 'paredit-forward
"C-h" 'paredit-backward)
('normal sly-mrepl-mode-map
"gl" 'paredit-forward-slurp-sexp
"gh" 'paredit-backward-slurp-sexp
"C-l" 'paredit-forward
"C-h" 'paredit-backward)
('normal scheme-mode-map
"gl" 'paredit-forward-slurp-sexp
"gh" 'paredit-backward-slurp-sexp
"C-l" 'paredit-forward
"C-h" 'paredit-backward)
('normal cider-repl-mode-map
"gl" 'paredit-forward-slurp-sexp
"gh" 'paredit-backward-slurp-sexp
"C-l" 'paredit-forward
"C-h" 'paredit-backward))
(add-to-list 'auto-mode-alist '("\\.yuck?\\'" . lisp-data-mode))
@ -2149,19 +2172,6 @@ targets."
(use-package fennel-mode
:mode ("\\.fnl\\'" . fennel-mode))
;; First install the package:
(use-package flycheck-clj-kondo
:ensure t)
;; then install the checker as soon as `clojure-mode' is loaded
(use-package clojure-mode
:ensure t
:config
(require 'flycheck-clj-kondo))
(use-package cider
:after clojure-mode)
(use-package yaml-mode
:mode ("\\.yml\\'" . yaml-mode))
@ -2295,6 +2305,8 @@ targets."
"q" 'kill-this-buffer
"C-<return>" 'chris/dired-open-xdg
"M-<return>" 'ffap-other-window
"h" 'dired-up-directory
"l" 'dired-find-file
"C-'" 'embark-act))
(defun chris/dired-yank-filename ()
@ -2313,32 +2325,6 @@ targets."
(use-package all-the-icons-dired
:hook (dired-mode . all-the-icons-dired-mode))
(use-package dired-single
:after dired
:general
(general-def 'normal dired-mode-map
"h" 'dired-single-up-directory
"l" 'dired-single-buffer))
(use-package fd-dired)
(use-package dired-rainbow
:after dired
:config
(defconst chris/dired-media-files-extensions
'("mp3" "mp4" "MP3" "MP4" "avi" "mpg" "flv" "ogg" "opus")
"Media files.")
(defconst chris/dired-image-files-extensions
'("png" "jpg" "PNG" "JPG" "jpeg" "JPEG" "gif" "GIF")
"image files")
(dired-rainbow-define html "#4e9a06" ("htm" "html" "xhtml"))
(dired-rainbow-define media "#f3f99d" chris/dired-media-files-extensions)
(dired-rainbow-define image "#5af78e" chris/dired-image-files-extensions)
(dired-rainbow-define log (:inherit default :italic t) ".*\\.log"))
(use-package diredfl
:after dired
:config (diredfl-global-mode +1))
@ -2357,7 +2343,7 @@ targets."
(use-package ledger-mode)
(use-package mu4e
:load-path "/usr/share/emacs/site-lisp/mu4e/"
;; :load-path "/usr/share/emacs/site-lisp/mu4e/"
:init
(setq mu4e-maildir "~/mail"
user-full-name "Chris Cochrun"
@ -2366,7 +2352,8 @@ targets."
mu4e-update-interval (* 15 60)
mu4e-attachment-dir "/home/chris/nextcloud/home/Documents/attachments"
mu4e-completing-read-function #'completing-read
mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu"
mu4e-mu-binary "/home/chris/.guix-home/profile/bin/mu"
;; mu4e-mu-binary "/etc/profiles/per-user/chris/bin/mu"
mu4e-compose-signature-auto-include nil
mu4e-headers-fields
'((:human-date . 12)
@ -2606,24 +2593,6 @@ targets."
(use-package calfw-ical
:after calfw)
(use-package org-caldav
:after org
:config
(setq org-caldav-url "https://staff.tfcconnection.org/remote.php/dav/calendars/chris"
org-caldav-calendar-id "org"
org-caldav-inbox "/home/chris/org/todo/inbox.org"
org-caldav-files '("/home/chris/org/todo/todo.org"
"/home/chris/org/todo/notes.org"
"/home/chris/org/todo/prayer.org")
org-icalendar-alarm-time 15
org-icalendar-use-scheduled '(todo-start event-if-todo)))
(use-package org-wild-notifier
:after org
:config
(setq alert-default-style 'libnotify)
(org-wild-notifier-mode +1))
(use-package magit
:ensure nil
:commands (magit-status magit-get-current-branch)
@ -2747,7 +2716,9 @@ targets."
("nupd" "update-nix")
("ksb" "/home/chris/dev/kde/src/kdesrc-build/kdesrc-build")
("ws" "rsync -avzP public/ chris@staff.tfcconnection.org:tfcconnection")
("wttr" "curl wttr.in/@home.cochrun.xyz")))
("wttr" "curl wttr.in/@home.cochrun.xyz")
("gh" "guix home -L ~/dotfiles/guix reconfigure /home/chris/dotfiles/guix/home.scm")
("gs" "guix system -L ~/dotfiles/guix reconfigure /home/chris/dotfiles/guix/system.scm")))
(defun chris/eshell-new()
"Open a new eshell buffer"
@ -3178,8 +3149,6 @@ interfere with the default `bongo-playlist-buffer'."
"v" 'chris/elfeed-bongo-insert-item
"N" 'mastodon-notifications--timeline))
(use-package qrencode)
;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
;; in non-focused windows.
(setq-default cursor-in-non-selected-windows nil)