packages: st-custom: Use libxft-custom.

rg/packages/suckless.scm

@@ -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 font size 10.
+                 (("Liberation Mono:pixelsize=12")
+                  "Noto Mono:size=10"))))))))
+    (inputs
+     (list
+      fontconfig
+      freetype
+      libx11
+      libxft-custom))))
+

rg/packages/xorg.scm

@@ -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")))))))))
+

rg/services/base.scm

@@ -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))
+