Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Implementation of curry, rcurry and compose in Emacs Lisp. Including some code to make Emacs display these functions in a compact and attractive manner.
;;; Commentary
;;
;; Allows for more compact anonymous functions. The following
;; examples demonstrate the usage.
;;
;; ;; partial application with `curry'
;; (mapcar (» #'+ 2) '(1 2 3 4)) ; => (3 4 5 6)
;;
;; ;; alternate order of arguments with `rcurry'
;; (mapcar (« #'- 1) '(1 2 3 4)) ; => (0 1 2 3)
;;
;; ;; function composition with `compose'
;; (mapcar (∘ #'list (» #'* 2)) '(1 2 3 4)) ; => ((2) (4) (6) (8))
;;
;;; function definitions
(defsubst curry (function &rest arguments)
(lexical-let ((function function)
(arguments arguments))
(lambda (&rest more) (apply function (append arguments more)))))
(defsubst rcurry (function &rest arguments)
(lexical-let ((function function)
(arguments arguments))
(lambda (&rest more) (apply function (append more arguments)))))
(defsubst compose (function &rest more-functions)
(cl-reduce (lambda (f g)
(lexical-let ((f f) (g g))
(lambda (&rest arguments)
(funcall f (apply g arguments)))))
more-functions
:initial-value function))
;;; compact display
(defun pretty-curry-compose ()
(mapc (lambda (pair)
(let ((regexp (car pair))
(symbol (cdr pair)))
(font-lock-add-keywords 'emacs-lisp-mode
`((,regexp
(0 (progn (compose-region (match-beginning 1) (match-end 1)
,symbol)
nil)))))))
'(("(\\(compose\\)[ \t\n\r]" . ?\∘)
("(\\(curry\\)[ \t\n\r]" . ?\»)
("(\\(rcurry\\)[ \t\n\r]" . ?\«))))
(add-to-list 'emacs-lisp-mode-hook 'pretty-curry-compose)
;;; color these functions like keywords
(font-lock-add-keywords 'emacs-lisp-mode
'(("(\\(compose\\)[ \t\n\r]" 1 font-lock-keyword-face)
("(\\(curry\\)[ \t\n\r]" 1 font-lock-keyword-face)
("(\\(rcurry\\)[ \t\n\r]" 1 font-lock-keyword-face)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment