I’m using AquaEmacs with Emacs-Wiki (EmacsWiki中文FAQ)
(setq user-full-name "Wen Zhang")
(setq user-mail-address "wwzhang@gmail.com")
(set-language-environment "Chinese-GB")
(prefer-coding-system 'utf-8)
;;TAB
(setq-default indent-tabs-mode nil)
(setq default-tab-width 8)
(setq tab-stop-list ())
(loop for x downfrom 40 to 1 do
(setq tab-stop-list (cons (* x 4) tab-stop-list)))
;;sentence and Chinese
(setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(add-to-list 'load-path "~/elisp/emacs-wiki") ;;load-path
(add-to-list 'load-path "~/elisp/")
;;(require 'gnuserv)
;;(gnuserv-start)
(setq mac-option-modifier 'meta) ;;Sets the alt/opetion key as Meta
;;use safari
;;(setq browse-url-browser-function 'browse-url-safari)
;; (defun browse-url-safari (url &optional new-window)
;; "Open URL in a new Safari window."
;; (interactive (browse-url-interactive-arg "URL: "))
;; (unless
;; (string= ""
;; (shell-command-to-string
;; (concat "open -a Safari " url)))
;; (message "Starting Safari...")
;; (start-process (concat "open -a Safari " url) nil "open -a Safari " url)
;; (message "Starting Safari... done")))
;; (defun report-emacs-bug-externally-p () t)
;;Transparency
;;(modify-frame-parameters (selected-frame) '((active-alpha . 0.8)))
;;(modify-frame-parameters (selected-frame) '((inactive-alpha . 0.4)))
;;emacs-wiki
(require 'emacs-wiki)
;;(require 'emacs-wiki-menu)
(require 'emacs-wiki-table)
(setq emacs-wiki-publishing-directory "~/Sites/Wikiwiki")
(setq emacs-wiki-maintainer "mailto:wwzhang@gmail.com")
(setq emacs-wiki-directories '("~/emacs/WiKi"))
(setq emacs-wiki-meta-charset "gb2312")
(defun sacha-emacs-wiki-auto-publish ()
(when (derived-mode-p 'emacs-wiki-mode)
(unless emacs-wiki-publishing-p
(let ((emacs-wiki-publishing-p t)
(emacs-wiki-after-wiki-publish-hook nil))
(emacs-wiki-publish-this-page)))))
(add-hook 'emacs-wiki-mode-hook
(lambda () (add-hook 'after-save-hook 'sacha-emacs-wiki-auto-publish nil t)))
(setq emacs-wiki-style-sheet "")
(setq emacs-wiki-meta-charset "UTF-8")
;;end
;;flyspell
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(autoload 'flyspell-delay-command "flyspell" "Delay on command." t)
(autoload 'tex-mode-flyspell-verify "flyspell" "" t)
(add-hook 'LaTeX-mode-hook 'flyspell-mode) ;;LaTeX
;;todo-mode
(autoload 'todo-mode "todo-mode"
"Major mode for editing TODO lists." t)
(autoload 'todo-show "todo-mode"
"Show TODO items." t)
(autoload 'todo-insert-item "todo-mode"
"Add TODO item." t)
(setq todo-file-do "~/emacs/todo-do")
(setq todo-file-done "~/emacs/todo-done")
(setq todo-file-top "~/emacs/todo-top")
;;planner mode
(add-to-list 'load-path "~/elisp/planner")
(add-to-list 'load-path "~/elisp/remember")
(require 'planner)
(require 'remember)
(require 'planner-id)
(require 'planner-deadline)
(require 'planner-notes-index)
(require 'planner-diary)
(setq planner-carry-tasks-forward t)
;; (global-set-key (kbd " p") 'planner-create-task-from-buffer)
(planner-option-customized 'planner-directory "~/emacs/plans")
(setq planner-publishing-directory "~/Sites/Wikiwiki/plan" )
;;calendar
(planner-calendar-insinuate)
;;(setq planner-calendar-show-planner-files t)
(require 'remember-planner)
(setq remember-handler-functions '(remember-planner-append))
(setq remember-annotation-functions planner-annotation-functions)
;;publish calendar
;;(require 'planner-calendar)
;;(add-hook 'emacs-wiki-mode-hook
;; (lambda ()
;; (add-hook 'emacs-wiki-after-file-publish-hook
;; 'planner-calendar-create-today-link nil t)))
;;end of publis calendar
;;publish iCal
;;(planner-ical-export-file
;; (planner-today)
;; (expand-file-name "tasks.ics"
;; planner-publishing-directory))
;;end
;;del.icio.us-planner
;;(add-to-list 'load-path "~/elisp/delicious-el/")
;;(setq delicious-api-user "mcwolf"
;; delicious-api-password "D974082"
;; delicious-api-from "wwzhang@gmail.com")
;;(require 'delicious)
;;planner-browser
(load "planner-browser")
;;Notes Mode
(load "notesmode.el")
;;frame
;;(setq one-buffer-one-frame nil)
;;shell with ansi color
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
;;default dir
(setq default-directory "~/emacs/")
;;tabbar mode
(require 'tabbar)
(tabbar-mode)
(global-set-key [M-S-left] 'tabbar-backward)
(global-set-key [M-S-right] 'tabbar-forward)
(global-set-key [M-S-up] 'tabbar-forward-group)
(global-set-key [M-S-down] 'tabbar-backward-group)
(setq tabbar-buffer-groups-function 'tabbar-buffer-ignore-groups)
(defun tabbar-buffer-ignore-groups (buffer)
;;Return only one group for each buffer."
(with-current-buffer (get-buffer buffer)
(cond
((or (get-buffer-process (current-buffer))
(memq major-mode
'(comint-mode compilation-mode)))
'("Process")
)
((member (buffer-name)
'("*scratch*" "*Messages*"))
'("Common")
)
((eq major-mode 'dired-mode)
'("Dired")
)
((memq major-mode
'(help-mode apropos-mode Info-mode Man-mode))
'("Help")
)
((memq major-mode
'(rmail-mode
rmail-edit-mode vm-summary-mode vm-mode mail-mode
mh-letter-mode mh-show-mode mh-folder-mode
gnus-summary-mode message-mode gnus-group-mode
gnus-article-mode score-mode gnus-browse-killed-mode))
'("Mail")
)
(t
(list
"default" ;; no-grouping
(if (and (stringp mode-name) (string-match "[^ ]" mode-name))
mode-name
(symbol-name major-mode)))
)
)))
;;end of conf
;;Chinese font
(require 'carbon-font)
;;(require 'color-theme)
;;
(setq calendar-latitude +31.2477)
(setq calendar-longitude +121.4726)
(setq calendar-location-name "Shanghai")
;;Dired
(require 'dired)
(require 'dired-x)
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
(define-key dired-mode-map "o" 'wenzhang-dired-open-mac)
(defun wenzhang-dired-open-mac ()
(interactive)
(let ((file-name (dired-get-file-for-visit)))
(if (file-exists-p file-name)
(shell-command (concat"open " file-name nil )))))
;;end of Dired
;;
(show-paren-mode t)
(setq show-paren-style 'parentheses)
;;emms Music
(add-to-list 'load-path "~/elisp/emms/")
(require 'emms)
(require 'emms-default)
(emms-setup 'default "~/Music/music")
;;open planner to get reminded
(plan)
;;(planner-update-wiki-project)
;;(calendar)
;;(color-theme-billw)
