DSolve[Derivative[1][y][x] == (y[x]*(1 - x - x^2 - x*Log[x] + x^3*y[x] + x^2*Log[x]*y[x]))/((-1 + x)*x),y[x],x]