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