AE
Неймспейсов не хватает.
Size: a a a
2020 June 25
VM
А можешь кусок кода привести? Я пока не сильно въезжаю чего ты хочешь.:)
AE
(defgeneric set-uniform-matrix (shader name mat :key (mat-size nil))) ; вот такой дженерик, который буду потом импементить
; хочется при этом ещё иметь автоматическое выковыривание размера матрицы, чтобы не делать это в каждой имплементации:
(defmacro set-uniform-matrix* (shader name mat)
(set-uniform-matrix shader name mat :mat-size (math:mat-size mat)))
AE
Вот такое слабоумие.
VM
Для всех матриц одинаковое вытаскивание размера?
AE
Да.
AP
Так это же отдельный диалект, зачем он нужен?
Не нужен, могли бы модулем сделать. Но по идее в него без проблем можно перенести схемный код. И его код в схему дернув его макрос. Получится такое с кожурой? :)
AE
О, я кажется придумал.
AE
&aux (mat-size (m:mat-size mat))
LL
Не нужен, могли бы модулем сделать. Но по идее в него без проблем можно перенести схемный код. И его код в схему дернув его макрос. Получится такое с кожурой? :)
Можно
VM
О, я кажется придумал.
Может быть, вот так:
(defgeneric foo1 (x y &optional z))
(defmethod foo1 :around (x y &optional z)
(call-next-method x y (or z (+ y 7))))
(defmethod foo1 ((x (eql 0)) y &optional z)
(print (list x y z)))
(defgeneric foo1 (x y &optional z))
(defmethod foo1 :around (x y &optional z)
(call-next-method x y (or z (+ y 7))))
(defmethod foo1 ((x (eql 0)) y &optional z)
(print (list x y z)))
VM
Где z - это mat-size.
VM
&aux (mat-size (m:mat-size mat))
Хотя, это выглядит лучше.:)
AE
Может быть, вот так:
(defgeneric foo1 (x y &optional z))
(defmethod foo1 :around (x y &optional z)
(call-next-method x y (or z (+ y 7))))
(defmethod foo1 ((x (eql 0)) y &optional z)
(print (list x y z)))
(defgeneric foo1 (x y &optional z))
(defmethod foo1 :around (x y &optional z)
(call-next-method x y (or z (+ y 7))))
(defmethod foo1 ((x (eql 0)) y &optional z)
(print (list x y z)))
Да, можно и так.
AK
Не нужен, могли бы модулем сделать. Но по идее в него без проблем можно перенести схемный код. И его код в схему дернув его макрос. Получится такое с кожурой? :)
Нет, без проблем этого не получится, Scheme - настолько минималистичный стандарт, что абсолютно во всех реализациях есть свои ни с чем не совместимые расширения, которые делают портирование между разными схемами невозможным.
Ещё раз, твоя критика наличия диалектов лиспа - она не от большого ума
Ещё раз, твоя критика наличия диалектов лиспа - она не от большого ума
y
Отдельного чата по stumpwm нет, так что спрошу здесь
Как сделать так, чтобы stumpwm использовал notify-send для сообщений (вроде того, что выпадает по C-t a при дефолтном конфиге)
Как сделать так, чтобы stumpwm использовал notify-send для сообщений (вроде того, что выпадает по C-t a при дефолтном конфиге)
y
Вообще можно заменить функции message, error и т.д., но могут выплыть разные проблемы
y
Сейчас попробовал
В целом неплохо, но большие сообщения разъезжаются
И цвета не поддерживаются
В целом неплохо, но большие сообщения разъезжаются
И цвета не поддерживаются
y
Думаю можно будет закостылить
y
Если что я просто сделал
(defun message (fmt &rest args) (run-shell-command (format nil "notify-send '~a'" (apply 'format nil fmt args))))
Я не гуру лиспа, если что подправьте
(defun message (fmt &rest args) (run-shell-command (format nil "notify-send '~a'" (apply 'format nil fmt args))))
Я не гуру лиспа, если что подправьте