typo

ajatt/packages/readers.scm

@@ -1,7 +1,7 @@
 ;;; Copyright © 2023 pat-hwaki
 ;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
 
-(define-module (ajatt packages books)
+(define-module (ajatt packages readers)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)

ajatt/packages/readers.scm~

@@ -0,0 +1,98 @@
+;;; Copyright © 2023 pat-hwaki
+;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
+
+(define-module (ajatt packages books)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages webkit)
+  #:use-module (guix build utils)
+  #:use-module (guix build-system meson)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix utils)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public foliate
+  (let* ((commit "efddb107ae3c3a7c3acca73ad0c6a19981234e04")
+         (revision "0")
+         (version* (git-version "3.0.0" revision commit))
+         (foliate-js
+          (origin
+           (method git-fetch)
+           (uri (git-reference
+		 ;; changed url to ensure that the code will be
+		 ;; always available
+                 (url "https://codeberg.org/hashirama/foliate-js")
+                 (commit "ad25f6b5c3d9d044941d8ea858324b20a5352512")))
+           (file-name
+            (git-file-name "foliate-js" version*))
+           (sha256
+            (base32
+             "0yfjyfhnd2nd3yln7r3h1pm08x5pv5kxvkh853s9nd66n3h6k1j4")))))
+    (package
+     (name "foliate")
+     (version version*)
+     (source (origin
+              (method git-fetch)
+              (uri (git-reference
+		    ;; changed url to ensure that the code will be
+		    ;; always available
+                    (url "https://codeberg.org/hashirama/foliate.git")
+                    (commit "efddb107ae3c3a7c3acca73ad0c6a19981234e04")))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1wicjwa8gdsjcbrj5g2bv88x0ddsf6ql2j8r7hp2p692l1bhb9dp"))))
+     (build-system meson-build-system)
+     (arguments
+      (list #:glib-or-gtk? #t
+            #:phases
+            #~(modify-phases %standard-phases
+			     (add-after 'unpack 'copy-foliate-js
+					(lambda _
+					  (copy-recursively #$foliate-js "src/foliate-js")))
+			     (add-after 'unpack 'skip-gtk-update-icon-cache
+					(lambda _
+					  (substitute* "meson.build"
+						       (("gtk_update_icon_cache: true")
+							"gtk_update_icon_cache: false"))))
+			     (add-after 'glib-or-gtk-wrap 'wrap-program
+					(lambda* (#:key outputs #:allow-other-keys)
+						 (let ((prog (string-append (assoc-ref outputs "out")
+									    "/bin/foliate")))
+						   ;; Put existing typelibs before sushi's deps, so as to
+						   ;; correctly infer gdk-pixbuf.
+						   (wrap-program prog
+								 `("GI_TYPELIB_PATH" suffix
+								   (,(getenv "GI_TYPELIB_PATH")))
+								 ;; for icon.
+								 `("GDK_PIXBUF_MODULE_FILE" =
+								   (,(getenv "GDK_PIXBUF_MODULE_FILE"))))))))))
+
+     (native-inputs
+      (list pkg-config
+            `(,glib "bin")
+            gettext-minimal
+            gobject-introspection
+            desktop-file-utils
+            foliate-js))
+     (inputs
+      (list libadwaita
+            glib
+            glib-networking
+            webkitgtk
+            gtk
+            gjs))
+     (home-page "https://johnfactotum.github.io/foliate/")
+     (synopsis "Read books in style")
+     (description "A simple and modern GTK e-book reader")
+     ;;             foliate       foliate-js
+     (license (list license:gpl3 license:expat)))))
+
+foliate