From f0f22f3628ed79d532204678ee1ae852376763d9 Mon Sep 17 00:00:00 2001
From: Felix Van der Jeugt <felix.vanderjeugt@gmail.com>
Date: Sat, 23 Jan 2016 11:00:57 +0100
Subject: [PATCH] swap abduco for dtach

---
 local/bin/abduco_list | 3 ---
 local/bin/abduco_run  | 3 ---
 local/bin/dtach_list  | 5 +++++
 local/bin/dtach_run   | 5 +++++
 xmonad/xmonad.hs      | 4 ++--
 5 files changed, 12 insertions(+), 8 deletions(-)
 delete mode 100755 local/bin/abduco_list
 delete mode 100755 local/bin/abduco_run
 create mode 100755 local/bin/dtach_list
 create mode 100755 local/bin/dtach_run

diff --git a/local/bin/abduco_list b/local/bin/abduco_list
deleted file mode 100755
index e9297da..0000000
--- a/local/bin/abduco_list
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/bash
-session="$(abduco | tail -n +2 | cut -f3 | dmenu)"
-urxvtc -e abduco -a "$session"
diff --git a/local/bin/abduco_run b/local/bin/abduco_run
deleted file mode 100755
index 245ded6..0000000
--- a/local/bin/abduco_run
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/bash
-command="$(dmenu_path | dmenu)"
-urxvtc -e abduco -A "$command" $command
diff --git a/local/bin/dtach_list b/local/bin/dtach_list
new file mode 100755
index 0000000..ea186cd
--- /dev/null
+++ b/local/bin/dtach_list
@@ -0,0 +1,5 @@
+#!/bin/bash
+socketdir="${XDG_CACHE_HOME:-$HOME/.cache}/dtach"
+mkdir -p "$socketdir"
+session="$(ls "$socketdir" | dmenu)"
+urxvtc -e dtach -a "$socketdir/$session"
diff --git a/local/bin/dtach_run b/local/bin/dtach_run
new file mode 100755
index 0000000..b33a946
--- /dev/null
+++ b/local/bin/dtach_run
@@ -0,0 +1,5 @@
+#!/bin/bash
+socketdir="${XDG_CACHE_HOME:-$HOME/.cache}/dtach"
+mkdir -p "$socketdir"
+command="$(dmenu_path | dmenu)"
+urxvtc -e dtach -A "$socketdir/$command" $command
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 6da02ea..f8ab2f9 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -184,8 +184,8 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((0, xF86XK_MonBrightnessUp), spawn "xbacklight -inc 10")
     , ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -dec 10")
 
-    , ((modm, xK_s), spawn $ silent "abduco_run")
-    , ((modm, xK_a), spawn $ silent "abduco_list")
+    , ((modm, xK_s), spawn $ silent "dtach_run")
+    , ((modm, xK_a), spawn $ silent "dtach_list")
 
     -- Screens
     , ((modm .|. shiftMask, xK_p), spawn $ silent "push.sh")