source: projects/specs/trunk/e/emacs/site-start.el.emacs23 @ 1273

;;; Emacs default settings for Vine Linux
(defcustom emacs-ime (getenv "EMACS_IME")
  "A variable of default Input Method Editor"
  :type 'string)
(if (null emacs-ime)
    (setq emacs-ime "scim"))

(defcustom vine-default t
  "A boolean for all Vine Linux default settings"
  :type 'boolean)
(if (equal (getenv "LOGNAME") "root") 
    (setq vine-default nil))

(defcustom vine-default-base t
  "A boolean for vine-default-base"
  :type 'boolean)

(defcustom vine-default-faces t
  "A boolean for vine-default-faces"
  :type 'boolean)

;; (defcustom vine-default-mouse t
;;   "A boolean for vine-default-mouse"
;;   :type 'boolean)

;; (defcustom vine-default-misc t
;;   "A boolean for vine-default-misc"
;;   :type 'boolean)

(defvar vine-default-setup-hook nil
  "*List of functions to be called at vine-default-setup")

(defvar after-vine-default-setup-hook nil
  "*List of functions to be called at the end of vine-default-setup")

(defun vine-default-setup ()
  "a function for setup to default configurations of Vine Linux."
  (if vine-default
      (progn
        (if vine-default-base (require 'vine-default-base))
        (if vine-default-faces (require 'vine-default-faces))
        ;; (if vine-default-mouse (require 'vine-default-mouse))
        ;; (if vine-default-misc (require 'vine-default-misc))
        (run-hooks 'vine-default-setup-hook)
        (run-hooks 'after-vine-default-setup-hook)
        )
    )
  )

(add-hook 'after-init-hook 'vine-default-setup)


(defun show-vine-default ()
  (interactive)
  (let ((command nil) (version nil)
        (major (number-to-string emacs-major-version)) 
        (minor (number-to-string emacs-minor-version)))
    (setq version (concat major "." minor))
    (setq command (concat "showvdefaultemacs " version))
    (shell-command command)
    )
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; Aspell is a replacement for ispell
;;(setq-default ispell-program-name "aspell")

;; Add python support
;(require 'python-mode)
;(setq auto-mode-alist
;      (cons '("\\.py$" . python-mode) auto-mode-alist))
;(setq interpreter-mode-alist
;      (cons '("python" . python-mode) interpreter-mode-alist))

;; run functions from the /usr/share/emacs/site-lisp/site-start.d directory
;; Files in this directory ending with ".el" are run on startup

;(mapc 'load (directory-files "/usr/share/emacs/site-lisp/site-start.d" t "\\.el\\'"))
(mapc 'load (directory-files "/etc/emacs-EMACS_VERSION/site-start.d" t "\\.el\\'"))

;; Use the rpm-spec-mode for spec files
;(require 'rpm-spec-mode)
;(setq auto-mode-alist
;      (cons '("\\.spec$" . rpm-spec-mode) auto-mode-alist))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; load local settings at the end of site-start.el for local system
(if (file-exists-p (expand-file-name "/etc/emacs/emacs-23-local.el"))
    (load (expand-file-name "/etc/emacs/emacs-23-local.el") nil t nil))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Local Variables:
;; mode: emacs-lisp
;; End: