me
/
guix
Archived
1
0
Fork 0
Code

gnu: ibus: Enable documentation. 

* gnu/packages/ibus.scm (ibus)[outputs](doc): New output.
[configure-flags](enable-gtk-doc): New flag.
[phases](patch-docbook-xml): New phase.
(move-doc): New phase.
[native-inputs]: Add docbook-xml and gtk-doc.
master
Raghav Gururajan 2021-04-07 16:42:23 -04:00
parent 5d96de6073
commit 8b47e61cd8
No known key found for this signature in database
GPG Key ID: 5F5816647F8BE551
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/ibus.scm
View File

@ -42,6 +42,7 @@
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages datastructures) #:use-module (gnu packages datastructures)
#:use-module (gnu packages dbm) #:use-module (gnu packages dbm)
#:use-module (gnu packages docbook)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
@ -73,10 +74,12 @@
(base32 (base32
"07s2ly75xv50bqg37mn37i9akqvcfd45k2mbplxrsqk3a2b3mwxb")))) "07s2ly75xv50bqg37mn37i9akqvcfd45k2mbplxrsqk3a2b3mwxb"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(outputs '("out" "doc"))
(arguments (arguments
`(#:tests? #f ; tests fail because there's no connection to dbus `(#:tests? #f ; tests fail because there's no connection to dbus
#:parallel-build? #f ; race condition discovered with emoji support #:parallel-build? #f ; race condition discovered with emoji support
#:configure-flags (list "--enable-python-library" #:configure-flags (list "--enable-python-library"
"--enable-gtk-doc"
(string-append (string-append
"--with-unicode-emoji-dir=" "--with-unicode-emoji-dir="
(assoc-ref %build-inputs "unicode-emoji") (assoc-ref %build-inputs "unicode-emoji")
@ -91,6 +94,14 @@
"--enable-wayland") "--enable-wayland")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "docs/reference/ibus"
(substitute* "ibus-docs.sgml.in"
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/"))))
#t))
(add-after 'unpack 'patch-python-target-directories (add-after 'unpack 'patch-python-target-directories
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((root (string-append (assoc-ref outputs "out") (let ((root (string-append (assoc-ref outputs "out")
@ -127,6 +138,15 @@
(("\"(setxkbmap|xmodmap)\"" _ prog) (("\"(setxkbmap|xmodmap)\"" _ prog)
(string-append "\"" (assoc-ref inputs prog) "/bin/" prog "\""))) (string-append "\"" (assoc-ref inputs prog) "/bin/" prog "\"")))
#t)) #t))
(add-after 'install 'move-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc")))
(mkdir-p (string-append doc "/share"))
(rename-file
(string-append out "/share/gtk-doc")
(string-append doc "/share/gtk-doc"))
#t)))
(add-after 'wrap-program 'wrap-with-additional-paths (add-after 'wrap-program 'wrap-with-additional-paths
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Make sure 'ibus-setup' runs with the correct PYTHONPATH and ;; Make sure 'ibus-setup' runs with the correct PYTHONPATH and
@ -160,10 +180,12 @@
("wayland" ,wayland) ("wayland" ,wayland)
("xmodmap" ,xmodmap))) ("xmodmap" ,xmodmap)))
(native-inputs (native-inputs
`(("glib" ,glib "bin") ; for glib-genmarshal `(("docbook-xml" ,docbook-xml-4.1.2)
("glib" ,glib "bin") ; for glib-genmarshal
("gettext" ,gettext-minimal) ("gettext" ,gettext-minimal)
("gnome-common" ,gnome-common) ("gnome-common" ,gnome-common)
("gobject-introspection" ,gobject-introspection) ; for g-ir-compiler ("gobject-introspection" ,gobject-introspection) ; for g-ir-compiler
("gtk-doc" ,gtk-doc)
("perl" ,perl) ("perl" ,perl)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("python-wrapper" ,python-wrapper) ("python-wrapper" ,python-wrapper)