     ))
 
 (defun udots-packages-installed-p ()
-  (loop for p in udots-packages
-	when (not (package-installed-p p)) do (return nil)
-	finally (return t)))
+  "check if all packages are installed"
+  (catch 'udots-package-installed
+    (dolist (p udots-packages)
+      (when (not (package-installed-p p))
+        (throw 'udots-package-installed nil)))
+    t))
 
 (defun udots-list-foreign-packages ()
   "lists packages not part of udots"


;; setup gui
(when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(set-frame-font "Droid-Sans-Mono-15" t)


;; setup packages
(require 'package)
(add-to-list 'package-archives
             '("org" . "http://orgmode.org/elpa/") t)
(add-to-list 'package-archives
