init.el

;; /su: or /sudo: on remote hosts
;; You can also use this syntax to sudo/su to root (or of course any other user) on a remote host:
;; C-xC-f /ssh:you@remotehost|sudo:remotehost:/path/to/file RET
;; http://stackoverflow.com/questions/2177687/open-file-via-ssh-and-sudo-with-emacs
;; Use a hook so the message doesn't get clobbered by other messages.
(add-hook 'emacs-startup-hook
          (lambda ()
            (message "Emacs ready in %s with %d garbage collections."
                     (format "%.2f seconds"
                             (float-time
                              (time-subtract after-init-time before-init-time)))
                     gcs-done)))
;;
;; X? no tool-bar no scroll-bar
;;
(if (display-graphic-p)
    (progn
      (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
      (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
      (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
      )
  nil)

;;
;; Emacs Lisp Path
;;
(add-to-list 'load-path "~/.emacs.d/lisp")

;;
;; Melpa
;;
(require 'package)
(package-initialize)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives
             '("org" . "https://orgmode.org/elpa/") t)

;;
;; OS-adjustments
;;
(if (eq system-type 'windows-nt)
    (progn
      ;; http://stackoverflow.com/questions/2007329/emacs-23-1-50-1-hangs-ramdomly-for-6-8-seconds-on-windows-xp
      ;; try to improve slow performance on windows.
      (setq w32-get-true-file-attributes nil)
      ;; Unicode Slow in Windows: https://emacs.stackexchange.com/questions/33510/unicode-txt-slowness
      (setq inhibit-compacting-font-caches t))
  nil )

;;
;; X or console?
;;
(if (display-graphic-p)
    (progn
      ;; (set-face-attribute 'default nil :font "Bitstream Vera Sans Mono" :height 95)
      ;; (set-face-attribute 'default nil :font "Ubuntu Mono" :height 120)
      ;; (set-face-attribute 'default nil :font "Terminus" :height 120)
      ;; (set-face-attribute 'default nil :font "Consolas" :height 100)
      (set-face-attribute 'default nil :font "Menlo" :height 100)
      ;; Color Themes
      (load-theme 'monokai t)
      ;; (load-theme 'sanityinc-tomorrow-eighties t)
      ;; (load-theme 'cyberpunkaxxl t)
      ;; (load-theme 'cyberpunk t)
      ;; (load-theme 'zenburn t)
      ;; (load-theme 'solarized-dark t)
      ;; (load-theme 'birds-of-paradise-plus t)
      ;; (setq-default cursor-type 'bar)
      ;; (setq-default cursor-type 'box)
      (global-unset-key (kbd "C-z"))
      ) ; progn
  nil )


;;
;; Load external files
;;
(setq custom-file "~/.emacs.d/custom.el")
(load custom-file)
(load "~/.emacs.d/lisp/basic.el")
(load "~/.emacs.d/lisp/modes.el")
(load "~/.emacs.d/lisp/functions.el")
(load "~/.emacs.d/lisp/keys.el")
(load "~/.emacs.d/lisp/windows.el")
;; (load "~/.emacs.d/lisp/mymu4e.el")
;; (load "~/.emacs.d/lisp/temp_js.el")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; SMEX
;;
;; (smex-initialize)

;;
;; yaml mode
;;
;; (require 'yaml-mode)

;;
;; simple wiki mode
;;
;; (require 'simple-wiki)

;;
;; Emacs Server
;;
(server-start)
(unless (server-running-p)
  (server-start))

;;
;; AUTO-COMPLETE
;;
;; (require 'auto-complete-config)
;; (add-to-list 'ac-dictionary-directories "~/.emacs.d/ac-dict")
;; (ac-config-default)
;; (global-auto-complete-mode t)

;;
;; company mode
;;
(global-company-mode t)
(setq company-idle-delay 0.2)
(setq company-selection-wrap-around t)
;; remove annoying blinking
;; (setq company-echo-delay 0)
;; start autocompletion only after typing
;; (setq company-begin-commands '(self-insert-command))
;; Do not convert to lowercase
;; (setq company-dabbrev-downcase nil)


;;
;; saveplace
;; Remember the cursor position of files when reopening them
;;
;; (setq save-place-file "~/.emacs.d/saveplace")
;; (setq-default save-place t)
;; (require 'saveplace)


;;
;; HELM
;;
;; (require 'helm-config)
;; (setq helm-candidate-number-limit 100)
;; ;; From https://gist.github.com/antifuchs/9238468
;; (setq helm-idle-delay 0.0 ; update fast sources immediately (doesn't).
;;       helm-input-idle-delay 0.01  ; this actually updates things
;;                                         ; reeeelatively quickly.
;;       helm-quick-update ;TODO: 
;;       ;; helm-M-x-requires-pattern nil
;;       ;; helm-ff-skip-boring-files t
;;       )
;; (helm-mode 1)
;; (global-set-key (kbd "C-c h")  'helm-mini)
;; (global-set-key (kbd "C-h a")  'helm-apropos)
;; (global-set-key (kbd "C-x C-b")  'helm-buffers-list)
;; (global-set-key (kbd "C-x b")  'helm-buffers-list)
;; (global-set-key (kbd "M-y")  'helm-show-kill-ring)
;; (global-set-key (kbd "M-x")  'helm-M-x)
;; (global-set-key (kbd "C-x c o")  'helm-occur)
;; (global-set-key (kbd "C-x c s")  'helm-swoop)
;; (global-set-key (kbd "C-x c b")  'my/helm-do-grep-book-notes)
;; (global-set-key (kbd "C-x c SPC")  'helm-all-mark-rings)
;; (ido-mode -1) ;; Turn off ido mode in case I enabled it accidentally


;; ,----
;; | magit
;; `----
;; (global-set-key (kbd "C-x g") 'magit-status)



;; ,----
;; | Open HTML with Firefox as default
;; `----
;; (setq browse-url-firefox-program "C:/Program Files (x86)/Mozilla Firefox/firefox.exe")
;; (setq browse-url-generic-program "vivaldi"
;;       browse-url-browser-function 'browse-url-generic)


;; ,----
;; | org ox reveal.js
;; `----
;; (setq org-reveal-root "file:///d:/reveal.js")


;;
;; EMMS
;;
;; (emms-standard)
;; (emms-default-players) 
;; (setq emms-source-file-default-directory "~/Musik/mp3")


(setq url-proxy-services '(("no_proxy" . "telekom\\.de")
                           ("http" . "specialinternetaccess-lb.telekom.de:8080")
                           ("https" . "specialinternetaccess-lb.telekom.de:8080")))


;; (require 'confluence)
;; (setq confluence-url "https://seu30.gdc-dmst01.t-systems.com/confluence/rpc/xmlrpc")


;; Org Agenda
(setq org-todo-keywords
      '((sequence "TODO" "|" "IN PROGRESS" "|" "DONE" "CANCELLED" "DELEGATED")))
(setq org-todo-keyword-faces
      '(("IN PROGRESS" . "yellow")))
(add-hook 'after-init-hook 'org-agenda-list)

;; PLANTUML Mode


;; (defcustom plantuml-jar-path

(setq plantuml-default-exec-mode 'jar)
(setq plantuml-jar-path "~/../bin/plantuml/plantuml.jar")