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


;; 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)

    ))

(defun udots-packages-installed-p ()
  "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"
