Message ID | 20220710174140.17951-1-jgart@dismail.de |
---|---|
State | Accepted |
Headers | show |
Series | [bug#56478,v2] gnu: Add cl-string-pokemonize. | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git-branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
Am Sonntag, dem 10.07.2022 um 12:41 -0500 schrieb jgart: > * gnu/packages/lisp-xyz.scm (cl-string-pokemonize): New variable. > > Fixes a redundant wording in the description. > --- > gnu/packages/lisp-xyz.scm | 35 +++++++++++++++++++++++++++++++++++ > 1 file changed, 35 insertions(+) > > diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm > index 129b99e485..60000a504a 100644 > --- a/gnu/packages/lisp-xyz.scm > +++ b/gnu/packages/lisp-xyz.scm > @@ -22647,6 +22647,41 @@ (define-public cl-sketch > (define-public ecl-sketch > (sbcl-package->ecl-package sbcl-sketch)) > > +(define-public sbcl-string-pokemonize > + (let ((commit "2dc01643defb497e4d1eb833def71dfc1e8d5da6") > + (revision "0")) > + (package > + (name "sbcl-string-pokemonize") > + (version (git-version "20210503" revision commit)) > + (source > + (origin > + (method git-fetch) > + (uri (git-reference > + (url "https://github.com/phoe/string-pokemonize") > + (commit commit))) > + (file-name (git-file-name name version)) > + (sha256 > + (base32 > "1zk5klc94pxv7mhx6qrp93rk4ypwd6wfijap7gf9l0wpphg90r9x")))) > + (build-system asdf-build-system/sbcl) > + (arguments > + `(#:tests? #f ; There are no tests. > + #:asd-files '("string-pokemonize.asd") > + #:asd-systems '("string-pokemonize"))) > + (synopsis "Function to alternate uppercase and lowercase > characters") SiMpLiFy tO "aLtErNaTe uPpEr aNd lOwErCaSe". > + (description > +"Provides a function, @code{string-pokemonize} that alternates > uppercase > +and lowercase characters for a given string. The code base is also > +entirely stylized in alternating uppercase and lowercase characters > +exemplifying Common Lisp's case insensitivity.") ThE DeScRiPtIoN Of a pAcKaGe sHoUlD CoNsIsT Of cOmPlEtE SeNtEnCeS OnLy. aLsO DoN'T FoRgEt tO PrOpErLy iNdEnT iT. ChEeRs
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 129b99e485..60000a504a 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -22647,6 +22647,41 @@ (define-public cl-sketch (define-public ecl-sketch (sbcl-package->ecl-package sbcl-sketch)) +(define-public sbcl-string-pokemonize + (let ((commit "2dc01643defb497e4d1eb833def71dfc1e8d5da6") + (revision "0")) + (package + (name "sbcl-string-pokemonize") + (version (git-version "20210503" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/phoe/string-pokemonize") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1zk5klc94pxv7mhx6qrp93rk4ypwd6wfijap7gf9l0wpphg90r9x")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:tests? #f ; There are no tests. + #:asd-files '("string-pokemonize.asd") + #:asd-systems '("string-pokemonize"))) + (synopsis "Function to alternate uppercase and lowercase characters") + (description +"Provides a function, @code{string-pokemonize} that alternates uppercase +and lowercase characters for a given string. The code base is also +entirely stylized in alternating uppercase and lowercase characters +exemplifying Common Lisp's case insensitivity.") + (home-page "https://github.com/phoe/string-pokemonize") + (license license:expat)))) + +(define-public cl-string-pokemonize + (sbcl-package->cl-source-package sbcl-string-pokemonize)) + +(define-public ecl-string-pokemonize + (sbcl-package->ecl-package sbcl-string-pokemonize)) + (define-public sbcl-binary-types (let ((commit "9ec42042a50403961c08179a892ae3de725b1d7a")) (package