[clfswm-devel] Create frames on start

[Philippe Brochard]

>> Philippe Brochard <pbrochard at common-lisp.net> writes:
>> ;; -----------------------------------------------------------------------------
>> (defun my-init-hook ()
>>   (let* ((parent    (first (frame-child *root-frame*)))
>>          (default   (first (frame-child parent)))
>>          (devel     (create-bounded-frame "Devel"     parent #'tile-left-layout  1))
>>          (www       (create-bounded-frame "WWW"       parent #'tile-space-layout 2))
>>          (unmanaged (create-bounded-frame "Unmanaged" parent #'tile-left-layout  3)))
>>     (dbg (child-fullname parent))     ; To see where we are
>>     (setf (frame-layout parent) #'tile-left-layout
>>           (frame-name default) "Default"
>>           (frame-layout default) #'tile-left-layout
>>           (frame-managed-type unmanaged) nil)
>>     (bind-on-slot 0 default)
>>     (create-bounded-frame "Devel P2" devel #'tile-left-layout 4)
>>     (create-bounded-frame "Devel P1" devel #'tile-left-layout 5)
>>     (setf (current-child) default)
>>     (focus-all-children (current-child) parent)
>>     ;; We can show all children only once at the end of initialization
>>     (show-all-children)))
>>
>> (add-hook *init-hook* 'my-init-hook)
>> ;; -----------------------------------------------------------------------------
> Thanks, it works very well.
>
>>> Other thing is my "bind-child-on-slot" function, it would be nice to
>>> have additional optional parameter in the normal "bind-on-slot" function
>>> which is bound per default to (current-child), instead of using
>>> (current-child) directly.
>> You're right. This is fixed with the commit c31ef42.
> Super! Thank you!
>
Ok, good.

Best regards,

Philippe