Gimp Script-Fu 画像レイヤー,テキストレイヤー , パスをそれぞれ取得

; レイヤー一覧
(define (get-layer-list image)
  (vector->list 
    (car 
      (cdr 
        (gimp-image-get-layers image)
      )
    )
  )
)

; imagelistの中からテキストレイヤーだけを抽出する
(define (get-text-layers imagelist)
  (if ( null? imagelist )
    '()
     (if (= 1 (car (gimp-drawable-is-text-layer (car imagelist) ) ) )
       (cons
         (car imagelist)
         (get-text-layers (cdr imagelist) )
       )
       (get-text-layers (cdr imagelist) )
     )
  )
)