chore: update gitignore with compile elpa files, org-roam-db, ...

fix: which-func custom setting
feat: Display function name in header as well
2025-08-14 11:44:38 +02:00 · 2025-08-14 11:44:30 +02:00 · 2025-07-24 10:24:54 +02:00 · 2025-07-24 10:24:01 +02:00 · 2025-05-27 14:06:22 +02:00 · 2025-05-27 14:06:08 +02:00
30 changed files with 2978 additions and 644 deletions
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1,26 @@
 custom.el
 backups
 eshell
 elpaca
 eln-cache
 elpa
 org-roam.db
 transient
 # projectile
 projectile*
 # savehist file
 history
 # recentf file
 recentf
 session*
 # .org converted files
 config*.el
 # Tramp connection file
 tramp
--- a/README.md
+++ b/README.md
@ -1,14 +0,0 @@
 # emacs
 My personal emacs configuration
 It is mostly based on tuhdo's emacs ide demo: https://github.com/tuhdo/emacs-c-ide-demo
 This configuration requires the installation of :
 - the GNU global package (for gtags)
 - clang (for ivory)
 - cmake (for ivory)
 - llvm-libs (for cmake, somehow not a dependency on Manjaro when installing cmake)
 - Use python-pip to install jedi, flake8, importmagic and autopep8 (for elpy)
 - ditaa (for ascii to image generation in org-mode)
 When first checking out this config, run irony-install-server to make and install the irony-server.
--- a/README.org
+++ b/README.org
@ -0,0 +1 @@
 config.org
--- a/cheat-sheet.txt
+++ b/cheat-sheet.txt
@ -1,8 +0,0 @@
 C-M-Space : smartparens wrapping
 C-c C-c   : calculator (see init.el)
 C-h k <key-sequence>: lookup key sequence
 C-x 0 : close current window
 C-q <tab> : insert a <tab>
 M-x (un)tabify : (replace) tabs
 M-x describe-bindings : list of all mapped keys/commands
 M-p : fill-paragraph, works for doxygen as well
--- a/config.org
+++ b/config.org
--- a/config_old.org
+++ b/config_old.org
--- a/custom/setup-autocompletion.el
+++ b/custom/setup-autocompletion.el
@ -1,22 +0,0 @@
 (add-hook 'after-init-hook 'global-company-mode)
 ;; Add irony as company-backend
 (eval-after-load 'company
  '(add-to-list 'company-backends 'company-irony))
 ;; Add irony as flycheck hook
 (eval-after-load 'flycheck
  '(add-hook 'flycheck-mode-hook 'flycheck-irony-setup))
 (add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)
 (add-hook 'irony-mode-hook 'irony-eldoc)
 ;; Add irony-, flycheck-, company-mode to c-mode
 (add-hook 'c-mode-hook 'irony-mode)
 (add-hook 'c-mode-hook 'flycheck-mode)
 (add-hook 'c-mode-hook 'company-mode)
 ;; Set tab to autocomplete or indent depending on context
 (global-set-key (kbd "<tab>") 'company-indent-or-complete-common)
 (provide 'setup-autocompletion)
--- a/custom/setup-coding.el
+++ b/custom/setup-coding.el
@ -1,48 +0,0 @@
 ;; make angry face to get my attention
 (setq prog-modes '(c++-mode python-mode erlang-mode java-mode c-mode emacs-lisp-mode scheme-mode prog-mode))
 (make-face 'font-lock-angry-face)
 (modify-face 'font-lock-angry-face "Red" "Yellow" nil t nil t nil nil)
 ;; Add keywords to recognize to angry face
 (mapc (lambda (mode)
 		(font-lock-add-keywords
 		 mode
 		 '(("\\<\\(FIXME\\)" 1 'font-lock-angry-face t)))
 		)
 	  prog-modes)
 (mapc (lambda (mode)
 		(font-lock-add-keywords
 		 mode
 		 '(("\\<\\(TODO\\)" 1 'font-lock-angry-face t)))
 		)
 	  prog-modes)
 ;; default coding style
 (setq c-default-style "linux")
 ;; sane indentation offset
 (setq c-basic-offset 4)
 ;; Tab-space strategy
 ;; we use spaces, deal with it
 (setq-default indent-tabs-mode nil)
 ;; Enable subword mode for handling CamelCase format
 (global-subword-mode t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;              Python                          ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'py-autopep8)
 (elpy-enable)
 (setq elpy-modules (delq 'elpy-module-flycheck elpy-modules))
 (add-hook 'elpy-mode-hook 'flycheck-mode)
 (add-hook 'elpy-mode-hook 'py-autopep8-enable-on-save)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;              Magit (git)                     ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (global-set-key (kbd "C-c m") 'magit-status)
 (provide 'setup-coding)
--- a/custom/setup-cursors.el
+++ b/custom/setup-cursors.el
@ -1,10 +0,0 @@
 (require 'multiple-cursors)
 (global-set-key (kbd "C-x r a") 'mc/edit-lines)
 (global-set-key (kbd "C-x r e") 'mc/edit-ends-of-lines)
 (global-set-key (kbd "C->") 'mc/mark-next-like-this)
 (global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
 (global-set-key (kbd "C-c C->") 'mc/mark-all-like-this)
 (provide 'setup-cursors)
--- a/custom/setup-dashboard.el
+++ b/custom/setup-dashboard.el
@ -1,17 +0,0 @@
 (require 'dashboard)
 (dashboard-setup-startup-hook)
 ;; Set the startup message
 (setq dashboard-banner-logo-title "")
 ;; Set the banner
 (setq dashboard-startup-banner 'logo)
 (setq dashboard-items '((recents  . 10)
                        (bookmarks . 5)
                        ))
 ;; Enable recent files
 (recentf-mode 1)
 (provide 'setup-dashboard)
--- a/custom/setup-editing.el
+++ b/custom/setup-editing.el
@ -1,134 +0,0 @@
 (setq global-mark-ring-max 5000         ; increase mark ring to contains 5000 entries
      mark-ring-max 5000                ; increase kill ring to contains 5000 entries
      mode-require-final-newline t      ; add a newline to end of file
      )
 (setq kill-ring-max 5000 ; increase kill-ring capacity
      kill-whole-line t  ; if NIL, kill whole line and move the next line up
      )
 ;; show column numbers
 (setq column-number-mode 1)
 ;; Remove scroll-bar, tool-bar and menu-bar
 (scroll-bar-mode -1)
 (tool-bar-mode -1)
 (menu-bar-mode -1)
 ;; set appearance of a tab that is represented by 4 spaces
 (setq-default tab-width 4)
 ;; automatically indent when press RET
 (global-set-key (kbd "RET") 'newline-and-indent)
 ;; Map query-replace-regexp to an easier key
 (global-set-key (kbd "C-x r r") 'query-replace-regexp)
 ;; Map query-replace-regexp to an easier key
 (global-set-key (kbd "M-p") 'fill-paragraph)
 ;; Delete trailing whitespace when saving file
 (add-hook 'before-save-hook 'delete-trailing-whitespace)
 ;; show whitespace in diff-mode
 (add-hook 'diff-mode-hook (lambda ()
                            (setq-local whitespace-style
                                        '(face
                                          tabs
                                          tab-mark
                                          spaces
                                          space-mark
                                          trailing
                                          indentation::space
                                          indentation::tab
                                          newline
                                          newline-mark))
                            (whitespace-mode 1)))
 ;; Package: undo-tree -- saner, imo, undo with C-/
 (require 'undo-tree)
 (global-undo-tree-mode)
 ;; Package: volatile-highlights --- show changes by "undo/yanks/..."
 (require 'volatile-highlights)
 (volatile-highlights-mode t)
 ;;; Package: iedit   --- Replace occurences of symbol and highlight them
 (require 'iedit)
 ;; Package: smartparens --- smart way to handle (), {}, ...
 (require 'smartparens-config)
 (setq sp-base-key-bindings 'paredit)
 (setq sp-autoskip-closing-pair 'always)
 (setq sp-hybrid-kill-entire-symbol nil)
 (sp-use-paredit-bindings)
 (show-smartparens-global-mode +1)
 (smartparens-global-mode 1)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; keybinding management smartparens ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; cl-package contains the loop macro
 (require 'cl)
 (defmacro def-pairs (pairs)
  `(progn
     ,@(loop for (key . val) in pairs
          collect
            `(defun ,(read (concat
                            "wrap-with-"
                            (prin1-to-string key)
                            "s"))
                 (&optional arg)
               (interactive "p")
               (sp-wrap-with-pair ,val)))))
 (def-pairs ((paren . "(")
            (bracket . "[")
            (brace . "{")
            (single-quote . "'")
            (double-quote . "\"")
            (underscore . "_")
            (back-quote . "`")))
 (define-key smartparens-mode-map (kbd "C-c (") 'wrap-with-parens)
 (define-key smartparens-mode-map (kbd "C-c [") 'wrap-with-brackets)
 (define-key smartparens-mode-map (kbd "C-c {") 'wrap-with-braces)
 (define-key smartparens-mode-map (kbd "C-c '") 'wrap-with-single-quotes)
 (define-key smartparens-mode-map (kbd "C-c \"") 'wrap-with-double-quotes)
 (define-key smartparens-mode-map (kbd "C-c _") 'wrap-with-underscores)
 (define-key smartparens-mode-map (kbd "C-c `") 'wrap-with-back-quotes)
 (define-key smartparens-mode-map (kbd "C-c s r") 'sp-rewrap-sexp)
 (define-key smartparens-mode-map (kbd "C-c s u") 'sp-unwrap-sexp)
 (define-key smartparens-mode-map (kbd "C-M-f") 'sp-forward-sexp)
 (define-key smartparens-mode-map (kbd "C-M-b") 'sp-backward-sexp)
 ;; TODO: in manjaro this selects keyboard-layout or something
 ;;(define-key smartparens-mode-map (kbd "C-M-k") 'sp-kill-sexp)
 (define-key smartparens-mode-map (kbd "C-M-w") 'sp-copy-sexp)
 (define-key smartparens-mode-map (kbd "C-M-n") 'sp-next-sexp)
 (define-key smartparens-mode-map (kbd "C-M-p") 'sp-previous-sexp)
 ;; TODO: for some reason this does not work
 (define-key smartparens-mode-map (kbd "C-M-a") 'sp-beginning-of-sexp)
 (define-key smartparens-mode-map (kbd "C-M-e") 'sp-end-of-sexp)
 (define-key smartparens-mode-map (kbd "C-M-h") 'mark-defun)
 (smartparens-global-mode t)
 ;; Package: comment-dwim-2  --- replacement for built-in comment-dwim, more comment features
 (require 'comment-dwim-2)
 (global-set-key (kbd "M-;") 'comment-dwim-2)
 ;; Package: yasnippet --- code template system
 (require 'yasnippet)
 (yas-global-mode 1)
 (provide 'setup-editing)
--- a/custom/setup-expand-region.el
+++ b/custom/setup-expand-region.el
@ -1,7 +0,0 @@
 (require 'expand-region)
 (pending-delete-mode t)
 (global-set-key (kbd "C-=") 'er/expand-region)
 (provide 'setup-expand-region)
--- a/custom/setup-gdb.el
+++ b/custom/setup-gdb.el
@ -1,36 +0,0 @@
 (setq gdb-many-windows 1)
 ;; Select a register number which is unlikely to get used elsewere
 (defconst egdbe-windows-config-register 313465989
  "Internal used")
 (defvar egdbe-windows-config nil)
 (defun set-egdbe-windows-config ()
  (interactive)
  (setq egdbe-windows-config (window-configuration-to-register egdbe-windows-config-register)))
 (defun egdbe-restore-windows-config ()
  (interactive)
  (jump-to-register egdbe-windows-config-register))
 (defun egdbe-start-gdb (&optional gdb-args)
  ""
  (interactive)
  (set-egdbe-windows-config)
  (call-interactively 'gdb))
 (defun egdbe-quit ()
  "finish."
  (interactive)
  (gud-basic-call "quit")
  (egdbe-restore-windows-config))
 (defun egdbe-gud-mode-hook ()
  ""
  (local-unset-key (kbd "q"))
  (local-set-key (kbd "q") 'egdbe-quit))
 (add-hook 'gud-mode-hook 'egdbe-gud-mode-hook)
 (provide 'setup-gdb)
--- a/custom/setup-general.el
+++ b/custom/setup-general.el
@ -1,62 +0,0 @@
 (global-set-key [f9]  'start-kbd-macro)
 (global-set-key [f10]  'end-kbd-macro)
 (global-set-key [f11]  'call-last-kbd-macro)
 ;; Package zygospore --- revert C-x 1 by pressing C-x 1 again
 ;; TODO: Doesn't work with sr-speedbar
 (global-set-key (kbd "C-x 1") 'zygospore-toggle-delete-other-windows)
 ;; Set 'M-g' to 'goto-line', it's faster and what we usually want
 (global-set-key (kbd "M-g") 'goto-line)
 ;; Set 'C-x r i' to 'string-insert-rectangle'
 ;; Easier than using 'M-x' and searching for it.
 (global-set-key (kbd "C-x r i") 'string-insert-rectangle)
 ;; set garbage collection to higher value
 ;; see http://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/
 (setq gc-cons-threshold 100000000)
 ;; important yes-or-no questions can be answered with y-or-n
 (defalias 'yes-or-no-p 'y-or-n-p)
 ;; maximize Emacs at startup
 (add-to-list 'default-frame-alist '(fullscreen . maximized))
 ;; Move one window back command
 (global-set-key (kbd "\C-x p") 'previous-multiframe-window)
 ;; Use C-x o to switch to other frame when using multi-monitor
 (global-set-key (kbd "C-x o") 'next-multiframe-window)
 ;; set my theme
 (load-theme 'wombat)
 ;; highlight line (hl-line)
 (global-hl-line-mode 1)
 (set-face-background hl-line-face "dark slate grey")
 ;; smart mode line
 (setq sml/no-confirm-load-theme t)
 (setq sml/theme 'powerline)
 (sml/setup)
 ;; enable disabled commands
 (put 'narrow-to-page 'disabled nil)
 (put 'narrow-to-region 'disabled nil)
 ;; quick function to kill all other buffers
 (defun kill-other-buffers ()
    "Kill all other buffers."
    (interactive)
    (mapc 'kill-buffer
          (delq (current-buffer)
                (remove-if-not 'buffer-file-name (buffer-list)))))
 ;; screw with vi(m)-users
 (defconst wq "This is not vi!  Use C-x C-c instead.")
 (defconst w "This is not vi!  Use C-x C-s instead.")
 (defconst q! "This is EMACS not vi!  Use C-x C-c instead.")
 (defconst wq! "This is EMACS not vi!  Use C-x C-c instead.")
 (provide 'setup-general)
--- a/custom/setup-helm-gtags.el
+++ b/custom/setup-helm-gtags.el
@ -1,19 +0,0 @@
 (require 'helm-gtags)
 ;; Enable helm-gtags-mode in languages that GNU Global supports
 (add-hook 'c-mode-hook 'helm-gtags-mode)
 (add-hook 'c++-mode-hook 'helm-gtags-mode)
 (add-hook 'python-mode-hook 'helm-gtags-mode)
 (add-hook 'java-mode-hook 'helm-gtags-mode)
 (add-hook 'asm-mode-hook 'helm-gtags-mode)
 ;; customize behaviour
 (custom-set-variables
 '(helm-gtags-auto-update t))
 (global-set-key (kbd "M-.") 'helm-gtags-find-tag-from-here)
 (global-set-key (kbd "M-,") 'helm-gtags-pop-stack)
 (global-set-key (kbd "C-c C-f") 'helm-gtags-find-files)
 (global-set-key (kbd "C-c g f") 'helm-gtags-parse-file)
 (provide 'setup-helm-gtags)
--- a/custom/setup-helm.el
+++ b/custom/setup-helm.el
@ -1,50 +0,0 @@
 (require 'helm)
 (require 'helm-config)
 ;; replace vanilla commands with helm commands
 (global-set-key (kbd "M-x") 'helm-M-x)
 (global-set-key (kbd "M-y") 'helm-show-kill-ring)
 (global-set-key (kbd "C-x b") 'helm-mini)
 ;; In vanilla, this is mapped to show-buffers, but I don't use that so map it to helm-mini as well
 (global-set-key (kbd "C-x C-b") 'helm-mini)
 (global-set-key (kbd "C-x C-f") 'helm-find-files)
 ;; rebind tab to do persistent action
 ;; we use helm-execute-persistent-action more than helm-select-action (default for <tab>)
 (define-key helm-map (kbd "<tab>") 'helm-execute-persistent-action)
 ;; make TAB work in terminal
 (define-key helm-map (kbd "C-i") 'helm-execute-persistent-action)
 ;; remap helm-select-action: lists actions
 (define-key helm-map (kbd "C-z")  'helm-select-action)
 ;; remap calculator
 (global-set-key (kbd "C-c C-c") 'helm-calcul-expression)
 ;; TODO: experiment with mark ring   (breadcrumbs something?)
 ;; TODO: experiment with helm-regexp (build and test regexes)
 ;; TODO: remember helm-top (helm interface for top program)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; PACKAGE: helm-swoop                ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Locate the helm-swoop folder to your path
 (require 'helm-swoop)
 ;; replace vanilla I-search with helm-swoop
 (global-set-key (kbd "C-s") 'helm-swoop)
 ;; From helm-swoop to helm-multi-swoop-all
 ;;(define-key helm-swoop-map (kbd "M-s") 'helm-multi-swoop-all-from-helm-swoop)
 (define-key helm-swoop-map (kbd "C-s") 'helm-multi-swoop-all-from-helm-swoop)
 ;; TODO: find out how to switch from multi-swoop to swoop back again
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Next 2 lines make sure when using helm-swoop only the current window/buffer is affected ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; If this value is t, split window inside the current window
 (setq helm-swoop-split-with-multiple-windows t)
 ;; Split direcion. 'split-window-vertically or 'split-window-horizontally
 (setq helm-swoop-split-direction 'split-window-vertically)
 (provide 'setup-helm)
--- a/custom/setup-org.el
+++ b/custom/setup-org.el
@ -1,28 +0,0 @@
 (require 'org)
 (define-key global-map "\C-cl" 'org-store-link)
 (define-key global-map "\C-ca" 'org-agenda)
 ;; when ending TODO (C-C C-t) end with a note + timestamp
 (setq org-log-done 'note)
 ;; Specify root dir to search for agenda files, TODOs, ...
 (setq org-agenda-files '("~/org"))
 ;; Add extra states for keywords
 (setq org-todo-keywords
      '((sequence "TODO" "IN-PROGRESS" "WAITING" "DONE")))
 (setq org-export-with-sub-superscripts nil)
 ;; Preserve indentation in SRC blocks
 (setq org-src-preserve-indentation t)
 ;; Specify which languages are allowed to run inside org-mode
 (org-babel-do-load-languages
 'org-babel-load-languages '(
                             (ditaa . t))
 )
 ;; Tell org where to look for ditaa
 (setq org-ditaa-jar-path "/usr/share/java/ditaa/ditaa-0_10.jar")
 (provide 'setup-org)
--- a/custom/setup-speedbar.el
+++ b/custom/setup-speedbar.el
@ -1,11 +0,0 @@
 ;; Package: sr-speedbar
 (require 'sr-speedbar)
 ;; (add-hook 'emacs-startup-hook (lambda () ; Open sr speedbar on startup
 ;; 								(sr-speedbar-open)
 ;; 								))
 (setq speedbar-show-unknown-files t) ; Enable speedbar to show all files
 (setq speedbar-use-images nil) ; use text for buttons
 (setq sr-speedbar-right-side nil) ; put on left side
 (setq sr-speedbar-width 40)
 (provide 'setup-speedbar)
--- a/custom/setup-windows.el
+++ b/custom/setup-windows.el
@ -1,25 +0,0 @@
 ;; Windows performance tweaks
 ;;
 (when (boundp 'w32-pipe-read-delay)
  (setq w32-pipe-read-delay 0))
 ;; Set the buffer size to 64K on Windows (from the original 4K)
 (when (boundp 'w32-pipe-buffer-size)
  (setq irony-server-w32-pipe-buffer-size (* 64 1024)))
 ;; Set pipe delay to 0 to reduce latency of irony
 (setq w32-pipe-read-delay 0)
 ;; From "setting up irony mode on Windows" :
 ;; Make sure the path to clang.dll is in emacs' exec_path and shell PATH.
 (setenv "PATH"
        (concat
         "C:\\msys64\\usr\\bin" ";"
         "C:\\msys64\\mingw64\\bin" ";"
         (getenv "PATH")
         )
 )
 (setq exec-path (append '("c:/msys64/usr/bin" "c:/alt/msys64/mingw64/bin")
                        exec-path))
 (provide 'setup-windows)
--- a/early-init.el
+++ b/early-init.el
@ -0,0 +1,18 @@
 ;;; early-init.el --- Early Init -*- lexical-binding: t; -*-
 ;;; Commentary:
 ;;  Early init configuration for Emacs Solo
 ;;
 ;;; Code:
 ;; Only care about errors in *Messages* buffer
 (setq warning-minimum-level :error)
 ;; We control when packages are enabled
 (setq package-enable-at-startup nil)
 (provide 'early-init)
 ;;; early-init.el ends here
--- a/init.el
+++ b/init.el
@ -1,152 +1,28 @@
 ;;; init.el --- Init -*- lexical-binding: t; -*-
 ;; add the custom dir to our load path
 (add-to-list 'load-path "~/.emacs.d/custom")
-;; add melpa-stable to package-archives
+;;; Commentary:
-;; IMPORTANT: add (require 'package), else package-archives is not declared (void-variable)
+;;; Load init files
 (require 'package)
 (add-to-list 'package-archives
             '("melpa-stable" . "https://stable.melpa.org/packages/") t)
 (add-to-list 'package-archives
 	     '("melpa" . "http://melpa.milkbox.net/packages/") t)
-;; MUST be called after package-archives is updated
+;;; Code:
 ;; Else the automated installation logic is not able to install missing packages
 (package-initialize)
-;; my required packages
+;;; Increase garbage collection threshold during init but leave it to the default value after
-(defconst my-packages
+;;; There are a LOT of articles/sites/... discussing this:
-  '(
+;;; https://bling.github.io/blog/2016/01/18/why-are-you-changing-gc-cons-threshold/
-    undo-tree
+;;; https://jonnay.github.io/emagicians-starter-kit/Emagician-Base.html
-    volatile-highlights
+;;; ...
-    smartparens
+(let ((gc-cons-threshold most-positive-fixnum))
-    iedit
+  (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
-    zygospore
+  ;; This is the actual config file. It is omitted if it doesn't exist so emacs won't refuse to launch.
-    comment-dwim-2
+  (defvar my-config-file (expand-file-name "config.org" user-emacs-directory))
    yasnippet
    yasnippet-snippets
    sr-speedbar
    company
    irony
    irony-eldoc
    company-irony
    flycheck-irony
    elpy
    py-autopep8
    magit
    org
    smart-mode-line
    smart-mode-line-powerline-theme
    helm
    helm-gtags
    helm-swoop
    helm-company
    dashboard
    multiple-cursors
    expand-region
    ))
-;; function to install new packages
+  (when (file-readable-p my-config-file)
-(defun install-packages ()
+    (org-babel-load-file (expand-file-name my-config-file)))
  "Install all required packages."
  (interactive)
  (unless package-archive-contents
    (package-refresh-contents))
  (dolist (package my-packages)
    (unless (package-installed-p package)
      (package-install package))))
-;; install packages if not yet installed
+  (load custom-file :no-error-if-file-is-missing)
 (install-packages)
 ;; setup general
 (require 'setup-general)
 ;; setup general editing settings
 (require 'setup-editing)
 ;; setup org
 (require 'setup-org)
 ;; setup coding
 (require 'setup-coding)
 ;; setup helm
 (require 'setup-helm)
 (require 'setup-helm-gtags)
 ;; setup speedbar
 (require 'setup-speedbar)
 ;; setup autocompletion
 (require 'setup-autocompletion)
 ;; setup Windows if our bootloader is Windows
 (if (eq system-type 'windows-nt)
 	(require 'setup-windows)
 )
 ;; setup dashboard
 (require 'setup-dashboard)
 ;; setup gdb
 (require 'setup-gdb)
 ;; setup multiple cursors
 (require 'setup-cursors)
 ;; setup expand-region
 (require 'setup-expand-region)
 ;; start emacs server
 (server-start)
 (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.
 '(ansi-color-faces-vector
   [default default default italic underline success warning error])
 '(ansi-color-names-vector
   ["#757575" "#CD5542" "#4A8F30" "#7D7C21" "#4170B3" "#9B55C3" "#68A5E9" "gray43"])
 '(custom-safe-themes
   (quote
 	("84d2f9eeb3f82d619ca4bfffe5f157282f4779732f48a5ac1484d94d5ff5b279" "c74e83f8aa4c78a121b52146eadb792c9facc5b1f02c917e3dbb454fca931223" "3c83b3676d796422704082049fc38b6966bcad960f896669dfc21a7a37a748fa" "938d8c186c4cb9ec4a8d8bc159285e0d0f07bad46edf20aa469a89d0d2a586ea" "6de7c03d614033c0403657409313d5f01202361e35490a3404e33e46663c2596" "ed317c0a3387be628a48c4bbdb316b4fa645a414838149069210b66dd521733f" "1db337246ebc9c083be0d728f8d20913a0f46edc0a00277746ba411c149d7fe5" default)))
 '(fci-rule-color "#2e2e2e")
 '(global-company-mode t)
 '(package-selected-packages
   (quote
 	(ample-zen-theme ample-theme magit irony-eldoc elpy irony helm-swoop helm)))
 '(vc-annotate-background "#3b3b3b")
 '(vc-annotate-color-map
   (quote
 	((20 . "#dd5542")
 	 (40 . "#CC5542")
 	 (60 . "#fb8512")
 	 (80 . "#baba36")
 	 (100 . "#bdbc61")
 	 (120 . "#7d7c61")
 	 (140 . "#6abd50")
 	 (160 . "#6aaf50")
 	 (180 . "#6aa350")
 	 (200 . "#6a9550")
 	 (220 . "#6a8550")
 	 (240 . "#6a7550")
 	 (260 . "#9b55c3")
 	 (280 . "#6CA0A3")
 	 (300 . "#528fd1")
 	 (320 . "#5180b3")
 	 (340 . "#6380b3")
 	 (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.
 )
 (provide 'init)
 ;;; init.el ends here
--- a/snippets/c-mode/define
+++ b/snippets/c-mode/define
@ -0,0 +1,6 @@
 # -*- mode: snippet -*-
 # name: Make a define
 # key: def
 # --
 #define ${1:mydefine$(upcase yas-text)}  $2
--- a/snippets/c-mode/fori
+++ b/snippets/c-mode/fori
@ -2,8 +2,7 @@
 # name: for with loop variable
 # key: fori
 # --
 int i = 0;
-for (${1:i = 0}; ${2:i < N}; ${3:++i}) {
+for (${1:size_t i = 0}; ${2:i < N}; ${3:++i}) {
    $0
-}
+}
--- a/snippets/c-mode/header
+++ b/snippets/c-mode/header
@ -0,0 +1,10 @@
 #name : #ifndef XXX; #define XXX; #endif
 # key: header
 # --
 #ifndef ${1:_`(upcase (file-name-nondirectory (file-name-sans-extension (or (buffer-file-name) ""))))`_H_}
 #define $1
 $0
 #endif /* $1 */
--- a/snippets/c-mode/kaboom
+++ b/snippets/c-mode/kaboom
@ -0,0 +1,6 @@
 # -*- mode: snippet -*-
 # name: kaboom
 # key: kb
 # --
 char (*__kaboom)[sizeof($1)] = 1;
--- a/snippets/c-mode/oncekl
+++ b/snippets/c-mode/oncekl
@ -1,9 +0,0 @@
 #name : #ifndef XXX; #define XXX; #endif
 # key: oncekl
 # --
 #ifndef ${1:`(upcase (file-name-nondirectory (file-name-sans-extension (or (buffer-file-name) ""))))`_H_}
 #define $1
 $0
 #endif /* $1 */
--- a/snippets/org-mode/emacs-lisp-source-block
+++ b/snippets/org-mode/emacs-lisp-source-block
@ -0,0 +1,8 @@
 # -*- mode: snippet -*-
 # name: Start emacs source block
 # key: se
 # --
 #+BEGIN_SRC emacs-lisp
 ${1}
 #+END_SRC
--- a/snippets/org-mode/filetags
+++ b/snippets/org-mode/filetags
@ -0,0 +1,6 @@
 # -*- mode: snippet -*-
 # name: Filetags
 # key: ft
 # --
 #+FILETAGS: :$1:
--- a/snippets/org-mode/source_block_emacs
+++ b/snippets/org-mode/source_block_emacs
@ -0,0 +1,8 @@
 # -*- mode: snippet -*-
 # name: Org source code block
 # key: s
 # --
 #+BEGIN_SRC
 ${1}
 #+END_SRC
--- a/snippets/text-mode/git-commit-message-before-after
+++ b/snippets/text-mode/git-commit-message-before-after
@ -0,0 +1,10 @@
 # -*- mode: snippet -*-
 # name: Git commit message template
 # key: bac
 # --
 Before this commit,
 ${1}
 After this commit,
 ${2}