2013-01-20 03:45:56 +00:00
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
|
2014-03-20 07:47:31 +00:00
|
|
|
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
|
2017-06-29 03:59:41 +00:00
|
|
|
;;; Copyright © 2015, 2017 Eric Bavier <bavier@member.fsf.org>
|
2017-01-18 13:51:04 +00:00
|
|
|
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
|
2016-07-08 19:27:32 +00:00
|
|
|
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
|
2017-05-12 16:40:45 +00:00
|
|
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
2017-08-30 02:45:43 +00:00
|
|
|
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
|
2013-01-20 03:45:56 +00:00
|
|
|
;;;
|
|
|
|
;;; 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 screen)
|
2017-04-24 08:05:00 +00:00
|
|
|
#:use-module (srfi srfi-1)
|
2013-01-20 03:45:56 +00:00
|
|
|
#:use-module (guix licenses)
|
|
|
|
#:use-module (guix packages)
|
|
|
|
#:use-module (guix download)
|
|
|
|
#:use-module (guix build-system gnu)
|
|
|
|
#:use-module (gnu packages)
|
|
|
|
#:use-module (gnu packages ncurses)
|
2015-06-24 01:20:27 +00:00
|
|
|
#:use-module (gnu packages perl)
|
2015-11-01 15:56:05 +00:00
|
|
|
#:use-module (gnu packages python)
|
|
|
|
#:use-module (gnu packages slang)
|
2015-06-24 01:20:27 +00:00
|
|
|
#:use-module (gnu packages texinfo))
|
2013-01-20 03:45:56 +00:00
|
|
|
|
|
|
|
(define-public screen
|
|
|
|
(package
|
|
|
|
(name "screen")
|
2017-07-17 19:33:26 +00:00
|
|
|
(version "4.6.1")
|
2013-01-20 03:45:56 +00:00
|
|
|
(source (origin
|
|
|
|
(method url-fetch)
|
2013-02-23 17:39:49 +00:00
|
|
|
(uri (string-append "mirror://gnu/screen/screen-"
|
2013-01-20 03:45:56 +00:00
|
|
|
version ".tar.gz"))
|
|
|
|
(sha256
|
2017-07-17 19:33:26 +00:00
|
|
|
(base32 "0r3wpfxnr5kw73b8ndja26jk03nfbks06iyfmgb5aqb2rdkazadb"))))
|
2013-01-20 03:45:56 +00:00
|
|
|
(build-system gnu-build-system)
|
2015-06-24 01:20:27 +00:00
|
|
|
(native-inputs
|
|
|
|
`(("makeinfo" ,texinfo)))
|
2013-01-20 03:45:56 +00:00
|
|
|
(inputs
|
gnu: Fix misplaced commas (unquote).
Fix many occurrences of comma (unquote) being placed immediately after the
previous list item, e.g. ("ncurses", ncurses) in the inputs.
* gnu/packages/base.scm (patch, gnu-make),
gnu/packages/bioinformatics.scm (hmmer),
gnu/packages/bittorrent.scm (aria2),
gnu/packages/compression.scm (pbzip2),
gnu/packages/databases.scm (recutils),
gnu/packages/fonts.scm (font-terminus),
gnu/packages/freedesktop.scm (xdg-utils, elogind),
gnu/packages/games.scm (gnujump),
gnu/packages/gnome.scm (libidl, gnumeric, eog, gedit),
gnu/packages/gnunet.scm (gnunet),
gnu/packages/gnuzilla.scm (mozjs, nspr),
gnu/packages/gtk.scm (gtksourceview, gdk-pixbuf),
gnu/packages/lua.scm (lua),
gnu/packages/openstack.scm (python-swiftclient),
gnu/packages/perl.scm (perl-json-any),
gnu/packages/polkit.scm (polkit-qt),
gnu/packages/python.scm (wrap-python3, python-oauthlib)
(python-mccabe-0.2.1, python-contextlib2, python2-rauth),
gnu/packages/qt.scm (qtkeychain),
gnu/packages/ruby.scm (ruby-nokogiri),
gnu/packages/screen.scm (screen),
gnu/packages/ssh.scm (libssh),
gnu/packages/video.scm (ffmpeg, mplayer),
gnu/packages/vim.scm (vim),
gnu/packages/xdisorg.scm (redshift),
gnu/packages/xfce.scm (xfce4-panel, xfce4-settings),
gnu/packages/xnee.scm (xnee),
gnu/packages/xorg.scm (font-adobe100dpi, font-adobe75dpi),
gnu/packages/zsh.scm (zsh): Fix misplaced commas (unquote).
2016-02-27 13:37:28 +00:00
|
|
|
`(("ncurses" ,ncurses)
|
2013-01-20 03:45:56 +00:00
|
|
|
("perl" ,perl)))
|
2014-03-20 07:47:31 +00:00
|
|
|
(arguments
|
|
|
|
`(#:configure-flags
|
2016-07-13 10:40:42 +00:00
|
|
|
;; By default, screen supports 16 colors, but we want 256 when
|
|
|
|
;; ~/.screenrc contains 'term xterm-256color'.
|
|
|
|
'("--enable-colors256")))
|
2017-01-18 13:51:04 +00:00
|
|
|
(home-page "https://www.gnu.org/software/screen/")
|
gnu: Use synopses from the Womb.
* gnu/packages/algebra.scm,
gnu/packages/aspell.scm,
gnu/packages/autotools.scm,
gnu/packages/base.scm,
gnu/packages/bash.scm,
gnu/packages/bison.scm,
gnu/packages/cdrom.scm,
gnu/packages/cflow.scm,
gnu/packages/compression.scm,
gnu/packages/cpio.scm,
gnu/packages/cppi.scm,
gnu/packages/ddrescue.scm,
gnu/packages/dejagnu.scm,
gnu/packages/ed.scm,
gnu/packages/emacs.scm,
gnu/packages/fdisk.scm,
gnu/packages/gawk.scm,
gnu/packages/gcc.scm,
packages/gcc.scm, b/gnu/packages/gcc.scm,
4b982 100644
s/gcc.scm,
s/gcc.scm,
@@
%standard-phases)))))
`((gcc-libc . ,(assoc-ref inputs "libc"))))
The GNU Compiler Collection")
GNU Compiler Collection")
n
ompiler Collection includes compiler front ends for C, C++,
tran, OpenMP for C/C++/Fortran, Java, and Ada, as well as
gnu/packages/gdb.scm,
gnu/packages/gettext.scm,
gnu/packages/ghostscript.scm,
gnu/packages/glib.scm,
gnu/packages/global.scm,
gnu/packages/gnupg.scm,
gnu/packages/gnutls.scm,
gnu/packages/gperf.scm,
gnu/packages/gprolog.scm,
gnu/packages/groff.scm,
gnu/packages/grub.scm,
gnu/packages/gsasl.scm,
gnu/packages/guile.scm,
gnu/packages/help2man.scm,
gnu/packages/idutils.scm,
gnu/packages/indent.scm,
gnu/packages/less.scm,
gnu/packages/libidn.scm,
gnu/packages/libsigsegv.scm,
gnu/packages/libunistring.scm,
gnu/packages/linux.scm,
gnu/packages/lsh.scm,
gnu/packages/m4.scm,
gnu/packages/mailutils.scm,
gnu/packages/multiprecision.scm,
gnu/packages/nano.scm,
gnu/packages/ncurses.scm,
gnu/packages/nettle.scm,
gnu/packages/oggvorbis.scm,
gnu/packages/parted.scm,
gnu/packages/pth.scm,
gnu/packages/readline.scm,
gnu/packages/recutils.scm,
gnu/packages/scheme.scm,
gnu/packages/screen.scm,
gnu/packages/shishi.scm,
gnu/packages/smalltalk.scm,
gnu/packages/system.scm,
gnu/packages/texinfo.scm,
gnu/packages/time.scm,
gnu/packages/wdiff.scm,
gnu/packages/wget.scm,
gnu/packages/which.scm: Use synopses from the Womb.
2013-04-17 16:04:25 +00:00
|
|
|
(synopsis "Full-screen window manager providing multiple terminals")
|
2013-01-20 03:45:56 +00:00
|
|
|
(description
|
2013-12-01 21:33:23 +00:00
|
|
|
"GNU Screen is a terminal window manager that multiplexes a single
|
|
|
|
terminal between several processes. The virtual terminals each provide
|
|
|
|
features such as a scroll-back buffer and a copy-and-paste mechanism. Screen
|
|
|
|
then manages the different virtual terminals, allowing you to easily switch
|
|
|
|
between them, to detach them from the current session, or even splitting the
|
|
|
|
view to show two terminals at once.")
|
2013-01-20 11:29:09 +00:00
|
|
|
(license gpl2+)))
|
2014-04-06 18:36:31 +00:00
|
|
|
|
|
|
|
(define-public dtach
|
|
|
|
(package
|
|
|
|
(name "dtach")
|
2016-05-30 07:20:23 +00:00
|
|
|
(version "0.9")
|
2014-04-06 18:36:31 +00:00
|
|
|
(source (origin
|
|
|
|
(method url-fetch)
|
2016-07-21 06:35:30 +00:00
|
|
|
(uri (string-append "mirror://sourceforge/" name "/" name "/"
|
|
|
|
version "/" name "-" version ".tar.gz"))
|
2014-04-06 18:36:31 +00:00
|
|
|
(sha256
|
|
|
|
(base32
|
2016-05-30 07:20:23 +00:00
|
|
|
"1wwj2hlngi8qn2pisvhyfxxs8gyqjlgrrv5lz91w8ly54dlzvs9j"))))
|
2014-04-06 18:36:31 +00:00
|
|
|
(build-system gnu-build-system)
|
|
|
|
(arguments
|
|
|
|
;; No install target.
|
2016-05-30 07:21:48 +00:00
|
|
|
'(#:phases
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
(replace 'install
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
(let ((out (assoc-ref outputs "out")))
|
2017-08-30 02:45:43 +00:00
|
|
|
(install-file "dtach" (string-append out "/bin"))
|
|
|
|
(install-file "dtach.1" (string-append out "/share/man/man1"))))))
|
2014-04-06 18:36:31 +00:00
|
|
|
;; No check target.
|
|
|
|
#:tests? #f))
|
|
|
|
(home-page "http://dtach.sourceforge.net/")
|
|
|
|
(synopsis "Emulates the detach feature of screen")
|
|
|
|
(description
|
|
|
|
"dtach is a tiny program that emulates the detach feature of screen,
|
|
|
|
allowing you to run a program in an environment that is protected from the
|
|
|
|
controlling terminal and attach to it later.")
|
|
|
|
(license gpl2+)))
|
2015-11-01 15:56:05 +00:00
|
|
|
|
|
|
|
(define-public byobu
|
|
|
|
(package
|
|
|
|
(name "byobu")
|
|
|
|
(version "5.98")
|
|
|
|
(source
|
|
|
|
(origin
|
|
|
|
(method url-fetch)
|
|
|
|
(uri (string-append "https://launchpad.net/byobu/trunk/"
|
|
|
|
version "/+download/byobu_"
|
|
|
|
version ".orig.tar.gz"))
|
|
|
|
(sha256
|
|
|
|
(base32
|
|
|
|
"1s8nh4wbds1nh52i0d1hy1b308jjf4siwpq92lna1zh9ll4x71j5"))
|
2016-04-08 12:18:13 +00:00
|
|
|
(patches (search-patches "byobu-writable-status.patch"))))
|
2015-11-01 15:56:05 +00:00
|
|
|
(build-system gnu-build-system)
|
|
|
|
(inputs
|
|
|
|
`(("python" ,python-wrapper) ;for config and session GUIs
|
|
|
|
("python-newt" ,newt "python")))
|
|
|
|
(arguments
|
|
|
|
`(#:phases
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
(add-before
|
|
|
|
'configure 'provide-locale
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
(let ((libc (assoc-ref inputs "libc"))) ;implicit input
|
|
|
|
(substitute* "usr/bin/byobu.in"
|
|
|
|
(("locale") (string-append libc "/bin/locale"))))))
|
|
|
|
(add-after
|
|
|
|
'install 'wrap-python-scripts
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
(let* ((python (string-append (assoc-ref inputs "python")
|
|
|
|
"/bin/python"))
|
|
|
|
(out (assoc-ref outputs "out"))
|
|
|
|
(config (string-append out "/bin/byobu-config"))
|
|
|
|
(select (string-append out "/bin/byobu-select-session")))
|
|
|
|
(wrap-program config
|
|
|
|
`("BYOBU_PYTHON" = (,python))
|
|
|
|
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
|
|
|
|
(wrap-program select
|
|
|
|
`("BYOBU_PYTHON" = (,python)))
|
|
|
|
#t))))))
|
|
|
|
(home-page "http://byobu.co/index.html")
|
|
|
|
(synopsis "Text-based window manager and terminal multiplexer")
|
|
|
|
(description
|
|
|
|
"Byobu is a Japanese term for decorative, multi-panel screens that serve
|
|
|
|
as folding room dividers. The Byobu software includes an enhanced profile,
|
|
|
|
configuration utilities, and system status notifications for the GNU Screen
|
|
|
|
window manager as well as the Tmux terminal multiplexer.")
|
|
|
|
(license gpl3+)))
|
2016-07-08 19:27:32 +00:00
|
|
|
|
|
|
|
(define-public reptyr
|
|
|
|
(package
|
|
|
|
(name "reptyr")
|
|
|
|
(version "0.6.2")
|
|
|
|
(source
|
|
|
|
(origin
|
|
|
|
(method url-fetch)
|
|
|
|
(uri (string-append "https://github.com/nelhage/reptyr/archive"
|
|
|
|
"/reptyr-" version ".tar.gz"))
|
2017-05-12 16:40:45 +00:00
|
|
|
;; XXX: To be removed on next reptyr release.
|
|
|
|
(patches (search-patches "reptyr-fix-gcc-7.patch"))
|
2016-07-08 19:27:32 +00:00
|
|
|
(sha256
|
|
|
|
(base32
|
|
|
|
"07pfl0rkgm8m3f3jy8r9l2yvnhf8lgllpsk3mh57mhzdxq8fagf7"))))
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
(arguments
|
|
|
|
'(#:tests? #f ; no tests
|
|
|
|
#:make-flags (list "CC=gcc"
|
|
|
|
(string-append "PREFIX=" %output))
|
|
|
|
#:phases (modify-phases %standard-phases (delete 'configure))))
|
|
|
|
(home-page "https://github.com/nelhage/reptyr")
|
|
|
|
(synopsis "Tool for reparenting a running program to a new terminal")
|
|
|
|
(description
|
|
|
|
"reptyr is a utility for taking an existing running program and attaching
|
|
|
|
it to a new terminal. Started a long-running process over @code{ssh}, but have
|
|
|
|
to leave and don't want to interrupt it? Just start a @code{screen}, use
|
|
|
|
reptyr to grab it, and then kill the @code{ssh} session and head on home.")
|
2017-04-24 08:05:00 +00:00
|
|
|
;; Reptyr currently does not support mips or aarch64.
|
|
|
|
(supported-systems (fold delete %supported-systems
|
|
|
|
'("mips64el-linux" "aarch64-linux")))
|
2016-07-08 19:27:32 +00:00
|
|
|
(license expat)))
|