jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Rename project to activity-servist 

Slightly less wrong, feels slightly less redundant!
This commit is contained in:
Jaidyn Ann 2024-06-23 12:49:58 -05:00
parent 4c9de6677e
commit 39b941e013
6 changed files with 47 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
activitypub-servist.asd → activity-servist.asd
View File

@ -1,38 +1,38 @@
(require "asdf")
(asdf:defsystem "activitypub-servist"
(asdf:defsystem "activity-servist"
:version "0.0"
:license "AGPLv3"
:description "ActitivyPub federated server framework."
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:homepage "https://hak.xwx.moe/jadedctrl/activitypub-servist"
:homepage "https://hak.xwx.moe/jadedctrl/activity-servist"
:in-order-to ((test-op (test-op "activitypub/tests")))
:depends-on ("activitypub-servist/signatures"
:depends-on ("activity-servist/signatures"
"alexandria" "clack" "dexador"
"local-time" "purl" "str" "webtentacle" "yason")
:components ((:file "src/activitypub-servist")))
:components ((:file "src/activity-servist")))
(asdf:defsystem "activitypub-servist/activity-vocabulary"
(asdf:defsystem "activity-servist/activity-vocabulary"
:version "0.0"
:license "AGPLv3"
:description "AP-S subpackage for handling ActivityVocabulary parsing/encoding."
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:homepage "https://hak.xwx.moe/jadedctrl/activitypub-servist"
:homepage "https://hak.xwx.moe/jadedctrl/activity-servist"
:in-order-to ((test-op (test-op "activitypub/tests/activity-vocabulary")))
:depends-on ("alexandria" "closer-mop" "str" "yason")
:components ((:file "src/activity-vocabulary")))
(asdf:defsystem "activitypub-servist/signatures"
(asdf:defsystem "activity-servist/signatures"
:version "0.0"
:license "AGPLv3"
:description "AP-S subpackage for handling HTTP signatures."
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:homepage "https://hak.xwx.moe/jadedctrl/activitypub-servist"
:homepage "https://hak.xwx.moe/jadedctrl/activity-servist"
:in-order-to ((test-op (test-op "activitypub/tests/signatures")))
:depends-on ("cl-base64" "flexi-streams" "inferior-shell" "ironclad" "str")
@ -42,34 +42,34 @@
;;; Tests
;;; —————————————————————————————————————
(asdf:defsystem "activitypub-servist/tests/activity-vocabulary"
(asdf:defsystem "activity-servist/tests/activity-vocabulary"
:version "0.0"
:license "AGPLv3"
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:description "Tests for the the activitypub-servist/signatures package."
:description "Tests for the the activity-servist/signatures package."
:depends-on (:activitypub-servist/activity-vocabulary :alexandria :lisp-unit2)
:depends-on (:activity-servist/activity-vocabulary :alexandria :lisp-unit2)
:components ((:file "t/activity-vocabulary")))
(asdf:defsystem "activitypub-servist/tests/signatures"
(asdf:defsystem "activity-servist/tests/signatures"
:version "0.0"
:license "AGPLv3"
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:description "Tests for the the activitypub-servist/signatures package."
:description "Tests for the the activity-servist/signatures package."
:depends-on (:activitypub-servist/signatures :lisp-unit2)
:depends-on (:activity-servist/signatures :lisp-unit2)
:components ((:file "t/signatures")))
(asdf:defsystem "activitypub-servist/tests"
(asdf:defsystem "activity-servist/tests"
:version "0.0"
:license "AGPLv3"
:author "Jaidyn Ann <jadedctrl@posteo.at>"
:description "Tests for all activitypub-servist subpacakges."
:description "Tests for all activity-servist subpacakges."
:depends-on (:activitypub-servist/tests/activity-vocabulary
:activitypub-servist/tests/signatures
:depends-on (:activity-servist/tests/activity-vocabulary
:activity-servist/tests/signatures
:alexandria :lisp-unit2)
:components ((:file "t/t")))
@ -79,6 +79,6 @@
`(defmethod asdf:perform ((o asdf:test-op) (c (eql (asdf:find-system ',package))))
(eval (read-from-string (format nil "(~A:run-with-summary)" ',package)))))
(define-asdf-testing activitypub-servist/tests/activity-vocabulary)
(define-asdf-testing activitypub-servist/tests/signatures)
(define-asdf-testing activitypub-servist/tests)
(define-asdf-testing activity-servist/tests/activity-vocabulary)
(define-asdf-testing activity-servist/tests/signatures)
(define-asdf-testing activity-servist/tests)

6
src/activity-vocabulary.lisp
View File

@ -15,9 +15,9 @@
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage #:activitypub-servist/activity-vocabulary
(defpackage #:activity-servist/activity-vocabulary
(:use #:cl)
(:nicknames "AP-S/AV" "AV")
(:nicknames "AS/AV" "ACTIVITY-VOCABULARY")
(:shadow #:delete #:ignore #:listen #:read #:remove)
;; One should never USE this package, since some class-names shadow
;; core Common Lisp symbols! Beware! :P
@ -58,7 +58,7 @@
:relationship-object :relationship-relationship :relationship-subject
:tombstone-former-type :tombstone-deleted))
(in-package #:activitypub-servist/activity-vocabulary)
(in-package #:activity-servist/activity-vocabulary)

12
src/activitypub-servist.lisp
View File

@ -1,4 +1,4 @@
;;;; activitypub-servist: An ActivityPub server framework.
;;;; activity-servist: An ActivityPub server framework.
;; Copyright © 2023-2024 Jaidyn Levesque <jadedctrl@posteo.at>
;;
@ -15,12 +15,12 @@
;; You should have received a copy of the GNU Affero General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage #:activitypub-servist
(:use #:cl #:activitypub-servist/signatures)
(:nicknames "AP-S")
(defpackage #:activity-servist
(:use #:cl #:activity-servist/signatures)
(:nicknames "AS")
(:export :server :start-server))
(in-package #:activitypub-servist)
(in-package #:activity-servist)
(defun users ()
@ -146,7 +146,7 @@ the plist in the docstring for its WEBTENTACLE:SERVER function."
("inbox" . ,(str:concat user-root "/inbox"))
("outbox" . ,(str:concat user-root "/outbox"))
("discoverable" . t)
("summary" . "Mi estas simpla roboto, kiu montras ke iomete ekfunkcias activitypub-servist.
("summary" . "Mi estas simpla roboto, kiu montras ke iomete ekfunkcias activity-servist.
… ĉu mi rajtas demeti la servistinan kostumon, nun?
Mi ne estas knabino!!")
("icon"

8
src/signatures.lisp
View File

@ -1,4 +1,4 @@
;;;; activitypub-servist/signatures: Handle AP-compatible HTTP signatures.
;;;; activity-servist/signatures: Handle AP-compatible HTTP signatures.
;; Copyright © 2023-2024 Jaidyn Levesque <jadedctrl@posteo.at>
;;
@ -15,14 +15,14 @@
;; You should have received a copy of the GNU Affero General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage #:activitypub-servist/signatures
(defpackage #:activity-servist/signatures
(:use #:cl)
(:nicknames "AP-S/S")
(:nicknames "AS/S")
(:export :generate-key-pair
:sign-string :import-pem-key-pair
:digest-string :string-sha256sum))
(in-package #:activitypub-servist/signatures)
(in-package #:activity-servist/signatures)
;;; Key creation/parsing

14
t/activity-vocabulary.lisp
View File

@ -1,4 +1,4 @@
;;;; activitypub-servist/tests/activity-vocabulary: Testing activity-vocabulary.
;;;; activity-servist/tests/activity-vocabulary: Testing activity-vocabulary.
;; Copyright © 2024 Jaidyn Levesque <jadedctrl@posteo.at>
;;
@ -15,16 +15,16 @@
;; You should have received a copy of the GNU Affero General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage :activitypub-servist/tests/activity-vocabulary
(defpackage :activity-servist/tests/activity-vocabulary
(:use :cl :lisp-unit2)
(:nicknames "AP-S/T/AV")
(:nicknames "AS/T/AV")
(:export :run :run-with-summary))
(in-package :activitypub-servist/tests/activity-vocabulary)
(in-package :activity-servist/tests/activity-vocabulary)
(defun run ()
"Run all ACTIVITY-VOCABULARY tests."
(lisp-unit2:run-tests :package :activitypub-servist/tests/activity-vocabulary))
(lisp-unit2:run-tests :package :activity-servist/tests/activity-vocabulary))
(defun run-with-summary ()
"Run tests with summary for ACTIVITY-VOCABULARY."
@ -37,7 +37,7 @@
;;; ————————————————————————————————————————
(defmacro relative-pathname (path)
"Return an absolute path adding the relative PATH to the system’s path."
`(asdf:system-relative-pathname :activitypub-servist/tests/activity-vocabulary ,path))
`(asdf:system-relative-pathname :activity-servist/tests/activity-vocabulary ,path))
(defmacro define-json-test (path tags)
"Define a lisp-unit2 test for parsing of the given JSON file.
@ -52,7 +52,7 @@ ensuring they are semantically equivalent. White-space and key order are ignored
(yason:parse
(yason:with-output-to-string* ()
(yason:encode-object
(av:parse ,content)))))))))
(as/av:parse ,content)))))))))
(defun sort-alist (alist predicate)
"Sort an associative list by its keys."

12
t/signatures.lisp
View File

@ -1,4 +1,4 @@
;;;; activitypub-servist/tests/signatures: Testing activitypub-servist/signatures.
;;;; activity-servist/tests/signatures: Testing activity-servist/signatures.
;; Copyright © 2024 Jaidyn Levesque <jadedctrl@posteo.at>
;;
@ -15,16 +15,16 @@
;; You should have received a copy of the GNU Affero General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(defpackage :activitypub-servist/tests/signatures
(defpackage :activity-servist/tests/signatures
(:use :cl :lisp-unit2)
(:nicknames "AP-S/T/S")
(:nicknames "AS/T/S")
(:export :run :run-with-summary))
(in-package :activitypub-servist/tests/signatures)
(in-package :activity-servist/tests/signatures)
(defun run ()
"Run all SIGNATURES tests."
(lisp-unit2:run-tests :package :activitypub-servist/tests/signatures))
(lisp-unit2:run-tests :package :activity-servist/tests/signatures))
(defun run-with-summary ()
"Run tests with summary for SIGNATURES."
@ -38,4 +38,4 @@
(define-test string-sha256sum (:tags '(misc))
(assert-equal
"erws/VxJ7XO5xQBqpwHIUwG0P4q1Ek2D4N053+E2Ib8="
(ap-s/s::string-sha256sum "This is a testing string~! ♥ ĉu ne?~")))
(as/s::string-sha256sum "This is a testing string~! ♥ ĉu ne?~")))