diff options
Diffstat (limited to '.guix/modules/gn/packages')
| -rw-r--r-- | .guix/modules/gn/packages/gn-auth.scm | 149 |
1 files changed, 0 insertions, 149 deletions
diff --git a/.guix/modules/gn/packages/gn-auth.scm b/.guix/modules/gn/packages/gn-auth.scm deleted file mode 100644 index cd07d76..0000000 --- a/.guix/modules/gn/packages/gn-auth.scm +++ /dev/null @@ -1,149 +0,0 @@ -(define-module (gn packages gn-auth) - #:use-module (guix) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix build-system python) - #:use-module ((guix licenses) #:prefix license:) - - #:use-module (git oid) - #:use-module (git tag) - #:use-module (git bindings) - #:use-module (git reference) - #:use-module (git repository) - - - ;; Packages from guix - #:use-module (gnu packages check) - - #:use-module (gnu packages django) - - #:use-module (gnu packages python-web) - #:use-module (gnu packages python-xyz) - #:use-module (gnu packages python-check) - #:use-module (gnu packages python-crypto) - - #:use-module (gnu packages databases)) - -(define %source-dir (dirname (dirname (dirname (dirname (dirname (current-filename))))))) - -(define (get-commit) - "Retrieve the commit if the source directory is a repository." - (if (git-predicate %source-dir) - (begin (let ((commit #f)) - (libgit2-init!) - (set! commit (oid->string - (reference-target - (repository-head (repository-open %source-dir))))) - (libgit2-shutdown!) - commit)) - "NOTAREPOSITORY")) - -(define (list-last lst) - (let ((len (length lst))) - (if (> len 0) - (list-ref lst (- len 1))))) - -(define (process-version repo-head tag-vals) - (let ((version-prefix (list-last (string-split (car tag-vals) #\/))) - (repo-head-str (oid->string repo-head))) - (if (zero? (oid-cmp repo-head - (tag-target-id (cdr tag-vals)))) - version-prefix - (string-append version-prefix "-" (substring repo-head-str 0 8))))) - -(define (get-latest-version) - "Get latest version tag from repository." - (if (git-predicate %source-dir) - (let ((%repo #f) - (%tags (list)) - (%repo-head #f)) - (begin (libgit2-init!) - (set! %repo (repository-open %source-dir)) - (set! %repo-head (reference-target (repository-head %repo))) - (tag-foreach %repo - (lambda (tname tref) - (set! %tags (list (cons tname (tag-lookup %repo tref)))) - 0)) - (libgit2-shutdown!) - (if (zero? (length %tags)) - (string-append "v0.0.0-" (substring (oid->string %repo-head) 0 8)) - (process-version - %repo-head - (list-last (sort-list %tags (lambda (item) (error item)))))))) - ;; Figure out a way to get the version in the checkouts when building - "v0.0.0")) - -(define vcs-file? - (or (git-predicate %source-dir) - (const #t))) - -(define-public python-authlib - (package - (name "python-authlib") - (version "1.2.0") - (source (origin - (method url-fetch) - (uri (pypi-uri "Authlib" version)) - (sha256 - (base32 - "178ycfypdv1hy4zjm09rmysxakmwch2n6a5wypwmx4d5hc4fi8sg")))) - (build-system python-build-system) - (native-inputs (list python-httpx - python-flask - python-django - python-werkzeug - python-starlette - python-sqlalchemy - python-pycryptodomex)) - (propagated-inputs (list python-cryptography)) - (arguments `(#:tests? #f)) ;; temporarily deactivate tests - (home-page "https://authlib.org/") - (synopsis - "The ultimate Python library in building OAuth and OpenID Connect servers and clients.") - (description - "The ultimate Python library in building OAuth and OpenID Connect servers and -clients. It is designed from low level specifications implementations to high -level frameworks integrations, to meet the needs of everyone.") - (license license:bsd-3))) - -(define-public gn-auth - (package - (name "gn-auth") - (version (string-append (get-latest-version) - "-git-" - (substring (get-commit) 0 9))) - (source (local-file %source-dir "gn-auth-checkout" - #:recursive? #t - #:select? vcs-file?)) - (build-system python-build-system) - (arguments - (list - #:phases - #~(modify-phases %standard-phases - (replace 'check - (lambda _ (invoke "pytest" "-k" "unit_test")))))) - ;; (inputs (list)) - (native-inputs - (list python-mypy - python-pytest - python-pylint - python-hypothesis - python-pytest-mock - python-mypy-extensions)) - (propagated-inputs - (list python-flask - python-redis - python-authlib - python-pymonad - yoyo-migrations - python-bcrypt ;; remove after removing all references - python-mysqlclient - python-argon2-cffi - python-email-validator)) - (home-page "https://github.com/genenetwork/gn-auth") - (synopsis "Authentication and Authorisation server for GeneNetwork services.") - (description "Authentication and Authorisation server for GeneNetwork services.") - (license license:agpl3+))) - -gn-auth |