DSolve[E^y[x] + E^x*y[x] + (E^x + E^y[x]*x)*Derivative[1][y][x] == 0,y[x],x]