From 4c940ee970710fa5d95dd55db58a5771e5a5ddb2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Carlos=20Dur=C3=A1n=20Dom=C3=ADnguez?= <wurt@wurt.eu>
Date: Thu, 12 Feb 2026 17:06:44 +0100
Subject: [PATCH] gnu: Add gofrundis.

* gnu/packages/markup.scm (gofrundis): New variable.

Merges: https://codeberg.org/guix/guix/pulls/6352
Change-Id: I2e9a4cae842c47d3bb791370f0473c67148e5776
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 gnu/packages/markup.scm | 49 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/gnu/packages/markup.scm b/gnu/packages/markup.scm
index e8007e23a6..ec9f457399 100644
--- a/gnu/packages/markup.scm
+++ b/gnu/packages/markup.scm
@@ -16,6 +16,7 @@
 ;;; Copyright © 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2024 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2025 Vinicius Monego <monego@posteo.net>
+;;; Copyright © 2026 Carlos Durán Domínguez <wurt@wurt.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -39,6 +40,7 @@
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system go)
   #:use-module (guix build-system trivial)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system perl)
@@ -65,6 +67,53 @@
   #:use-module (gnu packages web)
   #:use-module (gnu packages xml))
 
+(define-public gofrundis
+  (package
+    (name "gofrundis")
+    (version "0.16.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://codeberg.org/anaseto/gofrundis")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "11821nmx9rnxff8pm08dbdzc6rqv4xliw9kx3pdfmxjf8n6p58xj"))))
+    (build-system go-build-system)
+    (arguments
+     (list
+      #:install-source? #f
+      #:import-path "codeberg.org/anaseto/gofrundis/cmd/frundis"
+      #:unpack-path "codeberg.org/anaseto/gofrundis"
+      #:test-subdirs
+      #~(list "../../...")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-paths
+            (lambda* (#:key unpack-path #:allow-other-keys)
+              (substitute* (string-append "src/" unpack-path
+                                          "/frundis/utils.go")
+                (("/bin/sh")
+                 (string-append #$(this-package-input "bash-minimal")
+                                "/bin/sh"))))))))
+    (inputs (list bash-minimal))
+    (native-inputs (list perl)) ; necessary for running the tests
+    (home-page "https://anaseto.codeberg.page/frundis/")
+    (synopsis "Tool for compiling documents written in the frundis")
+    (description
+     "@command{frundis} is a tool for compiling documents written in the
+frundis language, a semantic markup language primarily intended for supporting
+authoring of novels, but also well suited for many other kinds of documents.
+The frundis tool can export documents to LaTeX, XHTML 5, EPUB, markdown and
+groff mom.
+
+The language has a focus on simplicity.  It provides a few flexible built-in
+macros with extensible semantics.  It strives to provide good error messages
+and catch typos, while still allowing one to finely control output for a
+specific format when needed.")
+    (license license:isc)))
+
 (define-public hoedown
   (package
     (name "hoedown")