Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; load paths
- (setq dotfiles-dir (file-name-directory
- (or (buffer-file-name) load-file-name)))
- (add-to-list 'load-path dotfiles-dir)
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit"))
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/color-theme"))
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/php-mode-1.5.0"))
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/remember"))
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/w3m"))
- (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/magit"))
- ;; exec-path
- (add-to-list 'exec-path "~/bin")
- (add-to-list 'exec-path "/usr/local/bin")
- (add-to-list 'exec-path "/opt/local/bin")
- ;; server-start (for emacsclient)
- (server-start)
- ;; env variables
- (setq autoload-file (concat dotfiles-dir "loaddefs.el"))
- (setq package-user-dir (concat dotfiles-dir "elpa"))
- (setq custom-file (concat dotfiles-dir "custom.el"))
- ;; debug debugging (let's hope we don't have to use this...)
- ;; (setq debug-on-error t)
- ;; set meta to overlap super on Linux
- (if (eq system-type 'gnu/linux)
- (setq x-super-keysym 'meta))
- ;; emacs cosmetics
- (setq inhibit-splash-screen t)
- (ansi-color-for-comint-mode-on)
- ;; package.el
- (when
- (load
- (expand-file-name "~/.emacs.d/elpa/package.el"))
- (package-initialize))
- ;; auto-save
- (defvar user-temporary-file-directory
- (concat temporary-file-directory user-login-name "/"))
- (make-directory user-temporary-file-directory t)
- (setq backup-by-copying t)
- (setq backup-directory-alist
- `(("." . ,user-temporary-file-directory)
- (,tramp-file-name-regexp nil)))
- (setq auto-save-list-file-prefix
- (concat user-temporary-file-directory ".auto-saves-"))
- (setq auto-save-file-name-transforms
- `((".*" ,user-temporary-file-directory t)))
- ;; we need these every session
- (require 'cl)
- (require 'saveplace)
- (require 'ffap)
- (require 'uniquify)
- (require 'ansi-color)
- (require 'recentf)
- ;;;###begin my loads and requires###;;;
- (require 'flyspell)
- (require 'gnus)
- (require 'pastie)
- (require 'scpaste)
- (require 'textmate)
- ;; (textmate-mode)
- (require 'php-mode)
- (require 'php-repl)
- (require 'conspire)
- (require 'shellfm)
- (require 'eproject)
- (require 'w3m-load)
- ;; paredit
- (require 'paredit)
- (autoload 'paredit-mode "paredit"
- "Minor mode for pseudo-structurally editing Lisp code." t)
- (add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode +1)))
- (add-hook 'lisp-mode-hook (lambda () (paredit-mode +1)))
- (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
- (add-hook 'clojure-mode-hook (lambda () (paredit-mode +1)))
- (add-hook 'ruby-mode-hook 'esk-paredit-nonlisp)
- ;; tramp
- (require 'tramp)
- (setq tramp-default-method "scp")
- (setq recentf-auto-cleanup 'never) ;; disable before we start recentf!
- (recentf-mode 1)
- ;; color-theme
- (require 'color-theme)
- (eval-after-load "color-theme"
- '(progn
- (color-theme-initialize)
- (color-theme-charcoal-black)))
- ;; (require 'yasnippet)
- ;; (yas/load-directory "~/.emacs.d/snippets/")
- ;; rudel
- (add-to-list 'load-path "~/src/rudel/")
- (add-to-list 'load-path "~/src/rudel/jupiter/")
- (add-to-list 'load-path "~/src/rudel/obby/")
- (require 'rudel-mode)
- (require 'rudel-obby)
- (load-file "~/src/rudel/rudel-loaddefs.el")
- (global-rudel-minor-mode 1)
- ;; custom defn requires
- (require 'defn-ruby)
- (require 'defn-registers)
- (require 'defn-misc)
- (require 'defn-defuns)
- (require 'defn-shellfm)
- (require 'defn-bindings)
- (require 'defn-clojure)
- (require 'defn-markdown)
- (require 'defn-gnus)
- (require 'defn-org)
- ;; autoloads
- (regen-autoloads)
- (load custom-file 'noerror)
- ;; You can keep system- or user-specific customizations here
- (setq system-specific-config (concat dotfiles-dir system-name ".el")
- user-specific-config (concat dotfiles-dir user-login-name ".el")
- user-specific-dir (concat dotfiles-dir user-login-name))
- (add-to-list 'load-path user-specific-dir)
- (if (file-exists-p system-specific-config) (load system-specific-config))
- (if (file-exists-p user-specific-config) (load user-specific-config))
- (if (file-exists-p user-specific-dir)
- (mapc #'load (directory-files user-specific-dir nil ".*el$")))
Add Comment
Please, Sign In to add comment