From 81b3c2ae00ff63321e3e313ce09ae18b005e3874 Mon Sep 17 00:00:00 2001
From: "John Ankarstr\\xf6m" <john@ankarstrom.se>
Date: Sun, 6 Jun 2021 11:09:52 +0200
Subject: Support ~home directories

---
 dwim | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/dwim b/dwim
index a536abb..d5c8646 100755
--- a/dwim
+++ b/dwim
@@ -107,6 +107,9 @@ sub path {
 	return $n if $n =~ /^\// or $n =~ /^~/;
 	my $d = `xtitle`;
 	chomp $d;
+	$d =~ s/.*\(([^(]+)\)$/$1/;
+	$d =~ s,^~([^/]+),/home/$1,;
+	$d =~ s,^~,/home/$ENV{USER},;
 	die "couldn't retrieve current directory\n"
 		if ! -d $d and ! -d ($d = dirname($d));
 	return "$d/$n";
-- 
cgit v1.2.3