Re: help with packaging a common lisp software

[Guillaume Le Vaillant <glv@posteo.net>]

[-- 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 --]