From c779fccd4d9e86ec0a970a2feeecfd36ba8d2fd1 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 21 May 2009 19:19:12 -0500
Subject: [PATCH] mason: use short host name not fully qualified host name

---
 extra/mason/common/common.factor | 5 ++++-
 extra/mason/notify/notify.factor | 2 +-
 extra/mason/report/report.factor | 3 ---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/extra/mason/common/common.factor b/extra/mason/common/common.factor
index d54a17ff91..22e37f8a8c 100755
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@@ -5,9 +5,12 @@ math.functions make io io.files io.pathnames io.directories
 io.directories.hierarchy io.launcher io.encodings.utf8 prettyprint
 combinators.short-circuit parser combinators calendar
 calendar.format arrays mason.config locals debugger fry
-continuations strings ;
+continuations strings io.sockets ;
 IN: mason.common
 
+: short-host-name ( -- string )
+    host-name "." split1 drop ;
+
 SYMBOL: current-git-id
 
 : short-running-process ( command -- )
diff --git a/extra/mason/notify/notify.factor b/extra/mason/notify/notify.factor
index 87447e48cc..122c8a47cd 100644
--- a/extra/mason/notify/notify.factor
+++ b/extra/mason/notify/notify.factor
@@ -10,7 +10,7 @@ IN: mason.notify
         [
             "ssh" , status-host get , "-l" , status-username get ,
             "./mason-notify" ,
-            host-name ,
+            short-host-name ,
             target-cpu get ,
             target-os get ,
         ] { } make prepend
diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index 3ed332abf2..4a2138323c 100644
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -7,9 +7,6 @@ prettyprint sequences xml.syntax xml.writer combinators.short-circuit
 literals splitting ;
 IN: mason.report
 
-: short-host-name ( -- string )
-    host-name "." split1 drop ;
-
 : common-report ( -- xml )
     target-os get
     target-cpu get