;;; ll-button --- luki button -*- lexical-binding: t -*-
;;
;;; Commentary:
;;
;;; Code:

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)

(defun ll-insert-button (label fun &rest args)
  (insert-text-button (@f "[ %s ]" label) 'action (L (_) (apply fun args))))

;; test:
;; (ll-insert-button "test"  #'insert "arg!!!")

(<- 'll-button)
;;; ll-button.el ends here