From 23053f4b407b5190d1204761a123f42fcb9cc945 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Sun, 18 Feb 2024 16:53:44 -0300
Subject: [PATCH] packages: dictionaries: Add suckless_dictpopup

---
 ajatt/packages/dictionaries.scm | 49 +++++++++++++++++++++++++++++++--
 1 file changed, 46 insertions(+), 3 deletions(-)

diff --git a/ajatt/packages/dictionaries.scm b/ajatt/packages/dictionaries.scm
index a27c45c..03f1641 100644
--- a/ajatt/packages/dictionaries.scm
+++ b/ajatt/packages/dictionaries.scm
@@ -21,11 +21,13 @@
   #:use-module (gnu packages xiph)
   #:use-module (gnu packages xorg)
   #:use-module (guix build-system cmake)
+  #:use-module (guix build-system gnu)
   #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (guix git-download)
   #:use-module (guix packages)
   #:use-module (ajatt packages qt)
+  #:use-module (ajatt packages suckless)
   #:use-module ((guix licenses) #:prefix license:))
 
 (define-public goldendict-ng
@@ -40,8 +42,8 @@
          (url "https://github.com/xiaoyifang/goldendict-ng.git")
          (commit "68c95001005fd77c95936589bbc2487ff3086019")))
       (sha256
-       (base32 "0r8hl5p4r369024dhf58md0k1776sbxg6yxqzhws6x257wc91bkh"))))
-   (build-system cmake-build-system) 
+       (base32 "10aghpghysc024jcd14hl6mslzags5jf9pbr8apndycczc4ybswy"))))
+   (build-system cmake-build-system)
    (arguments
      (list #:cmake cmake
            #:tests? #f
@@ -124,4 +126,45 @@ to type in words without any accents or correct case.")
      (list license:gpl3+
            license:zlib))))
 
-goldendict-ng
+(define-public suckless-dictpopup
+  (package
+    (name "suckless-dictpopup")
+    (version "2.5_stable")
+    (source
+      (origin
+        (method git-fetch)
+        (uri
+         (git-reference
+           (url "https://github.com/KonstantinDjairo/suckless_dictpopup.git")
+           (commit "5309e184d0a68bad266ca0f4bef7c3d73ccc5eef")))
+        (sha256
+         (base32 "1pnx25s101ydldcvsrh79imkpirw5j5n9qzp9pzi37fz1g1xbb1k"))))
+   (build-system gnu-build-system)
+   (inputs
+     (list freetype
+           libxft
+           libx11
+           libxinerama
+           perl
+           sdcv
+           sselp))
+   (arguments
+    (list #:tests? #f
+          #:make-flags
+          #~(list (string-append "CC=" #$(cc-for-target))
+                  (string-append "PREFIX=" #$output)
+                  (string-append "CPPFLAGS=-I"
+                                 (assoc-ref %build-inputs "freetype")
+                                 "/include/freetype2"))
+          #:phases
+          #~(modify-phases %standard-phases
+              (replace 'configure
+                (lambda _ (copy-file "config.def.h" "config.h"))))))
+   (synopsis "A very lightweight popup dictionary written in C.")
+   (description "suckless_dictpopup is a very lightweight program to show popups
+with the dictionary entries of the selected text. It uses Xlib for displaying
+the popup and sdcv for the dictionary lookup.")
+   (home-page "https://github.com/KonstantinDjairo/suckless_dictpopup")
+   (license license:bsd-0)))
+
+suckless-dictpopup