selectShowPassword :: String -> X ()
selectShowPassword passLabel = runInTerm "" $ "zsh -c \"/home/yzhou/bin/scripts/pass1 " ++ passLabel ++ "| less\""
selectShowPassword :: String -> X ()
selectShowPassword passLabel = runInTerm "" $ "zsh -c \"/home/yzhou/bin/scripts/pass1 " ++ passLabel ++ "| less\""
selectShowPassword passLabel = runInTerm "" $ "zsh -c \"/home/yzhou/bin/scripts/pass1 " ++ passLabel ++ "| less\""