;			     -*-scheme-*-
;;; SYNTAX apply:hook-nick-name:filename
;;; DESC   load file and apply the result to hook's args

(let* ((args (string-split-string *-R-option-argument* ":"))
       (nargs (if (> (length args) 1) #t
		  (error "[rc/apply]"
			 "arg count < 2 in "
			 *-R-option-argument*)))
       (hook-name (cond
		   ((equal? (car args) "post") 'normalize-cooked)
		   (else 'normalize-raw)))
       (file (cadr args)))
  (hook hook-name 'add
      (lambda args
	(message 0 #"\nRunning apply on " file)
	(list (apply (require-load file) args)))))
