[STUMP] Gimp handling problems

[Johnny]

Hi all,

I am trying to configure the gimp based on the advise on the stumpwmwiki
at http://stumpwm.svkt.org/cgi-bin/wiki.pl/Handling_the_Gimp. 

However, using the code suggested and running 'C-t : gimp' gives the
error 'The function STUMPWM-USER::SCREEN-WIDTH is undefined'.

Attempts to circumvent this by explicitly defining the screen width and
height gives the next error message 'The function STUMPWM-USER::GNEW is
undefined'.

This is the code I am using from the wiki (after explicitly setting
screen size):


(defmacro with-gensyms ((&rest names) &body body)
  `(let ,(loop for n in names collect `(,n (gensym)))
     ,@body))

(defmacro program-with-layout (name &key (command (string-downcase (string 
name)))
                               (props `'(:class ,(string-capitalize command))))
  (with-gensyms (s w h files-path layout rules)
    `(defcommand ,name () ()
       (let* ((,s (current-screen))
;              (,w (prin1-to-string (screen-width ,s)))
;              (,h (prin1-to-string (screen-height ,s)))
              (,w (prin1-to-string '1680))
              (,h (prin1-to-string '1050))
              (,files-path "/home/mattias/.stumpwm/")
              (,layout (concat ,files-path ,command "-layout-" ,w "x" ,h))
              (,rules (concat ,files-path ,command "-rules")))
         (gnew ,command)
         (restore-from-file ,layout)
         (restore-window-placement-rules ,rules)
         (run-or-raise ,command ,props)
         (place-existing-windows))))) ; needed if command was already run

(program-with-layout gimp)


What am I getting wrong here and how to get a nice gimp configuration
with stumpwm?

Thanks,
-- 
Johnny