; ---------------------- Window settings -----------------------------
(menu-bar-mode -1)
(when window-system
  (tool-bar-mode -1)
  (tooltip-mode -1)
  (scroll-bar-mode -1))

(require 'package)
(setq package-enable-at-startup nil)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.org/packages/") t)
(package-initialize)

;; Bootstrap use-package
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))
(require 'use-package)
(use-package use-package-chords
  :ensure t
  :config (key-chord-mode 1))

;; ---------------------- Global settings -----------------------------


(setq initial-major-mode 'org-mode      ; Sets the *scratch* to org mode as default
      initial-scratch-message nil       ; Sets the *scratch* message
      inhibit-splash-screen t           ; Prevents the Emacs Startup menu
      dired-omit-mode t                 ; Hides uninteresting files
      gc-cons-threshold 104857600             ; Set garbage-collecter to run at 100 MB
      frame-title-format '("Emacs @ " system-name ": %b %+%+ %f")          ; Sets the window title to more useful
      backup-directory-alist `((".*" . ,temporary-file-directory))         ; Places all backup files in same folder
      auto-save-file-name-transforms `((".*" ,temporary-file-directory t)) ; Places all autosave files in same folder
      sentence-end-double-space nil   ; Only one space after sentence
      echo-keystrokes 0.1             ; Show keystrokes at once in the bottom
      system-uses-terminfo nil        ; Shell mode character fix
      password-cache-expiry (* 60 15) ; Time before asking for su pass again
      use-dialog-box nil)             ; Prevent emacs from showing GUI-dialogs

(blink-cursor-mode -1)                ; No blinking!
(mouse-avoidance-mode 'animate)       ; Move mouse away from cursor
(global-hl-line-mode 1)               ; Highlight current line
(global-prettify-symbols-mode 1)      ; Text to symbols
(defalias 'yes-or-no-p 'y-or-n-p)     ; y for yes, n for no. No confirmation

;; Unbind suspend-frame keys
(unbind-key "C-z")
(unbind-key "C-x C-z")

;; ---------------------- Built-in packages -----------------------------
(use-package simple
	:demand
	:bind (("M-J" . join-line)
         ("M-j" . join-with-next-line))
	:config
	(defun join-with-next-line () (interactive) (join-line -1))
	(line-number-mode 1)
	(column-number-mode 1))

;; Mouse wheel support
(use-package mwheel
  :config
  (setq mouse-wheel-progressive-speed nil
        mouse-wheel-scroll-amount '(1 ((shift) . 1))
        mouse-wheel-follow-mouse t))

(use-package subword
  :diminish ""
  :config (global-subword-mode 1))

;; Highlight parens and brackets
(use-package paren
  :config
  (setq show-paren-delay 0)
  (show-paren-mode))

;; ---------------------- Melpa packages -----------------------------
(setq use-package-always-ensure t)


;; Colors the parenteses in pairs
(use-package rainbow-delimiters
  :defer 1
  :config (add-hook 'prog-mode-hook 'rainbow-delimiters-mode))


(use-package company
  :diminish ""
  :config (global-company-mode))

(use-package which-key
  :diminish ""
  :config
  (which-key-mode))


;; Highlight changed text after some commands
(use-package volatile-highlights
  :diminish volatile-highlights-mode
  :config (volatile-highlights-mode t))


(use-package smart-comment
  :bind ("M-;" . smart-comment))

;; Realtime syntaks checking
(use-package flycheck
  :defer t)

;; Realtime spell-checking
(use-package flyspell
  :defer t
  :config
  (setq ispell-program-name "aspell"
        ispell-dictionary "english"))

;; Clean whitespace trailing on save
(use-package whitespace-cleanup-mode
  :diminish whitespace-cleanup-mode
  :defer 1
  :config (global-whitespace-cleanup-mode 1))

;; Move lines and regions up or down
(use-package move-text
  :bind
  ("M-P" . move-text-up)
  ("M-N" . move-text-down))

(global-set-key (kbd "C-x C-b") 'ibuffer)
(autoload 'ibuffer "ibuffer" "List buffers." t)


;; ---------------------- Language settings -----------------------------

(use-package org
  :mode ("\\.org\\'" . org-mode)
  :bind
  ("C-z o" . org-open-main-file)
  ("C-z a" . org-agenda)
  ("C-z c" . org-capture)
  :config
  (setq org-log-done t
        org-default-notes-file "~/organizer.org"
        org-refile-targets '((org-agenda-files . (:maxlevel . 6)))
        org-todo-keywords '((sequence "TODO" "INPROGRESS" "DONE"))
        org-todo-keyword-faces '(("INPROGRESS" . (:foreground "blue" :weight bold))))
  (defun org-open-main-file () (interactive) (find-file "~/organizer.org")))

(use-package scheme
  :ensure t
  :mode ("\\.scm\\'" . scheme-mode)
  :config (setq scheme-program-name "petite"))


(require 'iso-transl)

(setq inhibit-startup-message t)  ; dont show the GNU splash screen
(transient-mark-mode t)           ; show selection from mark
(setq visible-bell 1)             ; turn off bip warnings
(show-paren-mode t)               ; turn on highlight paren mode
(fset 'yes-or-no-p 'y-or-n-p)     ; use y and n for questions
(global-font-lock-mode t)         ; enable syntax highlighting
(icomplete-mode 99)               ; better buffer switching

(load-file "/home/alexander/scheme-setup.el")
(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.
 '(background-color "#202020")
 '(background-mode dark)
 '(cursor-color "#cccccc")
 '(custom-enabled-themes (quote (sanityinc-tomorrow-eighties)))
 '(custom-safe-themes
   (quote
    ("b79104a19e95f10698badb711bd4ab25565af3ffcf18fa7d3c7db4de7d759ac8" "7dd0db710296c4cec57c39068bfffa63861bf919fb6be1971012ca42346a417f" "c0dd5017b9f1928f1f337110c2da10a20f76da0a5b14bb1fec0f243c4eb224d4" "06f0b439b62164c6f8f84fdda32b62fb50b6d00e8b01c2208e55543a6337433a" "628278136f88aa1a151bb2d6c8a86bf2b7631fbea5f0f76cba2a0079cd910f7d" "bb08c73af94ee74453c90422485b29e5643b73b05e8de029a6909af6a3fb3f58" "1b8d67b43ff1723960eb5e0cba512a2c7a2ad544ddb2533a90101fd1852b426e" "82d2cac368ccdec2fcc7573f24c3f79654b78bf133096f9b40c20d97ec1d8016" "0c311fb22e6197daba9123f43da98f273d2bfaeeaeb653007ad1ee77f0003037" "c4465c56ee0cac519dd6ab6249c7fd5bb2c7f7f78ba2875d28a50d3c20a59473" "705f3f6154b4e8fac069849507fd8b660ece013b64a0a31846624ca18d6cf5e1" default)))
 '(fci-rule-color "#383838")
 '(foreground-color "#cccccc")
 '(nrepl-message-colors
   (quote
    ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))
 '(rainbow-identifiers-cie-l*a*b*-lightness 30)
 '(rainbow-identifiers-cie-l*a*b*-saturation 35)
 '(vc-annotate-background "#2B2B2B")
 '(vc-annotate-color-map
   (quote
    ((20 . "#BC8383")
     (40 . "#CC9393")
     (60 . "#DFAF8F")
     (80 . "#D0BF8F")
     (100 . "#E0CF9F")
     (120 . "#F0DFAF")
     (140 . "#5F7F5F")
     (160 . "#7F9F7F")
     (180 . "#8FB28F")
     (200 . "#9FC59F")
     (220 . "#AFD8AF")
     (240 . "#BFEBBF")
     (260 . "#93E0E3")
     (280 . "#6CA0A3")
     (300 . "#7CB8BB")
     (320 . "#8CD0D3")
     (340 . "#94BFF3")
     (360 . "#DC8CC3"))))
 '(vc-annotate-very-old-color "#DC8CC3"))
(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.
 )