Насправді це прямо у посібнику: https://github.com/magnars/dash.el#anaphoric-functions .
Оновлення: перевірка та вирівнювання макросів
Якщо ви використовуєте lispy , починаючи з:
;; anaphoric version
(--map (* it it) '(1 2 3 4))
і перед цим (--map
, ви можете натиснути, xfщоб зателефонувати lispy-flatten
та отримати:
;; anaphoric version
(mapcar (lambda (it) (* it it)) (quote (1 2 3 4)))
Це трохи складніше з цим кодом, оскільки тире надто прагне делегувати та відкладати:
(--reduce (max it acc) '(1 2 3 4))
Після xfM:
(let ((list-value (quote (1 2 3 4))))
(if list-value (--reduce-from (max it acc)
(car list-value)
(cdr list-value))
(let (acc it)
(max it acc))))
Після fjfxfM:
(let ((list-value (quote (1 2 3 4))))
(if list-value (let ((acc (car list-value)))
(--each (cdr list-value)
(setq acc (max it acc)))
acc)
(let (acc it)
(max it acc))))
Після fjxfM:
(let ((list-value (quote (1 2 3 4))))
(if list-value (let ((acc (car list-value)))
(let ((list (cdr list-value))
(it-index 0))
(while list (let ((it (car list)))
(setq acc (max it acc)))
(setq it-index (1+ it-index))
(!cdr list)))
acc)
(let (acc it)
(max it acc))))
Досить сказати, що it
це неявний ітерабельний var і acc
є неявний акумулятор var.
Одного разу я спробував додати короткий ламбда-патч до Emacs, який би дав змогу цим позначенням, які, на мою думку, простіші за анафоричні макроси:
(map #(* % %) '(1 2 3 4))
(cl-reduce #(max %1 %2) '(1 2 3 4))
Однак воно нікуди не дійшло.