𝘎(
Size: a a a
2021 July 23
PP
Та можно
PP
PP
𝘎(
Ну объясняй
f
Зацени кекв
f
(defcommand battery-notify () ()
(let ((bat0 (get-bat0))
(bat1 (get-bat1)))
(cond
((is-battery-charging)
(if (and (not *bats-low*) (> bat0 10) (> bat1 10))
(progn
(setf *bats-low* t
bat0 t
bat1 t))
(cond
((and (not *bat0-low*) (> bat0 10))
(setf *bat0-low* t))
((and (not *bat1-low*) (> bat1 10))
(setf *bat1-low* t)))))
((and (< bat0 10) (< bat1 10))
(when (not *bats-low*)
(message "Battereys is low")
(setf *bats-low* t)))
((< bat0 10)
(when (not *bat0-low)
(message "Bat0 is low")
(setf *bat0-low* t)))
((< bat1 10)
(when (not *bat1-low)
(message "Bat1 is low")
(setf *bat1-low* t))))))f
Ну и там 3 флажка, и функции get-bat0, и id-battery-cahrging
𝘎(
Бля ну ты б хоть пастой кинул
f
Да кстати
f
Хз работает ли оно, время покажет
𝘎(
Быстро учишься, падаван
f
Кинь твой конфиг стампа
𝘎(
Я пока генту собираю
𝘎(
Устроил полный конфиг bankruptcy
𝘎(
С прелюда свитчаюсь на дум
𝘎(
Но там и интересного особо не было если честно
