DSolve[Derivative[1][y][x] == -(-x - E^y[x]*y[x]*_F1[-Log[x] + y[x]])^(-1),y[x],x]