(tool-bar-mode -1)
(scroll-bar-mode nil)

(require 'cl)
(defvar emacs-root "/home/tom/")
(labels ((add-path (p)
		  (add-to-list 'load-path 
			       (concat emacs-root p))))
  (add-path "libpf/emacs/")
  (add-path "elisp/")
  ;; (add-path "elisp/guile") ;; no subdirs??
)

(require 'pf)
(pf)