;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
-;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
+;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org>
;;; Copyright © 2015 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
+;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages suckless)
- #:use-module ((guix licenses) #:prefix license:)
- #:use-module (guix packages)
- #:use-module (guix download)
- #:use-module (guix git-download)
- #:use-module (guix build-system gnu)
- #:use-module (guix build-system glib-or-gtk)
#:use-module (gnu packages)
- #:use-module (gnu packages gnome)
- #:use-module (gnu packages image)
- #:use-module (gnu packages xorg)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages compression)
+ #:use-module (gnu packages cups)
#:use-module (gnu packages fonts)
- #:use-module (gnu packages pkg-config)
- #:use-module (gnu packages webkit)
#:use-module (gnu packages fontutils)
- #:use-module (gnu packages mpd)
+ #:use-module (gnu packages gawk)
+ #:use-module (gnu packages gnome)
+ #:use-module (gnu packages image)
+ #:use-module (gnu packages libbsd)
#:use-module (gnu packages linux)
- #:use-module (gnu packages compression)
- #:use-module (gnu packages cups)
+ #:use-module (gnu packages mpd)
#:use-module (gnu packages ncurses)
- #:use-module (gnu packages gawk)
- #:use-module (gnu packages base)
- #:use-module (gnu packages libbsd))
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages webkit)
+ #:use-module (gnu packages xorg)
+ #:use-module (guix build-system glib-or-gtk)
+ #:use-module (guix build-system gnu)
+ #:use-module (guix download)
+ #:use-module (guix git-download)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix utils)
+ #:use-module (guix packages))
(define-public blind
(package
(name "blind")
- (version "1.0")
+ (version "1.1")
(source (origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/tools/blind-"
+ (uri (string-append "https://dl.suckless.org/tools/blind-"
version ".tar.gz"))
(sha256
(base32
- "1b36k8fg2gmabm69jckqja49i8y4rcbccgvv2wija15ciszrm1x9"))))
+ "0nncvzyipvkkd7zlgzwbjygp82frzs2hvbnk71gxf671np607y94"))))
(build-system gnu-build-system)
(arguments
- '(#:tests? #f ; no check target
- #:make-flags (list
- "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no check target
+ #:make-flags (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(synopsis "Command line video editing utilities")
- (home-page "http://tools.suckless.org/blind/")
+ (home-page "https://tools.suckless.org/blind/")
(description
"Blind is a collection of command line video editing utilities. It uses
a custom raw video format with a simple container.")
(define-public dwm
(package
(name "dwm")
- (version "6.1")
+ (version "6.2")
(source (origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/dwm/dwm-"
+ (uri (string-append "https://dl.suckless.org/dwm/dwm-"
version ".tar.gz"))
(sha256
- (base32 "1zkmwb6df6m254shx06ly90c0q4jl70skk1pvkixpb7hcxhwbxn2"))))
+ (base32 "03hirnj8saxnsfqiszwl2ds7p0avg20izv9vdqyambks00p2x44p"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
- (zero?
- (system* "make" "install"
- (string-append "DESTDIR=" out) "PREFIX=")))))
+ (invoke "make" "install"
+ (string-append "DESTDIR=" out) "PREFIX="))))
(add-after 'build 'install-xsession
(lambda* (#:key outputs #:allow-other-keys)
;; Add a .desktop file to xsessions.
("libx11" ,libx11)
("libxft" ,libxft)
("libxinerama" ,libxinerama)))
- (home-page "http://dwm.suckless.org/")
+ (home-page "https://dwm.suckless.org/")
(synopsis "Dynamic window manager")
(description
"dwm is a dynamic window manager for X. It manages windows in tiled,
(define-public dmenu
(package
(name "dmenu")
- (version "4.6")
+ (version "4.9")
(source (origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/tools/dmenu-"
+ (uri (string-append "https://dl.suckless.org/tools/dmenu-"
version ".tar.gz"))
(sha256
(base32
- "1cwnvamqqlgczvd5dv5rsgqbhv8kp0ddjnhmavb3q732i8028yja"))))
+ "0ia9nqr83bv6x247q30bal0v42chcj9qcjgv59xs6xj46m7iz5xk"))))
(build-system gnu-build-system)
(arguments
- '(#:tests? #f ; no tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output)
- (string-append "FREETYPEINC="
- (assoc-ref %build-inputs "freetype")
- "/include/freetype2"))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output)
+ (string-append "FREETYPEINC="
+ (assoc-ref %build-inputs "freetype")
+ "/include/freetype2"))
#:phases
- (alist-delete 'configure %standard-phases)))
+ (modify-phases %standard-phases (delete 'configure))))
(inputs
`(("freetype" ,freetype)
("libxft" ,libxft)
("libx11" ,libx11)
("libxinerama" ,libxinerama)))
- (home-page "http://tools.suckless.org/dmenu/")
+ (home-page "https://tools.suckless.org/dmenu/")
(synopsis "Dynamic menu")
(description
"A dynamic menu for X, originally designed for dwm. It manages large
(define-public spoon
(package
(name "spoon")
- (version "0.3")
+ (version "0.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "spoon-" version ".tar.gz"))
(sha256
(base32
- "10c5i7ykpy7inzzfiw1dh0srpkljycr3blxhvd8160wsvplbws48"))))
+ "1jpmg9k9f4f3lpz0k3cphqjswlyf8lz2sm8ccifiip93kd4rrdj0"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))))
(inputs
`(("libx11" ,libx11)
("libxkbfile" ,libxkbfile)
- ("alsa-lib" ,alsa-lib)
+ ("alsa-lib" ,alsa-lib) ; tinyalsa (unpackaged) would suffice
("libmpdclient" ,libmpdclient)))
(home-page "https://git.2f30.org/spoon/")
(synopsis "Set dwm status")
(version "1.4")
(source (origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/tools/slock-"
+ (uri (string-append "https://dl.suckless.org/tools/slock-"
version ".tar.gz"))
(sha256
(base32
"0sif752303dg33f14k6pgwq2jp1hjyhqv6x4sy3sj281qvdljf5m"))))
(build-system gnu-build-system)
(arguments
- '(#:tests? #f ; no tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
- #:phases (alist-delete 'configure %standard-phases)))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
+ #:phases (modify-phases %standard-phases (delete 'configure))))
(inputs
`(("libx11" ,libx11)
("libxext" ,libxext)
("libxinerama" ,libxinerama)
("libxrandr" ,libxrandr)))
- (home-page "http://tools.suckless.org/slock/")
+ (home-page "https://tools.suckless.org/slock/")
(synopsis "Simple X session lock")
(description
"Simple X session lock with trivial feedback on password entry.")
(define-public st
(package
(name "st")
- (version "0.7")
+ (version "0.8.4")
(source
(origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/st/st-"
+ (uri (string-append "https://dl.suckless.org/st/st-"
version ".tar.gz"))
(sha256
- (base32
- "00309qiw20rc89696pk8bdr7ik4r1aarik7jxqk8k66cdj80v1zp"))))
+ (base32 "19j66fhckihbg30ypngvqc9bcva47mp379ch5vinasjdxgn3qbfl"))))
(build-system gnu-build-system)
(arguments
- '(#:tests? #f ; no tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'inhibit-terminfo-install
- (lambda _
- (substitute* "Makefile"
- (("\t@tic -s st.info") ""))
- #t)))))
+ (lambda _
+ (substitute* "Makefile"
+ (("\ttic .*") ""))
+ #t)))))
(inputs
`(("libx11" ,libx11)
("libxft" ,libxft)
("fontconfig" ,fontconfig)
("freetype" ,freetype)))
- (native-inputs `(("pkg-config" ,pkg-config)))
- (home-page "http://st.suckless.org/")
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (home-page "https://st.suckless.org/")
(synopsis "Simple terminal emulator")
(description
"St implements a simple and lightweight terminal emulator. It
(source
(origin
(method url-fetch)
- (uri (string-append "http://dl.suckless.org/surf/surf-"
+ (uri (string-append "https://dl.suckless.org/surf/surf-"
version ".tar.gz"))
(sha256
(base32
"07cmajyafljigy10d21kkyvv5jf3hxkx06pz3rwwk3y3c9x4rvps"))))
(build-system glib-or-gtk-build-system)
(arguments
- '(#:tests? #f ; no tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)
("xprop" ,xprop)))
(native-inputs
`(("pkg-config" ,pkg-config)))
- (home-page "http://surf.suckless.org/")
+ (home-page "https://surf.suckless.org/")
(synopsis "Simple web browser")
(description
"Surf is a simple web browser based on WebKit/GTK+. It is able to
(define-public sent
(package
(name "sent")
- (version "0.2")
+ (version "1")
(source (origin
- (method url-fetch)
- (uri (string-append "http://dl.suckless.org/tools/sent-"
+ (method url-fetch/tarbomb)
+ (uri (string-append "https://dl.suckless.org/tools/sent-"
version ".tar.gz"))
(sha256
(base32
- "0xhh752hwaa26k4q6wvrb9jnpbnylss2aw6z11j7l9rav7wn3fak"))))
+ "0cxysz5lp25mgww73jl0mgip68x7iyvialyzdbriyaff269xxwvv"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
- (delete 'configure)) ;no configuration
- #:tests? #f ;no test suite
- #:make-flags (let ((pkg-config (lambda (flag)
- (string-append
- "$(shell pkg-config " flag " "
- "xft fontconfig x11 libpng)"))))
- (list
- "CC=gcc"
- (string-append "PREFIX=" %output)
- (string-append "INCS=-I. " (pkg-config "--cflags"))
- (string-append "LIBS=" (pkg-config "--libs") " -lm")))))
+ (delete 'configure)) ; no configuration
+ #:tests? #f ; no test suite
+ #:make-flags
+ (let ((pkg-config (lambda (flag)
+ (string-append
+ "$(shell pkg-config " flag " "
+ "xft fontconfig x11 libpng)"))))
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output)
+ (string-append "INCS=-I. " (pkg-config "--cflags"))
+ (string-append "LIBS=" (pkg-config "--libs") " -lm")))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
("libx11" ,libx11)
("libxft" ,libxft)
("fontconfig" ,fontconfig)))
- (synopsis "Plaintext presentation tool")
- (description "Sent uses plaintext files and PNG images to create slideshow
+ (synopsis "Plain-text presentation tool")
+ (description "Sent uses plain-text files and PNG images to create slideshow
presentations. Each paragraph represents a slide in the presentation.
Especially for presentations using the Takahashi method this is very nice and
allows you to write down the presentation for a quick lightning talk within a
few minutes.")
- (home-page "http://tools.suckless.org/sent")
+ (home-page "https://tools.suckless.org/sent")
(license license:x11)))
(define-public xbattmon
(package
(name "xbattmon")
- (version "0.9")
+ (version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "xbattmon-" version ".tar.gz"))
(sha256
(base32
- "0n2rrjq03pgqrdkl7cz5snsfdanf4s58w9h6dbvnl7p8bbd3j2kn"))))
+ "1zr6y8lml9xkx0a3dbbsds2qz1bjxvskp7wsckkf8mlsqrbb3xsg"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))))
(inputs
`(("libx11" ,libx11)))
(home-page "https://git.2f30.org/xbattmon/")
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "wificurse-" version ".tar.gz"))
(sha256
(base32
"067ghr1xly5ca41kc83xila1p5hpq0bxfcmc8jvxi2ggm6wrhavn"))))
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "skroll-" version ".tar.gz"))
(sha256
(base32
"0km6bjfz4ssb1z0xwld6iiixnn7d255ax8yjs3zkdm42z8q9yl0f"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(home-page "https://2f30.org/")
(synopsis "Commandline utility which scrolls text")
(description
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "sbm-" version ".tar.gz"))
(sha256
(base32
"1nks5mkh5wn30kyjzlkjlgi31bv1wq52kbp0r6nzbyfnvfdlywik"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(home-page "https://git.2f30.org/sbm/")
(synopsis "Simple bandwidth monitor")
(description
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "prout-" version ".tar.gz"))
(sha256
(base32
"1s6c3ygg1h1fyxkh8gd7nzjk6qhnwsb4535d2k780kxnwns5fzas"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(inputs
`(("cups-minimal" ,cups-minimal)
("zlib" ,zlib)))
(define-public noice
(package
(name "noice")
- (version "0.6")
+ (version "0.8")
(source
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "noice-" version ".tar.gz"))
(sha256
- (base32
- "0ldkbb71z6k4yzj4kpg3s94ijj1c1kx9dfcjz393py09scfyg5hr"))))
+ (base32 "0g01iwzscdv27c1idv93gd74kjzy3n9kazgm6qz08rygp96qx4xw"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure) ; No configure script
+ (delete 'configure) ; no configure script
(add-before 'build 'curses
(lambda _
(substitute* "Makefile"
"Noice is a small curses-based file browser.")
(license license:bsd-2)))
-;;; We want some commits that are more recent than the latest release, 0.2
(define-public human
- (let ((commit "50c80e6ba12823184b6866e06b955dbd2ccdc5d7")
- (revision "1"))
- (package
- (name "human")
- (version (string-append "0.2-" revision "." (string-take commit 7)))
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "git://git.2f30.org/human.git")
- (commit commit)))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "18xngm4h9vsyip52zwd79rrp1irzg6rs462lpbp61amf7hj955gn"))))
+ (package
+ (name "human")
+ (version "0.3")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://git.2f30.org/human.git")
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0y0bsmvpwfwb2lwspi6a799y34h1faxc6yfanyw6hygxc8661mga"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(home-page "https://git.2f30.org/human/")
(synopsis "Convert bytes to human readable formats")
(description
factorisation, but you can force its output.
You can adjust the number of decimals with the @code{SCALE}
environment variable.")
- (license license:wtfpl2))))
+ (license license:wtfpl2)))
(define-public fortify-headers
(package
(name "fortify-headers")
- (version "0.8")
+ (version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "fortify-headers-" version ".tar.gz"))
(sha256
- (base32
- "1cacdczpjb49c4i1168g541wnl3i3gbpv2m2wbnmw5wddlyhgkdg"))))
+ (base32 "1dhz41jq1azcf7rbvga8w6pnx19l1j9r6jwj8qrlrfnjl9hdi9bb"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(home-page "https://git.2f30.org/fortify-headers/")
(synopsis "Standalone fortify-source implementation")
(description
(origin
(method url-fetch)
(uri (string-append "https://dl.2f30.org/releases/"
- name "-" version ".tar.gz"))
+ "colors-" version ".tar.gz"))
(sha256
(base32
"1lckmqpgj89841splng0sszbls2ag71ggkgr1wsv9y3v6y87589z"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(inputs
`(("libpng" ,libpng)))
(home-page "https://git.2f30.org/colors/")
(commit "ff4c60635e1f455b0a0b4200f8183fbd5a88225b"))
(package
(name "libutf")
- (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+ (version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cls/libutf")
(commit commit)))
- (file-name (string-append name "-" version "-checkout"))
+ (file-name (git-file-name name version))
(sha256
(base32
"1ih5vjavilzggyr1j1z6w1z12c2fs5fg77cfnv7ami5ivsy3kg3d"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure)))) ; No configure script
+ (delete 'configure)))) ; no configure script
(inputs
`(("gawk" ,gawk)))
(home-page "https://github.com/cls/libutf")
;; No release tarballs so far.
(define-public lchat
- (let ((revision "1")
- (commit "bbde23732f8c7769b982f0c1bda9b99fbf93f932"))
+ (let ((revision "4")
+ (commit "e3b64e67b9b9d832462382246474ce1e7d92217c"))
(package
(name "lchat")
- (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+ (version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/younix/lchat")
(commit commit)))
- (file-name (string-append name "-" version "-checkout"))
+ (file-name (git-file-name name version))
(sha256
- (base32
- "00q3rc0aa5416jvjvrj71x1wnr0331kxhvjjs7pyxgnq4xf36k63"))))
+ (base32 "1qcjqbgmsskc04j2r6xl3amkwj05n520sq1wv2mqyqncz42qrxm0"))))
(build-system gnu-build-system)
(arguments
- `(#:tests? #f ; No tests
- #:make-flags (list "CC=gcc"
- (string-append "PREFIX=" %output))
+ `(#:test-target "test"
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
- (delete 'configure) ; No configure script
+ (delete 'configure) ; no configure script
(add-before 'build 'libbsd
(lambda _
(substitute* "Makefile"
(("-lutf") "-lutf -lbsd"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin")))
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin"))
+ (man1 (string-append out "/share/man/man1")))
(install-file "lchat" bin)
+ (install-file "lchat.1" man1)
#t))))))
(inputs
`(("grep" ,grep)
(synopsis "Line chat is a frontend for the irc client ii from suckless")
(description
"Lchat (line chat) is the little and small brother of cii.
-It is a front end for ii-like chat programs. It uses tail(1) -f to get the
-chat output in background.")
+It is a front end for ii-like chat programs. It uses @code{tail -f} to get the
+chat output in the background.")
(license license:isc))))
+
+(define-public scron
+ (package
+ (name "scron")
+ (version "0.4")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://dl.2f30.org/releases/"
+ "scron-" version ".tar.gz"))
+ (sha256
+ (base32
+ "066fwa55kqcgfrsqgxh94sqbkxfsr691360xg4ljxr4i75d25s2a"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no tests
+ #:make-flags
+ (list (string-append "CC=" ,(cc-for-target))
+ (string-append "PREFIX=" %output))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)))) ; no configure script
+ (home-page "https://git.2f30.org/scron/")
+ (synopsis "Simple cron daemon")
+ (description
+ "Schedule commands to be run at specified dates and times.
+Single daemon and configuration file. Log to stdout or syslog. No mail
+support.")
+ (license license:expat)))