diff options
author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-03-15 11:16:08 +0100 |
---|---|---|
committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-03-15 11:32:20 +0100 |
commit | 9a8574558924daaf8f8ae433ec14bd8afff7a3a4 (patch) | |
tree | e9fba85e2935ff461870d17ddc5a504235580343 | |
parent | b5747ac77fa2c66b3d4137977272cd9753f2c1a3 (diff) |
feat: Rename global packages variable
-rw-r--r-- | fdroid.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -50,7 +50,7 @@ :group 'fdroid :type 'boolean) -(defvar fdroid--packages nil +(defvar fdroid-packages nil "The list of cached packages from the current F-Droid repository.") (defvar fdroid-map nil @@ -107,7 +107,7 @@ Then, run BODY in the context of the result, and show MESSAGE after completion." Optionally, filter packages by KEYWORDS and return a list of matching results." (let ((command (if keywords (list "search" keywords) (list "search"))) (results (make-hash-table :test 'equal))) - (or fdroid--packages + (or fdroid-packages (with-temp-buffer (apply #'call-process fdroid-program nil t nil command) (goto-char (point-min)) @@ -124,7 +124,7 @@ Optionally, filter packages by KEYWORDS and return a list of matching results." :description (match-string 4)) results)) (forward-line 1)) - (setf fdroid--packages results))))) + (setq fdroid-packages results))))) (defun fdroid--format-package (key value table) "Embellish package entry with KEY and VALUE from TABLE for user completion." @@ -179,10 +179,10 @@ If specified, prompt the user for MULTIPLE package selection." (defun fdroid-update () "Clear and update current F-Droid repository package index." (interactive) - (setf fdroid--packages nil) (fdroid-with--fdroidcl (list "update") "Repositories updated")) + (setq fdroid-packages nil) ;;;###autoload (defun fdroid-search (keywords) |