Guest User

emacs ini on windows

a guest
Sep 22nd, 2015
131
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;;=Variables=
  2. (custom-set-variables
  3.  ;; custom-set-variables was added by Custom.
  4.  ;; If you edit it by hand, you could mess it up, so be careful.
  5.  ;; Your init file should contain only one such instance.
  6.  ;; If there is more than one, they won't work right.
  7. )
  8. (custom-set-faces
  9.  ;; custom-set-faces was added by Custom.
  10.  ;; If you edit it by hand, you could mess it up, so be careful.
  11.  ;; Your init file should contain only one such instance.
  12.  ;; If there is more than one, they won't work right.
  13. )
  14. ;;Debug
  15. (setq debug-on-error t)
  16.  
  17. ;Default colours are too light (to see colour names do M-x
  18. ;list-colors-display
  19. ;and to see faces do M-x list-faces-display):
  20. (set-face-foreground 'minibuffer-prompt "#118C4E")
  21. (set-face-foreground 'link "#8993b3")
  22. (set-face-foreground 'font-lock-comment-face "#d47d7d")
  23.  
  24. ;;Theme
  25. (load-theme 'deeper-blue)
  26.  
  27.  
  28. ;To disable Fill mode
  29. ;(setq text-mode-hook (quote (turn-on-flyspell text-mode-hook-identify)))
  30. ;(auto-fill-mode -1)
  31. ;Why this?
  32. (setq revert-without-query (quote (".")))
  33.  
  34. ;;Window
  35. (setq default-frame-alist '((top . 3) (left . 250) (width . 190) (height . 60) (menu-bar-lines . 1)))
  36. (tool-bar-mode 0)
  37. (setq speedbar-frame-parameters (quote ((minibuffer) (width . 27) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (left-fringe . 0))))
  38.  
  39. ;;Saves
  40. (setq backup-directory-alist `(("." . "~/.saves")))
  41. (setq backup-by-copying t)
  42. (setq delete-old-versions t
  43.   kept-new-versions 6
  44.   kept-old-versions 2
  45.   version-control t)
  46.  
  47. ;;Tabs
  48. (setq tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40 44 48 52 56 60)))
  49. (setq-default tab-width 4)
  50. (setq c-basic-offset 4)
  51. (setq indent-tabs-mode nil)
  52.  
  53. ;;Cygwin find
  54. (setq find-program "/cygdrive/d/inst/system/cygwin64/bin/find.exe")
  55.  
  56. ;;Misc
  57. (put 'upcase-region 'disabled nil)
  58. (global-set-key (kbd "<f5>") 'revert-buffer)
  59. (global-set-key (kbd "\C-x \C-o") 'other-frame)
  60.  
  61. ;;EasyPG
  62. (require 'epa-file)
  63. (epa-file-enable)
  64.  
  65. ;;Scrolling
  66. ;; scroll one line at a time (less "jumpy" than defaults)
  67. (setq mouse-wheel-scroll-amount '(3 ((shift) . 5))) ;; one line at a time
  68. (setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
  69. (setq mouse-wheel-follow-mouse 't) ;; scroll window under cursor
  70. (setq scroll-step 8) ;; keyboard scroll one line at a time
  71.  
  72. ;;Dired
  73. ;(load "dired-x")
  74. ;(setq dired-omit-files t)
  75.  
  76. ;;=Aliases=
  77. (defalias 'qrr 'query-replace-regexp)
  78.  
  79. ;;=Load path=
  80. (add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/"))
  81. (add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/palette"))
  82. (add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp/icicles"))
  83. ;(add-to-list 'load-path (expand-file-name "~/work/emacs/twittering-mode"))
  84. (eval-after-load "ring" '(progn (require 'ring+))) ;Used by icicles
  85.  
  86. ;;Python
  87. ;(load "my_python")
  88.  
  89. ;;CEDET
  90. ;(load "my_cedet_synchro")
  91. (load "my_cedet") ;custom cpp
  92.  
  93. ;;GNUS
  94. (load "my_gnus")
  95.  
  96. ;;Marmalade
  97. (require 'package)
  98. (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
  99. (package-initialize)
  100. (set-variable 'package-enable-at-startup nil)
  101.  
  102. ;;Twitter
  103. ;(load "my_twitter")
  104.  
  105. ;;=Misc=
  106. ;(require 'icicles)
  107. (load "my_xml")
  108. ;(load "my_clojure")
  109.  
  110. ;;Lua mode
  111. ;(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
  112. ;(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode))
  113. ;(add-to-list 'interpreter-mode-alist '("lua" . lua-mode))
  114.  
  115. (load "my_org_mode")
  116.  
  117. ;;Tracking of recent files
  118. (require 'recentf)
  119. (recentf-mode 1)
  120. (global-set-key (kbd "<f2>") 'recentf-open-files)
  121.  
  122. ;;Use palette to show colors
  123. ;(require 'rgbcodepicker)
  124.  
  125. ;;=Hooks=
  126. ;;Ring a bell unless
  127. (defun my-bell-function ()
  128.   (unless (memq this-command
  129.         '(isearch-abort abort-recursive-edit exit-minibuffer
  130.               keyboard-quit mwheel-scroll down up next-line previous-line
  131.               backward-char forward-char))
  132.     (ding)))
  133. (setq ring-bell-function 'my-bell-function)
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×