From b7a012cf1b73a98923badfebc6fcbd1c0281198f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 26 Oct 2025 01:18:44 +0100
Subject: alpha transformation

---
 custom/jao-custom-browse.el | 2 +-
 custom/jao-custom-exwm.el   | 8 ++++----
 custom/jao-custom-x11.el    | 2 +-
 lib/doc/jao-mac.el          | 2 +-
 lib/doc/jao-pdf.el          | 2 +-
 5 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/custom/jao-custom-browse.el b/custom/jao-custom-browse.el
index 0f4ae65..ebe023d 100644
--- a/custom/jao-custom-browse.el
+++ b/custom/jao-custom-browse.el
@@ -4,7 +4,7 @@
 (require 'jao-url)
 
 ;;; variables
-(defvar jao-browse-doc-use-emacs-p t)
+(defvar jao-browse-doc-use-emacs t)
 (defvar jao-browse-url-function nil)
 (defvar jao-browse-url-external-function nil)
 
diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index ac88ec1..291b78d 100644
--- a/custom/jao-custom-exwm.el
+++ b/custom/jao-custom-exwm.el
@@ -366,7 +366,7 @@
 (defun jao-exwm-pdf-enable-zathura ()
   (interactive)
   (add-hook 'kill-emacs-query-functions #'jao-exwm-pdf-zathura-close-all t)
-  (setq jao-browse-doc-use-emacs-p nil)
+  (setq jao-browse-doc-use-emacs nil)
   (setq jao-org-open-pdf-fun #'jao-zathura-open-doc)
   (setq jao-org-links-pdf-store-fun #'jao-exwm-org-store-zathura-link)
   (setq jao-open-doc-fun #'jao-zathura-open-doc))
@@ -374,7 +374,7 @@
 (defun jao-exwm-pdf-disable-zathura ()
   (interactive)
   (remove-hook 'kill-emacs-query-functions #'jao-exwm-pdf-zathura-close-all)
-  (setq jao-browse-doc-use-emacs-p t)
+  (setq jao-browse-doc-use-emacs t)
   (setq jao-org-open-pdf-fun #'jao-find-or-open)
   (setq jao-org-links-pdf-store-fun nil)
   (setq jao-open-doc-fun #'jao-find-or-open))
@@ -385,7 +385,7 @@
 
 (defun jao-exwm-zathura-goto-pdf ()
   (interactive)
-  (if jao-browse-doc-use-emacs-p
+  (if jao-browse-doc-use-emacs
       (jao-org-goto-pdf)
     (when-let (pdf (jao-exwm-org-to-pdf-file))
       (jao-zathura-open-doc pdf))))
@@ -393,7 +393,7 @@
 (with-eval-after-load "org"
   (define-key org-mode-map (kbd "C-c o") #'jao-exwm-zathura-goto-pdf))
 
-(when (not jao-browse-doc-use-emacs-p)
+(when (not jao-browse-doc-use-emacs)
   (jao-exwm-pdf-enable-zathura))
 
 (defun jao-exwm-select-pdf ()
diff --git a/custom/jao-custom-x11.el b/custom/jao-custom-x11.el
index b72fe0b..57681d5 100644
--- a/custom/jao-custom-x11.el
+++ b/custom/jao-custom-x11.el
@@ -33,7 +33,7 @@
 
 ;;; xmonad
 (defun jao-xmonad-enable ()
-  (setq jao-browse-doc-use-emacs-p (display-graphic-p))
+  (setq jao-browse-doc-use-emacs (display-graphic-p))
   (setq jao-mode-line-in-minibuffer nil)
   (display-battery-mode -1)
   (jao-trisect)
diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el
index d2e5290..96da735 100644
--- a/lib/doc/jao-mac.el
+++ b/lib/doc/jao-mac.el
@@ -196,7 +196,7 @@
 (defun jao-devon-open (file &optional page height)
   (let ((url (jao-devon-find-url file)))
     (if (string-empty-p (or url ""))
-        (let ((jao-browse-doc-use-emacs-p t))
+        (let ((jao-browse-doc-use-emacs t))
           (jao-find-or-open file page height))
       (let* ((p (if page (format "?page=%s" (- page 1)) ""))
              (u (format "%s%s" url p)))
diff --git a/lib/doc/jao-pdf.el b/lib/doc/jao-pdf.el
index 079beff..7996be8 100644
--- a/lib/doc/jao-pdf.el
+++ b/lib/doc/jao-pdf.el
@@ -113,7 +113,7 @@
 ;;; Open doc functions
 
 (defun jao-find-or-open (file &optional page height)
-  (cond ((and jao-browse-doc-use-emacs-p window-system)
+  (cond ((and jao-browse-doc-use-emacs window-system)
          (let* ((buffs (buffer-list))
                 (b (catch 'done
                      (while buffs
-- 
cgit v1.2.3