From eb288aae3223576ebe3f68f5faaa1c4fd02cb73b Mon Sep 17 00:00:00 2001
From: Nicholas Marriott <nicm@openbsd.org>
Date: Sun, 24 Apr 2011 21:32:07 +0000
Subject: [PATCH] Provide #h for short hostname (no domain) from Michal
 Mazurek.

---
 status.c | 7 +++++++
 tmux.1   | 1 +
 2 files changed, 8 insertions(+)

diff --git a/status.c b/status.c
index ecf19b25..3e5c69ce 100644
--- a/status.c
+++ b/status.c
@@ -410,6 +410,13 @@ status_replace1(struct client *c, struct session *s, struct winlink *wl,
 			fatal("gethostname failed");
 		ptr = tmp;
 		goto do_replace;
+	case 'h':
+		if (gethostname(tmp, sizeof tmp) != 0)
+			fatal("gethostname failed");
+		if ((ptr = strchr(tmp, '.')) != NULL)
+			*ptr = '\0';
+		ptr = tmp;
+		goto do_replace;
 	case 'I':
 		xsnprintf(tmp, sizeof tmp, "%d", wl->idx);
 		ptr = tmp;
diff --git a/tmux.1 b/tmux.1
index af6b78e2..45db380a 100644
--- a/tmux.1
+++ b/tmux.1
@@ -2005,6 +2005,7 @@ may contain any of the following special character sequences:
 .It Li "#(shell-command)" Ta "First line of the command's output"
 .It Li "#[attributes]" Ta "Colour or attribute change"
 .It Li "#H" Ta "Hostname of local host"
+.It Li "#h" Ta "Hostname of local host without the domain name"
 .It Li "#F" Ta "Current window flag"
 .It Li "#I" Ta "Current window index"
 .It Li "#P" Ta "Current pane index"