Compare commits
4 Commits
6ed3215acd
...
75475c61db
Author | SHA1 | Date |
---|---|---|
Raghav Gururajan | 75475c61db | |
Raghav Gururajan | 25e57ef83d | |
Raghav Gururajan | 4a00190c09 | |
Raghav Gururajan | 3309d18996 |
|
@ -0,0 +1,69 @@
|
|||
(define-module (rg packages suckless)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages fontutils)
|
||||
#:use-module (gnu packages suckless)
|
||||
#:use-module (gnu packages xorg)
|
||||
#:use-module (rg packages xorg))
|
||||
|
||||
(define-public st-custom
|
||||
(package
|
||||
(inherit st)
|
||||
(name "st-custom")
|
||||
(version (package-version st))
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://dl.suckless.org/st/st-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "19j66fhckihbg30ypngvqc9bcva47mp379ch5vinasjdxgn3qbfl"))
|
||||
(patches
|
||||
(list
|
||||
;; Enables scrolling using Shift+{PageUp,PageDown}.
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://st.suckless.org/patches/scrollback/"
|
||||
"st-scrollback-20201205-4ef0cbd.diff"))
|
||||
(file-name "st-scrollback.patch")
|
||||
(sha256
|
||||
(base32 "1d1gyfbn4slsnl9paviajlwa7mf7wijvpxh0w6ibyb1m2lc7v31v")))
|
||||
;; Enables scrolling using Shift+MouseWheel.
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://st.suckless.org/patches/scrollback/"
|
||||
"st-scrollback-mouse-20191024-a2c479c.diff"))
|
||||
(file-name "st-scrollback-mouse.patch")
|
||||
(sha256
|
||||
(base32 "0z961sv4pxa1sxrbhalqzz2ldl7qb26qk9l11zx1hp8rh3cmi51i")))
|
||||
;; Disables scrolling using mouse wheel, when in MODE_ALTSCREEN.
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://st.suckless.org/patches/scrollback/"
|
||||
"st-scrollback-mouse-altscreen-20200416-5703aa0.diff"))
|
||||
(file-name "st-scrollback-mouse-altscreen.patch")
|
||||
(sha256
|
||||
(base32 "17avl5bgwlh5ayaqfg01sg9klf828hc0fd36cgzldnl595jyp1yb")))))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments st)
|
||||
((#:phases phases)
|
||||
`(modify-phases ,phases
|
||||
(add-after 'unpack 'patch
|
||||
(lambda _
|
||||
;; Rename the config file, so that the changes
|
||||
;; are picked up by build script.
|
||||
(rename-file "config.def.h" "config.h")
|
||||
(substitute* "config.h"
|
||||
;; Change font from Liberation to Noto.
|
||||
;; Use size instead of pixel size.
|
||||
(("Liberation Mono:pixelsize=12")
|
||||
"FreeMono:size=12"))))))))
|
||||
(inputs
|
||||
(list
|
||||
fontconfig
|
||||
freetype
|
||||
libx11
|
||||
libxft-custom))))
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
(define-module (rg packages xorg)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages xorg))
|
||||
|
||||
(define-public libxft-custom
|
||||
(package
|
||||
(inherit libxft)
|
||||
(name "libxft-custom")
|
||||
(version "2.3.4")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://xorg/individual/lib/libXft-"
|
||||
version ".tar.bz2"))
|
||||
(sha256
|
||||
(base32 "1pdbr6gzfvixc791pjf42i9gg8wvfq6cpq6sdca04h4i42mxmpjp"))
|
||||
(patches
|
||||
;; Provides support for color emojis.
|
||||
(list
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://gitlab.freedesktop.org/xorg/lib/libxft"
|
||||
"/-/commit/723092ece088559f1af299236305911f4ee4d450.patch"))
|
||||
(file-name "libxft-composite-string.patch")
|
||||
(sha256
|
||||
(base32 "189naky0shllnifydc6r9wk904rxzcmvrb49y1rh36fb545y67d0")))
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://gitlab.freedesktop.org/xorg/lib/libxft"
|
||||
"/-/commit/e0fc4ce7e87ab9c4b47e5c8e693f070dfd0d2f7b.patch"))
|
||||
(file-name "libxft-composite-text.patch")
|
||||
(sha256
|
||||
(base32 "14x87ciwczyvr77v9y1h9jn4qb9zqfcnm59a6lfg0g5yj3bhib11")))
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://gitlab.freedesktop.org/xorg/lib/libxft"
|
||||
"/-/commit/d385aa3e5320d18918413df0e8aef3a713a47e0b.patch"))
|
||||
(file-name "libxft-bgra-glyphs.patch")
|
||||
(sha256
|
||||
(base32 "0nfxl9xf9mddxyfpagc0l77sp40pv00xqch14jh4xg2kmfqb00ng")))))))))
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
(define-module (rg services base)
|
||||
#:use-module (gnu services)
|
||||
#:use-module (gnu services base))
|
||||
|
||||
(define-public (auto-login-to-tty config tty user)
|
||||
(if (string=? tty (mingetty-configuration-tty config))
|
||||
(mingetty-configuration
|
||||
(inherit config)
|
||||
(auto-login user))
|
||||
config))
|
||||
|
Loading…
Reference in New Issue