From 0a99f17973daf4e0bac901d0a637439bd100d713 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Tue, 26 Mar 2024 20:18:48 -0300
Subject: [PATCH] packages: text-editors: Add kakoune (with a kak.desktop file)

---
 radix/packages/text-editors.scm | 58 +++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 radix/packages/text-editors.scm

diff --git a/radix/packages/text-editors.scm b/radix/packages/text-editors.scm
new file mode 100644
index 0000000..a9b816c
--- /dev/null
+++ b/radix/packages/text-editors.scm
@@ -0,0 +1,58 @@
+(define-module (radix packages text-editors)
+  #:use-module (gnu packages text-editors)
+  #:use-module (guix packages)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix gexp))
+
+(define-public kakoune
+  (let ((base (@@ (gnu packages text-editors) kakoune)))
+    (package
+    (inherit base)
+    (source #f)
+    (build-system trivial-build-system)
+    (native-inputs (list base))
+    (arguments
+      (list #:modules '((guix build utils))
+            #:builder
+            #~(begin
+                (use-modules (guix build utils))
+                (let* ((out #$output)
+                       (applications (string-append out "/share/applications"))
+                       (in (assoc-ref %build-inputs "kakoune"))
+                       (kak-bin (string-append out "/bin/kak")))
+                  (copy-recursively in out)
+                  (chmod kak-bin #o755)
+                  (mkdir-p applications)
+                  (make-desktop-entry-file
+                    (string-append applications "/kak.desktop")
+                    #:type "Application"
+                    #:name "kak"
+                    #:comment "Launches the kakoune text editor"
+                    #:icon "utilities-terminal"
+                    #:terminal #t
+                    #:try-exec (string-append out "/bin/kak")
+                    #:exec (string-append out "/bin/kak %f")
+                    #:categories (list "ConsoleOnly"
+                                       "System")
+                    #:mime-type (list "application/x-shellscript"
+                                      "text/english"
+                                      "text/plain"
+                                      "text/troff"
+                                      "text/x-c"
+                                      "text/x-c++"
+                                      "text/x-c++hdr"
+                                      "text/x-c++src"
+                                      "text/x-chdr"
+                                      "text/x-csrc"
+                                      "text/x-diff"
+                                      "text/x-java"
+                                      "text/x-lisp"
+                                      "text/x-makefile"
+                                      "text/x-moc"
+                                      "text/x-pascal"
+                                      "text/x-scheme"
+                                      "text/x-shellscript"
+                                      "text/x-tcl"
+                                      "text/x-tex"
+                                      "text/x-tex"
+                                      "text/xml")))))))))