branch: elpa/hyperdrive
commit 62e1876e7f503a3494b629559d5f9798e668a090
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Meta: Add headers to organize code
---
hyperdrive-diff.el | 2 ++
hyperdrive-handlers.el | 2 ++
hyperdrive-lib.el | 2 ++
hyperdrive-org.el | 2 ++
hyperdrive-vars.el | 2 ++
hyperdrive.el | 2 ++
tests/test-hyperdrive.el | 8 ++++++++
7 files changed, 20 insertions(+)
diff --git a/hyperdrive-diff.el b/hyperdrive-diff.el
index d07f67a02d..18fc16e6ff 100644
--- a/hyperdrive-diff.el
+++ b/hyperdrive-diff.el
@@ -24,6 +24,8 @@
;;; Code:
+;;; Requirements
+
(require 'hyperdrive-lib)
(require 'hyperdrive-vars)
diff --git a/hyperdrive-handlers.el b/hyperdrive-handlers.el
index 12ec5ceef1..86febe5fcc 100644
--- a/hyperdrive-handlers.el
+++ b/hyperdrive-handlers.el
@@ -24,6 +24,8 @@
;;; Code:
+;;;; Requirements
+
(require 'url)
(require 'hyperdrive-dir)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 43ca32e3cb..6a02fabd59 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -24,6 +24,8 @@
;;; Code:
+;;;; Requirements
+
(require 'cl-lib)
(require 'map)
(require 'pcase)
diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index ab4608a93b..163546764e 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -24,6 +24,8 @@
;;; Code:
+;;;; Requirements
+
(require 'org)
(require 'org-element)
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index afc3cf6ef5..1e9a0e7868 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -24,6 +24,8 @@
;;; Code:
+;;;; Requirements
+
(require 'persist)
(require 'dired) ; For faces.
(require 'cus-edit) ; For `custom-button' face.
diff --git a/hyperdrive.el b/hyperdrive.el
index f3024417ae..40785e601d 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -52,6 +52,8 @@
;; TODO: When requiring Emacs 28+, consider using symbol shorthands to
;; reduce how many times we have to type "hyperdrive".
+;;;; Requirements
+
(require 'cl-lib)
(require 'bookmark)
diff --git a/tests/test-hyperdrive.el b/tests/test-hyperdrive.el
index 7a13d9a5e2..6345d4309f 100644
--- a/tests/test-hyperdrive.el
+++ b/tests/test-hyperdrive.el
@@ -29,6 +29,8 @@
;;; Code:
+;;;; Requirements
+
(require 'cl-lib)
(require 'ert)
(require 'pcase)
@@ -36,9 +38,13 @@
(require 'hyperdrive)
+;;;; Magic constants
+
(defconst test-hyperdrive-public-key
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")
+;;;; Utilities
+
(defmacro hyperdrive-deftest (name &rest args)
(declare (indent defun))
(let ((name (intern (concat "hyperdrive-" (symbol-name name)))))
@@ -47,6 +53,8 @@
(hexify (string) `(url-hexify-string ,string (cons ?/
url-unreserved-chars))))
(ert-deftest ,name () ,@args))))
+;;;; Tests
+
(hyperdrive-deftest url-entry--names-and-paths ()
(pcase-let (((cl-struct hyperdrive-entry name path)
(hyperdrive-url-entry (make-url ""))))
