Add ssh component

source/app.d

@@ -14,7 +14,7 @@ Opts defaultOpts() {
   Opts opts;
 
   opts.pathlen = 3;
-  opts.pchar = "|>";
+  opts.pchar = "*";
 
   return opts;
 }

source/comp/ssh.d

@@ -0,0 +1,22 @@
+module comp.ssh;
+
+import std.process : environment;
+import std.socket : Socket;
+
+string ssh() {
+  string ssh = environment.get("SSH_TTY");
+  string username = environment.get("USER");
+  username = username ? username : "";
+
+  if (!ssh) {
+    return "";
+  }
+
+  auto s = new Socket();
+  scope (exit)
+    s.close();
+
+  string hostname = s.hostName;
+
+  return username ~ "@" ~ hostname;
+}

source/prompt/ps1.d

@@ -6,6 +6,7 @@ import prim.opt;
 
 import comp.hr;
 import comp.path;
+import comp.ssh;
 
 import style;
 import style.color;
@@ -18,6 +19,7 @@ string ps1(Opts opt) {
 
   ps ~= "\n";
   ps ~= (",-(" ~ pathstr ~ ")".set(Color.black)).set(Color.black);
+  ps ~= " " ~ ssh().set(Color.cyan);
   ps ~= "\n";
 
   ps ~= ("`-(" ~ to!string(opt.status).set(Color.yellow) ~ ") ".set(Color.black)).set(Color.black); // prompt char