tweak: better use of executable-find

core/me-loaddefs.el

@@ -205,7 +205,7 @@ so it can be used to save HTML pages or emails to PDF.
 When MAIL-MODE-P is non-nil, treat INFILE as a mail.
 
 (fn INFILE &optional MAIL-MODE-P)")
-(defvar +single-file-executable (executable-find "single-file") "\
+(defvar +single-file-executable "single-file" "\
 The executable for \"single-file\" which is used archive HTML pages.")
 (custom-autoload '+single-file-executable "../elisp/+io" t)
 (autoload '+single-file "../elisp/+io" "\

elisp/+binary.el

@@ -12,10 +12,10 @@
   "MinEmacs binary files."
   :group 'minemacs)
 
-(defcustom +binary-objdump-executable (executable-find "objdump")
-  "Path to the executable \"objdump\" utility."
+(defcustom +binary-objdump-executable "objdump"
+  "The \"objdump\" command."
   :group 'minemacs-binary
-  :type 'string)
+  :type '(choice file string))
 
 (defcustom +binary-objdump-enable t
   "Enable or disable disassembling suitable files with objdump."
@@ -34,6 +34,7 @@
        (when-let* ((file (buffer-file-name (or buffer (current-buffer))))
                    (file (file-truename file)))
          (and +binary-objdump-executable
+              (executable-find +binary-objdump-executable)
               (file-exists-p file)
               (not (file-directory-p file))
               (not (zerop (file-attribute-size (file-attributes file))))

elisp/+io.el

@@ -267,13 +267,13 @@ When MAIL-MODE-P is non-nil, treat INFILE as a mail."
          "An error occurred, cannot create the PDF!")))))
 
 ;;;###autoload
-(defcustom +single-file-executable (executable-find "single-file")
+(defcustom +single-file-executable "single-file"
   "The executable for \"single-file\" which is used archive HTML pages.")
 
 ;;;###autoload
 (defun +single-file (url out-file)
   "Save URL into OUT-FILE as a standalone HTML file."
-  (if (and +single-file-executable (executable-find +single-file-executable))
+  (if (executable-find +single-file-executable)
       (make-process
        :name "single-file-cli"
        :buffer "*single-file*"

modules/me-robot.el

@@ -12,17 +12,20 @@
   "MinEmacs robotics stuff."
   :group 'minemacs)
 
-(defcustom +ros-mcap-command (or (executable-find "mcap") (executable-find "mcap-cli"))
+(defcustom +ros-mcap-command "mcap-cli"
   "ROS 2 MCAP command."
-  :group 'minemacs-robot)
+  :group 'minemacs-robot
+  :type '(choice file string))
 
-(defcustom +ros-rosbag-command (executable-find "rosbag")
+(defcustom +ros-rosbag-command "rosbag"
   "ROS 1 \"rosbag\" command."
-  :group 'minemacs-robot)
+  :group 'minemacs-robot
+  :type '(choice file string))
 
-(defcustom +ros-ros2-command (executable-find "ros2")
+(defcustom +ros-ros2-command "ros2"
   "ROS 2 \"ros2\" command."
-  :group 'minemacs-robot)
+  :group 'minemacs-robot
+  :type '(choice file string))
 
 (dolist (ext-mode '(("\\.rviz\\'"   . conf-unix-mode)
                     ("\\.urdf\\'"   . xml-mode)
@@ -33,7 +36,8 @@
                     ("\\.action\\'" . gdb-script-mode)))
   (add-to-list 'auto-mode-alist ext-mode))
 
-(+deferred-when! (or +ros-mcap-command +ros-rosbag-command +ros-ros2-command)
+(+deferred-when! (cl-some (lambda (cmd) (and cmd (executable-find cmd)))
+                          (list +ros-mcap-command +ros-rosbag-command +ros-ros2-command))
   ;; A mode to display info from ROS bag files (via MCAP)
   (define-derived-mode rosbag-info-mode conf-colon-mode "ROS bag"
     "Major mode for viewing ROS/ROS2 bag files."

modules/me-rss.el

@@ -26,7 +26,7 @@
   (defcustom +elfeed-images-dir "~/Pictures/elfeed/"
     "Directory of downloaded pictures."
     :group 'minemacs-elfeed)
-  (defcustom +yt-dlp-command (executable-find "yt-dlp")
+  (defcustom +yt-dlp-command "yt-dlp"
     "The \"yt-dlp\" command."
     :group 'minemacs-tools)
   :custom