#+TITLE: StumpWM Configuration
#+AUTHOR: Kenneth W Brown III
#+PROPERTY: header-args    :tangle yes

This is my first stab at getting StumpWM up and comfy.

* Package declaration

#+BEGIN_SRC lisp 

(in-package :stumpwm)

#+END_SRC

* Welcome Message

#+BEGIN_SRC lisp 

(setf *startup-message* "Never Stop Never Stopping Hacking!")

#+END_SRC

#+TITLE: StumpWM Configuration
#+AUTHOR: Kenneth W Brown III
#+PROPERTY: header-args    :tangle yes

This is my first stab at getting StumpWM up and comfy.

* Package declaration

#+BEGIN_SRC lisp 

(in-package :stumpwm)

#+END_SRC

* Welcome Message

#+BEGIN_SRC lisp 

(setf *startup-message*         
  (format nil "~{~A~^ ~}" 
    (let ((p (sb-ext:run-program "/usr/bin/fortune" '("-as" "-n 120") :output :stream)))
      (when p
        (unwind-protect
          (with-open-stream (o (sb-ext:process-output p))
            (loop
              :for line := (read-line o nil nil)
              :while line
              :collect line))
          (sb-ext:process-close p))))))
#+END_SRC

Set Welcome message to Fortune
Set Welcome message to Fortune
