Mode:
Duration:
1
2
3
4
5
6
:- dynamic(isDark/1).
isDark(false).
toggle_theme :- isDark(D), D1 is (D = false -> true ; false), retract(isDark(D)), assert(isDark(D1)).
% Example
?- write('Initial Theme: '), isDark(D), write(D), nl, toggle_theme, isDark(D1), write('Toggled Theme: '), write(D1), nl.Coding works best on desktop or with an external keyboard.