create default file in homedir if no PWD

Common/OpenFile.cpp

@@ -654,7 +654,8 @@ void ClearProject()
   Msg::Info("Done clearing all models and views");
 
   new GModel();
-  GModel::current()->setFileName(CTX::instance()->defaultFileName);
+  std::string base = (getenv("PWD") ? "" : CTX::instance()->homeDir);
+  GModel::current()->setFileName(base + CTX::instance()->defaultFileName);
   GModel::current()->setName("");
 #if defined(HAVE_FLTK)
   if(FlGui::available()){

Geo/GeoStringInterface.cpp

@@ -27,8 +27,8 @@ void add_infile(const std::string &text, const std::string &fileNameOrEmpty)
 {
   std::string fileName = fileNameOrEmpty;
   if(fileName.empty()){
-    fileName = CTX::instance()->defaultFileName;
-    GModel::current()->setFileName(fileName);
+    std::string base = (getenv("PWD") ? "" : CTX::instance()->homeDir);
+    GModel::current()->setFileName(base + CTX::instance()->defaultFileName);
     GModel::current()->setName("");
   }