528 lines
18 KiB
Scheme
528 lines
18 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2020, 2022 Zhu Zihao <all_but_last@163.com>
|
|
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;; Copyright © 2022 Dominic Martinez <dom@dominicm.dev>
|
|
;;;
|
|
;;; 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 <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (gnu packages fcitx5)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix download)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix build-system cmake)
|
|
#:use-module (guix build-system copy)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (gnu packages anthy)
|
|
#:use-module (gnu packages boost)
|
|
#:use-module (gnu packages curl)
|
|
#:use-module (gnu packages datastructures)
|
|
#:use-module (gnu packages enchant)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages gettext)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages iso-codes)
|
|
#:use-module (gnu packages kde-frameworks)
|
|
#:use-module (gnu packages libevent)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages lua)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages pretty-print)
|
|
#:use-module (gnu packages python)
|
|
#:use-module (gnu packages qt)
|
|
#:use-module (gnu packages textutils)
|
|
#:use-module (gnu packages unicode)
|
|
#:use-module (gnu packages web)
|
|
#:use-module (gnu packages xdisorg)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (gnu packages xorg))
|
|
|
|
(define-public xcb-imdkit
|
|
(package
|
|
(name "xcb-imdkit")
|
|
(version "1.0.3")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5/xcb-imdkit/xcb-imdkit-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "1s58vjkdrgr8h183jz4b4mjn7pbvdc9cli01cn66mgczl9p65hh9"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
'(begin
|
|
;; Remove bundled uthash.
|
|
(delete-file-recursively "uthash")
|
|
#t))))
|
|
(build-system cmake-build-system)
|
|
(inputs
|
|
(list uthash libxcb xcb-util xcb-util-keysyms))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config))
|
|
(home-page "https://github.com/fcitx/xcb-imdkit")
|
|
(synopsis "Input method development support for XCB")
|
|
(description "Xcb-imdkit is an implementation of xim protocol in XCB,
|
|
comparing with the implementation of IMDkit with Xlib, and xim inside Xlib, it
|
|
has less memory foot print, better performance, and safer on malformed
|
|
client.")
|
|
(license license:lgpl2.1)))
|
|
|
|
(define-public fcitx5
|
|
(package
|
|
(name "fcitx5")
|
|
(version "5.0.10")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5/fcitx5/fcitx5-"
|
|
version "_dict.tar.xz"))
|
|
(sha256
|
|
(base32 "0i23skr49n6b30ybm66bkv07dcr0dan5mzxch7x83znfnrpk8z3h"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list (string-append "-DCLDR_DIR="
|
|
(assoc-ref %build-inputs "unicode-cldr-common")
|
|
"/share/unicode/cldr"))))
|
|
(inputs
|
|
`(("cairo" ,cairo)
|
|
("cairo-xcb" ,cairo-xcb)
|
|
("dbus" ,dbus)
|
|
("enchant" ,enchant)
|
|
("expat" ,expat)
|
|
("fmt" ,fmt)
|
|
("gdk-pixbuf" ,gdk-pixbuf)
|
|
("gettext" ,gettext-minimal)
|
|
("glib" ,glib)
|
|
("iso-codes" ,iso-codes)
|
|
("json-c" ,json-c)
|
|
("libevent" ,libevent)
|
|
("libpthread-stubs" ,libpthread-stubs)
|
|
("libuuid" ,util-linux "lib")
|
|
("libx11" ,libx11)
|
|
("libxcb" ,libxcb)
|
|
("libxfixes" ,libxfixes)
|
|
("libxinerama" ,libxinerama)
|
|
("libxkbcommon" ,libxkbcommon)
|
|
("libxkbfile" ,libxkbfile)
|
|
("pango" ,pango)
|
|
("unicode-cldr-common" ,unicode-cldr-common)
|
|
("wayland" ,wayland)
|
|
("wayland-protocols" ,wayland-protocols)
|
|
("xcb-imdkit" ,xcb-imdkit)
|
|
("xcb-util" ,xcb-util)
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)
|
|
("xcb-util-wm" ,xcb-util-wm)
|
|
("xkeyboard-config" ,xkeyboard-config)))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config))
|
|
(native-search-paths
|
|
(list (search-path-specification
|
|
(variable "FCITX_ADDON_DIRS")
|
|
(files '("lib/fcitx5")))))
|
|
(home-page "https://github.com/fcitx/fcitx5")
|
|
(synopsis "Input method framework")
|
|
(description "Fcitx 5 is a generic input method framework.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public fcitx5-lua
|
|
(package
|
|
(name "fcitx5-lua")
|
|
(version "5.0.5")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5/fcitx5-lua/fcitx5-lua-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0f3raxzkq0nwdfpc9hxvg65vga09gznjjgy9dr6jlkamzx8zlyw9"))))
|
|
(build-system cmake-build-system)
|
|
(inputs
|
|
(list fcitx5 lua gettext-minimal libpthread-stubs))
|
|
(native-inputs
|
|
(list extra-cmake-modules))
|
|
(home-page "https://github.com/fcitx/fcitx5-lua")
|
|
(synopsis "Lua support for Fcitx 5")
|
|
(description "Fcitx5-lua allows writing Fcitx5 extension in Lua.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public libime
|
|
(package
|
|
(name "libime")
|
|
(version "1.0.10")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5/libime/libime-"
|
|
version "_dict.tar.xz"))
|
|
(sha256
|
|
(base32 "0dknxf5lf5a6kam39rp7y1h2p47bwb6pnlc8fsrhmiv7rw2pkq0f"))))
|
|
(build-system cmake-build-system)
|
|
(inputs
|
|
(list fcitx5 boost))
|
|
(native-inputs
|
|
(list extra-cmake-modules python)) ;needed to run test
|
|
(home-page "https://github.com/fcitx/libime")
|
|
(synopsis "Library for implementing generic input methods")
|
|
(description "Libime is a library for implementing various input method
|
|
editors.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public fcitx5-gtk
|
|
(package
|
|
(name "fcitx5-gtk")
|
|
(version "5.0.9")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-gtk/fcitx5-gtk-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "07ip4sxf3q895pp7mivv2bdwcmqjnwrmv9pg99jk73cw9bgyq00n"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
(list
|
|
#:tests? #f ;No test
|
|
#:configure-flags
|
|
#~(list (string-append "-DGOBJECT_INTROSPECTION_GIRDIR="
|
|
#$output "/share/gir-1.0")
|
|
(string-append "-DGOBJECT_INTROSPECTION_TYPELIBDIR="
|
|
#$output "/lib/girepository-1.0")
|
|
"-DENABLE_GTK4_IM_MODULE=OFF")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'configure 'patch-install-prefix
|
|
(lambda _
|
|
;; Take care of different versions of GTK because this package
|
|
;; provides IM module for GTK application to use input method.
|
|
(define (split-immodule gtk-version output)
|
|
(substitute* (string-append gtk-version "/CMakeLists.txt")
|
|
(("\\$\\{CMAKE_INSTALL_LIBDIR\\}")
|
|
(string-append output "/lib"))))
|
|
|
|
(let ((gtk2 #$output:gtk2)
|
|
(gtk3 #$output:gtk3))
|
|
(for-each split-immodule
|
|
'("gtk2" "gtk3")
|
|
(list gtk2 gtk3))))))))
|
|
(inputs
|
|
(list fcitx5
|
|
fmt
|
|
libx11
|
|
libxkbcommon
|
|
gettext-minimal
|
|
gobject-introspection
|
|
gtk+-2
|
|
gtk+
|
|
glib))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config
|
|
`(,glib "bin"))) ;for glib-genmarshal
|
|
(outputs '("out" "gtk2" "gtk3"))
|
|
(home-page "https://github.com/fcitx/fcitx5-gtk")
|
|
(synopsis "GLib-based D-Bus client and GTK IM module for Fcitx 5")
|
|
(description "Fcitx5-gtk provides the following functionality in the
|
|
corresponding output:
|
|
|
|
@table @code
|
|
@item out
|
|
GLib-based D-Bus client of Fcitx5.
|
|
@item gtk2
|
|
IM module for GTK+2 applications.
|
|
@item gtk3
|
|
IM module for GTK+3 applications.
|
|
@end table")
|
|
(license license:lgpl2.1+)))
|
|
|
|
;; XXX: This package is separated from fcitx5-gtk for following reasons.
|
|
;; 1. GTK4 has a lot more dependencies, some of which maybe unavailable on
|
|
;; platforms other than x86_64. See <https://issues.guix.gnu.org/53648>.
|
|
;; 2. GTK4 now propagates pango@1.50, it will conflict with GTK3 and GTK2
|
|
;; (propagates pango@1.48) if they're all in the inputs of same package.
|
|
;; See <https://issues.guix.gnu.org/54261>.
|
|
(define-public fcitx5-gtk4
|
|
(package
|
|
(inherit fcitx5-gtk)
|
|
(name "fcitx5-gtk4")
|
|
(arguments
|
|
(list
|
|
#:tests? #f ;No test
|
|
#:configure-flags
|
|
#~(list (string-append "-DCMAKE_CXX_FLAGS=-I"
|
|
#$(this-package-input "fcitx5-gtk")
|
|
"/include/Fcitx5/GClient")
|
|
"-DENABLE_GTK2_IM_MODULE=OFF"
|
|
"-DENABLE_GTK3_IM_MODULE=OFF")
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-before 'configure 'fix-gclient
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(define gclient
|
|
(search-input-file inputs "lib/libFcitx5GClient.so"))
|
|
;; Force cmake search libFcitx5GClient.so in library search
|
|
;; path instead of compiling again.
|
|
(substitute* "gtk4/CMakeLists.txt"
|
|
(("Fcitx5::GClient")
|
|
gclient))))
|
|
(add-before 'build 'enter-gtk4-subdirectory
|
|
(lambda _
|
|
(chdir "gtk4")))
|
|
(add-after 'install 'leave-gtk4-subdirectory
|
|
(lambda _
|
|
(chdir ".."))))))
|
|
(inputs
|
|
(modify-inputs (package-inputs fcitx5-gtk)
|
|
(delete "gtk+")
|
|
(prepend fcitx5-gtk gtk)))
|
|
(outputs '("out"))
|
|
(synopsis "GTK4 IM module for Fcitx 5")
|
|
(description "Fcitx5-gtk4 provides IM module for GTK4 applications.")))
|
|
|
|
(define-public fcitx5-qt
|
|
(package
|
|
(name "fcitx5-qt")
|
|
(version "5.0.7")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-qt/fcitx5-qt-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "1gspj3s1nz6mqbp3z6js5zf7mqicwm32isxlqh6whhwawr9w7vrk"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
(list (string-append "-DCMAKE_INSTALL_QT5PLUGINDIR="
|
|
%output "/lib/qt5/plugins")
|
|
"-DENABLE_QT4=Off")))
|
|
(inputs
|
|
`(("fcitx5" ,fcitx5)
|
|
("libxcb" ,libxcb)
|
|
("libxkbcommon" ,libxkbcommon)
|
|
("qtbase" ,qtbase-5)
|
|
("gettext" ,gettext-minimal)))
|
|
(native-inputs
|
|
(list extra-cmake-modules))
|
|
(home-page "https://github.com/fcitx/fcitx5-qt")
|
|
(synopsis "Qt library and IM module for Fcitx 5")
|
|
(description "Fcitx5-qt provides Qt library for development and IM module
|
|
for Qt based application.")
|
|
(license (list license:lgpl2.1+
|
|
;; Files under qt4(Fcitx5Qt4DBusAddons), qt5/dbusaddons
|
|
;; and qt5/platforminputcontext.
|
|
license:bsd-3))))
|
|
|
|
(define-public fcitx5-anthy
|
|
(package
|
|
(name "fcitx5-anthy")
|
|
(version "5.0.9")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-anthy/fcitx5-anthy-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0i2ahfp1vh0cs3brcsfblzqwszal2qj1ncgb1hbc9v03s1j6bybk"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:tests? #f)) ;; no tests
|
|
(inputs (list fcitx5 anthy gettext-minimal fmt))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config))
|
|
(home-page "https://github.com/fcitx/fcitx5-anthy")
|
|
(synopsis "Anthy Japanese language input for Fcitx 5")
|
|
(description "Fcitx5-Anthy provides Japanese input support to Fcitx5 using
|
|
the Anthy input method.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public fcitx5-chinese-addons
|
|
(package
|
|
(name "fcitx5-chinese-addons")
|
|
(version "5.0.6")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-chinese-addons/fcitx5-chinese-addons-"
|
|
version "_dict.tar.xz"))
|
|
(sha256
|
|
(base32 "11l76gpcfm0x1f6x5m9s37q7ffa7xcsdydlzjdz2s6kk45fvvq89"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
'("-DUSE_WEBKIT=off")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'configure 'split-outputs
|
|
;; Build with GUI supports requires Qt and increase package closure
|
|
;; by 800M on x86_64, so place it under another output.
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(substitute* "gui/pinyindictmanager/CMakeLists.txt"
|
|
(("\\$\\{CMAKE_INSTALL_LIBDIR\\}" _)
|
|
(string-append (assoc-ref outputs "gui") "/lib"))))))))
|
|
(inputs
|
|
`(("fcitx5" ,fcitx5)
|
|
("fcitx5-lua" ,fcitx5-lua)
|
|
("boost" ,boost)
|
|
("libime",libime)
|
|
("curl" ,curl)
|
|
("gettext" ,gettext-minimal)
|
|
("fmt" ,fmt)
|
|
("libpthread-stubs" ,libpthread-stubs)
|
|
("opencc" ,opencc)
|
|
("qtbase" ,qtbase-5)
|
|
("fcitx5-qt" ,fcitx5-qt)
|
|
("qtdeclarative-5" ,qtdeclarative-5)
|
|
("qtwebchannel" ,qtwebchannel)
|
|
("qtwebengine" ,qtwebengine)))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config))
|
|
(outputs '("out" "gui"))
|
|
(home-page "https://github.com/fcitx/fcitx5-chinese-addons")
|
|
(synopsis "Chinese related addons for Fcitx 5")
|
|
(description "Fcitx5-chinese-addons provides Chinese related addons,
|
|
including input methods previous bundled inside Fcitx 4:
|
|
|
|
@itemize
|
|
@item Bingchan
|
|
@item Cangjie
|
|
@item Erbi
|
|
@item Pinyin
|
|
@item Shuangpin
|
|
@item Wanfeng
|
|
@item Wubi
|
|
@item Wubi Pinyin
|
|
@item Ziranma
|
|
@end itemize\n")
|
|
(license (list license:lgpl2.1+
|
|
license:gpl2+
|
|
;; im/pinyin/emoji.txt
|
|
license:unicode))))
|
|
|
|
(define-public fcitx5-configtool
|
|
(package
|
|
(name "fcitx5-configtool")
|
|
(version "5.0.8")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-configtool/fcitx5-configtool-" version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0rajrw914mbl0x7h08cal0sszwyvqg6v3w0vs0c9acs6m438xbw4"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#:configure-flags
|
|
;; KDE is currently not working on Guix, KCM supports doesn't make sense.
|
|
'("-DENABLE_KCM=Off")))
|
|
(inputs
|
|
`(("fcitx5" ,fcitx5)
|
|
("fcitx5-qt" ,fcitx5-qt)
|
|
("qtbase" ,qtbase-5)
|
|
("qtx11extras" ,qtx11extras)
|
|
("kitemviews" ,kitemviews)
|
|
("kwidgetsaddons" ,kwidgetsaddons)
|
|
("libx11" ,libx11)
|
|
("xkeyboard-config" ,xkeyboard-config)
|
|
("libxkbfile" ,libxkbfile)
|
|
("gettext" ,gettext-minimal)
|
|
("iso-codes" ,iso-codes)))
|
|
(native-inputs
|
|
(list extra-cmake-modules pkg-config))
|
|
(home-page "https://github.com/fcitx/fcitx5-configtool")
|
|
(synopsis "Graphical configuration tool for Fcitx 5")
|
|
(description "Fcitx5-configtool is a graphical configuration tool
|
|
to manage different input methods in Fcitx 5.")
|
|
(license license:gpl2+)))
|
|
|
|
(define-public fcitx5-material-color-theme
|
|
(package
|
|
(name "fcitx5-material-color-theme")
|
|
(version "0.1")
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/hosxy/Fcitx5-Material-Color")
|
|
(commit version)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "1mgc722521jmfx0xc3ibmiycd3q2w7xg2956xcpc07kz90gcdjaa"))))
|
|
(build-system copy-build-system)
|
|
(arguments
|
|
`(#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'install
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(use-modules (srfi srfi-26))
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(assets-dir (string-append
|
|
out "/share/fcitx5-material-color-theme"))
|
|
(themes-prefix (string-append out "/share/fcitx5/themes")))
|
|
|
|
(define (install-theme-variant variant target)
|
|
(let ((dir (string-append themes-prefix "/" target))
|
|
(png (string-append "panel-" variant ".png"))
|
|
(conf (string-append "theme-" variant ".conf")))
|
|
(format #t "install: Installing color variant \"~a\" to ~a~%"
|
|
variant dir)
|
|
(substitute* conf
|
|
(("^Name=.*")
|
|
(string-append "Name=" target "\n")))
|
|
(mkdir-p dir)
|
|
(install-file png dir)
|
|
(copy-file conf (string-append dir "/theme.conf"))
|
|
(symlink (string-append assets-dir "/arrow.png")
|
|
(string-append dir "/arrow.png"))))
|
|
|
|
(mkdir-p assets-dir)
|
|
(install-file "arrow.png" assets-dir)
|
|
(for-each
|
|
(lambda (x)
|
|
(install-theme-variant
|
|
x (string-append "Material-Color-" (string-capitalize x))))
|
|
'("black" "blue" "brown" "indigo"
|
|
"orange" "pink" "red" "teal"))
|
|
|
|
(install-theme-variant
|
|
"deepPurple" "Material-Color-DeepPurple")))))))
|
|
(home-page "https://github.com/hosxy/Fcitx5-Material-Color")
|
|
(synopsis "Material Design for Fcitx 5")
|
|
(description "Fcitx5-material-color-theme is a Material Design theme
|
|
for Fcitx 5 with following color variants:
|
|
|
|
@itemize
|
|
@item Black
|
|
@item Blue
|
|
@item Brown
|
|
@item Indigo
|
|
@item Orange
|
|
@item Pink
|
|
@item Red
|
|
@item teal
|
|
@item DeepPurple
|
|
@end itemize\n")
|
|
(license license:asl2.0)))
|