css3-transform.lisp

(in-package :cl-css)

(defun transform-origin (x y &optional z)
  "Takes x, y, z percentages, returns a cross-browser CSS3 transform-origin directive"
  (split-directive :transform (apply #'format nil "~a ~a~@[ ~a~]" (mapcar #'%-or-word (list x y z)))))

(defun rotate (degrees)
  "Takes a number of degrees, returns a cross-browser CSS3 rotate directive"
  (split-directive :transform (format nil "rotate(~adeg)" degrees)))

(defun scale (scale-x &optional (scale-y scale-x))
  "Takes an x and y scale factor, returns x-browser CSS3 scale directive"
  (split-directive :transform (format nil "scale(~a,~a)" scale-x scale-y)))

(defun skew (x-deg y-deg)
  (split-directive :transform (format nil "skew(~adeg, ~adeg)" x-deg y-deg)))

(defun translate (x y &key (units :px))
  "Takes an x and y, returns a x-browser CSS3 translate directive.
units should be either :px (the default) or :%."
  (split-directive :transform (format nil "translate(~a~a, ~a~a)" x units y units)))

(defun matrix (&rest 6-numbers)
  "Takes six numbers and uses them to build a CSS3 transformation matrix directive"
  (split-directive :transform (format nil "matrix(~{~a~^,~})" 6-numbers)))