Solve[ Log[x] + Exp[x] == 1, x]