mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-14 10:55:23 -05:00
455 lines
16 KiB
Scheme
455 lines
16 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
|
|
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;;
|
|
;;; 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 git-download)
|
|
#:use-module (guix build-system cmake)
|
|
#:use-module (guix build-system copy)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#: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 gcc)
|
|
#: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
|
|
`(("uthash" ,uthash)
|
|
("libxcb" ,libxcb)
|
|
("xcb-util" ,xcb-util)
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)))
|
|
(native-inputs
|
|
`(("extra-cmake-modules" ,extra-cmake-modules)
|
|
("pkg-config" ,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.8")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5/fcitx5/fcitx5-"
|
|
version "_dict.tar.xz"))
|
|
(sha256
|
|
(base32 "0536sjpgjlg0bf8imz4jf9bdsp7fhm09bkssddji56cc9mgdxx82"))))
|
|
(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
|
|
`(("gcc" ,gcc-9) ; for #include <charconv>
|
|
("extra-cmake-modules" ,extra-cmake-modules)
|
|
("pkg-config" ,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
|
|
`(("fcitx5" ,fcitx5)
|
|
("lua" ,lua)
|
|
("gettext" ,gettext-minimal)
|
|
("libpthread-stubs" ,libpthread-stubs)))
|
|
(native-inputs
|
|
`(("extra-cmake-modules" ,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.7")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5/libime/libime-"
|
|
version "_dict.tar.xz"))
|
|
(sha256
|
|
(base32 "06smx1kqq3qh0xra8070cjfhw79hcm0vksrswk05wq6jyhvrk5sd"))))
|
|
(build-system cmake-build-system)
|
|
(inputs
|
|
`(("fcitx5" ,fcitx5)
|
|
("boost" ,boost)))
|
|
(native-inputs
|
|
`(("gcc" ,gcc-9) ;for #include <filesystem> and ld support
|
|
("extra-cmake-modules" ,extra-cmake-modules)
|
|
("python" ,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.7")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-gtk/fcitx5-gtk-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0x9xwyb3hnb2xl47jkj8zs34fhyf7gshy3bv3jxd66sfkjrscr5v"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
`(#: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")
|
|
;; TODO: Enable it when Guix has GTK4.
|
|
"-DENABLE_GTK4_IM_MODULE=Off")
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'configure 'patch-install-prefix
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(gtk2 (assoc-ref outputs "gtk2")))
|
|
;; Install GTK+ 2 input method module to its own output.
|
|
(substitute* "gtk2/CMakeLists.txt"
|
|
(("\\$\\{CMAKE_INSTALL_LIBDIR\\}")
|
|
(string-append gtk2 "/lib")))))))))
|
|
(inputs
|
|
`(("fcitx5" ,fcitx5)
|
|
("fmt" ,fmt)
|
|
("libxkbcommon" ,libxkbcommon)
|
|
("gobject-introspection" ,gobject-introspection)
|
|
("gtk2" ,gtk+-2)
|
|
("gtk3" ,gtk+)
|
|
("glib" ,glib)
|
|
("libx11" ,libx11)
|
|
("gettext" ,gettext-minimal)))
|
|
(native-inputs
|
|
`(("extra-cmake-modules" ,extra-cmake-modules)
|
|
("pkg-config" ,pkg-config)
|
|
("glib" ,glib "bin"))) ;for glib-genmarshal
|
|
;; TODO: Add "lib" output to reduce the closure size of "gtk2".
|
|
(outputs '("out" "gtk2"))
|
|
(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 a Glib based D-Bus client and IM module
|
|
for GTK+2/GTK+3 application.")
|
|
(license license:lgpl2.1+)))
|
|
|
|
(define-public fcitx5-qt
|
|
(package
|
|
(name "fcitx5-qt")
|
|
(version "5.0.6")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-qt/fcitx5-qt-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32 "0wp88cmy0gn15gkfzl5z4q4qd9j1ssdmgp1rfsbw0cp3qh5x4m69"))))
|
|
(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)
|
|
("gettext" ,gettext-minimal)))
|
|
(native-inputs
|
|
`(("extra-cmake-modules" ,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-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
|
|
`(#: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)
|
|
("fcitx5-qt" ,fcitx5-qt)
|
|
("qtwebkit" ,qtwebkit)))
|
|
(native-inputs
|
|
`(("extra-cmake-modules" ,extra-cmake-modules)
|
|
("pkg-config" ,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.5")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://download.fcitx-im.org/fcitx5"
|
|
"/fcitx5-configtool/fcitx5-configtool-" version ".tar.xz"))
|
|
(sha256
|
|
(base32 "1diwiniqvsvcdwzcx1dqxbvwsr6ajbxs67my0cpn8n22asd5mx8i"))))
|
|
(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)
|
|
("qtx11extras" ,qtx11extras)
|
|
("kitemviews" ,kitemviews)
|
|
("kwidgetsaddons" ,kwidgetsaddons)
|
|
("libx11" ,libx11)
|
|
("xkeyboard-config" ,xkeyboard-config)
|
|
("libxkbfile" ,libxkbfile)
|
|
("gettext" ,gettext-minimal)
|
|
("iso-codes" ,iso-codes)))
|
|
(native-inputs
|
|
`(("gcc" ,gcc-9)
|
|
("extra-cmake-modules" ,extra-cmake-modules)
|
|
("pkg-config" ,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)))
|