From f94954578be4fc1c718d7e1c0f03f69a8556422e Mon Sep 17 00:00:00 2001 From: opal Date: Sun, 19 Dec 2021 18:44:35 -0800 Subject: [PATCH] Fleshed out new emacs config, added Guix.org, added Stump --- .config/mbsync/.mu4e.gpg | Bin 479 -> 479 bytes .config/mbsync/mbsyncrc | 10 +- .config/user-dirs.dirs | 15 --- Guix.org | 80 +++++++++++++ New-Emacs.org | 236 ++++++++++++++++++++++++++------------- StumpWM.org | 83 +++++++------- 6 files changed, 286 insertions(+), 138 deletions(-) delete mode 100644 .config/user-dirs.dirs create mode 100644 Guix.org diff --git a/.config/mbsync/.mu4e.gpg b/.config/mbsync/.mu4e.gpg index f4f589b4627b17263387a2222cb9c68de18abf4b..fc67a77dd4d782b4ac3f85b5ed59aecfbc455052 100644 GIT binary patch literal 479 zcmV<50U-W`0gMAPdiGcq$<+`63;#<2R_TP9)297~c4tJZ?)x8aKB%LDnh5f=)*kR> z%l;jhhp$AUF{_aTp*%Y*Bjvf`h;;SqGN(t#_ClfMJNf3ITV`Cp)nef`QSQ`%WoNUyv5}6HvDzQwiL`huvz^+z9U-#Eb|F9c_sMksiI2GO1Hc zGL6@&DYXJ-KmY#f-qXAbols}_@ED;~4%SfZ(vA#s{@E7W)m`N|shdYOY2~wPuv({X4SOO2<`MG@wC+@V zgf2t!YvuNHag)9R)A(3gwYN^EQ6Gt;J92SQPk-gw1rOxiXNk~(+2EKOFBs-!am79q zv%+dVo48j1pQ-CPGr<8jVmFztVviGjac+PMY2AcPq?&+nyr_olkI~Xj0ru4it^Y#A zY4gLK%KoX@KIeE{`CHQ5<-utp>w{d(c=cRC7F`2Z1IffNALF0JKM+=}@>18a3(HbK V+vl8}HGQ~w&b_C#lvc?1t`IKapCA>(Al)hqk)BYkuy_;G;E+~X0%ym5W>)QY#3=*EDWiRAn;j$3f z%kYO1*8)lxD$l>RT4cojGpQkCOHEMYN`VXDLzL`J^XzL)5L~RUyL-($TBi*5DA%69 zp39#)^2OA~*&#DCG_pmx)0_X}0&o*mvA=oaX~QD)&{pbeA+G#IBc=s+77NU9KT`R- zvuPq)j?+a32?rGbePmPHMOWm3Qx}<^g~Q2^ohD_dbxyo;W8w({B94iyP5_;Y>l{NW z$uW(~TJ_|=iV+562`{4?vf~Rlbn9yhO|!il#bi)^ffLf6-ax*HR<x0bq5;@(Y$@ zTVQoV386eV?B-*#pNdV%eGucnfR1_D7e6510*)%(Z$=%T^@^Rll{hN#E>h4)A3%xq V!1wsUT%iT|@9WcQ;v_iC!package "awesome") + (specification->package "nss-certs") + (specification->package "xterm") + (specification->package "emacs") + (specification->package "git") + (specification->package "bluez") + (specification->package "bluez-alsa") + (specification->package "pulseaudio") + (specification->package "vim") + (specification->package "exfat-utils") + (specification->package "stow") + (specification->package "stumpwm")) + %base-packages)) + (services + (append + (list (service gnome-desktop-service-type) + (set-xorg-configuration + (xorg-configuration + (keyboard-layout keyboard-layout)))) + %desktop-services)) + (bootloader + (bootloader-configuration + (bootloader grub-efi-bootloader) + (targets (list "/boot/efi")) + (keyboard-layout keyboard-layout))) + (mapped-devices + (list (mapped-device + (source + (uuid "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))) +#+end_src diff --git a/New-Emacs.org b/New-Emacs.org index e900019..4b8e2c5 100644 --- a/New-Emacs.org +++ b/New-Emacs.org @@ -1,5 +1,5 @@ +#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/.config/emacs/init.el :mkdirp yes :lexical yes #+TITLE: Emacs Configuration -#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/config/emacs/init.el :mkdirp yes :lexical yes Todo: - Yassnippet @@ -49,12 +49,14 @@ I use [[https://github.com/raxod502/straight.el][straight.el]] for managing pack (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) +(setq inhibit-startup-message t) + ;; Disable line mode for specific major/minor modes. -(dolist (mode '(org-mode-hook - term-mode-hook - shell-mode-hook - eshell-mode-hook)) +(dolist (mode '(org-mode-hook)) + 'term-mode-hook + 'shell-mode-hook + 'eshell-mode-hook (add-hook mode (lambda () (display-line-numbers-mode 0)))) #+end_src @@ -116,12 +118,11 @@ Helpful.el is a package that reformats the describe-X functions to be much more (use-package super-save :straight t :config - (super-save-mode +1) - (super-save-auto-save-when-idle t)) + (super-save-mode +1)) ;; Auto reverting Changed Files -(setq global-auto-revert-non-file-buffers t) -(global-auto-revert-mode 1) +(setq global-auto-revert-non-file-buffers nil) +(global-auto-revert-mode -1) #+end_src * Theme I really enjoy [[https://protesilaos.com/emacs/modus-themes][Modus Themes]] by Protesilaos Stavrou. They are minimal, high contrast, and easy on the eyes. @@ -131,8 +132,8 @@ I really enjoy [[https://protesilaos.com/emacs/modus-themes][Modus Themes]] by P :straight t :init (setq modus-themes-italic-constructs t - modus-themes-bold-constructs nil - modus-themes-region '(accented bg-only no-extend) + 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) @@ -177,11 +178,41 @@ I really enjoy having a leader key and eschewing the Control and Alt keys entire ":" #'execute-extended-command ;; Eq to M-x "u" #'universal-argument ;; Universal argument "w" #'evil-window-map ;; Window functions - "h" #'help-map ;; Helper functions "." #'find-file ;; Find file (opens in mini-buffer) "," #'persp-switch-to-buffer ;; Switch to perspective.el minibuffer "<" #'switch-to-buffer ;; Switch to non-perspective.el minibuffer - "s" #'swiper)) ;; Search in current buffer + "s" #'swiper ;; Search in current buffer + + ;; Magit + "gg" #'magit-status + "gi" #'magit-init + "gc" #'magit-clone + + ;; Buffers + "bd" #'kill-buffer + + ;; Org + ; Babel + "obt" #'org-babel-tangle + ; Gen + "ol" #'org-insert-link + "or" #'org-reload + ; Agenda + "oa" #'org-agenda + + ;; Eval + "eb" #'eval-buffer + "er" #'eval-region + "ef" #'eval-defun + "el" #'eval-last-sexp + + ;; Describe + "df" #'describe-function + "dv" #'describe-variable + "ds" #'describe-symbol + "dk" #'describe-key + "dp" #'describe-package)) + #+end_src ** Evil @@ -218,26 +249,25 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it ** Ivy #+begin_src emacs-lisp (use-package ivy - :straight t - :diminish - :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)) + :straight t + :diminish + :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 (icy-rich-mode 1))) + :init (ivy-rich-mode 1)) #+end_src ** Counsel @@ -256,8 +286,17 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it #+end_src * Org - #+begin_src emacs-lisp +;; Set org agenda dir +(setq org-directory "~/Org/") + +;; Tell Org to stop indenting inside of org source blocks. +(setq org-edit-src-content-indentation 0) + +;; Open links in browser +(setq browse-url-browser-function 'browse-url-generic + browse-url-generic-program "firefox") + (defun opal/org-font-setup () ;; Replace list hyphen with dot (font-lock-add-keywords 'org-mode @@ -289,11 +328,6 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it (set-face-attribute 'line-number nil :inherit 'fixed-pitch) (set-face-attribute 'line-number-current-line nil :inherit 'fixed-pitch)) -;; Set org agenda dir -(setq org-directory "~/Org/") - -;; Tell Org to stop indenting inside of org source blocks. -(setq org-edit-src-content-indentation 0) (defun opal/org-mode-setup () (org-indent-mode) @@ -313,87 +347,98 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it (setq org-agenda-files '("~/Org/projects/" - "~/Org/tasks/" - )) + "~/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@)"))) + '((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))) + '(("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))) + '((: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"))))) + '(("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"))))) + ("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))))) + ;; 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) + `(("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))) - ("p" "Projects") - ("pp" "Project File" entry (file+olp "~/org/projects/auto-infra-overview.org" "Inbox") - "* TODO %?\n %U\n %a\n %i" :empty-lines 1))) ;; Init org font setup (opal/org-font-setup)) +#+end_src -;; Change default pretty bullets to circles +** Pretty Bullets +Creates nicer (-) bullets. +#+begin_src emacs-lisp (use-package org-bullets :straight t :after org :hook (org-mode . org-bullets-mode) :custom (org-bullets-bullet-list '("◉" "○" "●" "○" "●" "○" "●"))) +#+end_src + +** Visual Fill Mode +Creates margins in Org mode to make it more pleasant to look at. +#+begin_src emacs-lisp -; Creates margins, and centerrs content in org mode. (defun opal/org-mode-visual-fill () (setq visual-fill-column-width 100 - visual-fill-column-center-text t) + 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)) -;; Org Babel +#+end_src + +** Org Babel +#+begin_src emacs-lisp ;; Load languages for babel code blocks. (with-eval-after-load 'org (org-babel-do-load-languages @@ -418,12 +463,45 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it (add-to-list 'org-structure-template-alist '("css" . "src css")) (add-to-list 'org-structure-template-alist '("cl" . "src lisp"))) #+end_src +* Programming/Editor +** General +*** Syntax (Flycheck) +#+begin_src emacs-lisp +(use-package flycheck :straight t) +#+end_src +*** Rainbow Delimiters +#+begin_src emacs-lisp +(use-package rainbow-delimiters + :straight t + :init + (add-hook 'prog-mode-hook #'rainbow-delimiters-mode) + (add-hook 'org-mode-hook #'rainbow-delimiters-mode)) +#+end_src +*** Rainbow Mode +Sets HTML strings to have the background of the color they represent. +#+begin_src emacs-lisp +(use-package rainbow-mode :straight t) +#+end_src +** Lisp +#+begin_src emacs-lisp +(use-package parinfer + :straight t + :init + (progn + (setq parinfer-extensions + '(defaults + pretty-parens + evil)) + (add-hook 'prog-mode-hook #'parinfer-mode))) +#+end_src * Magit #+begin_src emacs-lisp (use-package magit :straight t) #+end_src * E-Mail +I've been using IceDove/Thunderbird for e-mail until I get around to making this a comparable solutions. + #+begin_src emacs-lisp ;; (use-package mu4e ;; :straight t @@ -458,7 +536,9 @@ At the moment, I'm trying out Ivy and counsel but I've used Vertico and liked it ;; ("/opal.sh/Trash" . ?t) ;; ("/opal.sh/Drafts" . ?d)))) #+end_src -* IRC +* IRC +Right now I'm pretty happy with Matrix bridging into IRC rooms so this will stay commented out for now. I might try out the Emacs Matrix client at some point soon. + #+begin_src emacs-lisp ;; (use-package erc ;; :straight t diff --git a/StumpWM.org b/StumpWM.org index 240acab..f263d57 100644 --- a/StumpWM.org +++ b/StumpWM.org @@ -1,5 +1,5 @@ #+TITLE: StumpWM Configuration -#+PROPERTY: header-args:emacs-lisp :tangle ~/Dotfiles/config/stumpwm/init.el :mkdirp yes +#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes In my quest to make my computer a Lisp machine in its own right, I am using StumpWM as my window manager. @@ -9,10 +9,10 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum ;; (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") +;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-swm-gaps") +;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-ttf-fonts") +;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-stumptray") +;; (stumpwm:add-to-load-path "~/.guix-home/profile/share/common-lisp/sbcl/stumpwm-kbd-layouts") #+end_src * Environment @@ -29,24 +29,24 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum ** Set Prefix #+begin_src lisp -(set-prefix-key (kbd "s-d")) +;; (set-prefix-key (kbd "s-d")) #+end_src ** Focus window with mouth #+begin_src lisp -setf *mouse-focus-policy* :click) +;; (setf *mouse-focus-policy* :click) #+end_src ** Messages #+begin_src lisp (setq *message-window-gravity* :top) (setq *message-window-padding* 10) -(setq *message-window-y-padding 10) +: (setq *message-window-y-padding 10) #+end_src ** Command Window #+begin_src lisp -(setq *input-window-gravity* :center) +;; (setq *input-window-gravity* :center) #+end_src * Keyboard ** Load Keyboard Layout Module @@ -54,8 +54,8 @@ setf *mouse-focus-policy* :click) ;; (load-module "kbd-layouts") #+end_src ** Remap Caps Lock -#+begin_src lisp -setf kbd-layouts:*caps-lock-behavior* :esc) +#+begin_src lisp :tangle yes + ;; (setf kbd-layouts:*caps-lock-behavior* :esc) #+end_src ** Xmodmap #+begin_src lisp @@ -70,16 +70,19 @@ setf kbd-layouts:*caps-lock-behavior* :esc) (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-S-h") "move-window left") -(define-key *top-map* (kbd "s-S-l") "move-window right") -(define-key *top-map* (kbd "s-S-j") "move-window down") -(define-key *top-map* (kbd "s-S-k") "move-window 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-S-q") "delete") +(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 "C-s-l") "run-shell-command slock") +(define-key *top-map* (kbd "s-L") "run-shell-command slock") +(define-key *top-map* (kbd "s-RET") "run-shell-command alacritty") +(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") @@ -90,11 +93,11 @@ setf kbd-layouts:*caps-lock-behavior* :esc) (define-key *top-map* (kbd "s-4") "gselect IV") (define-key *top-map* (kbd "s-5") "gselect V") -(define-key *top-map* (kbd "s-S-1") "gmove I") -(define-key *top-map* (kbd "s-S-2") "gmove II") -(define-key *top-map* (kbd "s-S-3") "gmove III") -(define-key *top-map* (kbd "s-S-4") "gmove IV") -(define-key *top-map* (kbd "s-S-5") "gmove 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%-") @@ -111,13 +114,13 @@ setf kbd-layouts:*caps-lock-behavior* :esc) (set-border-color "#c792ea") (set-bg-color "#232635") (set-fg-color "#A6Accd") -(set-msg-border-width 2) +;; (set-msg-border-width 2) #+end_src ** Gaps #+begin_src lisp -(load-module "swm-gaps") -(setf swm-gaps:*inner-gaps-size* 3) -(run-commands "toggle-gaps-on") + ;; (load-module "swm-gaps") + ;; (setf swm-gaps:*inner-gaps-size* 3) + ;; (run-commands "toggle-gaps-on") #+end_src ** Fonts #+begin_src lisp @@ -132,28 +135,28 @@ setf kbd-layouts:*caps-lock-behavior* :esc) #+end_src ** Mode-Line #+begin_src lisp -;; Set mode line colors -(setf *mode-line-background-color* "#232635") -(setf *mode-line-foreground-color* "#A6Accd") + ;; ;; Set mode line colors + ;; (setf *mode-line-background-color* "#232635") + ;; (setf *mode-line-foreground-color* "#A6Accd") -;; Set the mode line format -(setf *screen-mode-line-format* "[^B%n^b] %W ^>%d") -(run-commands "mode-line" "mode-line") + ;; ;; Set the mode line format + ;; (setf *screen-mode-line-format* "[^B%n^b] %W ^>%d") + ;; (run-commands "mode-line" "mode-line") -;; Start the mode line -(run-commands "mode-line") + ;; ;; Start the mode line + ;; (run-commands "mode-line") #+end_src ** System tray #+begin_src lisp -;; Add the system tray module -(load-module "stumptray") -(stumptray:stumptray) + ;; ;; Add the system tray module + ;; (load-module "stumptray") + ;; (stumptray:stumptray) #+end_src * Applications -#+begin_src lisp -;; (run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg") +#+begin_src lisp +(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") @@ -162,7 +165,7 @@ setf kbd-layouts:*caps-lock-behavior* :esc) #+end_src * Repl Start -#+begin_src lisp +#+begin_src lisp (require :slynk) (slynk:create-server :dont-close t) #+end_src