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
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
