(add-to-list 'exec-path "/usr/local/bin")
(add-to-list 'exec-path "/usr/X11/bin")
(add-to-list 'exec-path "/usr/local/git/bin")
(add-to-list 'exec-path "/usr/local/MacGPG2/bin")
(add-to-list 'exec-path "/usr/texbin")

(setq ns-right-alternate-modifier 'control)
(setq ns-right-command-modifier 'meta)
(setq ns-command-modifier 'meta)
(setq ns-alternate-modifier 'super)

;; find has bug.  'exec-plus does not work
;; (setq grep-find-use-xargs 'exec)

(setq find-program "/usr/local/bin/gfind")

(setq insert-directory-program "/usr/local/bin/gls")
(require 'wl-load-path)
(require 'wl-generic)
(defun wl-open-dict-word ()
  (interactive)
  (let ((word (current-word)))
    (setq word (read-string
		(format "Search the dictionary for (default %s): " word)
		nil nil word))
    (shell-command (format "open dict:///%s" word))))
(global-set-key (kbd "C-c d") 'wl-open-dict-word)
(require 'wl-emacswiki)
(require 'wl-programming)
(require 'wl-version-control)
(require 'wl-org)
(require 'wl-sync)

(defvar wl-slime-contrib-list
  '(inferior-slime
    slime-asdf
    slime-autodoc
    slime-banner
    slime-c-p-c
    slime-editing-commands
    slime-fancy-inspector
    slime-fancy
    slime-fuzzy
    slime-highlight-edits
    slime-parse
    ;;    slime-presentation-streams
    slime-presentations
    slime-references
    slime-scratch
    slime-tramp
    ;;    slime-typeout-frame
    slime-xref-browser))
(require 'wl-common-lisp)

(require 'wl-mail)
(setq gnus-secondary-select-methods nil)
(remove-hook 'gnus-started-hook 'wl-gnus-set-latest-notified-article)
(remove-hook 'gnus-after-getting-new-news-hook 'wl-gnus-notifications)
(ad-deactivate 'gnus-notifications-action)

(provide 'wl-macosx-init)