1076 lines
		
	
	
	
		
			45 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			1076 lines
		
	
	
	
		
			45 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | ||
| ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
 | ||
| ;;; Copyright © 2016 Mckinley Olsen <mck.olsen@gmail.com>
 | ||
| ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
 | ||
| ;;; Copyright © 2016 David Craven <david@craven.ch>
 | ||
| ;;; Copyright © 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
 | ||
| ;;; Copyright © 2016, 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
 | ||
| ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 | ||
| ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
 | ||
| ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
 | ||
| ;;; Copyright © 2017 Petter <petter@mykolab.ch>
 | ||
| ;;; Copyright © 2018 Hartmut Goebel <h.goebel@crazy-compilers.com>
 | ||
| ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
 | ||
| ;;; Copyright © 2018 Gabriel Hondet <gabrielhondet@gmail.com>
 | ||
| ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
 | ||
| ;;; Copyright © 2018, 2019 Eric Bavier <bavier@member.fsf.org>
 | ||
| ;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
 | ||
| ;;;
 | ||
| ;;; This file is 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/>.
 | ||
| 
 | ||
| (define-module (gnu packages terminals)
 | ||
|   #:use-module ((guix licenses) #:prefix license:)
 | ||
|   #:use-module (guix build-system cmake)
 | ||
|   #:use-module (guix build-system gnu)
 | ||
|   #:use-module (guix build-system glib-or-gtk)
 | ||
|   #:use-module (guix build-system go)
 | ||
|   #:use-module (guix build-system python)
 | ||
|   #:use-module (guix download)
 | ||
|   #:use-module (guix git-download)
 | ||
|   #:use-module (guix packages)
 | ||
|   #:use-module (gnu packages)
 | ||
|   #:use-module (gnu packages autotools)
 | ||
|   #:use-module (gnu packages check)
 | ||
|   #:use-module (gnu packages compression)
 | ||
|   #:use-module (gnu packages crypto)
 | ||
|   #:use-module (gnu packages docbook)
 | ||
|   #:use-module (gnu packages fontutils)
 | ||
|   #:use-module (gnu packages freedesktop)
 | ||
|   #:use-module (gnu packages gcc)
 | ||
|   #:use-module (gnu packages gettext)
 | ||
|   #:use-module (gnu packages gl)
 | ||
|   #:use-module (gnu packages glib)
 | ||
|   #:use-module (gnu packages gnome)
 | ||
|   #:use-module (gnu packages gtk)
 | ||
|   #:use-module (gnu packages image)
 | ||
|   #:use-module (gnu packages libevent)
 | ||
|   #:use-module (gnu packages linux)
 | ||
|   #:use-module (gnu packages ncurses)
 | ||
|   #:use-module (gnu packages perl)
 | ||
|   #:use-module (gnu packages perl-check)
 | ||
|   #:use-module (gnu packages pkg-config)
 | ||
|   #:use-module (gnu packages popt)
 | ||
|   #:use-module (gnu packages protobuf)
 | ||
|   #:use-module (gnu packages python)
 | ||
|   #:use-module (gnu packages python-web)
 | ||
|   #:use-module (gnu packages python-xyz)
 | ||
|   #:use-module (gnu packages qt)
 | ||
|   #:use-module (gnu packages serialization)
 | ||
|   #:use-module (gnu packages sphinx)
 | ||
|   #:use-module (gnu packages ssh)
 | ||
|   #:use-module (gnu packages textutils)
 | ||
|   #:use-module (gnu packages xdisorg)
 | ||
|   #:use-module (gnu packages xml)
 | ||
|   #:use-module (gnu packages xorg)
 | ||
|   #:use-module (srfi srfi-26))
 | ||
| 
 | ||
| (define-public tilda
 | ||
|   (package
 | ||
|     (name "tilda")
 | ||
|     (version "1.4.1")
 | ||
|     (source (origin
 | ||
|               (method git-fetch)
 | ||
|               (uri (git-reference
 | ||
|                     (url "https://github.com/lanoxx/tilda.git")
 | ||
|                     (commit (string-append "tilda-" version))))
 | ||
|               (file-name (git-file-name name version))
 | ||
|               (sha256
 | ||
|                (base32
 | ||
|                 "154rsldqjv2m1bddisb930qicb0y35kx7bxq392n2hn68jr2pxkj"))))
 | ||
|     (build-system glib-or-gtk-build-system)
 | ||
|     (arguments
 | ||
|      '(#:phases (modify-phases %standard-phases
 | ||
|                  (replace 'bootstrap
 | ||
|                   (lambda _
 | ||
|                     (setenv "NOCONFIGURE" "true")
 | ||
|                     (invoke "sh" "autogen.sh"))))))
 | ||
|     (native-inputs
 | ||
|      `(("autoconf" ,autoconf)
 | ||
|        ("automake" ,automake)
 | ||
|        ("gettext" ,gettext-minimal)
 | ||
|        ("pkg-config" ,pkg-config)))
 | ||
|     (inputs
 | ||
|      `(("libconfuse" ,libconfuse)
 | ||
|        ("vte" ,vte)))
 | ||
|     (synopsis "GTK+-based drop-down terminal")
 | ||
|     (description "Tilda is a terminal emulator similar to normal terminals like
 | ||
| gnome-terminal (GNOME) or Konsole (KDE), with the difference that it drops down
 | ||
| from the edge of a screen when a certain configurable hotkey is pressed.  This
 | ||
| is similar to the built-in consoles in some applications.  Tilda is highly
 | ||
| configurable through a graphical wizard.")
 | ||
|     (home-page "https://github.com/lanoxx/tilda")
 | ||
|     (license license:gpl2+)))
 | ||
| 
 | ||
| (define-public termite
 | ||
|   (package
 | ||
|     (name "termite")
 | ||
|     (version "15")
 | ||
|     (source
 | ||
|       (origin
 | ||
|         (method git-fetch)
 | ||
|         (uri (git-reference
 | ||
|               (url (string-append "https://github.com/thestinger/"
 | ||
|                                   name ".git"))
 | ||
|               (commit (string-append "v" version))
 | ||
|               (recursive? #t)))
 | ||
|         (file-name (string-append name "-" version "-checkout"))
 | ||
|         (sha256
 | ||
|          (base32
 | ||
|           "0hp1x6lj098m3jgna274wv5dv60lnzg22297di68g4hw9djjyd2k"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|       `(#:phases
 | ||
|         (modify-phases %standard-phases
 | ||
|           (delete 'configure))
 | ||
|         #:tests? #f
 | ||
|         ;; This sets the destination when installing the necessary terminal
 | ||
|         ;; capability data, which are not provided by 'ncurses'.  See
 | ||
|         ;; <https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html>.
 | ||
|         #:make-flags (list "PREFIX="
 | ||
|                            (string-append "VERSION=v" (version))
 | ||
|                            (string-append "DESTDIR="
 | ||
|                                           (assoc-ref %outputs "out")))))
 | ||
|     (inputs
 | ||
|      `(("vte" ,vte-ng)
 | ||
|        ("gtk+" ,gtk+)
 | ||
|        ("ncurses" ,ncurses)))
 | ||
|     (native-inputs
 | ||
|      `(("pkg-config" ,pkg-config)))
 | ||
| 
 | ||
|     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
 | ||
|     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
 | ||
|     (native-search-paths
 | ||
|       (list (search-path-specification
 | ||
|               (variable "TERMINFO_DIRS")
 | ||
|               (files '("share/terminfo")))))
 | ||
|     (home-page "https://github.com/thestinger/termite/")
 | ||
|     (synopsis "Keyboard-centric, VTE-based terminal")
 | ||
|     (description "Termite is a minimal terminal emulator designed for use with
 | ||
| tiling window managers.  It is a modal application, similar to Vim, with an
 | ||
| insert mode and command mode where keybindings have different functions.")
 | ||
| 
 | ||
|     ;; Files under util/ are under the Expat license; the rest is LGPLv2+.
 | ||
|     (license license:lgpl2.0+)))
 | ||
| 
 | ||
| (define-public asciinema
 | ||
|   (package
 | ||
|     (name "asciinema")
 | ||
|     (version "1.4.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method url-fetch)
 | ||
|        (uri (pypi-uri "asciinema" version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1jrf8c8711gkdilmvyv3d37kp8xfvdc5cqighw5k92a6g9z4acgv"))))
 | ||
|     (build-system python-build-system)
 | ||
|     (arguments
 | ||
|      `(#:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (add-before 'build 'patch-exec-paths
 | ||
|            (lambda* (#:key inputs #:allow-other-keys)
 | ||
|              (let ((ncurses (assoc-ref inputs "ncurses")))
 | ||
|                (substitute* "asciinema/recorder.py"
 | ||
|                  (("'tput'")
 | ||
|                   (string-append "'" ncurses "/bin/tput'"))))
 | ||
|              #t)))))
 | ||
|     (inputs `(("ncurses" ,ncurses)))
 | ||
|     (native-inputs
 | ||
|      ;; For tests.
 | ||
|      `(("python-requests" ,python-requests)))
 | ||
|     (home-page "https://asciinema.org")
 | ||
|     (synopsis "Terminal session recorder")
 | ||
|     (description
 | ||
|      "Use asciinema to record and share your terminal sessions, the right way.
 | ||
| Forget screen recording apps and blurry video.  Enjoy a lightweight, purely
 | ||
| text-based approach to terminal recording.")
 | ||
|     (license license:gpl3)))
 | ||
| 
 | ||
| (define-public libtsm
 | ||
|   (let ((commit "f70e37982f382b03c6939dac3d5f814450bda253")
 | ||
|         (revision "1"))
 | ||
|     (package
 | ||
|       (name "libtsm")
 | ||
|       (version (git-version "0.0.0" revision commit))
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 ;; The freedesktop repository is no longer maintained.
 | ||
|                 (uri (git-reference
 | ||
|                       (url (string-append "https://github.com/Aetf/" name))
 | ||
|                       (commit commit)))
 | ||
|                 (sha256
 | ||
|                  (base32
 | ||
|                   "0mwn91i5h5d518i1s05y7hzv6bc13vzcvxszpfh77473iwg4wprx"))))
 | ||
|       (build-system cmake-build-system)
 | ||
|       (arguments
 | ||
|        `(#:configure-flags '("-DBUILD_TESTING=ON")))
 | ||
|       (native-inputs
 | ||
|        `(("pkg-config" ,pkg-config)))
 | ||
|       (inputs
 | ||
|        `(("libxkbcommon" ,libxkbcommon)
 | ||
|          ("check" ,check)))
 | ||
|       (synopsis "Xterm state machine library")
 | ||
|       (description "TSM is a state machine for DEC VT100-VT520 compatible
 | ||
| terminal emulators.  It tries to support all common standards while keeping
 | ||
| compatibility to existing emulators like xterm, gnome-terminal, konsole, etc.")
 | ||
|       (home-page "https://www.freedesktop.org/wiki/Software/libtsm")
 | ||
|       ;; Hash table implementation is lgpl2.1+ licensed.
 | ||
|       ;; The wcwidth implementation in external/wcwidth.{h,c} uses a license
 | ||
|       ;; derived from ISC.
 | ||
|       ;; UCS-4 to UTF-8 encoding is copied from "terminology" which is released
 | ||
|       ;; under the bsd 2 license.
 | ||
|       (license (list license:expat license:lgpl2.1+ license:isc license:bsd-2)))))
 | ||
| 
 | ||
| (define-public kmscon
 | ||
|   (let ((commit "01dd0a231e2125a40ceba5f59fd945ff29bf2cdc")
 | ||
|         (revision "1"))
 | ||
|     (package
 | ||
|       (name "kmscon")
 | ||
|       (version (git-version "0.0.0" revision commit))
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 ;; The freedesktop repository is no longer maintained.
 | ||
|                 (uri (git-reference
 | ||
|                       (url (string-append "https://github.com/Aetf/" name))
 | ||
|                       (commit commit)))
 | ||
|                 (sha256
 | ||
|                  (base32
 | ||
|                   "0q62kjsvy2iwy8adfiygx2bfwlh83rphgxbis95ycspqidg9py87"))
 | ||
|                 (patches
 | ||
|                  (search-patches "kmscon-runtime-keymap-switch.patch"))
 | ||
|                 (modules '((guix build utils)))
 | ||
|                 (file-name (git-file-name name version))))
 | ||
|       (build-system gnu-build-system)
 | ||
|       (arguments
 | ||
|        `(;; The closure of MESA is huge so we'd rather avoid it.
 | ||
|          #:disallowed-references (,mesa)
 | ||
| 
 | ||
|          #:phases (modify-phases %standard-phases
 | ||
|                     (replace 'bootstrap
 | ||
|                       (lambda _
 | ||
|                         (setenv "NOCONFIGURE" "indeed")
 | ||
|                         (invoke "sh" "autogen.sh")))
 | ||
|                     ;; Use elogind instead of systemd.
 | ||
|                     (add-before 'configure 'remove-systemd
 | ||
|                       (lambda _
 | ||
|                         (substitute* "configure"
 | ||
|                           (("libsystemd-daemon libsystemd-login")
 | ||
|                            "libelogind"))
 | ||
|                         (substitute* "src/uterm_systemd.c"
 | ||
|                           (("#include <systemd/sd-login.h>")
 | ||
|                            "#include <elogind/sd-login.h>")
 | ||
|                           ;; We don't have this header.
 | ||
|                           (("#include <systemd/sd-daemon\\.h>")
 | ||
|                            "")
 | ||
|                           ;; Replace the call to 'sd_booted' by the truth value.
 | ||
|                           (("sd_booted\\(\\)")
 | ||
|                            "1")))))))
 | ||
|       (native-inputs
 | ||
|        `(("pkg-config" ,pkg-config)
 | ||
|          ("autoconf" ,autoconf)
 | ||
|          ("automake" ,automake)
 | ||
|          ("libtool" ,libtool)
 | ||
|          ("libxslt" ,libxslt)                       ;to build the man page
 | ||
|          ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
 | ||
|          ("docbook-xsl" ,docbook-xsl)))
 | ||
|       (inputs
 | ||
|        `(("libdrm" ,libdrm)
 | ||
|          ("libtsm" ,libtsm)
 | ||
|          ("libxkbcommon" ,libxkbcommon)
 | ||
|          ("logind" ,elogind)
 | ||
|          ;; MESA can be used for accelerated video output via OpenGLESv2, but
 | ||
|          ;; it's a bit dependency that we'd rather avoid in the installation
 | ||
|          ;; image.
 | ||
|          ;; ("mesa" ,mesa)
 | ||
|          ("pango" ,pango)
 | ||
|          ("udev" ,eudev)))
 | ||
|       (synopsis "Linux KMS-based terminal emulator")
 | ||
|       (description "Kmscon is a terminal emulator based on Linux's @dfn{kernel
 | ||
| mode setting} (KMS).  It can replace the in-kernel virtual terminal (VT)
 | ||
| implementation with a user-space console.  Compared to the Linux console,
 | ||
| kmscon provides enhanced features including XKB-compatible internationalized
 | ||
| keyboard support, UTF-8 input/font support, hardware-accelerated rendering,
 | ||
| multi-seat support, a replacement for @command{mingetty}, and more.")
 | ||
|       (home-page "https://www.freedesktop.org/wiki/Software/kmscon")
 | ||
|       ;; Hash table implementation is lgpl2.1+ licensed.
 | ||
|       ;; The wcwidth implementation in external/wcwidth.{h,c} uses a license
 | ||
|       ;; derived from ISC.
 | ||
|       ;; UCS-4 to UTF-8 encoding is copied from "terminology" which is released
 | ||
|       ;; under the bsd 2 license.
 | ||
|       ;; Unifont-Font is from http://unifoundry.com/unifont.html and licensed
 | ||
|       ;; under the terms of the GNU GPL.
 | ||
|       (license (list license:expat license:lgpl2.1+ license:bsd-2
 | ||
|                      license:gpl2+))
 | ||
|       (supported-systems (filter (cut string-suffix? "-linux" <>)
 | ||
|                                  %supported-systems)))))
 | ||
| 
 | ||
| (define-public libtermkey
 | ||
|   (package
 | ||
|     (name "libtermkey")
 | ||
|     (version "0.21.1")
 | ||
|     (source (origin
 | ||
|               (method url-fetch)
 | ||
|               (uri (string-append "http://www.leonerd.org.uk/code/libtermkey/"
 | ||
|                                   "libtermkey-" version ".tar.gz"))
 | ||
|               (sha256
 | ||
|                (base32 "0psd0kf10q5ixfima0mxz10syy7qq1ilz1npr0rz862xycvzgjyf"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      '(#:make-flags (list
 | ||
|                      "CC=gcc"
 | ||
|                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
 | ||
|        #:phases (modify-phases %standard-phases
 | ||
|                   (delete 'configure))  ; no configure script
 | ||
|        #:test-target "test"))
 | ||
|     (inputs `(("ncurses" ,ncurses)))
 | ||
|     (native-inputs `(("libtool" ,libtool)
 | ||
|                      ("perl-test-harness" ,perl-test-harness)
 | ||
|                      ("pkg-config" ,pkg-config)))
 | ||
|     (synopsis "Keyboard entry processing library for terminal-based programs")
 | ||
|     (description
 | ||
|      "Libtermkey handles all the necessary logic to recognise special keys, UTF-8
 | ||
| combining, and so on, with a simple interface.")
 | ||
|     (home-page "http://www.leonerd.org.uk/code/libtermkey")
 | ||
|     (license license:expat)))
 | ||
| 
 | ||
| (define-public picocom
 | ||
|   (package
 | ||
|     (name "picocom")
 | ||
|     (version "3.1")
 | ||
|     (source (origin
 | ||
|               (method git-fetch)
 | ||
|               (uri (git-reference
 | ||
|                     (url "https://github.com/npat-efault/picocom.git")
 | ||
|                     (commit version)))
 | ||
|               (file-name (git-file-name name version))
 | ||
|               (sha256
 | ||
|                (base32
 | ||
|                 "1vvjydqf0ax47nvdyyl67jafw5b3sfsav00xid6qpgia1gs2r72n"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      `(#:make-flags '("CC=gcc")
 | ||
|        #:tests? #f                      ; no tests
 | ||
|        #:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (delete 'configure)            ; no configure script
 | ||
|          (replace 'install
 | ||
|            ;; The Makefile lacks an ‘install’ target.
 | ||
|            (lambda* (#:key outputs #:allow-other-keys)
 | ||
|              (let* ((out (assoc-ref outputs "out"))
 | ||
|                     (bin (string-append out "/bin"))
 | ||
|                     (man (string-append out "/share/man/man1")))
 | ||
|                (install-file "picocom" bin)
 | ||
|                (install-file "picocom.1" man)))))))
 | ||
|     (home-page "https://github.com/npat-efault/picocom")
 | ||
|     (synopsis "Minimal dumb-terminal emulator")
 | ||
|     (description
 | ||
|      "Picocom is a minimal dumb-terminal emulation program.  It was designed to
 | ||
| serve as a simple and manual modem configuration, testing, and debugging tool.
 | ||
| It also serves well as a low-tech serial communications program to allow access
 | ||
| to all types of devices that provide serial consoles.")
 | ||
|     (license license:gpl2+)))
 | ||
| 
 | ||
| (define-public beep
 | ||
|   (package
 | ||
|     (name "beep")
 | ||
|     (version "1.4.4")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method git-fetch)
 | ||
|        (uri (git-reference
 | ||
|              ;; The original beep 1.3 at <http://www.johnath.com/beep> has been
 | ||
|              ;; unmaintained for some time, and vulnerable to at least two CVEs:
 | ||
|              ;; https://github.com/johnath/beep/issues/11#issuecomment-454056858
 | ||
|              ;; Use this maintained fork instead.
 | ||
|              (url "https://github.com/spkr-beep/beep.git")
 | ||
|              (commit (string-append "v" version))))
 | ||
|        (file-name (git-file-name name version))
 | ||
|        (sha256
 | ||
|         (base32 "1bk7g63qpiclbq20iz2x238by8s1b2iafdim7i6dq1i5n01s7lgx"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      `(#:tests? #f                      ; no tests
 | ||
|        #:make-flags
 | ||
|        (list (string-append "prefix=" (assoc-ref %outputs "out"))
 | ||
|              (string-append "pkgdocdir=$(docdir)/" ,name "-" ,version))
 | ||
|        #:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (delete 'configure))))         ; no configure script
 | ||
|     (native-inputs
 | ||
|      `(("gcc" ,gcc-8)))                 ; for ‘-fstack-clash-protection’
 | ||
|     (synopsis "Linux command-line utility to control the PC speaker")
 | ||
|     (description "beep allows the user to control the PC speaker with precision,
 | ||
| allowing different sounds to indicate different events.  While it can be run
 | ||
| quite happily on the command line, its intended place of residence is within
 | ||
| scripts, notifying the user when something interesting occurs.  Of course, it
 | ||
| has no notion of what's interesing, but it's very good at that notifying part.")
 | ||
|     (home-page "https://github.com/spkr-beep/beep")
 | ||
|     (license license:gpl2+)))
 | ||
| 
 | ||
| (define-public unibilium
 | ||
|   (package
 | ||
|     (name "unibilium")
 | ||
|     (version "2.0.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method git-fetch)
 | ||
|        (uri (git-reference
 | ||
|              (url "https://github.com/mauke/unibilium.git")
 | ||
|              (commit (string-append "v" version))))
 | ||
|        (file-name (git-file-name name version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1wa9a32wzqnxqh1jh554afj13dzjr6mw2wzqzw8d08nza9pg2ra2"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      `(#:make-flags
 | ||
|        (list "CC=gcc"
 | ||
|              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 | ||
|        #:test-target "test"
 | ||
|        ;; FIXME: tests require "prove"
 | ||
|        #:tests? #f
 | ||
|        #:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (delete 'configure))))
 | ||
|     (native-inputs
 | ||
|      `(("libtool" ,libtool)
 | ||
|        ("perl" ,perl)))
 | ||
|     (home-page "https://github.com/mauke/unibilium")
 | ||
|     (synopsis "Terminfo parsing library")
 | ||
|     (description "Unibilium is a basic C terminfo library.  It doesn't depend
 | ||
| on curses or any other library.  It also doesn't use global variables, so it
 | ||
| should be thread-safe.")
 | ||
|     (license license:lgpl3+)))
 | ||
| 
 | ||
| (define-public libvterm
 | ||
|   (package
 | ||
|     (name "libvterm")
 | ||
|     (version "0+bzr681")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method url-fetch)
 | ||
|        (uri (string-append "http://www.leonerd.org.uk/code/libvterm/"
 | ||
|                            "libvterm-" version ".tar.gz"))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1s56c8p1qz6frkcri0hg4qyydv2wcccj6n2xmz1dwcdqn38ldsmb"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (arguments
 | ||
|      `(#:make-flags
 | ||
|        (list "CC=gcc"
 | ||
|              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 | ||
|        #:test-target "test"
 | ||
|        #:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (delete 'configure))))
 | ||
|     (native-inputs
 | ||
|      `(("libtool" ,libtool)
 | ||
|        ("perl" ,perl)))
 | ||
|     (home-page "http://www.leonerd.org.uk/code/libvterm/")
 | ||
|     (synopsis "VT220/xterm/ECMA-48 terminal emulator library")
 | ||
|     (description "Libvterm is an abstract C99 library which implements a VT220
 | ||
| or xterm-like terminal emulator.  It doesn't use any particular graphics
 | ||
| toolkit or output system, instead it invokes callback function pointers that
 | ||
| its embedding program should provide it to draw on its behalf.  It avoids
 | ||
| calling @code{malloc} during normal running state, allowing it to be used in
 | ||
| embedded kernel situations.")
 | ||
|     (license license:expat)))
 | ||
| 
 | ||
| (define-public cool-retro-term
 | ||
|   (let ((commit "1.1.1")
 | ||
|         (revision "0"))                 ;not used currently
 | ||
|     (package
 | ||
|       (name "cool-retro-term")
 | ||
|       (version "1.1.1")
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 (file-name (string-append name "-" version "-checkout"))
 | ||
|                 (uri (git-reference
 | ||
|                       (url (string-append "https://github.com/Swordfish90/" name))
 | ||
|                       (commit commit)
 | ||
|                       (recursive? #t)))
 | ||
|                 (sha256
 | ||
|                  (base32 "0wb6anchxa5jpn9c73kr4byrf2xlj8x8qzc5x7ny6saj7kbbvp75"))
 | ||
|                 (modules '((guix build utils)
 | ||
|                            (srfi srfi-1)
 | ||
|                            (srfi srfi-26)
 | ||
|                            (ice-9 rdelim)
 | ||
|                            (ice-9 regex)))
 | ||
|                 (snippet
 | ||
|                  '(let* ((fonts '(;"1971-ibm-3278"     ; BSD 3-clause
 | ||
|                                   "1977-apple2"        ; Non-Free
 | ||
|                                   "1977-commodore-pet" ; Non-Free
 | ||
|                                   "1979-atari-400-800" ; Non-Free
 | ||
|                                   ;"1981-ibm-pc        ; CC-SA 4.0
 | ||
|                                   "1982-commodore64")) ; Non-Free
 | ||
|                                   ;"1985-ibm-pc-vga"   ; CC-SA 4.0
 | ||
|                                   ;"modern-fixedsys-excelsior" ; Redistributable
 | ||
|                                   ;"modern-hermit"     ; SIL
 | ||
|                                   ;"modern-inconsolata"; SIL
 | ||
|                                   ;"modern-pro-font-win-tweaked" ; X11
 | ||
|                                   ;"modern-proggy-tiny"; X11
 | ||
|                                   ;"modern-terminus"   ; SIL
 | ||
|                          (name-rx (make-regexp " *name: *\"([^\"]*)\""))
 | ||
|                          (source-rx (make-regexp " *source: \"fonts/([^/]*)[^\"]*\""))
 | ||
|                          (fontname-rx (make-regexp "\"fontName\":\"([^\"]*).*"))
 | ||
|                          (names
 | ||
|                           ;; Gather font names from all Fonts*.qml files.
 | ||
|                           ;; These will be used to remove items from the
 | ||
|                           ;; default profiles.
 | ||
|                           (fold
 | ||
|                            (lambda (font-file names)
 | ||
|                              (call-with-input-file font-file
 | ||
|                                (lambda (port)
 | ||
|                                  (let loop ((name #f) (names names))
 | ||
|                                    (let ((line (read-line port)))
 | ||
|                                      (cond
 | ||
|                                       ((eof-object? line) (pk 'names names))
 | ||
|                                       ((regexp-exec name-rx line)
 | ||
|                                        => (lambda (m)
 | ||
|                                             (loop (match:substring m 1) names)))
 | ||
|                                       ((regexp-exec source-rx line)
 | ||
|                                        => (lambda (m)
 | ||
|                                             (let ((font (match:substring m 1)))
 | ||
|                                               (if (member font fonts)
 | ||
|                                                   (loop #f (lset-adjoin string=?
 | ||
|                                                                         names name))
 | ||
|                                                   (loop #f names)))))
 | ||
|                                       (else (loop name names))))))))
 | ||
|                            '() (find-files "app/qml" "Font.*\\.qml"))))
 | ||
|                     ;; Remove the font files themselves
 | ||
|                     (for-each (lambda (font)
 | ||
|                                 (delete-file-recursively
 | ||
|                                  (string-append "app/qml/fonts/" font)))
 | ||
|                               fonts)
 | ||
|                     ;; Remove mention of those fonts in the source
 | ||
|                     (substitute* "app/qml/resources.qrc"
 | ||
|                       (((string-append " *<file>fonts/("
 | ||
|                                        (string-join fonts "|")
 | ||
|                                        ").*"))
 | ||
|                        ""))
 | ||
|                     (for-each
 | ||
|                      (lambda (file)
 | ||
|                        (let ((start-rx (make-regexp " *ListElement\\{"))
 | ||
|                              (end-rx   (make-regexp " *\\}")))
 | ||
|                         (with-atomic-file-replacement file
 | ||
|                           (lambda (in out)
 | ||
|                             (let loop ((line-buffer '())
 | ||
|                                        (hold? #f)
 | ||
|                                        (discard? #f))
 | ||
|                               (let ((line (read-line in 'concat)))
 | ||
|                                 (cond
 | ||
|                                  ((eof-object? line) #t) ;done
 | ||
|                                  ((regexp-exec start-rx line)
 | ||
|                                   (loop (cons line line-buffer) #t #f))
 | ||
|                                  ((or (regexp-exec source-rx line)
 | ||
|                                       (regexp-exec fontname-rx line))
 | ||
|                                   => (lambda (m)
 | ||
|                                        (let ((font-or-name (match:substring m 1)))
 | ||
|                                          (if (or (member font-or-name fonts)
 | ||
|                                                  (member font-or-name names))
 | ||
|                                              (loop '() #f #t)
 | ||
|                                              (loop (cons line line-buffer)
 | ||
|                                                    hold? #f)))))
 | ||
|                                  ((regexp-exec end-rx line)
 | ||
|                                   (unless discard?
 | ||
|                                           (for-each (cut display <> out)
 | ||
|                                                     (reverse line-buffer))
 | ||
|                                           (display line out))
 | ||
|                                   (loop '() #f #f))
 | ||
|                                  (hold? (loop (cons line line-buffer)
 | ||
|                                               hold? discard?))
 | ||
|                                  (discard? (loop line-buffer #f #t))
 | ||
|                                  (else (display line out)
 | ||
|                                        (loop '() #f #f)))))))))
 | ||
|                      '("app/qml/FontPixels.qml"
 | ||
|                        "app/qml/FontScanlines.qml"
 | ||
|                        "app/qml/Fonts.qml"
 | ||
|                        "app/qml/ApplicationSettings.qml"))
 | ||
|                     ;; Final substitution for default scanline and pixel fonts
 | ||
|                     (substitute* "app/qml/ApplicationSettings.qml"
 | ||
|                       (("COMMODORE_PET") "PROGGY_TINY"))
 | ||
|                     #t))))
 | ||
|       (build-system gnu-build-system)
 | ||
|       (inputs
 | ||
|        `(("qtbase" ,qtbase)
 | ||
|          ("qtdeclarative" ,qtdeclarative)
 | ||
|          ("qtgraphicaleffects" ,qtgraphicaleffects)
 | ||
|          ("qtquickcontrols" ,qtquickcontrols)))
 | ||
|       (arguments
 | ||
|        `(#:phases
 | ||
|          (modify-phases %standard-phases
 | ||
|            (replace 'configure
 | ||
|              (lambda* (#:key outputs #:allow-other-keys)
 | ||
|                (let ((out (assoc-ref outputs "out")))
 | ||
|                  (substitute* '("qmltermwidget/qmltermwidget.pro")
 | ||
|                    (("INSTALL_DIR = \\$\\$\\[QT_INSTALL_QML\\]")
 | ||
|                     (string-append "INSTALL_DIR = " out "/lib/qt5/qml")))
 | ||
|                  (substitute* '("cool-retro-term.pro" "app/app.pro")
 | ||
|                    (("/usr") out))
 | ||
|                  (invoke "qmake"))))
 | ||
|            (add-after 'install 'wrap-executable
 | ||
|              (lambda* (#:key inputs outputs #:allow-other-keys)
 | ||
|                (let ((out (assoc-ref outputs "out"))
 | ||
|                      (qml "/lib/qt5/qml"))
 | ||
|                  (wrap-program (string-append out "/bin/cool-retro-term")
 | ||
|                    `("QML2_IMPORT_PATH" ":" prefix
 | ||
|                      (,(string-append out qml)
 | ||
|                       ,@(map (lambda (i)
 | ||
|                                (string-append (assoc-ref inputs i) qml))
 | ||
|                              '("qtdeclarative"
 | ||
|                                "qtgraphicaleffects"
 | ||
|                                "qtquickcontrols")))))
 | ||
|                  #t)))
 | ||
|            (add-after 'install 'add-alternate-name
 | ||
|              (lambda* (#:key outputs #:allow-other-keys)
 | ||
|                (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
 | ||
|                  (symlink (string-append bin "/cool-retro-term")
 | ||
|                           (string-append bin "/crt"))
 | ||
|                  #t)))
 | ||
|            (add-after 'install 'install-man
 | ||
|              (lambda* (#:key outputs #:allow-other-keys)
 | ||
|                (let ((mandir (string-append (assoc-ref outputs "out")
 | ||
|                                             "/share/man/man1")))
 | ||
|                  (install-file "packaging/debian/cool-retro-term.1" mandir)
 | ||
|                  #t))))))
 | ||
|       (synopsis "Terminal emulator")
 | ||
|       (description
 | ||
|        "Cool-retro-term (crt) is a terminal emulator which mimics the look and
 | ||
| feel of the old cathode ray tube (CRT) screens.  It has been designed to be
 | ||
| eye-candy, customizable, and reasonably lightweight.")
 | ||
|       (home-page "https://github.com/Swordfish90/cool-retro-term")
 | ||
|       (license (list
 | ||
|                 license:gpl2+           ; qmltermwidget
 | ||
|                 license:gpl3+           ; cool-retro-term
 | ||
|                 ;; Fonts
 | ||
|                 license:silofl1.1
 | ||
|                 license:x11
 | ||
|                 license:bsd-3)))))
 | ||
| 
 | ||
| (define-public sakura
 | ||
|   (package
 | ||
|     (name "sakura")
 | ||
|     (version "3.6.0")
 | ||
|     (source (origin
 | ||
|               (method url-fetch)
 | ||
|               (uri (string-append "https://launchpad.net/" name "/trunk/"
 | ||
|                                   version "/+download/" name "-" version
 | ||
|                                   ".tar.bz2"))
 | ||
|               (sha256
 | ||
|                (base32
 | ||
|                 "1q463qm41ym7jb3kbzjz7b6x549vmgkb70arpkhsf86yxly1y5m1"))))
 | ||
|     (build-system cmake-build-system)
 | ||
|     (arguments
 | ||
|      '(#:tests? #f))                    ; no check phase
 | ||
|     (native-inputs
 | ||
|      `(("gettext" ,gettext-minimal)
 | ||
|        ("perl" ,perl)                   ; for pod2man
 | ||
|        ("pkg-config" ,pkg-config)))
 | ||
|     (inputs
 | ||
|      `(("libxft" ,libxft)
 | ||
|        ("vte" ,vte)))
 | ||
|     (home-page "https://launchpad.net/sakura")
 | ||
|     (synopsis "A simple but powerful libvte-based terminal emulator")
 | ||
|     (description "@code{Sakura} is a terminal emulator based on GTK+ and VTE.
 | ||
| It's a terminal emulator with few dependencies, so you don't need a full GNOME
 | ||
| desktop installed to have a decent terminal emulator.")
 | ||
|     (license license:gpl2)))
 | ||
| 
 | ||
| (define-public go-github.com-nsf-termbox-go
 | ||
|   (let ((commit "288510b9734e30e7966ec2f22b87c5f8e67345e3")
 | ||
|         (revision "1"))
 | ||
|     (package
 | ||
|       (name "go-github.com-nsf-termbox-go")
 | ||
|       (version (git-version "0.0.0" revision commit))
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 (uri (git-reference
 | ||
|                       (url "https://github.com/nsf/termbox-go.git")
 | ||
|                       (commit commit)))
 | ||
|                 (file-name (git-file-name name version))
 | ||
|                 (sha256
 | ||
|                  (base32
 | ||
|                   "0hdyisfaf8yb55h3p03p4sbq19546mp9fy28f2kn659mycmhxqk4"))))
 | ||
|       (build-system go-build-system)
 | ||
|       (arguments
 | ||
|        '(#:import-path "github.com/nsf/termbox-go"))
 | ||
|       (propagated-inputs
 | ||
|        `(("go-github.com-mattn-go-runewidth"
 | ||
|           ,go-github.com-mattn-go-runewidth)))
 | ||
|       (synopsis "@code{termbox} provides a minimal API for text-based user
 | ||
| interfaces")
 | ||
|       (description
 | ||
|        "Termbox is a library that provides a minimalistic API which allows the
 | ||
| programmer to write text-based user interfaces.")
 | ||
|       (home-page "https://github.com/nsf/termbox-go")
 | ||
|       (license license:expat))))
 | ||
| 
 | ||
| (define-public go-golang.org-x-crypto-ssh-terminal
 | ||
|   (let ((commit "c78caca803c95773f48a844d3dcab04b9bc4d6dd")
 | ||
|         (revision "0"))
 | ||
|     (package
 | ||
|       (name "go-golang.org-x-crypto-ssh-terminal")
 | ||
|       (version (git-version "0.0.0" revision commit))
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 (uri (git-reference
 | ||
|                       (url "https://go.googlesource.com/crypto")
 | ||
|                       (commit commit)))
 | ||
|                 (file-name (git-file-name name version))
 | ||
|                 (sha256
 | ||
|                  (base32
 | ||
|                   "0vxlfxr9y681yn2cfh6dbqmq35vvq4f45ay0mm31ffkny9cms0y4"))))
 | ||
|       (build-system go-build-system)
 | ||
|       (arguments
 | ||
|        '(#:import-path "golang.org/x/crypto/ssh/terminal"
 | ||
|          #:unpack-path "golang.org/x/crypto"
 | ||
|          #:phases
 | ||
|          (modify-phases %standard-phases
 | ||
|            (add-before 'reset-gzip-timestamps 'make-gzip-archive-writable
 | ||
|              (lambda* (#:key outputs #:allow-other-keys)
 | ||
|                (map (lambda (file)
 | ||
|                       (make-file-writable file))
 | ||
|                     (find-files
 | ||
|                      (string-append (assoc-ref outputs "out")
 | ||
|                                     "/src/golang.org/x/crypto/ed25519/testdata")
 | ||
|                      ".*\\.gz$"))
 | ||
|                #t)))))
 | ||
|       (synopsis "Support functions for dealing with terminals in Go")
 | ||
|       (description "@code{terminal} provides support functions for dealing
 | ||
| with terminals in Go.")
 | ||
|       (home-page "https://go.googlesource.com/crypto/")
 | ||
|       (license license:bsd-3))))
 | ||
| 
 | ||
| (define-public go-github.com-howeyc-gopass
 | ||
|   (let ((commit "bf9dde6d0d2c004a008c27aaee91170c786f6db8")
 | ||
|         (revision "0"))
 | ||
|     (package
 | ||
|       (name "go-github.com-howeyc-gopass")
 | ||
|       (version (git-version "0.0.0" revision commit))
 | ||
|       (source (origin
 | ||
|                 (method git-fetch)
 | ||
|                 (uri (git-reference
 | ||
|                       (url "https://github.com/howeyc/gopass.git")
 | ||
|                       (commit commit)))
 | ||
|                 (file-name (git-file-name name version))
 | ||
|                 (sha256
 | ||
|                  (base32
 | ||
|                   "1jxzyfnqi0h1fzlsvlkn10bncic803bfhslyijcxk55mgh297g45"))))
 | ||
|       (build-system go-build-system)
 | ||
|       (arguments
 | ||
|        '(#:import-path "github.com/howeyc/gopass"))
 | ||
|       (propagated-inputs
 | ||
|        `(("go-golang.org-x-crypto-ssh-terminal"
 | ||
|           ,go-golang.org-x-crypto-ssh-terminal)))
 | ||
|       (synopsis "Retrieve password from a terminal or piped input in Go")
 | ||
|       (description
 | ||
|        "@code{gopass} is a Go package for retrieving a password from user
 | ||
| terminal or piped input.")
 | ||
|       (home-page "https://github.com/howeyc/gopass")
 | ||
|       (license license:isc))))
 | ||
| 
 | ||
| (define-public python-pyte
 | ||
|   (package
 | ||
|     (name "python-pyte")
 | ||
|     (version "0.7.0")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method url-fetch)
 | ||
|        (uri (pypi-uri "pyte" version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1an54hvyjm8gncx8cgabz9mkpgjkdb0bkyjlkh7g7f94nr3wnfl7"))))
 | ||
|     (build-system python-build-system)
 | ||
|     (arguments
 | ||
|      '(#:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (add-after 'unpack 'remove-failing-test
 | ||
|            ;; TODO: Reenable when the `captured` files required by this test
 | ||
|            ;; are included in the archive.
 | ||
|            (lambda _
 | ||
|              (delete-file "tests/test_input_output.py")
 | ||
|              #t)))))
 | ||
|     (propagated-inputs
 | ||
|      `(("python-wcwidth" ,python-wcwidth)))
 | ||
|     (native-inputs
 | ||
|      `(("python-pytest-runner" ,python-pytest-runner)
 | ||
|        ("python-pytest" ,python-pytest)))
 | ||
|     (home-page "https://pyte.readthedocs.io/")
 | ||
|     (synopsis "Simple VTXXX-compatible terminal emulator")
 | ||
|     (description "@code{pyte} is an in-memory VTxxx-compatible terminal
 | ||
| emulator.  @var{VTxxx} stands for a series of video terminals, developed by
 | ||
| DEC between 1970 and 1995.  The first and probably most famous one was the
 | ||
| VT100 terminal, which is now a de-facto standard for all virtual terminal
 | ||
| emulators.
 | ||
| 
 | ||
| pyte is a fork of vt102, which was an incomplete pure Python implementation
 | ||
| of VT100 terminal.")
 | ||
|     (license license:lgpl3+)))
 | ||
| 
 | ||
| (define-public python2-pyte
 | ||
|   (package-with-python2 python-pyte))
 | ||
| 
 | ||
| (define-public python-blessings
 | ||
|   (package
 | ||
|     (name "python-blessings")
 | ||
|     (version "1.6.1")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method url-fetch)
 | ||
|        (uri (pypi-uri "blessings" version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1smngy65p8mi62lgm04icasx22v976szhs2aq95y2ljmi1srb4bl"))))
 | ||
|     (build-system python-build-system)
 | ||
|     (arguments
 | ||
|      ;; TODO: For py3, 2to2 is used to convert the code, but test-suite fails
 | ||
|      `(#:tests? #f))
 | ||
|     (native-inputs
 | ||
|      `(("python-nose" ,python-nose)))
 | ||
|     (home-page "https://github.com/erikrose/blessings")
 | ||
|     (synopsis "Python module to manage terminal color, styling, and
 | ||
| positioning")
 | ||
|     (description "Blessings is a pythonic API to manipulate terminal color,
 | ||
| styling, and positioning.  It provides similar features to curses but avoids
 | ||
| some of curses’s limitations: it does not require clearing the whole screen
 | ||
| for little changes, provides a scroll-back buffer after the program exits, and
 | ||
| avoids styling altogether when the output is redirected to something other
 | ||
| than a terminal.")
 | ||
|     (license license:expat)))
 | ||
| 
 | ||
| (define-public python2-blessings
 | ||
|   (package-with-python2 python-blessings))
 | ||
| 
 | ||
| (define-public python-curtsies
 | ||
|   (package
 | ||
|     (name "python-curtsies")
 | ||
|     (version "0.2.11")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method url-fetch)
 | ||
|        (uri (pypi-uri "curtsies" version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "1vljmw3sy6lrqahhpyg4gk13mzcx3mwhvg8s41698ms3cpgkjipc"))))
 | ||
|     (build-system python-build-system)
 | ||
|     (arguments
 | ||
|      `(#:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (replace 'check
 | ||
|            (lambda _
 | ||
|              (invoke "nosetests" "-v"))))))
 | ||
|     (propagated-inputs
 | ||
|      `(("python-blessings" ,python-blessings)
 | ||
|        ("python-wcwidth" ,python-wcwidth)))
 | ||
|     (native-inputs
 | ||
|      `(("python-mock" ,python-mock)
 | ||
|        ("python-pyte" ,python-pyte)
 | ||
|        ("python-nose" ,python-nose)))
 | ||
|     (home-page "https://github.com/thomasballinger/curtsies")
 | ||
|     (synopsis "Library for curses-like terminal interaction with colored
 | ||
| strings")
 | ||
|     (description "Curtsies is a Python library for interacting with the
 | ||
| terminal.  It features string-like objects which carry formatting information,
 | ||
| per-line fullscreen terminal rendering, and keyboard input event reporting.")
 | ||
|     (license license:expat)))
 | ||
| 
 | ||
| (define-public python2-curtsies
 | ||
|   (package-with-python2 python-curtsies))
 | ||
| 
 | ||
| (define-public tmate
 | ||
|   (package
 | ||
|     (name "tmate")
 | ||
|     (version "2.2.1")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method git-fetch)
 | ||
|        (uri (git-reference
 | ||
|              (url "https://github.com/tmate-io/tmate.git")
 | ||
|              (commit version)))
 | ||
|        (file-name (git-file-name name version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "0pfl9vrswzim9ydi1n652h3rax2zrmy6sqkp0r09yy3lw83h4y1r"))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs
 | ||
|      `(("libevent" ,libevent)
 | ||
|        ("libssh" ,libssh)
 | ||
|        ("msgpack" ,msgpack)
 | ||
|        ("ncurses" ,ncurses)))
 | ||
|     (native-inputs
 | ||
|      `(("autoconf" ,autoconf)
 | ||
|        ("automake" ,automake)
 | ||
|        ("pkg-config" ,pkg-config)))
 | ||
|     (home-page "https://tmate.io/")
 | ||
|     (synopsis "Terminal sharing application")
 | ||
|     (description "tmate is a terminal sharing application that allows you to
 | ||
| share your terminal with other users over the Internet.  tmate is a fork of
 | ||
| tmux.")
 | ||
|     (license license:isc)))
 | ||
| 
 | ||
| (define-public kitty
 | ||
|   (package
 | ||
|     (name "kitty")
 | ||
|     (version "0.14.2")
 | ||
|     (home-page "https://sw.kovidgoyal.net/kitty/")
 | ||
|     (source
 | ||
|      (origin
 | ||
|        (method git-fetch)
 | ||
|        (uri (git-reference
 | ||
|              (url "https://github.com/kovidgoyal/kitty.git")
 | ||
|              (commit (string-append "v" version))))
 | ||
|        (file-name (git-file-name name version))
 | ||
|        (sha256
 | ||
|         (base32
 | ||
|          "15iv3k7iryf10n8n67d37x24pzcarq97a3dr42lbld00k1lx19az"))
 | ||
|        (modules '((guix build utils)))
 | ||
|        (snippet
 | ||
|         '(begin
 | ||
|            ;; patch needed as sphinx-build is used as a python script
 | ||
|            ;; whereas the guix package uses a bash script launching the
 | ||
|            ;; python script
 | ||
|            (substitute* "docs/conf.py"
 | ||
|              (("(from kitty.constants import str_version)" kitty-imp)
 | ||
|               (string-append "sys.path.append(\"..\")\n" kitty-imp)))
 | ||
|            (substitute* "docs/Makefile"
 | ||
|              (("^SPHINXBUILD[[:space:]]+= (python3.*)$")
 | ||
|               "SPHINXBUILD = sphinx-build\n"))
 | ||
|            #t))))
 | ||
|     (build-system gnu-build-system)
 | ||
|     (inputs
 | ||
|      `(("python" ,python)
 | ||
|        ("harfbuzz" ,harfbuzz)
 | ||
|        ("zlib" ,zlib)
 | ||
|        ("libpng" ,libpng)
 | ||
|        ("freetype" ,freetype)
 | ||
|        ("fontconfig" ,fontconfig)
 | ||
|        ("pygments" ,python-pygments)
 | ||
|        ("wayland" ,wayland)))
 | ||
|     (native-inputs
 | ||
|      `(("pkg-config" ,pkg-config)
 | ||
|        ("libxrandr" ,libxrandr)
 | ||
|        ("libdbus" ,dbus)
 | ||
|        ("libxcursor" ,libxcursor)
 | ||
|        ("libxi" ,libxi)
 | ||
|        ("libxinerama" ,libxinerama)
 | ||
|        ("libgl1-mesa" ,mesa)
 | ||
|        ("libxkbcommon" ,libxkbcommon)
 | ||
|        ("sphinx" ,python-sphinx)
 | ||
|        ("ncurses" ,ncurses) ;; for tic command
 | ||
|        ("wayland-protocols" ,wayland-protocols)))
 | ||
|     (arguments
 | ||
|      '(#:phases (modify-phases %standard-phases
 | ||
|                   (delete 'configure)
 | ||
|                   ;; Wayland backend requires EGL, which isn't found
 | ||
|                   ;; out-of-the-box for some reason. Hard-code it instead.
 | ||
|                   (add-after 'unpack 'hard-code-libegl
 | ||
|                     (lambda _
 | ||
|                       (let* ((mesa (assoc-ref %build-inputs "libgl1-mesa"))
 | ||
|                              (libegl (string-append mesa "/lib/libEGL.so.1")))
 | ||
|                         (substitute* "glfw/egl_context.c"
 | ||
|                                      (("libEGL.so.1") libegl)))
 | ||
|                       #t))
 | ||
|                   (replace 'build
 | ||
|                     (lambda _
 | ||
|                       (invoke "python3" "setup.py" "linux-package")))
 | ||
|                   (replace 'check
 | ||
|                     (lambda _
 | ||
|                       (invoke "python3" "setup.py" "test")))
 | ||
|                   (add-before 'install 'rm-pycache
 | ||
|                     ;; created python cache __pycache__ are non deterministic
 | ||
|                     (lambda _
 | ||
|                       (let ((pycaches (find-files "linux-package/"
 | ||
|                                                   "__pycache__"
 | ||
|                                                   #:directories? #t)))
 | ||
|                         (for-each delete-file-recursively pycaches)
 | ||
|                         #t)))
 | ||
|                   (replace 'install
 | ||
|                     (lambda _
 | ||
|                       (let* ((out (assoc-ref %outputs "out"))
 | ||
|                              (obin (string-append out "/bin"))
 | ||
|                              (olib (string-append out "/lib"))
 | ||
|                              (oshare (string-append out "/share")))
 | ||
|                         (copy-recursively "linux-package/bin" obin)
 | ||
|                         (copy-recursively "linux-package/share" oshare)
 | ||
|                         (copy-recursively "linux-package/lib" olib)
 | ||
|                         #t))))))
 | ||
|     (synopsis "Fast, featureful, GPU based terminal emulator")
 | ||
|     (description "Kitty is a fast and featureful GPU-based terminal emulator:
 | ||
| @itemize
 | ||
| @item Offloads rendering to the GPU for lower system load and buttery smooth
 | ||
| scrolling.  Uses threaded rendering to minimize input latency.
 | ||
| @item Supports all modern terminal features: graphics (images), unicode,
 | ||
| true-color, OpenType ligatures, mouse protocol, focus tracking, bracketed
 | ||
| paste and several new terminal protocol extensions.
 | ||
| @item Supports tiling multiple terminal windows side by side in different
 | ||
| layouts without needing to use an extra program like tmux.
 | ||
| @item Can be controlled from scripts or the shell prompt, even over SSH.
 | ||
| @item Has a framework for Kittens, small terminal programs that can be used to
 | ||
| extend kitty's functionality.  For example, they are used for Unicode input,
 | ||
| hints, and side-by-side diff.
 | ||
| @item Supports startup sessions which allow you to specify the window/tab
 | ||
| layout, working directories and programs to run on startup.
 | ||
| @item Allows you to open the scrollback buffer in a separate window using
 | ||
| arbitrary programs of your choice.  This is useful for browsing the history
 | ||
| comfortably in a pager or editor.
 | ||
| @end itemize")
 | ||
|     (license license:gpl3+)))
 | ||
| 
 | ||
| (define-public eternalterminal
 | ||
|   (package
 | ||
|     (name "eternalterminal")
 | ||
|     (version "5.1.10")
 | ||
|     (source
 | ||
|       (origin
 | ||
|         (method git-fetch)
 | ||
|         (uri (git-reference
 | ||
|                (url "https://github.com/MisterTea/EternalTerminal.git")
 | ||
|                (commit (string-append "et-v" version))))
 | ||
|         (file-name (git-file-name name version))
 | ||
|        (sha256
 | ||
|         (base32 "0jh89229bd9s82h3aj6faaybwr5xvnk8w2kgz47gq263pz021zpl"))))
 | ||
|     (build-system cmake-build-system)
 | ||
|     (arguments
 | ||
|      '(#:configure-flags '("-DBUILD_TEST=ON")
 | ||
|        #:phases
 | ||
|        (modify-phases %standard-phases
 | ||
|          (add-after 'unpack 'insert-googletests
 | ||
|            (lambda* (#:key inputs #:allow-other-keys)
 | ||
|              (let ((tests (assoc-ref inputs "googletest")))
 | ||
|                (copy-recursively tests "external/googletest"))
 | ||
|              #t))
 | ||
|          (add-after 'install 'dont-provide-gtest-libraries
 | ||
|            (lambda* (#:key outputs #:allow-other-keys)
 | ||
|              (let ((out (assoc-ref outputs "out")))
 | ||
|                (delete-file-recursively (string-append out "/include"))
 | ||
|                (delete-file-recursively (string-append out "/lib")))
 | ||
|              #t)))))
 | ||
|     (inputs
 | ||
|      `(("gflags" ,gflags)
 | ||
|        ("libsodium" ,libsodium)
 | ||
|        ("protobuf" ,protobuf)))
 | ||
|     (native-inputs
 | ||
|      `(("googletest" ,(package-source googletest))))
 | ||
|     (home-page "https://mistertea.github.io/EternalTerminal/")
 | ||
|     (synopsis "Remote shell that reconnects without interrupting the session")
 | ||
|     (description "@dfn{Eternal Terminal} (ET) is a remote shell that
 | ||
| automatically reconnects without interrupting the session.  ET uses SSH to
 | ||
| initialize a secure connection.  Unlike SSH sessions, which must be killed and
 | ||
| reconnected after a network outage an ET session will survive network outages
 | ||
| and IP roaming.  ET provides the same core functionality as @command{mosh},
 | ||
| while also supporting native scrolling and @command{tmux} control mode
 | ||
| (@code{tmux -CC}).")
 | ||
|     (license license:asl2.0)))
 |