@@ -48,6 +48,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages terminals)
+ #:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system cargo)
#:use-module (guix build-system cmake)
@@ -63,6 +64,7 @@ (define-module (gnu packages terminals)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
+ #:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
@@ -852,12 +854,24 @@ (define-public foot
;; also to address a GCC 10 issue when doing PGO builds.
#:build-type "release"
;; Enable LTO as recommended by INSTALL.md.
- #:configure-flags '("-Db_lto=true")))
+ #:configure-flags '("-Db_lto=true")
+ ;; Ensure the terminfo database is available to programs spawned under
+ ;; the terminal.
+ #:phases
+ ,#~(modify-phases %standard-phases
+ (add-after 'install 'wrap-program
+ (lambda _
+ (let ((out #$output))
+ ;; footclient executes programs under the server process,
+ ;; there is no need to wrap it too.
+ (wrap-program (string-append out "/bin/foot")
+ `("TERMINFO_DIRS" ":" prefix
+ (,(string-append out "/share/terminfo"))))))))))
(native-inputs
(list ncurses ;for 'tic'
pkg-config scdoc wayland-protocols))
(inputs
- (list fcft libxkbcommon wayland))
+ (list bash-minimal fcft libxkbcommon wayland))
(synopsis "Wayland-native terminal emulator")
(description
"@command{foot} is a terminal emulator for systems using the Wayland