python.el

(defvar my/skeleton-python-property-list-a)
(defvar my/skeleton-python-property-list-b)
(defvar my/skeleton-python-property-list-c)

(define-skeleton my/skeleton-python-class
  "Skeleton for a class in Python."

  "Class name: "
  > "class " str
  "("
  ((skeleton-read "Base class: ") str  ", ")
  & (nil nil -2 ")")
  | (nil nil -1)
  ":"\n

  > "def __init__(self, "
  
  (setq my/skeleton-python-property-list-a nil)
  (setq my/skeleton-python-property-list-b nil)
  (setq my/skeleton-python-property-list-c nil)
  ((skeleton-read "Property: ") str & ", "
   '(push str my/skeleton-python-property-list-a))
  -2 "):"

  ;; reverse list
  '(while (setq a (pop my/skeleton-python-property-list-a))
     (progn (push a my/skeleton-python-property-list-b)
            (push a my/skeleton-python-property-list-c)))
  
  ((pop my/skeleton-python-property-list-b)
   \n > "self._" str " = " str)
  \n "pass"
  \n
  ((pop my/skeleton-python-property-list-c)
   \n "@property"
   \n "def " str "(self):"
   \n  "return self._" str
   \n
   \n "@" str ".setter"
   \n "def " str "(self, value):"
   \n "self._" str " = value"
   \n "pass"
   \n
   )
  )