;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015 Sou Bunnbu ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages fcitx) #:use-module ((guix licenses) #:select (gpl2+)) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system cmake) #:use-module (guix build-system glib-or-gtk) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages documentation) #:use-module (gnu packages enchant) #:use-module (gnu packages fontutils) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages graphviz) #:use-module (gnu packages gtk) #:use-module (gnu packages icu4c) #:use-module (gnu packages iso-codes) #:use-module (gnu packages man) #:use-module (gnu packages ncurses) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages sqlite) #:use-module (gnu packages textutils) #:use-module (gnu packages web) #:use-module (gnu packages xml) #:use-module (gnu packages xorg) #:use-module (gnu packages xdisorg)) (define-public presage (package (name "presage") (version "0.9.1") (source (origin (method url-fetch) (uri (string-append "https://sourceforge.net/projects/presage/files/presage/" version "/presage-" version ".tar.gz")) (sha256 (base32 "0rm3b3zaf6bd7hia0lr1wyvi1rrvxkn7hg05r5r1saj0a3ingmay")))) (build-system glib-or-gtk-build-system) (outputs '("out" "doc")) (arguments `(#:configure-flags (list "CFLAGS=-Wno-narrowing" "CXXFLAGS=-Wno-narrowing") #:phases (modify-phases %standard-phases (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/presage")) (rename-file (string-append out "/share/presage/html") (string-append doc "/share/presage/html")) #t)))))) (native-inputs `(("dot" ,graphviz) ("doxygen" ,doxygen) ("gettext" ,gettext-minimal) ("glib:bin" ,glib "bin") ("gtk+:bin" ,gtk+ "bin") ("help2man" ,help2man) ("pkg-config" ,pkg-config) ("python-wrapper" ,python-wrapper))) (inputs `(("glib" ,glib) ("gtk+" ,gtk+) ("libx11" ,libx11) ("sqlite" ,sqlite) ("tinyxml" ,tinyxml))) (synopsis "Intelligent Predictive Text Entry System") (description "Presage generates predictions by modelling natural language as a combination of redundant information sources. It computes probabilities for words which are most likely to be entered next by merging predictions generated by the different predictive algorithms.") (home-page "https://presage.sourceforge.io/") (license gpl2+))) (define-public fcitx (package (name "fcitx") (version "4.2.9.7") (source (origin (method url-fetch) (uri (string-append "http://download.fcitx-im.org/fcitx/" "fcitx-" version "_dict.tar.xz")) (sha256 (base32 "13vg7yzfq0vj2r8zdf9ly3n243nwwggkhd5qv3z6yqdyj0m3ncyg")))) (build-system cmake-build-system) (outputs '("out" "gtk2" "gtk3")) (arguments `(#:configure-flags (list "-DENABLE_GTK2_IM_MODULE=ON" "-DENABLE_GTK3_IM_MODULE=ON" "-DENABLE_QT=OFF" "-DENABLE_QT_IM_MODULE=OFF" "-DENABLE_QT_GUI=OFF" "-DENABLE_TEST=ON" (string-append "-DGOBJECT_INTROSPECTION_GIRDIR=" (assoc-ref %outputs "out") "/share/gir-1.0") (string-append "-DGOBJECT_INTROSPECTION_TYPELIBDIR=" (assoc-ref %outputs "out") "/lib/girepository-1.0") (string-append "-DXKB_RULES_XML_FILE=" (assoc-ref %build-inputs "xkeyboard-config") "/share/X11/xkb/rules/evdev.xml") (string-append "-DGTK2_IM_MODULEDIR=" (assoc-ref %outputs "gtk2") "/lib/gtk-2.0/2.10.0/immodules") (string-append "-DGTK3_IM_MODULEDIR=" (assoc-ref %outputs "gtk3") "/lib/gtk-3.0/3.0.0/immodules")))) (native-inputs `(("dot" ,graphviz) ("doxygen" ,doxygen) ("extra-cmake-modules" ;; XXX: We can't simply #:use-module due to a cycle somewhere. ,(module-ref (resolve-interface '(gnu packages kde-frameworks)) 'extra-cmake-modules)) ("gettext" ,gettext-minimal) ("glib:bin" ,glib "bin") ("gobject-introspection" ,gobject-introspection) ("intltool" ,intltool) ("libxml2" ,libxml2) ("pkg-config" ,pkg-config) ("python-wrapper" ,python-wrapper))) (inputs `(("cairo" ,cairo) ("dbus" ,dbus) ("ecm" ,ecm) ("enchant" ,enchant-1.6) ("fontconfig" ,fontconfig) ("gtk2" ,gtk+-2) ("gtk3" ,gtk+) ("icu4c" ,icu4c) ("iso-codes" ,iso-codes) ("json-c" ,json-c) ("libx11" ,libx11) ("libxkbcommon" ,libxkbcommon) ("libxkbfile" ,libxkbfile) ("opencc" ,opencc) ("pango" ,pango) ("presage" ,presage) ("xkeyboard-config" ,xkeyboard-config))) (propagated-inputs `(("glib" ,glib))) (synopsis "Input method framework") (description "Fcitx is an input method framework with extension support. It has Pinyin, Quwei and some table-based (Wubi, Cangjie, Erbi, etc.) input methods built-in.") (home-page "https://fcitx-im.org") (license gpl2+))) (define-public fcitx-configtool (package (name "fcitx-configtool") (version "0.4.10") (source (origin (method url-fetch) (uri (string-append "https://download.fcitx-im.org/fcitx-configtool/" "fcitx-configtool-" version ".tar.xz")) (sha256 (base32 "1yyi9jhkwn49lx9a47k1zbvwgazv4y4z72gnqgzdpgdzfrlrgi5w")))) (build-system cmake-build-system) (arguments `(#:configure-flags (list "-DENABLE_GTK2=ON" "-DENABLE_GTK3=ON") #:tests? #f)) ; No tests. (native-inputs `(("glib:bin" ,glib "bin") ("pkg-config" ,pkg-config))) (inputs `(("fcitx" ,fcitx) ("dbus-glib" ,dbus-glib) ("gettext" ,gettext-minimal) ("gtk2" ,gtk+-2) ("gtk3" ,gtk+) ("iso-codes" ,iso-codes))) (home-page "https://fcitx-im.org/wiki/Configtool") (synopsis "Graphic Fcitx configuration tool") (description "Fcitx is an input method framework with extension support. It has Pinyin, Quwei and some table-based (Wubi, Cangjie, Erbi, etc.) input methods built-in. This package provides GTK version of the graphic configuration tool of Fcitx.") (license gpl2+)))