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.

---
 bash/aliases.sh         |  9 +++++----
 scripts/buku-archive.sh | 15 +++++++++++++++
 scripts/buku-delete.sh  | 14 ++++++++++++++
 xmonad/xmonad.hs        |  9 ++++++++-
 4 files changed, 42 insertions(+), 5 deletions(-)
 create mode 100755 scripts/buku-archive.sh
 create mode 100755 scripts/buku-delete.sh

diff --git a/bash/aliases.sh b/bash/aliases.sh
index e8ff449..2149d86 100644
--- a/bash/aliases.sh
+++ b/bash/aliases.sh
@@ -25,6 +25,7 @@ alias du="ncdu --color dark"
 alias perl6="rlwrap perl6"
 alias m="mail.sh"
 alias a="atom.sh"
+alias n="newsboat"
 
 alias gnome-control-center="XDG_CURRENT_DESKTOP=GNOME gnome-control-center"
 
@@ -45,9 +46,9 @@ ps1() {
 }
 
 # git
-alias ,s="git status"
-alias ,d="git diff"
-alias ,ds="git diff --staged"
+alias s="git status"
+alias d="git diff"
+alias ds="git diff --staged"
 
 alias reload="source $DOTFILES/bash/tests.sh && locked_init && source ~/.bashrc"
-alias ,r="source $DOTFILES/bash/tests.sh && locked_init && source ~/.bashrc"
+alias r="source $DOTFILES/bash/tests.sh && locked_init && source ~/.bashrc"
diff --git a/scripts/buku-archive.sh b/scripts/buku-archive.sh
new file mode 100755
index 0000000..5af56a0
--- /dev/null
+++ b/scripts/buku-archive.sh
@@ -0,0 +1,15 @@
+#!/usr/bin/env bash
+set -x
+
+SEL="$(xsel)"
+BOOKMARK_ID="$(buku "$SEL" -f 1 --tacit | tail -n +2 | awk '{print $1}')"
+# tail to trim unwanted "waiting for input" output from buku https://github.com/jarun/Buku/blob/d60d56bc9f7f5e1410e99dc8bb4e35abf5068a14/buku#L4619
+
+if [[ ! -z "$BOOKMARK_ID" ]]; then
+  echo "Archiving $BOOKMARK_ID."
+  buku -u "$BOOKMARK_ID" --tag - ril
+  buku -u "$BOOKMARK_ID" --tag + simple-archive
+else
+  echo "Bookmark for '$SEL' not found."
+  exit 1
+fi
diff --git a/scripts/buku-delete.sh b/scripts/buku-delete.sh
new file mode 100755
index 0000000..3e2f3dd
--- /dev/null
+++ b/scripts/buku-delete.sh
@@ -0,0 +1,14 @@
+#!/usr/bin/env bash
+set -x
+
+SEL="$(xsel)"
+BOOKMARK_ID="$(buku "$SEL" -f 1 --tacit | tail -n +2 | awk '{print $1}')"
+# tail to trim unwanted "waiting for input" output from buku https://github.com/jarun/Buku/blob/d60d56bc9f7f5e1410e99dc8bb4e35abf5068a14/buku#L4619
+
+if [[ ! -z "$BOOKMARK_ID" ]]; then
+  echo "Deleting $BOOKMARK_ID."
+  buku -d "$BOOKMARK_ID" --tacit
+else
+  echo "Bookmark for '$SEL' not found."
+  exit 1
+fi
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