@@ -8,3 +8,4 @@

 .xmonad/xmonad.hi

 .xmonad/xmonad.o

+[#]*[#]

@@ -1 +1 @@

-Subproject commit 329bd1dbd87d9aa47550ae3c74500d91ac3cee4e

+Subproject commit 3e5de95d612e668bd0fb7636c9bae87ac5ac990e

@@ -28,3 +28,4 @@ background=#00002b2b3636

 23=#d8d8d8d8d8d8

 cursor=#9393a1a1a1a1

 palette_size=16

+bold=#ffffffffffff

@@ -1,17 +1,23 @@

 #!/usr/bin/sbcl --script

-(load #p"~/.sbclrc")

+#+sbcl (load #p"~/.sbclrc")

+#+ecl (load #p"~/.eclrc")

+

+(defun get-project-name ()

+  #+sbcl (cadr sb-ext:*posix-argv*)

+  #+ecl (car (last si:*command-args*)))

 (eval-when (:compile-toplevel :load-toplevel :execute)

   (ql:quickload :fwoar.lisputils)

-  (ql:quickload :swank-client)

+  ;(ql:quickload :swank-client)

   (ql:quickload :quickproject))

 (defparameter *host* "localhost")

 (defparameter *port* 4005)

+(defparameter *project-name* (get-project-name))

 (defparameter *out* 

   (fw.lu:let-each (:be *)

-    (cadr sb-ext:*posix-argv*)

+    *project-name*

     (uiop:ensure-directory-pathname *)

     (merge-pathnames *)))

@@ -20,10 +26,11 @@

                                           :alexandria

                                           :serapeum))

-(swank-client:with-slime-connection (conn *host* *port*)

-  (swank-client:slime-eval

-    `(progn

-       (push ,(car asdf:*central-registry*) asdf:*central-registry*))

-    conn))

+;(swank-client:with-slime-connection (conn *host* *port*)

+;  (swank-client:slime-eval

+;    `(progn

+;       (push ,(car asdf:*central-registry*) asdf:*central-registry*)

+;       (ql:quickload ,*project-name*))

+;    conn))

 ; vim: set ft=lisp:

@@ -1,6 +1,8 @@

 #!/bin/zsh

+

 export PATH=$HOME/bin:$PATH

-export LD_LIBRARY_PATH=/home/edwlan/gtk-git/inst/lib/:/home/edwlan/lib:$LD_LIBRARY_PATH

+#export LD_LIBRARY_PATH=/home/edwlan/gtk-git/inst/lib/:/home/edwlan/lib:$LD_LIBRARY_PATH

+export LD_LIBRARY_PATH=/home/edwlan/lib:$LD_LIBRARY_PATH

 #xrandr --output HDMI-0 --mode 1920x1200 --left-of VGA-0

 #xrandr --output HDMI-0 --primary

 #xrandr --output VGA-0 --mode 1024x768

@@ -15,54 +17,62 @@ xmodmap $HOME/.xmodmap

 xsetroot -solid black

 xsetbg $HOME/.xmonad/cheatsheet.png

 if [ -e $HOME/Pictures/background.png ]; then

-   xloadimage -onroot -quiet $HOME/Pictures/background.png

+  xloadimage -onroot -quiet $HOME/Pictures/background.png

 fi

-conky -bd -a middle_left &

+init () {

+  #conky -bd -a middle_left &

-xscreensaver -no-splash &

+  xscreensaver -no-splash &

-# Set up an icon tray

-#trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x000000 --height 17 &

+  # Set up an icon tray

+  #trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --tint 0x000000 --height 17 &

-#synergy

-synergys

+  #synergy

+  #synergys

-# notifications

+  # notifications

-dunst &

+  dunst &

-# dropbox

+  # dropbox

-dropbox start &

-btsync

+  dropbox start &

+  btsync

-# notes

+  # notes

-tomboy &

+  tomboy &

-# mixer

+  # mixer

-qasmixer -t &

+  qasmixer -t &

-# Fire up apps

+  # Fire up apps

+  SHAIRPORT=$HOME/github_repos/shairport/shairport 

+  if [[ -x $SHAIRPORT ]]; then

+    $SHAIRPORT -a srv2 -o pulse -d | swap_variable SHAIRPORT_PID

+  fi

-$HOME/github_repos/shairport/shairport -a srv2 -o pulse -d | swap_variable SHAIRPORT_PID

+  #sonata --hidden &

-sonata --hidden &

+  if [[ -x /usr/bin/nm-applet ]] ; then

+    nm-applet --sm-disable &

+  fi

-if [[ -x /usr/bin/nm-applet ]] ; then

-  nm-applet --sm-disable &

-fi

+  gnome-settings-daemon &

+

+}

+

+( init ) &

-gnome-settings-daemon &

 eval `gnome-keyring-daemon --start --components=gpg,pkcs11,secrets,ssh`

 export GNOME_KEYRING_CONTROL

 export SSH_AUTH_SOCK

 export GPG_AGENT_INFO

 export GNOME_KEYRING_PID

-exec ssh-agent /home/edwlan/bin/stumpwm

+exec /home/edwlan/bin/stumpwm

 #exec xmonad