;;; mh.emacs --- Summary 


(require 'package)
(setq package-enable-at-startup nil)
(setq package-archives '(("gnu"       . "https://elpa.gnu.org/packages/")
                         ("marmalade" . "https://marmalade-repo.org/packages/")
                         ("melpa"     . "https://melpa.org/packages/")
                         ("org"       . "http://orgmode.org/elpa/")))
(package-initialize)

;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

(setq make-backup-files nil) ;; stop creating those backup~ files
(setq auto-save-default nil) ;; stop creating those #autosave# files

;; keine "yes-or-no"-Fragen - "y-or-n" reicht aus
(defalias 'yes-or-no-p 'y-or-n-p)

;; Zusammengehoerende Klammern hervorheben
(show-paren-mode 1)
;; Text zwischen den Klammern nicht hervorheben
(setq show-paren-style 'parenthesis)

(use-package which-key
  :ensure t
  :config
  (which-key-mode))

; Buffer Menu
(global-set-key (kbd "C-x C-b") 'buffer-menu)

(use-package flycheck
  :ensure t
  :init
  (global-flycheck-mode t))

(require 'xcscope)
  (setq ido-enable-flex-matching t)
  (setq ido-everywhere t)
  (ido-mode 1)
(cscope-setup)
;(setq cscope-command-args -R )
;(add-hook 'vhdl-mode-hook (function cscope-minor-mode))

(require 'ecb)
  (setq ido-enable-flex-matching t)
  (setq ido-everywhere t)
  (ido-mode 1)

(require 'cedet)
(global-ede-mode t)

; Make umlauts work
(set-language-environment 'german)
(set-terminal-coding-system 'iso-latin-1)

(setq c-default-style "linux"
          c-basic-offset 2)

(setq-default c-basic-offset 2
                  tab-width 2
                  indent-tabs-mode t)

(org-babel-do-load-languages
      'org-babel-load-languages
      '((emacs-lisp . t)
        (R . t) (perl . t) (C . t)  ))

;; Frame title bar formatting to show full path of file
(setq-default
 frame-title-format
 (list '((buffer-file-name " %f" (dired-directory
                                  dired-directory
                                  (revert-buffer-function " %b"
                                  ("%b - Dir:  " default-directory)))))))

(setq-default
 icon-title-format
 (list '((buffer-file-name " %f" (dired-directory
                                  dired-directory
                                  (revert-buffer-function " %b"
                                  ("%b - Dir:  " default-directory)))))))


(setq-default indent-tabs-mode t)
(setq tab-width 4)

(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))

;; --------- Smart-tabs -------------

(setq-default c-basic-offset 4
              tab-width 4
              indent-tabs-mode t)

(smart-tabs-add-language-support c++ c++-mode-hook
  ((c-indent-line . c-basic-offset)
   (c-indent-region . c-basic-offset)))
(smart-tabs-advice vhdl-indent-line vhdl-basic-offset)

(smart-tabs-insinuate 'c 'c++ 'javascript)


;; ------ Flycheck ------------------

(add-hook 'after-init-hook #'global-flycheck-mode)

(use-package flycheck
  :ensure t
  :init (global-flycheck-mode))

(flycheck-define-checker vhdl-nvc
 "A VHDL syntax checker using nvc."
 :command ("nvc" "--message=compact" "-a" source)
 :error-patterns ((error line-start (file-name) ":" line ":" column ": error: " (message) line-end))
 :modes vhdl-mode)

;; ---------------------------------------------------

'(package-selected-packages
	 (quote
		(which-key use-package s flymake-cppcheck flycheck-elixir flycheck-cython eval-in-repl ecb cppcheck)))
'(show-trailing-whitespace t)

(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))

;; ----------------------------------

(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.
 )

(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.
 '(show-trailing-whitespace t)
 '(vhdl-indent-tabs-mode t))