a
ну не нашел чел низкоуровневого лиспа
В отличие от прочих идей по CL, что я видел, эта все-таки интересная.
Size: a a a
2021 January 14
a
повторы кода это кстати не так плохо как ты думаешь. Ну не откровенный прям cut&paste, а просто пробежаться по значениям иногода лучше просто чем какой-то тейбл неявный держать и одним махом из него нужное значение вынимать
Вот-вот. Увидеть паттерн легко когда не знаком с предметной областью.
Хотя теоретически того же эффекта можно добиться документацией, богатой примерами, но такое мало кто пишет.
Хотя теоретически того же эффекта можно добиться документацией, богатой примерами, но такое мало кто пишет.
D
https://paste.sr.ht/~liltechdude/6b2988b4f730b26f5f4a38f26eb488fb838432ea вот сейчас уже лучше, но я хз как в этой штуке сдеать по типу (set-option something keys)
D
что бы не писать простынки потом
D
пытался через dolist, но чёта не то
Aß
cl-pushnew не будет так работать, по умолчанию он использует eql для сравнения, а он работает на строках не так, как ты ожидаешь
VL
Artem
У меня 1488 @xFA25E
А ты ювелир
D
A ß
cl-pushnew не будет так работать, по умолчанию он использует eql для сравнения, а он работает на строках не так, как ты ожидаешь
Ок
D
A ß
cl-pushnew не будет так работать, по умолчанию он использует eql для сравнения, а он работает на строках не так, как ты ожидаешь
Насчёт того как не писать set-options есть мысли?
Aß
просто не писать
D
а как тогда пользоваться ПК?
¥
а как тогда пользоваться ПК?
read-only
Aß
(cl-defun start-mpv (path &key start end fullscreen pause)
(cl-remove nil
(list (when fullscreen "--fullscreen")
(when pause "--pause")
(when start (format "--start=%s" start))
(when end (format "--end=%s" end)))))D
Aß
что не?
2021 January 15
D
я поэтому не спрашиваю как делать что-то на начальной стадии
D
что бы не было такого что потом переделывать
Aß
мне лень писать все остальное
D
а как-то сделать по типу
(dolist (el keys) (set-option el)) нельзя?Aß
(cl-defun start-mpv (path &key start end fullscreen pause)
(unless (file-exists-p path)
(user-error "File not found"))
(apply #'call-process
"mpv"
nil
0
nil
(cl-remove nil
(list (when fullscreen "--fullscreen")
(when pause "--pause")
(when start (format "--start=%s" start))
(when end (format "--end=%s" end))
(expand-file-name path)))))