(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 120))
           (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) 200)
                             (frame-char-height)))))))

(set-frame-size-according-to-resolution)

(set-frame-position (selected-frame) 200 25)

(semantic-mode 1)
(global-ede-mode t)

;; start speedbar if we're using a window system
(when window-system
    (speedbar t))

;; Interactively Do Things (highly recommended, but not strictly required)
(require 'ido)
(ido-mode t)

;; Magit for Emacs
(require 'magit)

;; Rinari
(add-to-list 'load-path "~/.emacs.d/rinari")
(require 'rinari)

;; loading go mode
(add-to-list 'load-path "/usr/local/Cellar/go/1.0.1/misc/emacs" t)
(require 'go-mode-load)

;; loading scala mode
(add-to-list 'load-path "/usr/local/src/scala-2.8.1.final/misc/scala-tool-support/emacs/")
;; (require 'scala-mode-auto)

;; loading erlang mode
(setq load-path (cons "/usr/local/Cellar/erlang/R15B01/lib/erlang/lib/tools-2.6.7/emacs"
      load-path))
(setq erlang-root-dir "/usr/local/lib/erlang")
(setq exec-path (cons "/usr/local/lib/erlang/bin" exec-path))
(require 'erlang-start)

;; loading coffee script mode
(add-to-list 'load-path "~/.emacs.d/coffee-mode")
;; (require 'coffee-mode)
(add-to-list 'auto-mode-alist '("\\.coffee$" . coffee-mode))
(add-to-list 'auto-mode-alist '("Cakefile" . coffee-mode))

;; loading markdown major mode
(autoload 'markdown-mode "markdown-mode.el"
  "Major mode for editing Markdown files" t)
(setq auto-mode-alist (cons '("\\.md" . markdown-mode) auto-mode-alist))

;; loading agda mode, currently not working hence commented out
;; (load-file (let ((coding-system-for-read 'utf-8))
;;                (shell-command-to-string "agda-mode locate")))

(custom-set-variables
 ;; custom-set-variables 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.
 '(column-number-mode t)
 '(compose-mail-user-agent-warnings t)
 '(custom-enabled-themes (quote (tango-dark)))
 '(display-battery-mode t)
 '(display-time-mode t)
 '(mail-alias-file "~/mail/.aliases")
 '(mail-archive-file-name "outgoing")
 '(mail-default-headers nil)
 '(mail-default-reply-to "zlu@me.com")
 '(mail-from-style (quote angles))
 '(mail-host-address "zlu-mba")
 '(mail-mailing-lists nil)
 '(mail-self-blind nil)
 '(mail-setup-with-from t)
 '(mail-signature-file "~/.signature")
 '(mail-user-agent (quote sendmail-user-agent))
 '(message-send-mail-function (quote message-send-mail-with-sendmail))
 '(rmail-enable-mime t)
 '(rmail-movemail-program "/Applications/Emacs.app/Contents/MacOS/bin/movemail")
 '(rmail-preserve-inbox nil)
 '(rmail-user-mail-address-regexp nil)
 '(send-mail-function (quote sendmail-send-it))
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(speedbar-default-position (quote right))
 '(speedbar-use-images nil)
 '(tool-bar-mode nil)
 '(user-full-name "Zhao Lu")
 '(user-mail-address "zlu@me.com"))
(custom-set-faces
 ;; 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.
 )