branch: elpa/hyperdrive
commit dcb418918c2c350127ddf508c9019a2b34d0d53d
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Tidy: (checkdoc) USHIN in dictionary; variable name
---
.dir-locals.el | 2 +-
hyperdrive-mirror.el | 13 +++++++------
2 files changed, 8 insertions(+), 7 deletions(-)
diff --git a/.dir-locals.el b/.dir-locals.el
index 82b6b2cfbd..4de6f4bdb6 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,7 +1,7 @@
;;; Directory Local Variables -*- no-byte-compile: t -*-
;;; For more information see (info "(emacs) Directory Variables")
-((nil . ((ispell-buffer-session-localwords . ("dir" "hypercore" "hyperdrive"
"hyperdrives" "hyperdrive's" "args" "systemd" "minibuffer" "petname" "petnames"
"org" "plist" "plists" "alist" "alists" "existsp" "ETag" "streamable" "DNSLink"
"ewoc" "struct" "ENTRY's" "localhost" "imenu" "mtime" "accessor" "http"
"prepended" "prepend" "hostname" "whitespace" "namespace" "filesystem"
"hostnames" "subdirectories" "unsets" "finalizer" "subprocess" "autodetect"
"transclusion"))))
+((nil . ((ispell-buffer-session-localwords . ("dir" "hypercore" "hyperdrive"
"hyperdrives" "hyperdrive's" "args" "systemd" "minibuffer" "petname" "petnames"
"org" "plist" "plists" "alist" "alists" "existsp" "ETag" "streamable" "DNSLink"
"ewoc" "struct" "ENTRY's" "localhost" "imenu" "mtime" "accessor" "http"
"prepended" "prepend" "hostname" "whitespace" "namespace" "filesystem"
"hostnames" "subdirectories" "unsets" "finalizer" "subprocess" "autodetect"
"transclusion" "ushin"))))
(emacs-lisp-mode . ((eval . (display-fill-column-indicator-mode))
(fill-column . 80)))
(org-mode . ((org-id-link-to-org-use-id . nil))))
diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 2748e2f35e..324db6b5a0 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -144,9 +144,10 @@ After uploading files, open PARENT-ENTRY."
:then (lambda (_)
(progress-reporter-update progress-reporter (cl-incf
count))))))))
-(cl-defun h/mirror--check-items (source files hyperdrive target-dir &key then
progress-fn)
+(cl-defun h/mirror--check-items (source files hyperdrive target-dir &key then
progress-fun)
"Call THEN with list of FILES to mirror from SOURCE to TARGET-DIR in
HYPERDRIVE.
-If PROGRESS-FN, call it with no arguments after each item has been checked."
+If PROGRESS-FUN, call it with no arguments after each item has
+been checked."
(let* ((items)
(metadata-queue (make-plz-queue
:limit h/queue-limit
@@ -167,8 +168,8 @@ If PROGRESS-FN, call it with no arguments after each item
has been checked."
(url (he/url entry)))
(push (make-hyperdrive-mirror-item :file file :url url
:status status)
items)
- (when progress-fn
- (funcall progress-fn))))
+ (when progress-fun
+ (funcall progress-fun))))
:else (lambda (plz-error)
(let ((status-code (plz-response-status (plz-error-response
plz-error))))
(pcase status-code
@@ -178,8 +179,8 @@ If PROGRESS-FN, call it with no arguments after each item
has been checked."
(push (make-hyperdrive-mirror-item
:file file :url (he/url entry) :status 'new)
items)
- (when progress-fn
- (funcall progress-fn)))
+ (when progress-fun
+ (funcall progress-fun)))
(_
(h/error "Unable to get metadata for URL \"%s\": %S"
(he/url entry) plz-error))))))))))
