init.el

;;
;; Basic emacs preferences
;;

;; Start the timer
(defvar *emacs-load-start* (current-time))

;; Get rid of that abominable beep
(setq ring-bell-function (lambda () (message "*beep*")))

;; Don't make backup files all the time. (autosave files are still made
;; but thats okay since they are deleted when a buffer is saved,
;; backups aren't).
(setq make-backup-files nil)

;; Show key sequences immediately
(setq echo-keystrokes 0.01)
;; Push UTF-8
(prefer-coding-system 'utf-8)
(set-language-environment "utf-8")
(setq default-file-name-coding-system 'utf-8)
(setq current-language-environment "UTF-8")
(setq default-input-method "rfc1345")

;; no-tabs
(setq-default indent-tabs-mode nil)

;; Turn off noob gui parts
(scroll-bar-mode 0)
(menu-bar-mode 0)
(tool-bar-mode 0)
(tooltip-mode 0)
(setq inhibit-startup-message t)
(setq inhibit-startup-screen t)
(setq inhibit-startup-echo-area-message t)
(setq initial-scratch-message nil)
(setq pop-up-windows t)
(save-place-mode 1)
(put 'downcase-region 'disabled nil)
(fset 'yes-or-no-p 'y-or-n-p)
(setq compilation-ask-about-save nil)
(setq use-dialog-box nil)
;; set parenthesis matching to highlighting instead of cursor jumping
(show-paren-mode 1)
(setq transient-mark-mode t)
(set-frame-font "firacode-13")
(setq-default fill-column 80)
(set-default 'cursor-type '(bar . 1))
(blink-cursor-mode 0)
(setq visible-bell t)
(setq ring-bell-function 'ignore)

;; Turn on auto fill for all text modes (doesn't seem to be working)
(add-hook 'text-mode-hook 'text-mode-hook-identify)
;; Turn on auto fill for all modes instead
(setq-default auto-fill-function 'do-auto-fill)
(setq browse-url-browser-function 'browse-url-generic)
;; My keybindings. It is importand that this is loaded before the
;; experimental stuff so that, in case of an error, emacs is usable.
(load "keybindings")
;; Modify all modes based on c-mode
(add-hook 'c-mode-common-hook
          (lambda ()
            ;; Reckognize studlyCaps as seperate words when moving around
            (subword-mode 1)))
;; Load package manager
(require 'package)
(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos))
                    (not (gnutls-available-p))))
       (proto (if no-ssl "http" "https")))
  ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
  (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t)
  ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t)
  (when (< emacs-major-version 24)
    ;; For important compatibility libraries like cl-lib
    (add-to-list 'package-archives (cons "gnu" (concat proto "://elpa.gnu.org/packages/")))))


(define-advice make-frame (:around (fn &rest args) suppress)
  "Suppress making new frame; return existing frame."
  (message "make-frame suppressed; proceed at your own peril.")
  (selected-frame))

(setq epg-pinentry-mode 'loopback)

;; Load the files in the home folder
;;-----------
;; Custom functions
(load "custom-func")

;; Configure the calendar and holidays
(load "calendar-conf")

;; Setup major modes
(require 'load-modes)
;;-----------

;; Start the server
(if window-system
    (server-start))

(set-face-attribute 'mode-line nil :box nil)
(set-face-attribute 'mode-line-inactive nil :box nil)

(message "Done loading in %ds"
         (- (time-to-seconds (current-time))
            (time-to-seconds *emacs-load-start*)))