gnu/packages/terminals.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
   3 ;;; Copyright © 2016 Mckinley Olsen <mck.olsen@gmail.com>
   4 ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
   5 ;;; Copyright © 2016 David Craven <david@craven.ch>
   6 ;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
   7 ;;; Copyright © 2016, 2017 José Miguel Sánchez García <jmi2k@openmailbox.org>
   8 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   9 ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
  10 ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
  11 ;;; Copyright © 2017 Petter <petter@mykolab.ch>
  12 ;;; Copyright © 2018 Hartmut Goebel <h.goebel@crazy-compilers.com>
  13 ;;;
  14 ;;; This file is part of GNU Guix.
  15 ;;;
  16 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  17 ;;; under the terms of the GNU General Public License as published by
  18 ;;; the Free Software Foundation; either version 3 of the License, or (at
  19 ;;; your option) any later version.
  20 ;;;
  21 ;;; GNU Guix is distributed in the hope that it will be useful, but
  22 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  23 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 ;;; GNU General Public License for more details.
  25 ;;;
  26 ;;; You should have received a copy of the GNU General Public License
  27 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  28
  29 (define-module (gnu packages terminals)
  30   #:use-module ((guix licenses) #:prefix license:)
  31   #:use-module (guix build utils)
  32   #:use-module (guix build-system cmake)
  33   #:use-module (guix build-system gnu)
  34   #:use-module (guix build-system glib-or-gtk)
  35   #:use-module (guix build-system go)
  36   #:use-module (guix build-system python)
  37   #:use-module (guix download)
  38   #:use-module (guix git-download)
  39   #:use-module (guix packages)
  40   #:use-module (gnu packages)
  41   #:use-module (gnu packages autotools)
  42   #:use-module (gnu packages check)
  43   #:use-module (gnu packages docbook)
  44   #:use-module (gnu packages freedesktop)
  45   #:use-module (gnu packages gettext)
  46   #:use-module (gnu packages gl)
  47   #:use-module (gnu packages glib)
  48   #:use-module (gnu packages gnome)
  49   #:use-module (gnu packages gtk)
  50   #:use-module (gnu packages linux)
  51   #:use-module (gnu packages ncurses)
  52   #:use-module (gnu packages perl)
  53   #:use-module (gnu packages perl-check)
  54   #:use-module (gnu packages pkg-config)
  55   #:use-module (gnu packages python)
  56   #:use-module (gnu packages python-web)
  57   #:use-module (gnu packages qt)
  58   #:use-module (gnu packages textutils)
  59   #:use-module (gnu packages wm)
  60   #:use-module (gnu packages xdisorg)
  61   #:use-module (gnu packages xml)
  62   #:use-module (gnu packages xorg)
  63   #:use-module (srfi srfi-26))
  64
  65 (define-public tilda
  66   (package
  67     (name "tilda")
  68     (version "1.4.1")
  69     (source (origin
  70               (method url-fetch)
  71               (uri (string-append "https://github.com/lanoxx/tilda/archive/"
  72                                   "tilda-" version ".tar.gz"))
  73               (sha256
  74                (base32
  75                 "0w2hry2bqcqrkik4l100b1a9jlsih6sq8zwhfpl8zzfq20i00lfs"))))
  76     (build-system glib-or-gtk-build-system)
  77     (arguments
  78      '(#:phases (modify-phases %standard-phases
  79                  (add-before 'patch-source-shebangs 'bootstrap
  80                   (lambda _
  81                     (setenv "NOCONFIGURE" "true")
  82                     (invoke "sh" "autogen.sh"))))))
  83     (native-inputs
  84      `(("autoconf" ,autoconf)
  85        ("automake" ,automake)
  86        ("gettext" ,gettext-minimal)
  87        ("pkg-config" ,pkg-config)))
  88     (inputs
  89      `(("libconfuse" ,libconfuse)
  90        ("vte" ,vte)))
  91     (synopsis "GTK+-based drop-down terminal")
  92     (description "Tilda is a terminal emulator similar to normal terminals like
  93 gnome-terminal (GNOME) or Konsole (KDE), with the difference that it drops down
  94 from the edge of a screen when a certain configurable hotkey is pressed.  This
  95 is similar to the built-in consoles in some applications.  Tilda is highly
  96 configurable through a graphical wizard.")
  97     (home-page "https://github.com/lanoxx/tilda")
  98     (license license:gpl2+)))
  99
 100 (define-public termite
 101   (package
 102     (name "termite")
 103     (version "13")
 104     (source
 105       (origin
 106         (method git-fetch)
 107         (uri (git-reference
 108               (url (string-append "https://github.com/thestinger/"
 109                                   name ".git"))
 110               (commit (string-append "v" version))
 111               (recursive? #t)))
 112         (file-name (string-append name "-" version "-checkout"))
 113         (sha256
 114          (base32
 115           "02cn70ygl93ghhkhs3xdxn5b1yadc255v3yp8cmhhyzsv5027hvj"))))
 116     (build-system gnu-build-system)
 117     (arguments
 118       `(#:phases
 119         (modify-phases %standard-phases
 120           (delete 'configure))
 121         #:tests? #f
 122         ;; This sets the destination when installing the necessary terminal
 123         ;; capability data, which are not provided by 'ncurses'.  See
 124         ;; <https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html>.
 125         #:make-flags (list "PREFIX="
 126                            (string-append "VERSION=v" (version))
 127                            (string-append "DESTDIR="
 128                                           (assoc-ref %outputs "out")))))
 129     (inputs
 130      `(("vte" ,vte-ng)
 131        ("gtk+" ,gtk+)
 132        ("ncurses" ,ncurses)))
 133     (native-inputs
 134      `(("pkg-config" ,pkg-config)))
 135
 136     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
 137     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
 138     (native-search-paths
 139       (list (search-path-specification
 140               (variable "TERMINFO_DIRS")
 141               (files '("share/terminfo")))))
 142     (home-page "https://github.com/thestinger/termite/")
 143     (synopsis "Keyboard-centric, VTE-based terminal")
 144     (description "Termite is a minimal terminal emulator designed for use with
 145 tiling window managers.  It is a modal application, similar to Vim, with an
 146 insert mode and command mode where keybindings have different functions.")
 147
 148     ;; Files under util/ are under the Expat license; the rest is LGPLv2+.
 149     (license license:lgpl2.0+)))
 150
 151 (define-public asciinema
 152   (package
 153     (name "asciinema")
 154     (version "1.4.0")
 155     (source
 156      (origin
 157        (method url-fetch)
 158        (uri (pypi-uri "asciinema" version))
 159        (sha256
 160         (base32
 161          "1jrf8c8711gkdilmvyv3d37kp8xfvdc5cqighw5k92a6g9z4acgv"))))
 162     (build-system python-build-system)
 163     (arguments
 164      `(#:phases
 165        (modify-phases %standard-phases
 166          (add-before 'build 'patch-exec-paths
 167            (lambda* (#:key inputs #:allow-other-keys)
 168              (let ((ncurses (assoc-ref inputs "ncurses")))
 169                (substitute* "asciinema/recorder.py"
 170                  (("'tput'")
 171                   (string-append "'" ncurses "/bin/tput'"))))
 172              #t)))))
 173     (inputs `(("ncurses" ,ncurses)))
 174     (native-inputs
 175      ;; For tests.
 176      `(("python-requests" ,python-requests)))
 177     (home-page "https://asciinema.org")
 178     (synopsis "Terminal session recorder")
 179     (description
 180      "Use asciinema to record and share your terminal sessions, the right way.
 181 Forget screen recording apps and blurry video.  Enjoy a lightweight, purely
 182 text-based approach to terminal recording.")
 183     (license license:gpl3)))
 184
 185 (define-public libtsm
 186   (package
 187     (name "libtsm")
 188     (version "3")
 189     (source (origin
 190               (method url-fetch)
 191               (uri (string-append
 192                     "https://freedesktop.org/software/kmscon/releases/"
 193                     "libtsm-" version ".tar.xz"))
 194               (sha256
 195                (base32
 196                 "01ygwrsxfii0pngfikgqsb4fxp8n1bbs47l7hck81h9b9bc1ah8i"))))
 197     (build-system gnu-build-system)
 198     (native-inputs
 199      `(("pkg-config" ,pkg-config)))
 200     (inputs
 201      `(("libxkbcommon" ,libxkbcommon)))
 202     (synopsis "Xterm state machine library")
 203     (description "TSM is a state machine for DEC VT100-VT520 compatible
 204 terminal emulators.  It tries to support all common standards while keeping
 205 compatibility to existing emulators like xterm, gnome-terminal, konsole, etc.")
 206     (home-page "https://www.freedesktop.org/wiki/Software/libtsm")
 207     ;; Hash table implementation is lgpl2.1+ licensed.
 208     ;; The wcwidth implementation in external/wcwidth.{h,c} uses a license
 209     ;; derived from ISC.
 210     ;; UCS-4 to UTF-8 encoding is copied from "terminology" which is released
 211     ;; under the bsd 2 license.
 212     (license (list license:expat license:lgpl2.1+ license:isc license:bsd-2))))
 213
 214 (define-public kmscon
 215   (package
 216     (name "kmscon")
 217     (version "8")
 218     (source (origin
 219               (method url-fetch)
 220               (uri (string-append
 221                     "https://freedesktop.org/software/kmscon/releases/"
 222                     "kmscon-" version ".tar.xz"))
 223               (sha256
 224                (base32
 225                 "0axfwrp3c8f4gb67ap2sqnkn75idpiw09s35wwn6kgagvhf1rc0a"))
 226               (modules '((guix build utils)))
 227               (snippet
 228                ;; Use elogind instead of systemd.
 229                '(begin
 230                   (substitute* "configure"
 231                     (("libsystemd-daemon libsystemd-login")
 232                      "libelogind"))
 233                   (substitute* "src/uterm_systemd.c"
 234                     (("#include <systemd/sd-login.h>")
 235                      "#include <elogind/sd-login.h>")
 236                     ;; We don't have this header.
 237                     (("#include <systemd/sd-daemon\\.h>")
 238                      "")
 239                     ;; Replace the call to 'sd_booted' by the truth value.
 240                     (("sd_booted\\(\\)")
 241                      "1"))))))
 242     (build-system gnu-build-system)
 243     (native-inputs
 244      `(("pkg-config" ,pkg-config)
 245        ("libxslt" ,libxslt)                       ;to build the man page
 246        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
 247        ("docbook-xsl" ,docbook-xsl)))
 248     (inputs
 249      `(("libdrm" ,libdrm)
 250        ("libtsm" ,libtsm)
 251        ("libxkbcommon" ,libxkbcommon)
 252        ("logind" ,elogind)
 253        ("mesa" ,mesa)
 254        ("pango" ,pango)
 255        ("udev" ,eudev)))
 256     (synopsis "Linux KMS-based terminal emulator")
 257     (description "Kmscon is a terminal emulator based on Linux's @dfn{kernel
 258 mode setting} (KMS).  It can replace the in-kernel virtual terminal (VT)
 259 implementation with a user-space console.  Compared to the Linux console,
 260 kmscon provides enhanced features including XKB-compatible internationalized
 261 keyboard support, UTF-8 input/font support, hardware-accelerated rendering,
 262 multi-seat support, a replacement for @command{mingetty}, and more.")
 263     (home-page "https://www.freedesktop.org/wiki/Software/kmscon")
 264     ;; Hash table implementation is lgpl2.1+ licensed.
 265     ;; The wcwidth implementation in external/wcwidth.{h,c} uses a license
 266     ;; derived from ISC.
 267     ;; UCS-4 to UTF-8 encoding is copied from "terminology" which is released
 268     ;; under the bsd 2 license.
 269     ;; Unifont-Font is from http://unifoundry.com/unifont.html and licensed
 270     ;; under the terms of the GNU GPL.
 271     (license (list license:expat license:lgpl2.1+ license:bsd-2
 272                    license:gpl2+))
 273     (supported-systems (filter (cut string-suffix? "-linux" <>)
 274                                %supported-systems))))
 275
 276 (define-public libtermkey
 277   (package
 278     (name "libtermkey")
 279     (version "0.20")
 280     (source (origin
 281               (method url-fetch)
 282               (uri (string-append "http://www.leonerd.org.uk/code/"
 283                                   name "/" name "-" version ".tar.gz"))
 284               (sha256
 285                (base32 "1xfj6lchhfljmbcl6dz8dpakppyy13nbl4ykxiv5x4dr9b4qf3bc"))))
 286     (build-system gnu-build-system)
 287     (arguments
 288      '(#:make-flags (list
 289                      "CC=gcc"
 290                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
 291        #:phases (modify-phases %standard-phases
 292                   (delete 'configure))
 293        #:test-target "test"))
 294     (inputs `(("ncurses" ,ncurses)))
 295     (native-inputs `(("libtool" ,libtool)
 296                      ("perl-test-harness" ,perl-test-harness)
 297                      ("pkg-config" ,pkg-config)))
 298     (synopsis "Keyboard entry processing library for terminal-based programs")
 299     (description
 300      "Libtermkey handles all the necessary logic to recognise special keys, UTF-8
 301 combining, and so on, with a simple interface.")
 302     (home-page "http://www.leonerd.org.uk/code/libtermkey")
 303     (license license:expat)))
 304
 305 (define-public picocom
 306   (package
 307     (name "picocom")
 308     (version "2.2")
 309     (source (origin
 310               (method url-fetch)
 311               (uri (string-append
 312                     "https://github.com/npat-efault/picocom"
 313                     "/archive/" version ".tar.gz"))
 314               (file-name (string-append name "-" version ".tar.gz"))
 315               (sha256
 316                (base32
 317                 "1knl6dglnrynx1fhy21nylw56i1q3dkizkgxzkq42mb7ilah8f9y"))))
 318     (build-system gnu-build-system)
 319     (arguments
 320      `(#:make-flags '("CC=gcc")
 321        #:tests? #f ; No tests
 322        #:phases
 323        (modify-phases %standard-phases
 324          (delete 'configure)
 325          (replace 'install
 326            (lambda* (#:key outputs #:allow-other-keys)
 327              (let* ((out (assoc-ref outputs "out"))
 328                     (bin (string-append out "/bin"))
 329                     (man (string-append out "/share/man/man1")))
 330                (install-file "picocom" bin)
 331                (install-file "picocom.1" man)))))))
 332     (home-page "https://github.com/npat-efault/picocom")
 333     (synopsis "Minimal dumb-terminal emulation program")
 334     (description "It was designed to serve as a simple, manual, modem
 335 configuration, testing, and debugging tool.  It has also serves well
 336 as a low-tech serial communications program to allow access to all
 337 types of devices that provide serial consoles.")
 338     (license license:gpl2+)))
 339
 340 (define-public beep
 341   (package
 342     (name "beep")
 343     (version "1.3")
 344     (source (origin
 345               (method url-fetch)
 346               (uri (string-append "http://www.johnath.com/" name "/"
 347                                   name "-" version ".tar.gz"))
 348               (sha256
 349                (base32
 350                 "0bgch6jq5cahakk3kbr9549iysf2dik09afixxy5brbxk1xfzb2r"))))
 351     (build-system gnu-build-system)
 352     (arguments
 353      `(#:tests? #f                      ; no tests.
 354        #:phases
 355        (modify-phases %standard-phases
 356          (delete 'configure)
 357          (add-after 'unpack 'patch-makefile
 358            (lambda* (#:key outputs #:allow-other-keys)
 359              (substitute* "Makefile" (("/usr") (assoc-ref outputs "out")))
 360              #t))
 361          (add-before 'install 'create-output-directories
 362            (lambda* (#:key outputs #:allow-other-keys)
 363              (let ((out (assoc-ref %outputs "out")))
 364                (mkdir-p (string-append out "/bin"))
 365                (mkdir-p (string-append out "/man/man1"))))))))
 366     (synopsis "Linux command-line utility to control the PC speaker")
 367     (description "beep allows the user to control the PC speaker with precision,
 368 allowing different sounds to indicate different events.  While it can be run
 369 quite happily on the command line, its intended place of residence is within
 370 scripts, notifying the user when something interesting occurs.  Of course, it
 371 has no notion of what's interesing, but it's very good at that notifying part.")
 372     (home-page "http://www.johnath.com/beep")
 373     (license license:gpl2+)))
 374
 375 (define-public unibilium
 376   (package
 377     (name "unibilium")
 378     (version "1.2.1")
 379     (source
 380      (origin
 381        (method url-fetch)
 382        (uri (string-append "https://github.com/mauke/unibilium/"
 383                            "archive/v" version ".tar.gz"))
 384        (file-name (string-append name "-" version ".tar.gz"))
 385        (sha256
 386         (base32
 387          "1hbf011d8nzsp7c96fidjiq8yw8zlxf6f1s050ii2yyampvb8ib0"))))
 388     (build-system gnu-build-system)
 389     (arguments
 390      `(#:make-flags
 391        (list "CC=gcc"
 392              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 393        #:test-target "test"
 394        ;; FIXME: tests require "prove"
 395        #:tests? #f
 396        #:phases
 397        (modify-phases %standard-phases
 398          (delete 'configure))))
 399     (native-inputs
 400      `(("libtool" ,libtool)))
 401     (home-page "https://github.com/mauke/unibilium")
 402     (synopsis "Terminfo parsing library")
 403     (description "Unibilium is a basic C terminfo library.  It doesn't depend
 404 on curses or any other library.  It also doesn't use global variables, so it
 405 should be thread-safe.")
 406     (license license:lgpl3+)))
 407
 408 (define-public libvterm
 409   (package
 410     (name "libvterm")
 411     (version "0+bzr681")
 412     (source
 413      (origin
 414        (method url-fetch)
 415        (uri (string-append "http://www.leonerd.org.uk/code/libvterm/"
 416                            "libvterm-" version ".tar.gz"))
 417        (sha256
 418         (base32
 419          "1s56c8p1qz6frkcri0hg4qyydv2wcccj6n2xmz1dwcdqn38ldsmb"))))
 420     (build-system gnu-build-system)
 421     (arguments
 422      `(#:make-flags
 423        (list "CC=gcc"
 424              (string-append "PREFIX=" (assoc-ref %outputs "out")))
 425        #:test-target "test"
 426        #:phases
 427        (modify-phases %standard-phases
 428          (delete 'configure))))
 429     (native-inputs
 430      `(("libtool" ,libtool)
 431        ("perl" ,perl)))
 432     (home-page "http://www.leonerd.org.uk/code/libvterm/")
 433     (synopsis "VT220/xterm/ECMA-48 terminal emulator library")
 434     (description "Libvterm is an abstract C99 library which implements a VT220
 435 or xterm-like terminal emulator.  It doesn't use any particular graphics
 436 toolkit or output system, instead it invokes callback function pointers that
 437 its embedding program should provide it to draw on its behalf.  It avoids
 438 calling @code{malloc} during normal running state, allowing it to be used in
 439 embedded kernel situations.")
 440     (license license:expat)))
 441
 442 (define-public cool-retro-term
 443   (let ((commit "dd799cf5c0eda92cf44f3938c0c2dcae5651a99e")
 444         (revision "1"))
 445     (package
 446       (name "cool-retro-term")
 447       (version (string-append "1.0.1-" revision "." (string-take commit 7)))
 448       (source (origin
 449                 (method git-fetch)
 450                 (file-name (string-append name "-" version "-checkout"))
 451                 (uri (git-reference
 452                       (url (string-append "https://github.com/Swordfish90/" name))
 453                       (commit commit)
 454                       (recursive? #t)))
 455                 (sha256
 456                  (base32 "08mrvj8zk9ck15q90ipjzza1acnnsjhprv2rxg8yyck0xl9p40jd"))
 457                 (patches
 458                  (search-patches "cool-retro-term-fix-array-size.patch"
 459                                  "cool-retro-term-dont-check-uninit-member.patch"
 460                                  "cool-retro-term-memory-leak-1.patch"))
 461                 (modules '((guix build utils)
 462                            (srfi srfi-1)
 463                            (srfi srfi-26)
 464                            (ice-9 rdelim)
 465                            (ice-9 regex)))
 466                 (snippet
 467                  '(let* ((fonts '(;"1971-ibm-3278"     ; BSD 3-clause
 468                                   ;"1975-knight-tv"    ; GPL
 469                                   "1977-apple2"        ; Non-Free
 470                                   "1977-commodore-pet" ; Non-Free
 471                                   "1979-atari-400-800" ; Non-Free
 472                                   "1982-commodore64"   ; Non-Free
 473                                   "1985-atari-st"      ; ?
 474                                   "1985-ibm-pc-vga"    ; Unclear
 475                                   ;"modern-fixedsys-excelsior" ; Redistributable
 476                                   ;"modern-hermit"     ; SIL
 477                                   ;"modern-inconsolata"; SIL
 478                                   ;"modern-pro-font-win-tweaked" ; X11
 479                                   ;"modern-proggy-tiny"; X11
 480                                   ;"modern-terminus"   ; SIL
 481                                   "modern-monaco"))    ; Apple Non-Free
 482                          (name-rx (make-regexp " *name: *\"([^\"]*)\""))
 483                          (source-rx (make-regexp " *source: \"fonts/([^/]*)[^\"]*\""))
 484                          (fontname-rx (make-regexp "\"fontName\":\"([^\"]*).*"))
 485                          (names
 486                           ;; Gather font names from all Fonts*.qml files.
 487                           ;; These will be used to remove items from the
 488                           ;; default profiles.
 489                           (fold
 490                            (lambda (font-file names)
 491                              (call-with-input-file font-file
 492                                (lambda (port)
 493                                  (let loop ((name #f) (names names))
 494                                    (let ((line (read-line port)))
 495                                      (cond
 496                                       ((eof-object? line) (pk 'names names))
 497                                       ((regexp-exec name-rx line)
 498                                        => (lambda (m)
 499                                             (loop (match:substring m 1) names)))
 500                                       ((regexp-exec source-rx line)
 501                                        => (lambda (m)
 502                                             (let ((font (match:substring m 1)))
 503                                               (if (member font fonts)
 504                                                   (loop #f (lset-adjoin string=?
 505                                                                         names name))
 506                                                   (loop #f names)))))
 507                                       (else (loop name names))))))))
 508                            '() (find-files "app/qml" "Font.*\\.qml"))))
 509                     ;; Remove the font files themselves
 510                     (for-each (lambda (font)
 511                                 (delete-file-recursively
 512                                  (string-append "app/qml/fonts/" font)))
 513                               fonts)
 514                     ;; Remove mention of those fonts in the source
 515                     (substitute* "app/qml/resources.qrc"
 516                       (((string-append " *<file>fonts/("
 517                                        (string-join fonts "|")
 518                                        ").*"))
 519                        ""))
 520                     (for-each
 521                      (lambda (file)
 522                        (let ((start-rx (make-regexp " *ListElement\\{"))
 523                              (end-rx   (make-regexp " *\\}")))
 524                         (with-atomic-file-replacement file
 525                           (lambda (in out)
 526                             (let loop ((line-buffer '())
 527                                        (hold? #f)
 528                                        (discard? #f))
 529                               (let ((line (read-line in 'concat)))
 530                                 (cond
 531                                  ((eof-object? line) #t) ;done
 532                                  ((regexp-exec start-rx line)
 533                                   (loop (cons line line-buffer) #t #f))
 534                                  ((or (regexp-exec source-rx line)
 535                                       (regexp-exec fontname-rx line))
 536                                   => (lambda (m)
 537                                        (let ((font-or-name (match:substring m 1)))
 538                                          (if (or (member font-or-name fonts)
 539                                                  (member font-or-name names))
 540                                              (loop '() #f #t)
 541                                              (loop (cons line line-buffer)
 542                                                    hold? #f)))))
 543                                  ((regexp-exec end-rx line)
 544                                   (unless discard?
 545                                           (for-each (cut display <> out)
 546                                                     (reverse line-buffer))
 547                                           (display line out))
 548                                   (loop '() #f #f))
 549                                  (hold? (loop (cons line line-buffer)
 550                                               hold? discard?))
 551                                  (discard? (loop line-buffer #f #t))
 552                                  (else (display line out)
 553                                        (loop '() #f #f)))))))))
 554                      '("app/qml/FontPixels.qml"
 555                        "app/qml/FontScanlines.qml"
 556                        "app/qml/Fonts.qml"
 557                        "app/qml/ApplicationSettings.qml"))
 558                     ;; Final substitution for default scanline and pixel fonts
 559                     (substitute* "app/qml/ApplicationSettings.qml"
 560                       (("COMMODORE_PET") "PROGGY_TINY"))))))
 561       (build-system gnu-build-system)
 562       (inputs
 563        `(("qtbase" ,qtbase)
 564          ("qtdeclarative" ,qtdeclarative)
 565          ("qtgraphicaleffects" ,qtgraphicaleffects)
 566          ("qtquickcontrols" ,qtquickcontrols)))
 567       (arguments
 568        `(#:phases
 569          (modify-phases %standard-phases
 570            (replace 'configure
 571              (lambda* (#:key outputs #:allow-other-keys)
 572                (let ((out (assoc-ref outputs "out")))
 573                  (substitute* '("qmltermwidget/qmltermwidget.pro")
 574                    (("INSTALL_DIR = \\$\\$\\[QT_INSTALL_QML\\]")
 575                     (string-append "INSTALL_DIR = " out "/lib/qt5/qml")))
 576                  (substitute* '("cool-retro-term.pro" "app/app.pro")
 577                    (("/usr") out))
 578                  (invoke "qmake"))))
 579            (add-after 'install 'wrap-executable
 580              (lambda* (#:key inputs outputs #:allow-other-keys)
 581                (let ((out (assoc-ref outputs "out"))
 582                      (qml "/lib/qt5/qml"))
 583                  (wrap-program (string-append out "/bin/cool-retro-term")
 584                    `("QML2_IMPORT_PATH" ":" prefix
 585                      (,(string-append out qml)
 586                       ,@(map (lambda (i)
 587                                (string-append (assoc-ref inputs i) qml))
 588                              '("qtdeclarative"
 589                                "qtgraphicaleffects"
 590                                "qtquickcontrols")))))
 591                  #t)))
 592            (add-after 'install 'add-alternate-name
 593              (lambda* (#:key outputs #:allow-other-keys)
 594                (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
 595                  (symlink (string-append bin "/cool-retro-term")
 596                           (string-append bin "/crt")))))
 597            (add-after 'install 'install-man
 598              (lambda* (#:key outputs #:allow-other-keys)
 599                (let ((mandir (string-append (assoc-ref outputs "out")
 600                                             "/share/man/man1")))
 601                  (install-file "packaging/debian/cool-retro-term.1" mandir)
 602                  #t))))))
 603       (synopsis "Terminal emulator")
 604       (description
 605        "Cool-retro-term (crt) is a terminal emulator which mimics the look and
 606 feel of the old cathode ray tube (CRT) screens.  It has been designed to be
 607 eye-candy, customizable, and reasonably lightweight.")
 608       (home-page "https://github.com/Swordfish90/cool-retro-term")
 609       (license (list
 610                 license:gpl2+           ; qmltermwidget
 611                 license:gpl3+           ; cool-retro-term
 612                 ;; Fonts
 613                 license:silofl1.1
 614                 license:x11
 615                 license:bsd-3)))))
 616
 617 (define-public sakura
 618   (package
 619     (name "sakura")
 620     (version "3.5.0")
 621     (source (origin
 622               (method url-fetch)
 623               (uri (string-append "https://launchpad.net/" name "/trunk/"
 624                                   version "/+download/" name "-" version
 625                                   ".tar.bz2"))
 626               (sha256
 627                (base32
 628                 "0fhcn3540iw22l5zg3njh5z8cj0g2n9p6fvagjqa5zc323jfsc7b"))))
 629     (build-system cmake-build-system)
 630     (arguments
 631      ;; no check phase
 632      '(#:tests? #f))
 633     (native-inputs
 634      `(("gettext" ,gettext-minimal)
 635        ("perl" ,perl)               ; for pod2man
 636        ("pkg-config" ,pkg-config)))
 637     (inputs
 638      `(("libxft" ,libxft)
 639        ("vte" ,vte)))
 640     (home-page "https://launchpad.net/sakura")
 641     (synopsis "A simple but powerful libvte-based terminal emulator")
 642     (description "@code{Sakura} is a terminal emulator based on GTK+ and VTE.
 643 It's a terminal emulator with few dependencies, so you don't need a full GNOME
 644 desktop installed to have a decent terminal emulator.")
 645     (license license:gpl2)))
 646
 647 (define-public go-github.com-nsf-termbox-go
 648   (let ((commit "4ed959e0540971545eddb8c75514973d670cf739")
 649         (revision "0"))
 650     (package
 651       (name "go-github.com-nsf-termbox-go")
 652       (version (git-version "0.0.0" revision commit))
 653       (source (origin
 654                 (method git-fetch)
 655                 (uri (git-reference
 656                       (url "https://github.com/nsf/termbox-go.git")
 657                       (commit commit)))
 658                 (file-name (git-file-name name version))
 659                 (sha256
 660                  (base32
 661                   "1vx64i1mg660if3wwm81p4b7lzxfb3qbr39i7misdyld3fc486p9"))))
 662       (build-system go-build-system)
 663       (arguments
 664        '(#:import-path "github.com/nsf/termbox-go"))
 665       (propagated-inputs
 666        `(("go-github.com-mattn-go-runewidth"
 667           ,go-github.com-mattn-go-runewidth)))
 668       (synopsis "@code{termbox} provides a minimal API for text-based user
 669 interfaces")
 670       (description
 671        "Termbox is a library that provides a minimalistic API which allows the
 672 programmer to write text-based user interfaces.")
 673       (home-page "https://github.com/nsf/termbox-go")
 674       (license license:expat))))
 675
 676 (define-public go-golang.org-x-crypto-ssh-terminal
 677   (let ((commit "c78caca803c95773f48a844d3dcab04b9bc4d6dd")
 678         (revision "0"))
 679     (package
 680       (name "go-golang.org-x-crypto-ssh-terminal")
 681       (version (git-version "0.0.0" revision commit))
 682       (source (origin
 683                 (method git-fetch)
 684                 (uri (git-reference
 685                       (url "https://go.googlesource.com/crypto")
 686                       (commit commit)))
 687                 (file-name (git-file-name name version))
 688                 (sha256
 689                  (base32
 690                   "0vxlfxr9y681yn2cfh6dbqmq35vvq4f45ay0mm31ffkny9cms0y4"))))
 691       (build-system go-build-system)
 692       (arguments
 693        '(#:import-path "golang.org/x/crypto/ssh/terminal"
 694          #:unpack-path "golang.org/x/crypto"
 695          #:phases
 696          (modify-phases %standard-phases
 697            (add-before 'reset-gzip-timestamps 'make-gzip-archive-writable
 698              (lambda* (#:key outputs #:allow-other-keys)
 699                (map (lambda (file)
 700                       (make-file-writable file))
 701                     (find-files
 702                      (string-append (assoc-ref outputs "out")
 703                                     "/src/golang.org/x/crypto/ed25519/testdata")
 704                      ".*\\.gz$"))
 705                #t)))))
 706       (synopsis "Support functions for dealing with terminals in Go")
 707       (description "@code{terminal} provides support functions for dealing
 708 with terminals in Go.")
 709       (home-page "https://go.googlesource.com/crypto/")
 710       (license license:bsd-3))))
 711
 712 (define-public go-github.com-howeyc-gopass
 713   (let ((commit "bf9dde6d0d2c004a008c27aaee91170c786f6db8")
 714         (revision "0"))
 715     (package
 716       (name "go-github.com-howeyc-gopass")
 717       (version (git-version "0.0.0" revision commit))
 718       (source (origin
 719                 (method git-fetch)
 720                 (uri (git-reference
 721                       (url "https://github.com/howeyc/gopass.git")
 722                       (commit commit)))
 723                 (file-name (git-file-name name version))
 724                 (sha256
 725                  (base32
 726                   "1jxzyfnqi0h1fzlsvlkn10bncic803bfhslyijcxk55mgh297g45"))))
 727       (build-system go-build-system)
 728       (arguments
 729        '(#:import-path "github.com/howeyc/gopass"))
 730       (propagated-inputs
 731        `(("go-golang.org-x-crypto-ssh-terminal"
 732           ,go-golang.org-x-crypto-ssh-terminal)))
 733       (synopsis "Retrieve password from a terminal or piped input in Go")
 734       (description
 735        "@code{gopass} is a Go package for retrieving a password from user
 736 terminal or piped input.")
 737       (home-page "https://github.com/howeyc/gopass")
 738       (license license:isc))))
 739
 740 (define-public python-pyte
 741   (package
 742     (name "python-pyte")
 743     (version "0.7.0")
 744     (source
 745      (origin
 746        (method url-fetch)
 747        (uri (pypi-uri "pyte" version))
 748        (sha256
 749         (base32
 750          "1an54hvyjm8gncx8cgabz9mkpgjkdb0bkyjlkh7g7f94nr3wnfl7"))))
 751     (build-system python-build-system)
 752     (arguments
 753      '(#:phases
 754        (modify-phases %standard-phases
 755          (add-after 'unpack 'remove-failing-test
 756            ;; TODO: Reenable when the `captured` files required by this test
 757            ;; are included in the archive.
 758            (lambda _
 759              (delete-file "tests/test_input_output.py")
 760              #t)))))
 761     (propagated-inputs
 762      `(("python-wcwidth" ,python-wcwidth)))
 763     (native-inputs
 764      `(("python-pytest-runner" ,python-pytest-runner)
 765        ("python-pytest" ,python-pytest)))
 766     (home-page "https://pyte.readthedocs.io/")
 767     (synopsis "Simple VTXXX-compatible terminal emulator")
 768     (description "@code{pyte} is an in-memory VTxxx-compatible terminal
 769 emulator.  @var{VTxxx} stands for a series of video terminals, developed by
 770 DEC between 1970 and 1995.  The first and probably most famous one was the
 771 VT100 terminal, which is now a de-facto standard for all virtual terminal
 772 emulators.
 773
 774 pyte is a fork of vt102, which was an incomplete pure Python implementation
 775 of VT100 terminal.")
 776     (license license:lgpl3+)))
 777
 778 (define-public python2-pyte
 779   (package-with-python2 python-pyte))
 780
 781 (define-public python-blessings
 782   (package
 783     (name "python-blessings")
 784     (version "1.6.1")
 785     (source
 786      (origin
 787        (method url-fetch)
 788        (uri (pypi-uri "blessings" version))
 789        (sha256
 790         (base32
 791          "1smngy65p8mi62lgm04icasx22v976szhs2aq95y2ljmi1srb4bl"))))
 792     (build-system python-build-system)
 793     (arguments
 794      ;; TODO: For py3, 2to2 is used to convert the code, but test-suite fails
 795      `(#:tests? #f))
 796     (native-inputs
 797      `(("python-nose" ,python-nose)))
 798     (home-page "https://github.com/erikrose/blessings")
 799     (synopsis "Python module to manage terminal color, styling, and
 800 positioning")
 801     (description "Blessings is a pythonic API to manipulate terminal color,
 802 styling, and positioning.  It provides similar features to curses but avoids
 803 some of curses’s limitations: it does not require clearing the whole screen
 804 for little changes, provides a scroll-back buffer after the program exits, and
 805 avoids styling altogether when the output is redirected to something other
 806 than a terminal.")
 807     (license license:expat)))
 808
 809 (define-public python2-blessings
 810   (package-with-python2 python-blessings))
 811
 812 (define-public python-curtsies
 813   (package
 814     (name "python-curtsies")
 815     (version "0.2.11")
 816     (source
 817      (origin
 818        (method url-fetch)
 819        (uri (pypi-uri "curtsies" version))
 820        (sha256
 821         (base32
 822          "1vljmw3sy6lrqahhpyg4gk13mzcx3mwhvg8s41698ms3cpgkjipc"))))
 823     (build-system python-build-system)
 824     (arguments
 825      `(#:phases
 826        (modify-phases %standard-phases
 827          (replace 'check
 828            (lambda _
 829              (invoke "nosetests" "-v"))))))
 830     (propagated-inputs
 831      `(("python-blessings" ,python-blessings)
 832        ("python-wcwidth" ,python-wcwidth)))
 833     (native-inputs
 834      `(("python-mock" ,python-mock)
 835        ("python-pyte" ,python-pyte)
 836        ("python-nose" ,python-nose)))
 837     (home-page "https://github.com/thomasballinger/curtsies")
 838     (synopsis "Library for curses-like terminal interaction with colored
 839 strings")
 840     (description "Curtsies is a Python library for interacting with the
 841 terminal.  It features string-like objects which carry formatting information,
 842 per-line fullscreen terminal rendering, and keyboard input event reporting.")
 843     (license license:expat)))
 844
 845 (define-public python2-curtsies
 846   (package-with-python2 python-curtsies))