Skip to content

Commit

Permalink
Zeroing in on final emacs config
Browse files Browse the repository at this point in the history
  • Loading branch information
Caleb Epstein committed Jul 16, 2014
1 parent 88ec0c8 commit d802311
Show file tree
Hide file tree
Showing 3 changed files with 23 additions and 2 deletions.
5 changes: 3 additions & 2 deletions personal/caleb.el
Original file line number Diff line number Diff line change
@@ -1,6 +1,7 @@
(setq prelude-guru nil)
(setq sp-use-paredit-bindings nil)
(setq ibuffer-expert t)
(desktop-save-mode 1)

(require 'diminish)

Expand All @@ -11,6 +12,7 @@

(require 'undo-tree)
(global-undo-tree-mode 1)

(eval-after-load "diminish"
'(progn
(eval-after-load "undo-tree"
Expand All @@ -23,5 +25,4 @@
(eval-after-load "whitespace"
'(diminish 'whitespace-mode ""))))

(global-set-key [remap move-beginning-of-line]
'move-beginning-of-line)
(global-set-key [remap move-beginning-of-line] 'move-beginning-of-line)
19 changes: 19 additions & 0 deletions personal/frame-size.el
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
(defun set-frame-size-according-to-resolution ()
(interactive)
(if window-system
(progn
;; use 120 char wide window for largeish displays
;; and smaller 80 column windows for smaller displays
;; pick whatever numbers make sense for you
(if (> (x-display-pixel-width) 1280)
(add-to-list 'default-frame-alist (cons 'width 140))
(add-to-list 'default-frame-alist (cons 'width 80)))
;; for the height, subtract a couple hundred pixels
;; from the screen height (for panels, menubars and
;; whatnot), then divide by the height of a char to
;; get the height we want
(add-to-list 'default-frame-alist
(cons 'height (/ (- (x-display-pixel-height) 350)
(frame-char-height)))))))

(set-frame-size-according-to-resolution)
1 change: 1 addition & 0 deletions personal/theme.el
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(load-theme 'wheatgrass)

0 comments on commit d802311

Please sign in to comment.