config

;; -*-lisp-*-
(ql:quickload "anaphora")
(in-package :cl-user)
(defpackage hfj
  (:use :cl :stumpwm :alexandria :anaphora))
(in-package :hfj)

(set-module-dir (uiop:subpathname* (user-homedir-pathname) "opt/stumpwm/contrib/"))
(setf *config-path* (uiop:subpathname* (user-homedir-pathname) ".config/stumpwm/"))
(load (uiop:subpathname* *config-path* "preload.lisp"))

;; Place local hooks in local.lisp.  Use after-load-conf to attach to sections.
(awhen (probe-file (uiop:subpathname* *config-path* "local.lisp"))
  (load it))
(load-conf "clean.lisp")
(load-conf "defaults.lisp")
(load-conf "debug.lisp")
(load-conf "menu.lisp")
(load-conf "emacs.lisp")
(load-conf "window.lisp")
(load-conf "scratchpad.lisp")
(load-conf "applications.lisp")
(load-conf "groups.lisp")
(load-conf "session.lisp")
(load-conf "binds.lisp")
(load-conf "mouse.lisp")
(load-conf "border.lisp")
(load-conf "mode-line.lisp")