diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2020-11-28 23:20:10 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2020-11-28 23:20:10 +0300 |
| commit | e570230d28607d5d0aba6180a339f28d7ef43265 (patch) | |
| tree | fdea71589f0ea34f37b53e4ce8cc7c38b5c1f7bb | |
| parent | guix: Add emacs-org-timed-alerts. (diff) | |
| download | guix-wigust-e570230d28607d5d0aba6180a339f28d7ef43265.tar.gz | |
guix: Add easystroke.
* guix/easystroke-0.6.0-lambda.patch (easystroke): New variable.
| -rw-r--r-- | guix/easystroke-0.6.0-lambda.patch | 17 | ||||
| -rw-r--r-- | guix/wigust/packages/xorg.scm | 42 |
2 files changed, 59 insertions, 0 deletions
diff --git a/guix/easystroke-0.6.0-lambda.patch b/guix/easystroke-0.6.0-lambda.patch new file mode 100644 index 0000000..f9609ff --- /dev/null +++ b/guix/easystroke-0.6.0-lambda.patch @@ -0,0 +1,17 @@ +diff -up easystroke-0.6.0/actions.cc.lambda easystroke-0.6.0/actions.cc +--- easystroke-0.6.0/actions.cc.lambda 2013-03-27 11:52:38.000000000 -0400 ++++ easystroke-0.6.0/actions.cc 2016-02-01 12:04:07.337863849 -0500 +@@ -51,10 +51,10 @@ void TreeViewMulti::on_drag_begin(const + context->set_icon(pb, pb->get_width(), pb->get_height()); + } + +-bool negate(bool b) { return !b; } +- + TreeViewMulti::TreeViewMulti() : Gtk::TreeView(), pending(false) { +- get_selection()->set_select_function(sigc::group(&negate, sigc::ref(pending))); ++ get_selection()->set_select_function([this](Glib::RefPtr<Gtk::TreeModel> const&, Gtk::TreeModel::Path const&, bool) { ++ return !pending; ++ }); + } + + enum Type { COMMAND, KEY, TEXT, SCROLL, IGNORE, BUTTON, MISC }; diff --git a/guix/wigust/packages/xorg.scm b/guix/wigust/packages/xorg.scm index c39a41e..7647038 100644 --- a/guix/wigust/packages/xorg.scm +++ b/guix/wigust/packages/xorg.scm @@ -29,6 +29,7 @@ #:use-module (gnu packages anthy) #:use-module (gnu packages autotools) #:use-module (gnu packages bison) + #:use-module (gnu packages boost) #:use-module (gnu packages check) #:use-module (gnu packages compression) #:use-module (gnu packages emacs) @@ -36,6 +37,7 @@ #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) + #:use-module (gnu packages gcc) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnupg) @@ -131,3 +133,43 @@ i.e. @code{st}, @code{uzbl}, @code{urxvt} and @code{xterm}.") ((#:configure-flags flags) ;; XXX: Broken flags: "--enable-double-buffer" "--with-utempter" `(cons "--enable-exec-xterm" ,flags)))))) + +(define-public easystroke + (let ((commit "f7c1614004e9c518bd4f6f4b3a2ddaf23911a5ef") + (revision "1")) + (package + (name "easystroke") + (version (git-version "0.6.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/thjaeger/easystroke/") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0map8zbnq993gchgw97blf085cbslry2sa3z4ambdcwbl0r9rd6x")) + (patches (search-patches "easystroke-0.6.0-lambda.patch")))) + (build-system gnu-build-system) + (inputs + `(("boost" ,boost) + ("dbus-glib" ,dbus-glib) + ("gtkmm" ,gtkmm) + ("intltool" ,intltool) + ("libxslt" ,libxslt) + ("pkg-config" ,pkg-config) + ("xorg-server" ,xorg-server))) + (native-inputs + `(("gcc" ,gcc-6))) + (arguments + `(#:tests? #f ;no tests + #:make-flags (list "CC=gcc" + (string-append "PREFIX=" %output)) + #:phases + (modify-phases %standard-phases + ;; no configure script + (delete 'configure)))) + (home-page "https://github.com/thjaeger/easystroke/") + (synopsis "") + (description "") + (license license:gpl3+)))) |