Skip to content

Instantly share code, notes, and snippets.

Created December 4, 2010 22:11
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
(line-number-mode 1)
(global-linum-mode 1)
;; enable visual feedback on selections
(setq transient-mark-mode t)
; highlight during query
(setq query-replace-highlight t)
; highlight incremental search
(setq search-highlight t)
(setq-default inhibit-splash-screen t)
(setq c-default-style "linux")
(setq-default tab-width 4 indent-tabs-mode nil)
(setq truncate-lines nil)
(setq c-basic-offset 4)
(global-set-key (kbd "M-g") 'goto-line)
(require 'color-theme)
(setq color-theme-initialize t)
(global-linum-mode 1)
(toggle-scroll-bar -1)
;; 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.
'(Cursor ((t (:background "#F8F8F2" :foreground "#272822"))))
'(font-lock-comment-face ((((class color) (min-colors 88) (background dark)) (:foreground "#75715E
'(font-lock-function-name-face ((((class color) (min-colors 88) (background dark)) (:foreground "#
'(font-lock-keyword-face ((((class color) (min-colors 88) (background dark)) (:foreground "#F92672
'(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground "#66d9ef"))))
'(font-lock-string-face ((((class color) (min-colors 88) (background dark)) (:foreground "#E6DB74"
'(font-lock-type-face ((((class color) (min-colors 88) (background dark)) (:foreground "#66d9ef"))
'(font-lock-variable-name-face ((((class color) (min-colors 88) (background dark)) (:foreground "#
'(region ((((class color) (min-colors 88) (background dark)) (:background "#49483E"))))
'(show-paren-match ((((class color) (background dark)) (:background "#3E3D32")))))
(osx-key-mode -1)
(global-set-key (kbd "C-<right arrow>") 'forward-word)
(global-set-key (kbd "C-<left arrow>") 'backward-word)
;; emacsd-tile.el -- tiling windows for emacs
(defun swap-with (dir)
(let ((other-window (windmove-find-other-window dir)))
(when other-window
(let* ((this-window (selected-window))
(this-buffer (window-buffer this-window))
(other-buffer (window-buffer other-window))
(this-start (window-start this-window))
(other-start (window-start other-window)))
(set-window-buffer this-window other-buffer)
(set-window-buffer other-window this-buffer)
(set-window-start this-window other-start)
(set-window-start other-window this-start)))))
(global-set-key (kbd "C-M-J") (lambda () (interactive) (swap-with 'down)))
(global-set-key (kbd "C-M-K") (lambda () (interactive) (swap-with 'up)))
(global-set-key (kbd "C-M-H") (lambda () (interactive) (swap-with 'left)))
(global-set-key (kbd "C-M-L") (lambda () (interactive) (swap-with 'right)))
(global-set-key (kbd "M-J") (lambda () (interactive) (enlarge-window 1)))
(global-set-key (kbd "M-K") (lambda () (interactive) (enlarge-window -1)))
(global-set-key (kbd "M-H") (lambda () (interactive) (enlarge-window -1 t)))
(global-set-key (kbd "M-L") (lambda () (interactive) (enlarge-window 1 t)))
(global-set-key (kbd "M-j") 'windmove-down)
(global-set-key (kbd "M-k") 'windmove-up)
(global-set-key (kbd "M-h") 'windmove-left)
(global-set-key (kbd "M-l") 'windmove-right)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment