I’m using AquaEmacs with Emacs-Wiki (EmacsWiki中文FAQ)
(set-language-environment "Chinese-GB") (prefer-coding-system 'utf-8) ;;TAB (setq-default indent-tabs-mode nil) (setq default-tab-width(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)