unofficial mirror of help-guix@gnu.org 
 help / color / mirror / Atom feed
* help with packaging a common lisp software
@ 2021-02-15 18:46 cage
  2021-02-15 21:03 ` cage
  0 siblings, 1 reply; 4+ messages in thread
From: cage @ 2021-02-15 18:46 UTC (permalink / raw)
  To: help-guix

[-- Attachment #1: Type: text/plain, Size: 984 bytes --]

Hi!

I am trying to package this software:

https://notabug.org/cage/tinmop/

The program is written  in common lisp and it uses  both ASDF to build
the executable image (using SBCL compiler) and GNU autotools (for i18n
files, data files and installation).

I  am  struggling to  make  guix  build the  package,  if  i uses  the
gnu-build-system make  fails because SBCL  complains that it  can not
find ASDF.

But if i switch to asdf-build-system  i can compile the image (but not
the  executable) and  i fail  to  call make  (using `(invoke  "make"))
adding a  phase (i tried to  insert that "make" phase  after or before
several standard phases without luck.

I have no clue, given that i am  a novice both in guix and guile, i am
attaching here the  package definition file hoping  that someone could
give me suggestions to fix the issue.

The  package   define  several  other  libraries   needed,  seems  the
definition for them are working fine.

Bye and thanks in advance.
C.

[-- Attachment #2: tinmop-guix.scm --]
[-- Type: application/vnd.lotus-screencam, Size: 18533 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: help with packaging a common lisp software
  2021-02-15 18:46 help with packaging a common lisp software cage
@ 2021-02-15 21:03 ` cage
  2021-02-20 11:18   ` cage
  0 siblings, 1 reply; 4+ messages in thread
From: cage @ 2021-02-15 21:03 UTC (permalink / raw)
  To: help-guix

[-- Attachment #1: Type: text/plain, Size: 537 bytes --]

On Mon, Feb 15, 2021 at 07:46:20PM +0100, cage wrote:

Hi!


> I am trying to package this software:
>
> https://notabug.org/cage/tinmop/

I kept working on  the file and with the help of a  friand of mine and
insipred by  the stumpwm definition  package i managed  to succeffully
compile the executable!

But now the  only problem is generate and install  (via autootols) the
manpage, the system configuration file and the i18n files.

I am  attaching the updated  package definition file.  Looking forward
for suggestions! :)

Bye!
C.

[-- Attachment #2: tinmop-guix.scm --]
[-- Type: application/vnd.lotus-screencam, Size: 21062 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: help with packaging a common lisp software
  2021-02-15 21:03 ` cage
@ 2021-02-20 11:18   ` cage
  2021-02-20 13:27     ` Guillaume Le Vaillant
  0 siblings, 1 reply; 4+ messages in thread
From: cage @ 2021-02-20 11:18 UTC (permalink / raw)
  To: help-guix

[-- Attachment #1: Type: text/plain, Size: 612 bytes --]

On Mon, Feb 15, 2021 at 10:03:02PM +0100, cage wrote:

Hi!

With help from many people i managed to build the package!

But there is  a single issue left, this program  uses ncurses for TUI,
when built with  guix it fails to render properly  the character. This
problem does not arises when compiling the software on the same machine
but without guix.

I would be glad if some one could confirm the issue on their machine.

To reproduce the problem just, after  the program starts, type ">" and
then type an  accented letter or even backspace, the  line will be all
messed up after typing.

Thank in advance!
C.

[-- Attachment #2: tinmop-guix.scm --]
[-- Type: application/vnd.lotus-screencam, Size: 23786 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: help with packaging a common lisp software
  2021-02-20 11:18   ` cage
@ 2021-02-20 13:27     ` Guillaume Le Vaillant
  0 siblings, 0 replies; 4+ messages in thread
From: Guillaume Le Vaillant @ 2021-02-20 13:27 UTC (permalink / raw)
  To: cage; +Cc: help-guix


[-- Attachment #1.1: Type: text/plain, Size: 2411 bytes --]


cage <cage-dev@twistfold.it> skribis:

> On Mon, Feb 15, 2021 at 10:03:02PM +0100, cage wrote:
>
> Hi!
>
> With help from many people i managed to build the package!
>
> But there is  a single issue left, this program  uses ncurses for TUI,
> when built with  guix it fails to render properly  the character. This
> problem does not arises when compiling the software on the same machine
> but without guix.
>
> I would be glad if some one could confirm the issue on their machine.
>
> To reproduce the problem just, after  the program starts, type ">" and
> then type an  accented letter or even backspace, the  line will be all
> messed up after typing.
>
> Thank in advance!
> C.

Hi,

I took a look at your file and it looks like you are using an old
version of Guix. The 'asd-system-name' parameter no longer exists and
has been replaced by the 'asd-systems' parameter several months ago.
At which commit is your Guix? (you can get it with the "guix describe"
command).

I made a few modifications to your file (in attachment) to make it work
with a more recent Guix, but Tinmop crashed when I tried to start it,
with the following error:

--8<---------------cut here---------------start------------->8---
Loading configuration file shared.conf

#<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {100BBD2663}> 
debugger invoked on a SB-INT:SIMPLE-PROGRAM-ERROR in thread
#<THREAD "main thread" RUNNING {1004698103}>:
  invalid number of arguments: 1

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [REPLACE-FUNCTION] Call a different function with the same arguments
  1: [CALL-FORM       ] Call a different form
  2: [ABORT           ] Exit from the current thread.

((LAMBDA NIL :IN RESOURCES-UTILS::GET-RESOURCE-FILE) #<SIMPLE-ERROR "Cannot find \"client\" in either \"/gnu/store/qpr0zxgq5r4jz9mvk5y7b8s5yrwhdglw-tinmop-0.5.2-1.ceb965d/share/tinmop/client\" or \"/home/guillaume/.local/share/tinmop//client\"." {100BBD1EA3}>) [external]
   error finding frame source: Bogus form-number: the source file has probably
                               changed too much to cope with.
   source: NIL
0] 
--8<---------------cut here---------------end--------------->8---


Is there some extra configuration required to start the program
correctly?

[-- Attachment #1.2: tinmop-guix.scm --]
[-- Type: application/octet-stream, Size: 20593 bytes --]

;;; Copyright © 2021 cage released under GPLv3+
;;; derived from:

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 John Darrington <jmd@gnu.org>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 xd1le <elisp.vim@gmail.com>
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016 Ivan Vilata i Balaguer <ivan@selidor.net>
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2020 Nikita <nikita@n0.is>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018, 2019, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com>
;;; Copyright © 2019 Noodles! <nnoodle@chiru.no>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2019, 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2020 Adam Kandur <rndd@tuta.io>
;;; Copyright © 2020 Boris A. Dekshteyn <harlequin78@gmail.com>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Dimakis Dimakakos <me@bendersteed.tech>
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>

;;;
;;; This file is not part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;;; and

;;;
;;; Copyright (c) 2010 Zachary Beane, All Rights Reserved
;;;
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:
;;;
;;;   * Redistributions of source code must retain the above copyright
;;;     notice, this list of conditions and the following disclaimer.
;;;
;;;   * Redistributions in binary form must reproduce the above
;;;     copyright notice, this list of conditions and the following
;;;     disclaimer in the documentation and/or other materials
;;;     provided with the distribution.
;;;
;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;;;

;;; This file contains package definition file for tinmop and related libraries.

(define-module (tinmop-guix)
  #:use-module (gnu packages)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages lisp)
  #:use-module (gnu packages lisp-xyz)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages nano)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages curl)
  #:use-module (gnu packages gnupg)
  #:use-module ((guix build asdf-build-system))
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix hg-download)
  #:use-module (guix utils)
  #:use-module (guix build-system asdf)
  #:use-module ((guix build asdf-build-system) #:prefix asdf-build:)
  #:use-module (guix build-system gnu))

(define-public tooter
  (let ((commit "b8d4b245b1d946bc9da6f51a3d8c2dc43e4d3868")
        (revision "1"))
    (package
      (name "tooter")
      (version (git-version "1.0.0" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/Shinmera/tooter")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "0g40dlis4dbw4p3zxz3scx27b9zm8zlzihywapf5zqrdqfx5hpq9"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("tooter")))
      (inputs
       `(("sbcl-yason"                ,sbcl-yason)
         ("sbcl-cl-ppcre"             ,sbcl-cl-ppcre)
         ("sbcl-drakma"               ,sbcl-drakma)
         ("sbcl-documentation-utils"  ,sbcl-documentation-utils)))
      (synopsis "Common Lisp client library for Mastodon instances")
      (description "A Common Lisp client library for Mastodon instances.")
      (home-page "https://shinmera.github.io/tooter/")
      (license license:zlib))))

(define-public sbcl-croatoan
  (let ((commit "89ecd147cf1548f569f23353b3ab656cfb74de1f")
        (revision "1"))
    (package
      (name "sbcl-croatoan")
      (version (git-version "0.0.1" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/McParen/croatoan")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "0pk4mym88531jx0f1zmm6gmvrmdjzj2zcl2cdywdsxvjygr53zyx"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("croatoan")
         #:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'fix-paths
             (lambda* (#:key inputs #:allow-other-keys)
               (substitute* "ncurses/ncurses.lisp"
                 (("libncursesw" all)
                  (string-append (assoc-ref inputs "ncurses")
                                 "/lib/"
                                 all))))))))
      (inputs
       `(("ncurses" ,ncurses)
         ("sbcl-cffi" ,sbcl-cffi)
         ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)
         ("sbcl-bordeaux-threads" ,sbcl-bordeaux-threads)))
      (synopsis "High-level Lisp CLOS bindings for the ncurses terminal library")
      (description "High-level Lisp CLOS bindings for the ncurses terminal library.")
      (home-page "https://github.com/McParen/croatoan")
      (license license:x11))))

(define-public sbcl-cl-spark
  (let ((commit "4e34bcebdcf8e45265986eb43ad4ad03bb41a581")
        (revision "1"))
    (package
      (name "sbcl-cl-spark")
      (version (git-version "0.1.13" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/tkych/cl-spark")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "0my1fsgi2rjaqkpk934f2bjy63pmnj7faza3fzvnk6k3l66y19nk"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("cl-spark")))
      (inputs `(("sbcl-fiveam" ,sbcl-fiveam)))
      (synopsis "Library to write histogram using utf-8 block characters")
      (description "Library to write histogram using utf-8 block characters")
      (home-page "https://github.com/tkych/cl-spark")
      (license license:x11))))

(define-public sbcl-cl-access
  (let ((commit "1b26db3760018cdc4624f880f0a1e0155d8f6c50")
        (revision "1"))
    (package
      (name "sbcl-cl-access")
      (version (git-version "1.5.0" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/sharplispers/access")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "1knd3n4mpzkc97i1znbas32pscd30416isvmx2pjmgvar6k93pl5"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("access")))
      (inputs
       `(("sbcl-lisp-unit2"  ,sbcl-lisp-unit2)
         ("sbcl-iterate"     ,sbcl-iterate)
         ("sbcl-closer-mop"  ,sbcl-closer-mop)
         ("sbcl-alexandria"  ,sbcl-alexandria)
         ("sbcl-anaphora"    ,sbcl-anaphora)
         ("sbcl-interpol"    ,sbcl-cl-interpol)))
      (synopsis "Common lisp library to unify access to dictionary-like data-structures")
      (description "Common lisp library to unify access to dictionary structures ")
      (home-page "https://github.com/sharplispers/access")
      (license license:bsd-3))))

(define-public sbcl-sxql-composer
  (let ((commit "2b2230cb01ae1b68e28921d99e4814046867fb75")
        (revision "1"))
    (package
      (name "sbcl-sxql-composer")
      (version (git-version "0.1" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/mmontone/sxql-composer")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "1agkrj3ymskzc3c7pxbrj123d1kygjqcls145m0ap3i07q96hh1r"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("sxql-composer")))
      (inputs
       `(("sbcl-sxql" ,sbcl-sxql)))
      (synopsis "Build and compose SXQL queries dynamically")
      (description "Build and compose SXQL queries dynamically")
      (home-page "https://github.com/mmontone/sxql-composer")
      (license license:x11))))

(define-public sbcl-cl-i18n
  (let ((commit "fa0aa5bef8dfbdf2d72f7cc9f49e848ccbb567aa")
        (revision "1"))
    (package
      (name "sbcl-cl-i18n")
      (version (git-version "0.5.0" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://notabug.org/cage/cl-i18n")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "1hpsdbb3hd79bzbrnbqgk2j3f0ispxvk91snp08fm2z3f1sds5as"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("cl-i18n")))
      (inputs
       `(("sbcl-alexandria" ,sbcl-alexandria)
         ("sbcl-cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
         ("sbcl-babel" ,sbcl-babel)))
      (synopsis "Gettext-style internationalisation framework for Common Lisp")
      (description "Gettext-style internationalisation framework for Common Lisp")
      (home-page "https://notabug.org/cage/cl-i18n")
      (license license:llgpl))))

(define-public sbcl-crypto-shortcuts
  (let ((commit "7efd22d80e867cd8c9f8f363d4fe7b51ee2dadc0")
        (revision "1"))
    (package
      (name "sbcl-crypto-shortcuts")
      (version (git-version "2.0.0" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/Shinmera/crypto-shortcuts")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "0c0m0ar04jn7qf2v8c4sivamlzki03r13rnxy8b3n27rh9r6hgin"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("crypto-shortcuts")))
      (inputs
       `(("sbcl-ironclad" ,sbcl-ironclad)
         ("sbcl-cl-base64" ,sbcl-cl-base64)
         ("sbcl-flexi-stream" ,sbcl-flexi-streams)))
      (synopsis "Collection of common cryptography functions")
      (description "Collection of common cryptography functions")
      (home-page "https://shinmera.github.io/crypto-shortcuts/")
      (license license:zlib))))

(define-public sbcl-cl-html5-parser
  (let ((commit "74a92eb3a183a0afd089ea33350e816e6b9aeefa")
        (revision "1"))
    (package
      (name "sbcl-cl-html5-parser")
      (version (git-version "0.0.0" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/rotatef/cl-html5-parser")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "04if61wigylsmn996rbfl8ylsd0d9hzdmg7p2wiglncibjzcl5k9"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:tests? #f
         #:asd-systems '("cl-html5-parser")))
      (inputs
       `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
         ("sbcl-string-case" ,sbcl-string-case)
         ("sbcl-flexi-stream" ,sbcl-flexi-streams)))
      (synopsis "HTML5 parser for Common Lisp")
      (description "HTML5 parser for Common Lisp")
      (home-page "https://github.com/rotatef/cl-html5-parser")
      (license license:gpl3+))))

(define-public sbcl-percent-encoding
  (let ((commit "c1224e22bc8048fbd3ebbc9329715a0c1b673170")
        (revision "1"))
    (package
      (name "sbcl-percent-encoding")
      (version (git-version "0.1" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/llibra/percent-encoding")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "0q1lh3sa6mkjr5gcdkgimkpc29rgf9cjhv90f61h8ridj28grq0h"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:asd-systems '("percent-encoding")))
      (inputs
       `(("sbcl-fiveam"   ,sbcl-fiveam)
         ("sbcl-anaphora" ,sbcl-anaphora)
         ("sbcl-babel" ,sbcl-babel)))
      (synopsis "RFC 3986 percent-encoding library")
      (description "RFC 3986 percent-encoding library")
      (home-page "https://github.com/llibra/percent-encoding")
      (license license:x11))))

(define-public sbcl-esrap
  (let ((commit "da6b24fb18bdb8e7e177bcf2820cdaf0b560deb6")
        (revision "1"))
    (package
      (name "sbcl-esrap")
      (version (git-version "0.1" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/scymtym/esrap")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32 "12vf3bxwzf8icnf6rw1xalvm7493cfbb46r2vlhc09s59djkf39q"))))
      (build-system asdf-build-system/sbcl)
      (arguments
       '(#:tests? #f
         #:asd-systems '("esrap")))
      (inputs
       `(("sbcl-alexandria"  ,sbcl-alexandria)))
      (synopsis "Common Lisp packrat parser")
      (description "Common Lisp packrat parser")
      (home-page "https://github.com/scymtym/esrap")
      (license license:x11))))

(define-public tinmop
  (let ((commit "ceb965dc83efa6b0f95411fe3b9c0d35ba7c72a8")
        (revision "1"))
    (package
      (name "tinmop")
      (version (git-version "0.5.2" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://notabug.org/cage/tinmop/")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256 (base32 "0y422g5dw944szqrd8kvnfgq2hgx89kh77dgdabqjqkmf9bzdszx"))))
      (build-system gnu-build-system)
      (native-inputs
       `(
         ("gettext" ,gnu-gettext)
         ("sbcl"    ,sbcl)
         ("curl"    ,curl)
         ("gnupg"   ,gnupg)))
      (inputs
       `(("cl-asdf"                ,cl-asdf)
         ("xdg-utils"              ,xdg-utils)
         ("nano"                   ,nano)
         ("openssl"                ,openssl)
         ("sbcl-alexandria"        ,sbcl-alexandria)
         ("sbcl-cl-ppcre"          ,sbcl-cl-ppcre)
         ("tooter"                 ,tooter)
         ("sbcl-croatoan"          ,sbcl-croatoan)
         ("sbcl-osicat"            ,sbcl-osicat)
         ("sbcl-cl-spark"          ,sbcl-cl-spark)
         ("sbcl-cl-access"         ,sbcl-cl-access)
         ("sbcl-cl-sqlite"         ,sbcl-cl-sqlite)
         ("sbcl-sxql"              ,sbcl-sxql)
         ("sbcl-sxql-composer"     ,sbcl-sxql-composer)
         ("sbcl-marshal"           ,sbcl-marshal)
         ("sbcl-bordeaux-threads"  ,sbcl-bordeaux-threads)
         ("sbcl-cl-base64"         ,sbcl-cl-base64)
         ("sbcl-cl+ssl"            ,sbcl-cl+ssl)
         ("sbcl-log4cl"            ,sbcl-log4cl)
         ("sbcl-local-time"        ,sbcl-local-time)
         ("sbcl-cl-colors2"        ,sbcl-cl-colors2)
         ("sbcl-cl-i18n"           ,sbcl-cl-i18n)
         ("sbcl-clunit2"           ,sbcl-clunit2)
         ("sbcl-esrap"             ,sbcl-esrap)
         ("sbcl-ieee-floats"       ,sbcl-ieee-floats)
         ("sbcl-parse-number"      ,sbcl-parse-number)
         ("sbcl-cl-html5-parser"   ,sbcl-cl-html5-parser)
         ("sbcl-unix-opts"         ,sbcl-unix-opts)
         ("sbcl-crypto-shortcuts"  ,sbcl-crypto-shortcuts)
         ("sbcl-drakma"            ,sbcl-drakma)
         ("sbcl-usocket"           ,sbcl-usocket)
         ("sbcl-babel"             ,sbcl-babel)
         ("sbcl-percent-encoding"  ,sbcl-percent-encoding)))
      (arguments
       `(#:tests? #f
         ;; #:make-flags
         ;; (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
         #:strip-binaries? #f
         #:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'set-home
             (lambda _
               (setenv "HOME" "/tmp")
               #t))
           (add-after 'configure 'fix-asdf
             (lambda* (#:key inputs #:allow-other-keys)
               (substitute* "Makefile.in"
                 (("LISP_COMPILER) ")
                  "LISP_COMPILER) --eval \"(require 'asdf)\" --eval \"(push \\\"$$(pwd)/\\\" asdf:*central-registry*)\"  "))
               #t)))))
      (synopsis "Gemini and pleroma client with a terminal interface")
      (description "Gemini and pleroma client with a terminal interface")
      (home-page "https://www.autistici.org/interzona/tinmop.html")
      (license license:gpl3+))))

tinmop

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2021-02-20 13:33 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-02-15 18:46 help with packaging a common lisp software cage
2021-02-15 21:03 ` cage
2021-02-20 11:18   ` cage
2021-02-20 13:27     ` Guillaume Le Vaillant

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).