How to configure emacs by using this file?

Posted by Andy Leman on Super User See other posts from Super User or by Andy Leman
Published on 2011-03-06T23:26:49Z Indexed on 2011/03/07 0:12 UTC
Read the original article Hit count: 611

Filed under:
|

From http://public.halogen-dg.com/browser/alex-emacs-settings/.emacs?rev=1346 I got:

(setq load-path (cons "/home/alex/.emacs.d/" load-path))     
(setq load-path (cons "/home/alex/.emacs.d/configs/" load-path))     
(defconst emacs-config-dir "~/.emacs.d/configs/" "")

(defun load-cfg-files (filelist)
  (dolist (file filelist)
    (load (expand-file-name 
       (concat emacs-config-dir file)))
    (message "Loaded config file:%s" file)
    ))


(load-cfg-files '("cfg_initsplit"
         "cfg_variables_and_faces"
         "cfg_keybindings"
         "cfg_site_gentoo"
         "cfg_conf-mode"
         "cfg_mail-mode"
         "cfg_region_hooks"
         "cfg_apache-mode"
         "cfg_crontab-mode"
         "cfg_gnuserv"
         "cfg_subversion"
         "cfg_css-mode"
         "cfg_php-mode"
         "cfg_tramp"
         "cfg_killbuffer"
         "cfg_color-theme"
         "cfg_uniquify"
         "cfg_tabbar"
         "cfg_python"
         "cfg_ack"
         "cfg_scpaste"
         "cfg_ido-mode"
         "cfg_javascript"
         "cfg_ange_ftp"
         "cfg_font-lock"
         "cfg_default_face"
         "cfg_ecb"
         "cfg_browser"
         "cfg_orgmode"
;        "cfg_gnus"
;        "cfg_cyrillic"
         ))


; enable disabled advanced features
(put 'downcase-region 'disabled nil)
(put 'scroll-left 'disabled nil)
(put 'upcase-region 'disabled nil)

; narrow cursor
;(setq-default cursor-type 'hbar)

(cua-mode)

; highlight current line
(global-hl-line-mode 1)


; AV: non-aggressive scrolling 
(setq scroll-conservatively 100)
(setq scroll-preserve-screen-position 't)
(setq scroll-margin 0)


(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(ange-ftp-passive-host-alist (quote (("redbus2.chalkface.com" . "on") ("zope.halogen-dg.com" . "on") ("85.119.217.50" . "on"))))
 '(blink-cursor-mode nil)
 '(browse-url-browser-function (quote browse-url-firefox))
 '(browse-url-new-window-flag t)
 '(buffers-menu-max-size 30)
 '(buffers-menu-show-directories t)
 '(buffers-menu-show-status nil)
 '(case-fold-search t)
 '(column-number-mode t)
 '(cua-enable-cua-keys nil)
 '(user-mail-address "[email protected]")
 '(cua-mode t nil (cua-base))
 '(current-language-environment "UTF-8")
 '(file-name-shadow-mode t)
 '(fill-column 79)
 '(grep-command "grep --color=never -nHr -e * | grep -v .svn --color=never")
 '(grep-use-null-device nil)
 '(inhibit-startup-screen t)
 '(initial-frame-alist (quote ((width . 80) (height . 40))))
 '(initsplit-customizations-alist (quote (("tabbar" "configs/cfg_tabbar.el" t) ("ecb" "configs/cfg_ecb.el" t) ("ange\\-ftp" "configs/cfg_ange_ftp.el" t) ("planner" "configs/cfg_planner.el" t) ("dired" "configs/cfg_dired.el" t) ("font\\-lock" "configs/cfg_font-lock.el" t) ("speedbar" "configs/cfg_ecb.el" t) ("muse" "configs/cfg_muse.el" t) ("tramp" "configs/cfg_tramp.el" t) ("uniquify" "configs/cfg_uniquify.el" t) ("default" "configs/cfg_font-lock.el" t) ("ido" "configs/cfg_ido-mode.el" t) ("org" "configs/cfg_orgmode.el" t) ("gnus" "configs/cfg_gnus.el" t) ("nnmail" "configs/cfg_gnus.el" t))))
 '(ispell-program-name "aspell")
 '(jabber-account-list (quote (("[email protected]"))))
 '(jabber-nickname "AVK")
 '(jabber-password nil)
 '(jabber-server "halogen-dg.com")
 '(jabber-username "alex")
 '(remember-data-file "~/Plans/remember.org")
 '(safe-local-variable-values (quote ((dtml-top-element . "body"))))
 '(save-place t nil (saveplace))
 '(scroll-bar-mode (quote right))
 '(semantic-idle-scheduler-idle-time 432000)
 '(show-paren-mode t)
 '(svn-status-hide-unmodified t)
 '(tool-bar-mode nil nil (tool-bar))
 '(transient-mark-mode t)
 '(truncate-lines f)
 '(woman-use-own-frame nil))

; ?? ????? ??????? y ??? n?
(fset 'yes-or-no-p 'y-or-n-p)


(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(compilation-error ((t (:foreground "tomato" :weight bold))))
 '(cursor ((t (:background "red1"))))
 '(custom-variable-tag ((((class color) (background dark)) (:inherit variable-pitch :foreground "DarkOrange" :weight bold))))
 '(hl-line ((t (:background "grey24"))))
 '(isearch ((t (:background "orange" :foreground "black"))))
 '(message-cited-text ((((class color) (background dark)) (:foreground "SandyBrown"))))
 '(message-header-name ((((class color) (background dark)) (:foreground "DarkGrey"))))
 '(message-header-other ((((class color) (background dark)) (:foreground "LightPink2"))))
 '(message-header-subject ((((class color) (background dark)) (:foreground "yellow2"))))
 '(message-separator ((((class color) (background dark)) (:foreground "thistle"))))
 '(region ((t (:background "brown"))))
 '(tooltip ((((class color)) (:inherit variable-pitch :background "IndianRed1" :foreground "black")))))

The above is a python emacs configure file. Where should I put it to use it? And, are there any other changes I need to make?

© Super User or respective owner

Related posts about emacs

Related posts about python