(let ((startup-file "/usr/share/emacs/site-lisp/debian-startup.el"))
    (if (and (or (not (fboundp 'debian-startup))
		 (not (boundp  'debian-emacs-flavor)))
	     (file-readable-p startup-file))
	(progn
	  (load-file startup-file)
	;;  (setq debian-emacs-flavor 'emacs21)
	;;  (debian-startup debian-emacs-flavor)
	  (mapcar '(lambda (f)
		     (and (not (string= (substring f -3) "/.."))
			  (file-directory-p f) 
			  (add-to-list 'load-path f)))
		  (directory-files "/usr/share/emacs/site-lisp" t)))))


(normal-erase-is-backspace-mode 0)

(icomplete-mode 99)


(add-hook 'diary-display-hook 'fancy-diary-display)

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

(require 'psvn)

(require 'ange-ftp)

;; mute beep
(setq visible-bell t)

;; inhibit splash 
(setq inhibit-startup-message t)


(set-face-attribute 'mode-line nil :box nil)
;;(set-background-color "pink")

(add-to-list 'load-path "/usr/share/emacs/site-lisp/")

;;(add-to-list 'load-path "/root/rsc3/emacs")
;;(require 'rsc3)


;;(autoload 'goby "goby" nil t)

(add-to-list 'load-path "/usr/local/share/emacs/site-lisp")
(add-to-list 'load-path "/root/sacha-stable/planner")
(add-to-list 'load-path "/root/root/sc_stuff/sw-01/emacs")
(add-to-list 'load-path "/root/root/sc_stuff/sw-40/emacs")
(add-to-list 'load-path "/root/root/experiment/lifecode/goby-0.93")
(add-to-list 'load-path "/root/root/experiment/emacs-jabber-0.7.1")
(add-to-list 'load-path "/root/elisp")
(add-to-list 'load-path "/root/root/experiment")
(add-to-list 'load-path "/root/root/experiment/lifecode")
(add-to-list 'load-path "/root/elisp/apt-el")


(require 'goby)
(require 'org-toc)
(require 'jack)
(require 'rme)
(require 'ecasound)
(require 'jabber)
(require 'x-dict)

;;(add-to-list 'load-path "/root/sacha-stable/remember")
(add-to-list 'load-path "/root/sacha-stable/emacs-wiki")

;;; Load everything ...
(require 'emacs-wiki)
(require 'htmlfontify)
(require 'cl)


(add-to-list 'emacs-wiki-markup-tags 
	     '("fontlock" t t t sd-emacs-wiki-fontlock-tag))



(defun sd-htmlfontify-insert-region (buffer begin end)
  "Insert into BUFFER the htmlified text between BEGIN and END."
  (save-excursion
    (let* ((hfy-optimisations (cons 'skip-refontification hfy-optimisations))
           (input-text (buffer-substring begin end))
           (temp-file (make-temp-file "html-input"))
           output-buffer)
      (with-temp-buffer
        (insert input-text)
        (setq buffer-file-name temp-file)
        (save-excursion (setq output-buffer (htmlfontify-buffer nil nil)))
        (set-buffer-modified-p nil))

      (unwind-protect
          (let (b e yanked-output)
            (set-buffer output-buffer)
            (goto-char (point-min))
            (search-forward "<pre>\n")
            (setq b (line-beginning-position))
            (goto-char (point-max))
            (search-backward "</pre>")
            (forward-line -1)
            (setq e (line-beginning-position))
            (setq yanked-output (buffer-substring-no-properties b e))
            (set-buffer buffer)
            (insert yanked-output))
        (set-buffer output-buffer)
        (set-buffer-modified-p nil)
        (delete-file temp-file)
        (kill-buffer output-buffer)))))

(defun sd-emacs-wiki-fontlock-tag (beg end attrs highlight-p)
 (if highlight-p
      (goto-char end)
   (let ((end-marker (set-marker (make-marker) (1+ end)))))
      (save-restriction
        (narrow-to-region beg end)
        (let* ((mode (cdr (assoc "mode" attrs)))
               (start (progn (forward-line) (point)))
               (stop (progn (goto-char end) (beginning-of-line) (point)))
               (text (buffer-substring-no-properties start stop))
               (buffer (current-buffer)))
          (delete-region beg end)
          (with-temp-buffer
            (insert text)
            (when (and mode (and (stringp mode) (functionp (intern mode))))
              (funcall (intern mode))
              (font-lock-fontify-buffer))
            (sd-htmlfontify-insert-region buffer (point-min) (point-max)))
          (goto-char (point-min))
          (insert "<pre class=\"fontlock\">\n")
          (goto-char (point-max))
          (insert "</pre>\n")
          (add-text-properties (point-min) (point-max)
                               '(rear-nonsticky (read-only) read-only t))))
      (goto-char end)))





(require 'emacs-wiki-mathml)



(global-set-key [a] esc-map)

;; (global-set-key "\C-h" 'delete-backward-char)
 (global-set-key "\C-xh" 'help)

;;(normal-erase-is-backspace-mode 1)

(setq inferior-lisp-program "lisp")
(setq inferior-scheme-program "mzscheme")

;;(load "/root/acl70_trial/eli/fi-site-init")

;;(require 'w3m-load)

;; Load planner
(require 'planner)
(require 'planner-w3m)
;;(require 'planner-diary)
(require 'planner-bookmark)
;;(require 'remember-planner)

;;(setq remember-handler-functions '(remember-planner-append))
;;(setq remember-annotation-functions planner-annotation-functions)

(global-set-key "\C-xp" 'planner-goto-plan-page)
(global-set-key "\C-xa" 'upload-all)

;; org-mode tests:

(setq org-default-notes-file "~/svn_test/trunk/orgpub/test.org")


(setq org-export-with-section-numbers nil)
(setq org-export-with-toc nil)

(setq org-reverse-note-order t)  ;; note at beginning of file by default.
(setq org-adapt-indentation nil)


(defun remember-to-org ()
  "Remember to Org."
  (interactive)
  (let ((remember-annotation-functions   ;; (1)
	  (cons 'org-remember-annotation
		       remember-annotation-functions)))
    (remember)
    (set (make-variable-buffer-local
	    'remember-handler-functions)
	  '(org-remember-handler))))      ;; (2)

(defun remember-to-planner ()
  "Remember to Planner."
  (interactive)
  (let ((remember-annotation-functions   ;; (3)
	  (append planner-annotation-functions
		   remember-annotation-functions)))
    (remember)
    (set (make-variable-buffer-local
	    'remember-handler-functions)
	  '(remember-planner-append))))      ;; (4)

(global-unset-key (kbd "C-c r"))  ;; (5)
(global-set-key (kbd "C-c r o") 'remember-to-org)
(global-set-key (kbd "C-c r p") 'remember-to-planner)

(setq org-remember-templates
      '(("Todo" ?t "* TODO %?\n  %i\n  %a" "~/TODO.org")
        ("private" ?p "* %U %?\n\n  %i\n  %a" "~/svn_test/trunk/notes.org")
	("web" ?w "* %u %c \n\n%i" "~/svn_test/trunk/orgpub/bookmarks.org")))


;;(setq remember-annotation-functions '(org-remember-annotation))
;;(setq remember-handler-functions '(org-remember-handler))
;;(add-hook 'remember-mode-hook 'org-remember-apply-template)

(org-remember-insinuate)

  
(require 'org-blog)

(require 'iswitchb)  
(iswitchb-mode 1)

(require 'ido)
(ido-mode t)

(load "remem.el")
(setq remem-prog-dir "/usr/bin")
(setq remem-database-dir "~/experiment/RA-indexes")
(setq remem-scopes-list '(("svn" 6 5 500) ("experiment" 6 5 500)))
;;(setq remem-terminal-mode t)
(setq remem-load-original-suggestion  nil)

(add-to-list 'load-path "/root/root//SuperCollider3/linux/scel/el")

;;(require 'sclang)

(setq inferior-lisp-program "sbcl")

;;(add-to-list 'load-path "/oldroottrue/oldroot/root//slime-1.0")
(require 'slime)
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
(setq common-lisp-hyperspec-root "file:///root/experiment/HyperSpec/")

(add-to-list 'load-path "/root/")
;;(load "misc/wiki-remote.el")

(defun insert-current-time()
  "Insert current time"
  (interactive "*")
  (insert (current-time-string)))

(defun remove-line-breaks ()
  (interactive)
  (let ((fill-column 9999))
    (fill-individual-paragraphs (point-min) (point-max))))

(defun upload-all ()
  (interactive)
  (emacs-wiki-publish))
  ;;(shell-command "/usr/bin/sitecopy -u site"))



(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(browse-url-browser-function (quote w3m))
 '(dired-listing-switches "-l")
 '(display-time-interval 1)
 '(erc-fill-variable-maximum-indentation 0)
 '(global-font-lock-mode t nil (font-lock))
 '(image-dired-show-all-from-dir-max-files 500)
 '(org-agenda-files (quote ("~/TODO.org" "~/experiment/diary.org" "~/experiment/event.eev.org")))
 '(org-toc-default-depth 4)
 '(org-toc-follow-mode t)
 '(org-toc-margin-format "")
 '(org-toc-show-subtree-mode nil)
 '(planner-day-page-template "")
 '(planner-default-section (quote))
 '(planner-diary-string "* ----**")
 '(planner-plan-page-template "")
 '(planner-rss-base-url "http://1010.co.uk/")
 '(planner-rss-feed-limits (quote (("feed.rss" nil 10))))
 '(planner-sections (quote ((tasks . "") (notes . "__"))))
 '(scheme-program-name "mzscheme")
 '(version-control t)
 '(wdired-allow-to-change-permissions (quote advanced)))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(org-level-1 ((t (:inherit (outline-1 default) :background "black" :foreground "blue" :inverse-video nil :weight bold : height 2.0))))
 '(org-level-2 ((t (:inherit outline-1 :foreground "black" :weight bold :height 1.0))))
 '(org-level-3 ((t (:inherit outline-1 :foreground "red" :weight bold :height 1.0))))
 '(org-level-4 ((t (:inherit outline-1 :foreground "orange" :weight bold :height 1.0)))))

;;(add-hook 'c-mode-hook
;;	  (lambda ()
;;	    (c-set-style "linux")))



;;(setq kept-new-versions 5) ;;; or any other value
;;(setq kept-old-versions 5)
;;(setq backup-by-copying-when-linked t)
;;(setq backup-by-copying-when-mismatch t)

;;(defvar hyperb:dir "/root/hyperbole/")

;;(load (expand-file-name "hversion" hyperb:dir))
;;(load (expand-file-name "hyperbole" hyperb:dir))

;;To fully load Hyperbole upon startup, add the additional line:

;;(require 'hsite)

 (require 'bbdb)                                                       
(bbdb-initialize)          

;;(setq emacs-wiki-projects
 ;;     `(("default" . ((emacs-wiki-directories . ("~/Wiki"))))
  ;;      ("work" . ((fill-column . 65)
   ;;              (emacs-wiki-directories . ("~/testwiki/"))))))

;; for append-remem stuff remem-append i think

;;(add-to-list 'load-path "~/elisp")
(load "snuff.el")

          
(add-to-list 'load-path "/root/root/misc/emms/")
(require 'emms-setup)

     (emms-standard)
     (emms-default-players)
  
      
;;(require 'emms-default)
;;(emms-setup 'tiny "/root/mpdrei")
        

 ;; Show the current track each time EMMS
          ;; starts to play a track with "NP : "
        (add-hook 'emms-player-started-hook 'emms-show)
        (setq emms-show-format "NP: %s")
        
          ;; When asked for emms-play-directory,
          ;; always start from this one 
        (setq emms-source-file-default-directory "~/mp3/")
        
          ;; Want to use alsa with mpg321 ? 
        (setq emms-player-mpg321-parameters '("-o" "alsa"))
      

(add-to-list 'load-path "/root/root/delicious-el")


;;  (require 'delicious)
;;  (setq delicious-api-user "xxxxx23"
;;        delicious-api-password "del23")
;;  (delicious-api-register-auth)

(require 'planner-rss)
(add-to-list 'remember-planner-append-hook 'planner-rss-add-note t)

; set up RSS blogging
(setq planner-rss-base-url "http://1010.co.uk/")
(setq planner-rss-category-feeds '(("."
                                    "~/Wiki/feed.rss"
                                    "<?xml version="1.0" encoding="utf-8"?><rss version="2.0"><channel>
<title>ap/xxxxx/1010</title>
<link>http://1010.co.uk/</link>
<description>xxxxx projects</description>
</channel></rss>
")))

;;(setq planner-rss-feed-limits '(("." nil 10)))

;;(setq eshell-prompt-function
;;  (lambda nil
;;    (concat
;;     (eshell/pwd)
;;     " x_-- ")))



;;(require 'ssc)
(require 'planner-multi)
(require 'planner-lisp)
;;(require 'hen)
(require 'quack)


(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)

(global-set-key "\C-c1" 'org-toc-test)

(setq quack-fontify-threesemi-p nil)
;;(require 'ilisp)

;;(defdialect snd "Snd" guile
;;         (setq comint-prompt-regexp "^>+")
;;         (setq ilisp-complete-command nil)
         ;; try to autodetect the binary
;;         (unless snd-program
 ;;          (cond
   ;;         ((file-executable-p "/usr/bin/snd")
     ;;        (setq snd-program "/usr/bin/snd"))
       ;;     (t (setq snd-program "snd")))))

       ;;(add-hook 'snd-hook
         ;;        (lambda ()

           ;;        ))
       ;; if you have the binary somewhere else:
       ;; (setq snd-program "snd")

;;(define-key slime-mode-map [up] ')

;; Beginning of the eev block:
;; See: (find-eev "eev-rctool" "new_block_emacs")
;;
;;(add-to-list 'load-path "~/experiment/eev")
;;(load-library "eev.el")         ; (find-eev "eev.el")
;;(eev-mode 1)			; (find-efunctiondescr 'eev-mode)
;;(load-library "eev-bounded.el") ; (find-eev "eev-bounded.el")
;;(load-library "eev-insert.el")  ; (find-eev "eev-insert.el")
;;(load-library "eev-steps.el")   ; (find-eev "eev-steps.el")
;;(load-library "eev-glyphs.el")  ; (find-eev "eev-glyphs.el")
;;(load-library "eev-compose.el") ; (find-eev "eev-compose.el")
;;(load-library "eev-langs.el")   ; (find-eev "eev-langs.el")
;;(eev-set-aliases)               ; (find-eev "eev.el")
;;(eev-set-default-glyphs)
;;
;; End of the eev block.

;; from xsteve:

;;; find file at point
(require 'ffap)
;; rebind C-x C-f and others to the ffap bindings (see variable ffap-bindings)
(ffap-bindings)
;; C-u C-x C-f finds the file at point
(setq ffap-require-prefix t)
;; browse urls at point via w3m
(setq ffap-url-fetcher 'w3m-browse-url)

(load "dired-x")

;; save a list of open files in ~/.emacs.desktop
;; save the desktop file automatically if it already exists
;;(setq desktop-save 'if-exists)
;;(desktop-save-mode 1)

;; save a bunch of variables to the desktop file
;; for lists specify the len of the maximal saved data also
(setq desktop-globals-to-save
      (append '((extended-command-history . 30)
                (file-name-history        . 100)
                (grep-history             . 30)
                (compile-history          . 30)
                (minibuffer-history       . 50)
                (query-replace-history    . 60)
                (read-expression-history  . 60)
                (regexp-history           . 60)
                (regexp-search-ring       . 20)
                (search-ring              . 20)
                (shell-command-history    . 50)
                tags-file-name
                register-alist)))

(diary)

     (setq org-agenda-custom-commands
           '(("n" agenda ""
              ((org-agenda-ndays 100)))))

    (setq ibuffer-saved-filter-groups
          (quote (("default"
                   ("dired" (mode . dired-mode))
                   ("org" (mode . org-mode))
                   ("erc" (mode . erc-mode))
                   ("planner" (or
                               (name . "^\\*Calendar\\*$")
                               (name . "^diary$")
                               (mode . muse-mode)))
                   ("emacs" (or
                             (name . "^\\*scratch\\*$")
                             (name . "^\\*Messages\\*$")))
                   ("gnus" (or
                            (mode . message-mode)
                            (mode . bbdb-mode)
                            (mode . mail-mode)
                            (mode . gnus-group-mode)
                            (mode . gnus-summary-mode)
                            (mode . gnus-article-mode)
                            (name . "^\\.bbdb$")
                            (name . "^\\.newsrc-dribble")))))))

    (add-hook 'ibuffer-mode-hook
              (lambda ()
                (ibuffer-switch-to-saved-filter-groups "default")))


(setq planner-bookmark-take-note-after-set-bookmark-flag nil)

(require 'org-annotation-helper)

(setq gnus-use-dribble-file nil)

(load "planner-ext")

;;(load "apt-mode")

(require 'doc-view)

(server-start)