From 01228f89c43d9a40f79eb8e2e9556d8d9fa01fc7 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Mon, 21 Jan 2019 09:19:32 -0200
Subject: WIP: add extra keybindings for Buku actions.

---
 xmonad/xmonad.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'xmonad/xmonad.hs')

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 1f7d47a..ff14005 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -98,8 +98,15 @@ myKeyBindings =
 
       -- save selection (link) in buku
     , ((mod4Mask, xK_c),
-       -- spawn "gksudo -S systemctl restart network-manager")
        spawn "$HOME/dev/libre/dotfiles/scripts/buku-add.sh")
+
+      -- delete selection (link) from buku
+    , ((mod4Mask, xK_d),
+       spawn "$HOME/dev/libre/dotfiles/scripts/buku-delete.sh > ~/tmp/dbg-delete")
+
+      -- archive selection (link) in buku
+    , ((mod4Mask, xK_a),
+       spawn "$HOME/dev/libre/dotfiles/scripts/buku-archive.sh > ~/tmp/dbg-archive")
     ]
 
 startup :: X()
-- 
cgit v1.2.3