;-*- coding: utf-8 -*-
; Xah Lee's elisp file for loading misc packages.

; 2007-06
;   Xah Lee
; ∑ http://xahlee.org/



;; § ----------------------------------------
; setting paths, loading modules, setup hooks etc.

;; nxhtml mode.
;; (load "~/Documents/emacs stuff/nxhtml/autostart.el")

; load hexcolour minor mode 
;(setq load-path (cons "~/Documents/emacs" load-path))
;(autoload 'hexcolour-mode "hexcolour" nil t nil)

; (add-hook 'html-mode 'css-mode (lambda () (hexcolour-mode 1)))

;(add-hook 'html-mode-hook 'php-mode)
;(remove-hook 'html-mode-hook 'php-mode)

;; ;; the emacs interface to text-based web browser
;; (add-to-list 'load-path "~/Documents/emacs/emacs-w3m-1.4.4")
;; (require 'w3m-load)

;; ;; Steve Yegge's javascript interpreter
;; (add-to-list 'load-path "~/Documents/emacs/ejacs-11-27-08")
;; (autoload 'js-console "js-console" nil t)

;; I-search with initial contents.
;; original source: http://platypope.org/blog/2007/8/5/a-compendium-of-awesomeness
(defvar isearch-initial-string nil)

(defun isearch-set-initial-string ()
  (remove-hook 'isearch-mode-hook 'isearch-set-initial-string)
  (setq isearch-string isearch-initial-string)
  (isearch-search-and-update))

(defun isearch-forward-at-point (&optional regexp-p no-recursive-edit)
  "Interactive search forward for the symbol at point."
  (interactive "P\np")
  (if regexp-p (isearch-forward regexp-p no-recursive-edit)
    (let* ((end (progn (skip-syntax-forward "w_") (point)))
           (begin (progn (skip-syntax-backward "w_") (point))))
      (if (eq begin end)
          (isearch-forward regexp-p no-recursive-edit)
        (setq isearch-initial-string (buffer-substring begin end))
        (add-hook 'isearch-mode-hook 'isearch-set-initial-string)
        (isearch-forward regexp-p no-recursive-edit)))))

(setq load-path (cons "~/.emacs.d/org-7.8.03/lisp/" load-path))

(require 'org-install)