Guest User

Untitled

a guest
Apr 26th, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.05 KB | None | 0 0
  1. ;; load paths
  2. (setq dotfiles-dir (file-name-directory
  3. (or (buffer-file-name) load-file-name)))
  4. (add-to-list 'load-path dotfiles-dir)
  5. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit"))
  6. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/color-theme"))
  7. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/php-mode-1.5.0"))
  8. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/remember"))
  9. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/w3m"))
  10. (add-to-list 'load-path (concat dotfiles-dir "/elpa-to-submit/magit"))
  11.  
  12. ;; exec-path
  13. (add-to-list 'exec-path "~/bin")
  14. (add-to-list 'exec-path "/usr/local/bin")
  15. (add-to-list 'exec-path "/opt/local/bin")
  16.  
  17. ;; server-start (for emacsclient)
  18. (server-start)
  19.  
  20. ;; env variables
  21. (setq autoload-file (concat dotfiles-dir "loaddefs.el"))
  22. (setq package-user-dir (concat dotfiles-dir "elpa"))
  23. (setq custom-file (concat dotfiles-dir "custom.el"))
  24.  
  25. ;; debug debugging (let's hope we don't have to use this...)
  26. ;; (setq debug-on-error t)
  27.  
  28. ;; set meta to overlap super on Linux
  29. (if (eq system-type 'gnu/linux)
  30. (setq x-super-keysym 'meta))
  31.  
  32. ;; emacs cosmetics
  33. (setq inhibit-splash-screen t)
  34. (ansi-color-for-comint-mode-on)
  35.  
  36. ;; package.el
  37. (when
  38. (load
  39. (expand-file-name "~/.emacs.d/elpa/package.el"))
  40. (package-initialize))
  41.  
  42. ;; auto-save
  43. (defvar user-temporary-file-directory
  44. (concat temporary-file-directory user-login-name "/"))
  45. (make-directory user-temporary-file-directory t)
  46. (setq backup-by-copying t)
  47. (setq backup-directory-alist
  48. `(("." . ,user-temporary-file-directory)
  49. (,tramp-file-name-regexp nil)))
  50. (setq auto-save-list-file-prefix
  51. (concat user-temporary-file-directory ".auto-saves-"))
  52. (setq auto-save-file-name-transforms
  53. `((".*" ,user-temporary-file-directory t)))
  54.  
  55. ;; we need these every session
  56. (require 'cl)
  57. (require 'saveplace)
  58. (require 'ffap)
  59. (require 'uniquify)
  60. (require 'ansi-color)
  61. (require 'recentf)
  62.  
  63. ;;;###begin my loads and requires###;;;
  64. (require 'flyspell)
  65. (require 'gnus)
  66. (require 'pastie)
  67. (require 'scpaste)
  68. (require 'textmate)
  69. ;; (textmate-mode)
  70. (require 'php-mode)
  71. (require 'php-repl)
  72. (require 'conspire)
  73. (require 'shellfm)
  74. (require 'eproject)
  75. (require 'w3m-load)
  76.  
  77. ;; paredit
  78. (require 'paredit)
  79. (autoload 'paredit-mode "paredit"
  80. "Minor mode for pseudo-structurally editing Lisp code." t)
  81. (add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode +1)))
  82. (add-hook 'lisp-mode-hook (lambda () (paredit-mode +1)))
  83. (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
  84. (add-hook 'clojure-mode-hook (lambda () (paredit-mode +1)))
  85. (add-hook 'ruby-mode-hook 'esk-paredit-nonlisp)
  86.  
  87. ;; tramp
  88. (require 'tramp)
  89. (setq tramp-default-method "scp")
  90. (setq recentf-auto-cleanup 'never) ;; disable before we start recentf!
  91. (recentf-mode 1)
  92.  
  93. ;; color-theme
  94. (require 'color-theme)
  95. (eval-after-load "color-theme"
  96. '(progn
  97. (color-theme-initialize)
  98. (color-theme-charcoal-black)))
  99.  
  100. ;; (require 'yasnippet)
  101. ;; (yas/load-directory "~/.emacs.d/snippets/")
  102.  
  103. ;; rudel
  104. (add-to-list 'load-path "~/src/rudel/")
  105. (add-to-list 'load-path "~/src/rudel/jupiter/")
  106. (add-to-list 'load-path "~/src/rudel/obby/")
  107. (require 'rudel-mode)
  108. (require 'rudel-obby)
  109. (load-file "~/src/rudel/rudel-loaddefs.el")
  110. (global-rudel-minor-mode 1)
  111.  
  112. ;; custom defn requires
  113. (require 'defn-ruby)
  114. (require 'defn-registers)
  115. (require 'defn-misc)
  116. (require 'defn-defuns)
  117. (require 'defn-shellfm)
  118. (require 'defn-bindings)
  119. (require 'defn-clojure)
  120. (require 'defn-markdown)
  121. (require 'defn-gnus)
  122. (require 'defn-org)
  123.  
  124.  
  125.  
  126. ;; autoloads
  127. (regen-autoloads)
  128. (load custom-file 'noerror)
  129.  
  130. ;; You can keep system- or user-specific customizations here
  131. (setq system-specific-config (concat dotfiles-dir system-name ".el")
  132. user-specific-config (concat dotfiles-dir user-login-name ".el")
  133. user-specific-dir (concat dotfiles-dir user-login-name))
  134. (add-to-list 'load-path user-specific-dir)
  135.  
  136. (if (file-exists-p system-specific-config) (load system-specific-config))
  137. (if (file-exists-p user-specific-config) (load user-specific-config))
  138. (if (file-exists-p user-specific-dir)
  139. (mapc #'load (directory-files user-specific-dir nil ".*el$")))
Add Comment
Please, Sign In to add comment