mason: use short host name not fully qualified host name

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 -- )

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

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