From 49398d4cb8f216858b0d0ce9c000ba2e8affd24f Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Mon, 30 Jan 2023 01:37:41 +0300
Subject: [PATCH] feat(emacs): dired & pinentry on termux

---
 .emacs.d/init.el | 21 +++++++++++++++++++--
 Emacs.org        | 21 +++++++++++++++++++++
 2 files changed, 40 insertions(+), 2 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index ef06bc3..5a5038a 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1579,8 +1579,8 @@ Returns (<buffer> . <workspace-index>) or nil."
 
 (defun my/copilot-tab ()
   (interactive)
-  (or (when (my/should-run-emmet-p) (my/emmet-or-tab))
-      (copilot-accept-completion)
+  (or (copilot-accept-completion)
+      (when (my/should-run-emmet-p) (my/emmet-or-tab))
       (when (and (eq evil-state 'normal)
                  (or hs-minor-mode outline-minor-mode))
         (evil-toggle-fold)
@@ -3957,6 +3957,9 @@ With ARG, repeats or can move backward if negative."
             (lambda ()
               (setq truncate-lines t)
               (visual-line-mode nil)))
+
+  (when my/is-termux
+    (add-hook 'dired-mode-hook #'dired-hide-details-mode))
   (general-define-key
    :states '(normal)
    :keymaps 'dired-mode-map
@@ -5703,6 +5706,20 @@ ENTRY is an instance of `elfeed-entry'."
   :commands (atomic-chrome-start-server)
   :straight t)
 
+(use-package pinentry
+  :straight t
+  :if my/is-termux
+  :config
+  (setenv "GPG_AGENT_INFO" nil) ;; use emacs pinentry
+  (setq auth-source-debug t)
+
+  (setq epg-gpg-program "gpg2") ;; not necessary
+  (require 'epa-file)
+  (epa-file-enable)
+  (setq epa-pinentry-mode 'loopback)
+  (setq epg-pinentry-mode 'loopback)
+  (pinentry-start))
+
 (use-package pomm
   :straight t
   ;; :straight (:local-repo "~/Code/Emacs/pomm" :files (:defaults "resources"))
diff --git a/Emacs.org b/Emacs.org
index b4bdfe8..efb4c2b 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -5620,6 +5620,9 @@ My config mostly follows ranger's and vifm's keybindings which I'm used to.
             (lambda ()
               (setq truncate-lines t)
               (visual-line-mode nil)))
+
+  (when my/is-termux
+    (add-hook 'dired-mode-hook #'dired-hide-details-mode))
   (general-define-key
    :states '(normal)
    :keymaps 'dired-mode-map
@@ -8048,6 +8051,24 @@ An Emacs package to help managing GNU Guix.
   :straight t)
 #+end_src
 
+*** Pinentry
+Emacs-based pinentry works great on Termux.
+
+#+begin_src emacs-lisp
+(use-package pinentry
+  :straight t
+  :if my/is-termux
+  :config
+  (setenv "GPG_AGENT_INFO" nil) ;; use emacs pinentry
+  (setq auth-source-debug t)
+
+  (setq epg-gpg-program "gpg2") ;; not necessary
+  (require 'epa-file)
+  (epa-file-enable)
+  (setq epa-pinentry-mode 'loopback)
+  (setq epg-pinentry-mode 'loopback)
+  (pinentry-start))
+#+end_src
 ** Productivity
 *** pomm
 My package for doing Pomodoro timer.