;;;; template-utils.lisp - CLIP Template Processing Utilities
;;;; Proper CLIP-based template rendering using keyword arguments

(in-package :asteroid)

;; Template directory configuration
(defparameter *template-directory*
  (merge-pathnames "template/" (asdf:system-source-directory :asteroid))
  "Base directory for all CLIP templates")

;; Template cache for parsed templates
(defvar *template-cache* (make-hash-table :test 'equal)
  "Cache for parsed template DOMs")

(defun template-path (name)
  "Build full path to template file.
   NAME can be either:
   - Simple name: 'front-page' -> 'template/front-page.ctml'
   - Path with subdirs: 'partial/now-playing' -> 'template/partial/now-playing.ctml'"
  (merge-pathnames (format nil "~a.ctml" name) *template-directory*))

(defun load-template (name)
  "Load and parse a template by name without caching.
   Use this for templates that change frequently during development."
  (plump:parse (alexandria:read-file-into-string (template-path name))))

(defun get-template (template-name)
  "Load and cache a template file.
   Use this for production - templates are cached after first load."
  (or (gethash template-name *template-cache*)
      (let ((parsed (load-template template-name)))
        (setf (gethash template-name *template-cache*) parsed)
        parsed)))

(defun clear-template-cache ()
  "Clear the template cache (useful during development)"
  (clrhash *template-cache*))

(defun render-template-with-plist (template-name &rest plist)
  "Render a template with plist-style arguments - CLIP's standard way
   
   CLIP's process-to-string accepts keyword arguments directly and makes them
   available via (clip:clipboard key-name) in attribute processors.
   
   Example:
   (render-template-with-plist \"admin\"
                               :title \"Admin Dashboard\"
                               :server-status \"🟢 Running\")"
  (let ((template (get-template template-name)))
    ;; CLIP's standard approach: pass keywords directly
    (apply #'clip:process-to-string template plist)))

;; Custom CLIP attribute processor for text replacement
;; This is the proper CLIP way - define processors for custom attributes
(clip:define-attribute-processor data-text (node value)
  "Process data-text attribute - replaces node text content with clipboard value
   Usage: <span data-text=\"key-name\">Default Text</span>"
  (plump:clear node)
  (plump:make-text-node node (clip:clipboard value)))