Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

initial commit

  • Loading branch information...
commit 45d83a2f26ebd011e0f6bb89b87c67e9876921d5 0 parents
@stesla authored
20 .gitignore
@@ -0,0 +1,20 @@
+loaddefs.el*
+backup/*
+auto-save-list
+custom.el
+*elc
+places
+url/cookies
+thumbs/*
+oddmuse/*
+.newsrc-dribble
+.nnmail-cache
+/#.newsrc-dribble#
+.svn
+.DS_Store
+session*
+tramp
+\#*
+history
+elpa
+swank
1  init.d/00_loadpaths.el
@@ -0,0 +1 @@
+(add-to-list 'load-path st-elisp-dir)
17 init.d/01_packages.el
@@ -0,0 +1,17 @@
+(setq package-archives
+ '(("gnu" . "http://elpa.gnu.org/packages/")
+ ("marmalade" . "http://marmalade-repo.org/packages/")
+ ("Tromey" . "http://tromey.com/elpa/")))
+
+(package-initialize)
+
+(setq st-required-packages '(clojure-mode
+ color-theme
+ magit
+ slime
+ zenburn))
+
+(dolist (package st-required-packages)
+ (when (not (package-installed-p package))
+ (package-refresh-contents)
+ (package-install package)))
2  init.d/backup.el
@@ -0,0 +1,2 @@
+(setq backup-directory-alist
+ (list (cons "." (expand-file-name "backup" user-emacs-directory))))
8 init.d/ido.el
@@ -0,0 +1,8 @@
+(ido-mode t)
+
+(setq ido-enable-prefix nil
+ ido-enable-flex-matching t
+ ido-create-new-buffer 'always
+ ido-use-filename-at-point 'guess
+ ido-max-prospects 10)
+
55 init.d/misc.el
@@ -0,0 +1,55 @@
+(when window-system
+ (setq frame-title-format '(buffer-file-name "%f" ("%b")))
+ (tooltip-mode -1)
+ (mouse-wheel-mode t)
+ (blink-cursor-mode -1)
+ (tool-bar-mode -1))
+
+(set-terminal-coding-system 'utf-8)
+(set-keyboard-coding-system 'utf-8)
+(prefer-coding-system 'utf-8)
+(ansi-color-for-comint-mode-on)
+
+(defalias 'yes-or-no-p 'y-or-n-p)
+
+(setq color-theme-is-global t
+ confirm-kill-emacs 'yes-or-no-p
+ echo-keystrokes 0.1
+ font-lock-maximum-decoration t
+ inhibit-startup-message t
+ kill-whole-line t
+ require-final-newline t
+ transient-mark-mode t
+ uniquify-buffer-name-style 'forward
+ x-select-enable-clipboard t
+ visible-bell t)
+
+(set-default 'indent-tabs-mode nil)
+(set-default 'indicate-empty-lines t)
+
+;; I use these all the time, enable them by default.
+(put 'upcase-region 'disabled nil)
+(put 'narrow-to-region 'disabled nil)
+
+;; Transparently open compressed files
+(auto-compression-mode t)
+
+;; Automatically pick up changes on the filesystem
+(global-auto-revert-mode 1)
+
+;; Enable syntax highlighting for older Emacsen that have it off
+(global-font-lock-mode t)
+
+;; Highlight matching parentheses when the point is on them.
+(show-paren-mode 1)
+
+;; Show the column number in the modeline
+(column-number-mode 1)
+
+ ;; Seed the random-number generator
+(random t)
+
+;; Platform-specific stuff
+(when (eq system-type 'darwin)
+ ;; Work around a bug on OS X where system-name is FQDN
+ (setq system-name (car (split-string system-name "\\."))))
24 init.d/whitespace.el
@@ -0,0 +1,24 @@
+;; Trailing whitespace is evil, but evil is relative.
+(setq-default show-trailing-whitespace t)
+
+(defun st-hide-trailing-whitespace ()
+ "Turn off trailing whitespace highlighting in this buffer."
+ (interactive)
+ (setq show-trailing-whitespace nil))
+
+(mapc (lambda (mode-hook)
+ (add-hook mode-hook 'st-hide-trailing-whitespace))
+ '(Buffer-menu-mode-hook text-mode-hook
+ custom-mode-hook term-mode-hook Info-mode-hook
+ comint-mode-hook buffer-menu-mode-hook apropos-mode-hook
+ tooltip-show-hook gnus-article-mode-hook mail-mode-hook
+ gnus-summary-mode-hook message-mode-hook gnus-group-mode-hook
+ eshell-mode-hook w3-mode-hook w3m-mode-hook help-modeq erc-mode))
+
+(defun st-delete-trailing-whitespace ()
+ "Delete all trailing whitespace in the current buffer."
+ (interactive)
+ (save-excursion
+ (goto-char (point-min))
+ (while (re-search-forward "[\t ]+$" nil t)
+ (delete-region (match-beginning 0) (match-end 0)))))
8 init.el
@@ -0,0 +1,8 @@
+(defconst st-init-dir (expand-file-name "init.d" user-emacs-directory))
+(defconst st-elisp-dir (expand-file-name "elisp" user-emacs-directory))
+
+(if (file-exists-p st-init-dir)
+ (dolist (file (directory-files st-init-dir t "\\.el$"))
+ (load file)))
+
+(color-theme-zenburn)
Please sign in to comment.
Something went wrong with that request. Please try again.