Use emacs pinentry

dotfiles/emacs/.config/doom/config.el

@@ -0,0 +1,225 @@
+;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
+
+;; Place your private configuration here! Remember, you do not need to run 'doom
+;; sync' after modifying this file!
+
+
+;; Some functionality uses this to identify you, e.g. GPG configuration, email
+;; clients, file templates and snippets. It is optional.
+;; (setq user-full-name "John Doe"
+;;       user-mail-address "john@doe.com")
+
+;; Doom exposes five (optional) variables for controlling fonts in Doom:
+;;
+;; - `doom-font' -- the primary font to use
+;; - `doom-variable-pitch-font' -- a non-monospace font (where applicable)
+;; - `doom-big-font' -- used for `doom-big-font-mode'; use this for
+;;   presentations or streaming.
+;; - `doom-symbol-font' -- for symbols
+;; - `doom-serif-font' -- for the `fixed-pitch-serif' face
+;;
+;; See 'C-h v doom-font' for documentation and more examples of what they
+;; accept. For example:
+;;
+;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
+;;      doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
+;;
+;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
+;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to
+;; refresh your font settings. If Emacs still can't find your font, it likely
+;; wasn't installed correctly. Font issues are rarely Doom issues!
+
+;; There are two ways to load a theme. Both assume the theme is installed and
+;; available. You can either set `doom-theme' or manually load a theme with the
+;; `load-theme' function. This is the default:
+(setq doom-theme 'doom-one)
+
+;; This determines the style of line numbers in effect. If set to `nil', line
+;; numbers are disabled. For relative line numbers, set this to `relative'.
+(setq display-line-numbers-type t)
+
+;; If you use `org' and don't want your org files in the default location below,
+;; change `org-directory'. It must be set before org loads!
+(setq org-directory "~/org/")
+
+
+;; Whenever you reconfigure a package, make sure to wrap your config in an
+;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
+;;
+;;   (after! PACKAGE
+;;     (setq x y))
+;;
+;; The exceptions to this rule:
+;;
+;;   - Setting file/directory variables (like `org-directory')
+;;   - Setting variables which explicitly tell you to set them before their
+;;     package is loaded (see 'C-h v VARIABLE' to look up their documentation).
+;;   - Setting doom variables (which start with 'doom-' or '+').
+;;
+;; Here are some additional functions/macros that will help you configure Doom.
+;;
+;; - `load!' for loading external *.el files relative to this one
+;; - `use-package!' for configuring packages
+;; - `after!' for running code after a package has loaded
+;; - `add-load-path!' for adding directories to the `load-path', relative to
+;;   this file. Emacs searches the `load-path' when you load packages with
+;;   `require' or `use-package'.
+;; - `map!' for binding new keys
+;;
+;; To get information about any of these functions/macros, move the cursor over
+;; the highlighted symbol at press 'K' (non-evil users must press 'C-c c k').
+;; This will open documentation for it, including demos of how they are used.
+;; Alternatively, use `C-h o' to look up a symbol (functions, variables, faces,
+;; etc).
+;;
+;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
+;; they are implemented.
+
+(add-hook 'clojure-mode-hook #'turn-on-smartparens-strict-mode)
+
+(setq gofmt-command "goimports")
+
+(add-hook 'before-save-hook 'gofmt-before-save)
+
+;; The default value omits .. which is a pain when navigating directories
+(setq dired-omit-files "\\`[.]?#\\|\\`[.]\\'\\|^\\.DS_Store\\'\\|^flycheck_.*\\|^\\.project\\(?:ile\\)?\\'\\|^\\.\\(?:svn\\|git\\)\\'\\|^\\.ccls-cache\\'\\|\\(?:\\.js\\)?\\.meta\\'\\|\\.\\(?:elc\\|o\\|pyo\\|swp\\|class\\)\\'")
+
+;; Additional configuration for smartparens
+(after! smartparens
+
+  (require 'smartparens-config)
+
+  (add-hook 'eval-expression-minibuffer-setup-hook 'turn-on-smartparens-strict-mode)
+
+;;;;;;;;;;;;;;;;;;;;;;;;
+  ;; keybinding management
+  (define-key smartparens-mode-map (kbd "C-M-f") 'sp-forward-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-b") 'sp-backward-sexp)
+
+  (define-key smartparens-mode-map (kbd "C-M-d") 'sp-down-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-a") 'sp-backward-down-sexp)
+  (define-key smartparens-mode-map (kbd "C-S-d") 'sp-beginning-of-sexp)
+  (define-key smartparens-mode-map (kbd "C-S-a") 'sp-end-of-sexp)
+
+  (define-key smartparens-mode-map (kbd "C-M-e") 'sp-up-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-u") 'sp-backward-up-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-t") 'sp-transpose-sexp)
+
+  (define-key smartparens-mode-map (kbd "C-M-n") 'sp-forward-hybrid-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-p") 'sp-backward-hybrid-sexp)
+
+  (define-key smartparens-mode-map (kbd "C-M-k") 'sp-kill-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-w") 'sp-copy-sexp)
+
+  (define-key smartparens-mode-map (kbd "M-<delete>") 'sp-unwrap-sexp)
+  (define-key smartparens-mode-map (kbd "M-<backspace>") 'sp-backward-unwrap-sexp)
+
+  (define-key smartparens-mode-map (kbd "C-<right>") 'sp-forward-slurp-sexp)
+  (define-key smartparens-mode-map (kbd "C-<left>") 'sp-forward-barf-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-<left>") 'sp-backward-slurp-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-<right>") 'sp-backward-barf-sexp)
+
+  (define-key smartparens-mode-map (kbd "M-D") 'sp-splice-sexp)
+  (define-key smartparens-mode-map (kbd "C-M-<delete>") 'sp-splice-sexp-killing-forward)
+  (define-key smartparens-mode-map (kbd "C-M-<backspace>") 'sp-splice-sexp-killing-backward)
+  (define-key smartparens-mode-map (kbd "C-S-<backspace>") 'sp-splice-sexp-killing-around)
+
+  (define-key smartparens-mode-map (kbd "C-]") 'sp-select-next-thing-exchange)
+  (define-key smartparens-mode-map (kbd "C-<left_bracket>") 'sp-select-previous-thing)
+  (define-key smartparens-mode-map (kbd "C-M-]") 'sp-select-next-thing)
+
+  (define-key smartparens-mode-map (kbd "M-F") 'sp-forward-symbol)
+  (define-key smartparens-mode-map (kbd "M-B") 'sp-backward-symbol)
+
+  (define-key smartparens-mode-map (kbd "C-\"") 'sp-change-inner)
+  (define-key smartparens-mode-map (kbd "M-i") 'sp-change-enclosing)
+
+  (bind-key "C-c f" (lambda () (interactive) (sp-beginning-of-sexp 2)) smartparens-mode-map)
+  (bind-key "C-c b" (lambda () (interactive) (sp-beginning-of-sexp -2)) smartparens-mode-map)
+
+  (bind-key "C-M-s"
+            (defhydra smartparens-hydra ()
+              "Smartparens"
+              ("d" sp-down-sexp "Down")
+              ("e" sp-up-sexp "Up")
+              ("u" sp-backward-up-sexp "Up")
+              ("a" sp-backward-down-sexp "Down")
+              ("f" sp-forward-sexp "Forward")
+              ("b" sp-backward-sexp "Backward")
+              ("k" sp-kill-sexp "Kill" :color blue)
+              ("q" nil "Quit" :color blue))
+            smartparens-mode-map)
+
+  (bind-key "H-t" 'sp-prefix-tag-object smartparens-mode-map)
+  (bind-key "H-p" 'sp-prefix-pair-object smartparens-mode-map)
+  (bind-key "H-y" 'sp-prefix-symbol-object smartparens-mode-map)
+  (bind-key "H-h" 'sp-highlight-current-sexp smartparens-mode-map)
+  (bind-key "H-e" 'sp-prefix-save-excursion smartparens-mode-map)
+  (bind-key "H-s c" 'sp-convolute-sexp smartparens-mode-map)
+  (bind-key "H-s a" 'sp-absorb-sexp smartparens-mode-map)
+  (bind-key "H-s e" 'sp-emit-sexp smartparens-mode-map)
+  (bind-key "H-s p" 'sp-add-to-previous-sexp smartparens-mode-map)
+  (bind-key "H-s n" 'sp-add-to-next-sexp smartparens-mode-map)
+  (bind-key "H-s j" 'sp-join-sexp smartparens-mode-map)
+  (bind-key "H-s s" 'sp-split-sexp smartparens-mode-map)
+  (bind-key "H-s r" 'sp-rewrap-sexp smartparens-mode-map)
+  (defvar hyp-s-x-map)
+  (define-prefix-command 'hyp-s-x-map)
+  (bind-key "H-s x" hyp-s-x-map smartparens-mode-map)
+  (bind-key "H-s x x" 'sp-extract-before-sexp smartparens-mode-map)
+  (bind-key "H-s x a" 'sp-extract-after-sexp smartparens-mode-map)
+  (bind-key "H-s x s" 'sp-swap-enclosing-sexp smartparens-mode-map)
+
+  (bind-key "C-x C-t" 'sp-transpose-hybrid-sexp smartparens-mode-map)
+
+  (bind-key ";" 'sp-comment emacs-lisp-mode-map)
+  (bind-key "C-M-;" 'sp-comment-sexp smartparens-mode-map)
+
+  (bind-key [remap c-electric-backspace] 'sp-backward-delete-char smartparens-strict-mode-map)
+
+;;;;;;;;;;;;;;;;;;
+  ;; pair management
+
+  (sp-with-modes '(minibuffer-mode)
+    (sp-local-pair "'" nil :actions nil)
+    (sp-local-pair "(" nil :wrap "C-("))
+
+  (sp-with-modes 'org-mode
+    (sp-local-pair "=" "=" :wrap "C-="))
+
+  (sp-with-modes 'textile-mode
+    (sp-local-pair "*" "*")
+    (sp-local-pair "_" "_")
+    (sp-local-pair "@" "@"))
+
+  (sp-with-modes 'web-mode
+    (sp-local-pair "{{#if" "{{/if")
+    (sp-local-pair "{{#unless" "{{/unless"))
+
+;;; tex-mode latex-mode
+  (sp-with-modes '(tex-mode plain-tex-mode latex-mode)
+    (sp-local-tag "i" "\"<" "\">"))
+
+;;; lisp modes
+  (sp-with-modes sp--lisp-modes
+    (sp-local-pair "(" nil
+                   :wrap "C-("
+                   :pre-handlers '(my-add-space-before-sexp-insertion)
+                   :post-handlers '(my-add-space-after-sexp-insertion)))
+
+  (defun my-add-space-after-sexp-insertion (id action _context)
+    (when (eq action 'insert)
+      (save-excursion
+        (forward-char (sp-get-pair id :cl-l))
+        (when (or (eq (char-syntax (following-char)) ?w)
+                  (looking-at (sp--get-opening-regexp)))
+          (insert " ")))))
+
+  (defun my-add-space-before-sexp-insertion (id action _context)
+    (when (eq action 'insert)
+      (save-excursion
+        (backward-char (length id))
+        (when (or (eq (char-syntax (preceding-char)) ?w)
+                  (and (looking-back (sp--get-closing-regexp))
+                       (not (eq (char-syntax (preceding-char)) ?'))))
+          (insert " "))))))

dotfiles/emacs/.config/doom/custom.el

@@ -0,0 +1,64 @@
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(denote-directory "/home/ray/Workspace/personal/notes")
+ '(safe-local-variable-values
+   '((eval progn
+      (require 'lisp-mode)
+      (defun emacs27-lisp-fill-paragraph
+          (&optional justify)
+        (interactive "P")
+        (or
+         (fill-comment-paragraph justify)
+         (let
+             ((paragraph-start
+               (concat paragraph-start "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
+              (paragraph-separate
+               (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
+              (fill-column
+               (if
+                   (and
+                    (integerp emacs-lisp-docstring-fill-column)
+                    (derived-mode-p 'emacs-lisp-mode))
+                   emacs-lisp-docstring-fill-column fill-column)))
+           (fill-paragraph justify))
+         t))
+      (setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph))
+     (eval modify-syntax-entry 43 "'")
+     (eval modify-syntax-entry 36 "'")
+     (eval modify-syntax-entry 126 "'")
+     (geiser-repl-per-project-p . t)
+     (eval with-eval-after-load 'yasnippet
+      (let
+          ((guix-yasnippets
+            (expand-file-name "etc/snippets/yas"
+                              (locate-dominating-file default-directory ".dir-locals.el"))))
+        (unless
+            (member guix-yasnippets yas-snippet-dirs)
+          (add-to-list 'yas-snippet-dirs guix-yasnippets)
+          (yas-reload-all))))
+     (eval with-eval-after-load 'tempel
+      (if
+          (stringp tempel-path)
+          (setq tempel-path
+                (list tempel-path)))
+      (let
+          ((guix-tempel-snippets
+            (concat
+             (expand-file-name "etc/snippets/tempel"
+                               (locate-dominating-file default-directory ".dir-locals.el"))
+             "/*.eld")))
+        (unless
+            (member guix-tempel-snippets tempel-path)
+          (add-to-list 'tempel-path guix-tempel-snippets))))
+     (eval setq-local guix-directory
+      (locate-dominating-file default-directory ".dir-locals.el"))
+     (eval add-to-list 'completion-ignored-extensions ".go"))))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )

dotfiles/emacs/.config/doom/init.el

@@ -0,0 +1,193 @@
+;;; init.el -*- lexical-binding: t; -*-
+
+;; This file controls what Doom modules are enabled and what order they load
+;; in. Remember to run 'doom sync' after modifying it!
+
+;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
+;;      documentation. There you'll find a link to Doom's Module Index where all
+;;      of our modules are listed, including what flags they support.
+
+;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
+;;      'C-c c k' for non-vim users) to view its documentation. This works on
+;;      flags as well (those symbols that start with a plus).
+;;
+;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
+;;      directory (for easy access to its source code).
+
+(doom! :input
+       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
+       ;;chinese
+       ;;japanese
+       ;;layout            ; auie,ctsrnm is the superior home row
+
+       :completion
+       ;;company           ; the ultimate code completion backend
+       (corfu +orderless)  ; complete with cap(f), cape and a flying feather!
+       ;;helm              ; the *other* search engine for love and life
+       ;;ido               ; the other *other* search engine...
+       ;;ivy               ; a search engine for love and life
+       vertico           ; the search engine of the future
+
+       :ui
+       ;;deft              ; notational velocity for Emacs
+       doom              ; what makes DOOM look the way it does
+       doom-dashboard    ; a nifty splash screen for Emacs
+       ;;doom-quit         ; DOOM quit-message prompts when you quit Emacs
+       ;;(emoji +unicode)  ; 🙂
+       hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
+       ;;indent-guides     ; highlighted indent columns
+       ;;ligatures         ; ligatures and symbols to make your code pretty again
+       ;;minimap           ; show a map of the code on the side
+       modeline          ; snazzy, Atom-inspired modeline, plus API
+       ;;nav-flash         ; blink cursor line after big motions
+       ;;neotree           ; a project drawer, like NERDTree for vim
+       ophints           ; highlight the region an operation acts on
+       (popup +defaults)   ; tame sudden yet inevitable temporary windows
+       ;;tabs              ; a tab bar for Emacs
+       ;;treemacs          ; a project drawer, like neotree but cooler
+       ;;unicode           ; extended unicode support for various languages
+       (vc-gutter +pretty) ; vcs diff in the fringe
+       vi-tilde-fringe   ; fringe tildes to mark beyond EOB
+       ;;window-select     ; visually switch windows
+       workspaces        ; tab emulation, persistence & separate workspaces
+       ;;zen               ; distraction-free coding or writing
+
+       :editor
+       ;;(evil +everywhere); come to the dark side, we have cookies
+       file-templates    ; auto-snippets for empty files
+       fold              ; (nigh) universal code folding
+       (format +onsave)  ; automated prettiness
+       ;;god               ; run Emacs commands without modifier keys
+       ;;lispy             ; vim for lisp, for people who don't like vim
+       ;;multiple-cursors  ; editing in many places at once
+       ;;objed             ; text object editing for the innocent
+       ;;parinfer          ; turn lisp into python, sort of
+       ;;rotate-text       ; cycle region at point between text candidates
+       snippets          ; my elves. They type so I don't have to
+       ;;word-wrap         ; soft wrapping with language-aware indent
+
+       :emacs
+       dired             ; making dired pretty [functional]
+       electric          ; smarter, keyword-based electric-indent
+       ;;eww               ; the internet is gross
+       ;;ibuffer           ; interactive buffer management
+       undo              ; persistent, smarter undo for your inevitable mistakes
+       vc                ; version-control and Emacs, sitting in a tree
+
+       :term
+       ;;eshell            ; the elisp shell that works everywhere
+       ;;shell             ; simple shell REPL for Emacs
+       ;;term              ; basic terminal emulator for Emacs
+       vterm             ; the best terminal emulation in Emacs
+
+       :checkers
+       syntax              ; tasing you for every semicolon you forget
+       (spell +flyspell) ; tasing you for misspelling mispelling
+       ;;grammar           ; tasing grammar mistake every you make
+
+       :tools
+       ansible
+       ;;biblio            ; Writes a PhD for you (citation needed)
+       ;;collab            ; buffers with friends
+       ;;debugger          ; FIXME stepping through code, to help you add bugs
+       ;;direnv
+       docker
+       ;;editorconfig      ; let someone else argue about tabs vs spaces
+       ;;ein               ; tame Jupyter notebooks with emacs
+       (eval +overlay)     ; run code, run (also, repls)
+       lookup              ; navigate your code and its documentation
+       lsp               ; M-x vscode
+       magit             ; a git porcelain for Emacs
+       ;;make              ; run make tasks from Emacs
+       ;;pass              ; password manager for nerds
+       ;;pdf               ; pdf enhancements
+       ;;prodigy           ; FIXME managing external services & code builders
+       terraform         ; infrastructure as code
+       ;;tmux              ; an API for interacting with tmux
+       ;;tree-sitter       ; syntax and parsing, sitting in a tree...
+       ;;upload            ; map local to remote projects via ssh/ftp
+
+       :os
+       (:if (featurep :system 'macos) macos)  ; improve compatibility with macOS
+       ;;tty               ; improve the terminal Emacs experience
+
+       :lang
+       ;;agda              ; types of types of types of types...
+       ;;beancount         ; mind the GAAP
+       ;;(cc +lsp)         ; C > C++ == 1
+       clojure           ; java with a lisp
+       ;;common-lisp       ; if you've seen one lisp, you've seen them all
+       ;;coq               ; proofs-as-programs
+       ;;crystal           ; ruby at the speed of c
+       ;;csharp            ; unity, .NET, and mono shenanigans
+       ;;data              ; config/data formats
+       ;;(dart +flutter)   ; paint ui and not much else
+       ;;dhall
+       ;;elixir            ; erlang done right
+       ;;elm               ; care for a cup of TEA?
+       emacs-lisp        ; drown in parentheses
+       ;;erlang            ; an elegant language for a more civilized age
+       ;;ess               ; emacs speaks statistics
+       ;;factor
+       ;;faust             ; dsp, but you get to keep your soul
+       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
+       ;;fsharp            ; ML stands for Microsoft's Language
+       ;;fstar             ; (dependent) types and (monadic) effects and Z3
+       ;;gdscript          ; the language you waited for
+       (go +lsp)         ; the hipster dialect
+       ;;(graphql +lsp)    ; Give queries a REST
+       ;;(haskell +lsp)    ; a language that's lazier than I am
+       ;;hy                ; readability of scheme w/ speed of python
+       ;;idris             ; a language you can depend on
+       json              ; At least it ain't XML
+       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
+       javascript        ; all(hope(abandon(ye(who(enter(here))))))
+       ;;julia             ; a better, faster MATLAB
+       ;;kotlin            ; a better, slicker Java(Script)
+       ;;latex             ; writing papers in Emacs has never been so fun
+       ;;lean              ; for folks with too much to prove
+       ;;ledger            ; be audit you can be
+       ;;lua               ; one-based indices? one-based indices
+       markdown          ; writing docs for people to ignore
+       ;;nim               ; python + lisp at the speed of c
+       ;;nix               ; I hereby declare "nix geht mehr!"
+       ;;ocaml             ; an objective camel
+       org               ; organize your plain life in plain text
+       ;;php               ; perl's insecure younger brother
+       ;;plantuml          ; diagrams for confusing people more
+       ;;graphviz          ; diagrams for confusing yourself even more
+       ;;purescript        ; javascript, but functional
+       (python +lsp +pyenv)       ; beautiful is better than ugly
+       ;;qt                ; the 'cutest' gui framework ever
+       racket            ; a DSL for DSLs
+       ;;raku              ; the artist formerly known as perl6
+       ;;rest              ; Emacs as a REST client
+       ;;rst               ; ReST in peace
+       ;;(ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
+       ;;(rust +lsp)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
+       ;;scala             ; java, but good
+       (scheme +guile)   ; a fully conniving family of lisps
+       sh                ; she sells {ba,z,fi}sh shells on the C xor
+       ;;sml
+       ;;solidity          ; do you need a blockchain? No.
+       ;;swift             ; who asked for emoji variables?
+       ;;terra             ; Earth and Moon in alignment for performance.
+       web               ; the tubes
+       yaml              ; JSON, but readable
+       ;;zig               ; C, but simpler
+
+       :email
+       ;;(mu4e +org +gmail)
+       ;;notmuch
+       ;;(wanderlust +gmail)
+
+       :app
+       ;;calendar
+       ;;emms
+       ;;everywhere        ; *leave* Emacs!? You must be joking
+       ;;irc               ; how neckbeards socialize
+       ;;(rss +org)        ; emacs as an RSS reader
+
+       :config
+       ;;literate
+       (default +bindings +smartparens))

dotfiles/emacs/.config/doom/packages.el

@@ -0,0 +1,51 @@
+;; -*- no-byte-compile: t; -*-
+;;; $DOOMDIR/packages.el
+
+;; To install a package with Doom you must declare them here and run 'doom sync'
+;; on the command line, then restart Emacs for the changes to take effect -- or
+;; use 'M-x doom/reload'.
+
+
+;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror:
+;; (package! some-package)
+
+;; To install a package directly from a remote git repo, you must specify a
+;; `:recipe'. You'll find documentation on what `:recipe' accepts here:
+;; https://github.com/radian-software/straight.el#the-recipe-format
+;; (package! another-package
+;;   :recipe (:host github :repo "username/repo"))
+
+;; If the package you are trying to install does not contain a PACKAGENAME.el
+;; file, or is located in a subdirectory of the repo, you'll need to specify
+;; `:files' in the `:recipe':
+;; (package! this-package
+;;   :recipe (:host github :repo "username/repo"
+;;            :files ("some-file.el" "src/lisp/*.el")))
+
+;; If you'd like to disable a package included with Doom, you can do so here
+;; with the `:disable' property:
+;; (package! builtin-package :disable t)
+
+;; You can override the recipe of a built in package without having to specify
+;; all the properties for `:recipe'. These will inherit the rest of its recipe
+;; from Doom or MELPA/ELPA/Emacsmirror:
+;; (package! builtin-package :recipe (:nonrecursive t))
+;; (package! builtin-package-2 :recipe (:repo "myfork/package"))
+
+;; Specify a `:branch' to install a package from a particular branch or tag.
+;; This is required for some packages whose default branch isn't 'master' (which
+;; our package manager can't deal with; see radian-software/straight.el#279)
+;; (package! builtin-package :recipe (:branch "develop"))
+
+;; Use `:pin' to specify a particular commit to install.
+;; (package! builtin-package :pin "1a2b3c4d5e")
+
+
+;; Doom's packages are pinned to a specific commit and updated from release to
+;; release. The `unpin!' macro allows you to unpin single packages...
+;; (unpin! pinned-package)
+;; ...or multiple packages
+;; (unpin! pinned-package another-pinned-package)
+;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
+;; (unpin! t)
+(package! denote)

home-configuration.scm

@@ -6,22 +6,23 @@
 
 (use-modules (gnu home)
              (gnu packages)
+             (gnu packages gnupg)
              (gnu services)
              (guix gexp)
              (gnu home services shells)
-	     (gnu home services dotfiles)
+	         (gnu home services dotfiles)
-	     (gnu home services gnupg))
+	         (gnu home services gnupg))
 
 (home-environment
-  ;; Below is the list of packages that will show up in your
+ ;; Below is the list of packages that will show up in your
-  ;; Home profile, under ~/.guix-home/profile.
+ ;; Home profile, under ~/.guix-home/profile.
  (packages (specifications->packages (list "emacs-no-x"
-					   "git"
+					                       "git"
-					   "git-crypt"
+					                       "git-crypt"
-					   "git-lfs"
+					                       "git-lfs"
-					   "glibc-locales"
+					                       "glibc-locales"
-					   "gnupg"
+					                       "gnupg"
-					   ;;"go@1.23.2"
+					                       ;;"go@1.23.2"
                                            "guile"
                                            "guile-algorithms"
                                            "guile-config"
@@ -46,29 +47,32 @@
                                            "guile-srfi-235"
                                            "guile-ssh"
                                            "guile-tap"
-					   "nss-certs"
+					                       "nss-certs"
-					   "pass-git-helper"
+					                       "pass-git-helper"
-					   "password-store"
+					                       "password-store"
-					   "recutils")))
+                                           "pinentry-emacs"
+					                       "recutils")))
 
-  ;; Below is the list of Home services.  To search for available
+ ;; Below is the list of Home services.  To search for available
-  ;; services, run 'guix home search KEYWORD' in a terminal.
+ ;; services, run 'guix home search KEYWORD' in a terminal.
-  (services
+ (services
-   (list (service home-bash-service-type
+  (list (service home-bash-service-type
-                  (home-bash-configuration
+                 (home-bash-configuration
-		   (guix-defaults? #t)
+		          (guix-defaults? #t)
-		   (environment-variables '(("XDG_RUNTIME_DIR" . "/home/ray/.local/run")))
+		          (environment-variables '(("XDG_RUNTIME_DIR" . "/home/ray/.local/run")))
-                   (aliases '(("grep" . "grep --color=auto") ("ll" . "ls -l")
+                  (aliases '(("grep" . "grep --color=auto") ("ll" . "ls -l")
-                              ("ls" . "ls -p --color=auto")))
+                             ("ls" . "ls -p --color=auto")))
-                   (bashrc (list (local-file
+                  (bashrc (list (local-file
-                                  "/home/ray/Workspace/guix-config/.bashrc"
+                                 "/home/ray/Workspace/guix-config/.bashrc"
-                                  "bashrc")))
+                                 "bashrc")))
-                   (bash-profile (list (local-file
+                  (bash-profile (list (local-file
-                                        "/home/ray/Workspace/guix-config/.bash_profile"
+                                       "/home/ray/Workspace/guix-config/.bash_profile"
-                                        "bash_profile")))))
+                                       "bash_profile")))))
-	 (service home-dotfiles-service-type
+	    (service home-dotfiles-service-type
-		  (home-dotfiles-configuration
+		         (home-dotfiles-configuration
-		   (directories '("./dotfiles"))
+		          (directories '("./dotfiles"))
-		   (layout 'stow)))
+		          (layout 'stow)))
-	 (service home-gpg-agent-service-type
+	    (service home-gpg-agent-service-type
-		  (home-gpg-agent-configuration)))))
+		         (home-gpg-agent-configuration
+                  (pinentry-program
+                   (file-append pinentry-emacs "/bin/pinentry-emacs")))))))