提交: fdac27abf6d8d51eacdb5c998942cf1a67d01f89 - emacs-files (hg)

Commit MetaInfo

• 修订版: fdac27abf6d8d51eacdb5c998942cf1a67d01f89 (tree)
• 时间: 2017-12-28 08:07:12
• 作者: echo68 <echo68@loca...>
• Commiter: echo68

Log Message

customize a theme

更改概述

• add: .hgignore
• add: README.md
• add: abbrev-defs.el
• add: custom.el
• add: elisp/autoloads-elisp.el
• add: elisp/buffers.el
• add: elisp/enhance-edit.el
• add: elisp/enhance-etags.el
• add: elisp/enhance-semantic.el
• add: elisp/skeletons.el
• add: elisp/style-doxygen.el
• add: init.el
• add: modes/autoloads-modes.el
• add: modes/ripgrep.el
• add: modes/srec-mode.el
• add: themes/angry-bee-theme.el
• add: themes/bleached-paper-theme.el
• add: themes/glimmer-theme.el
• add: themes/grayskies-theme.el
• add: themes/summertime-theme.el
• add: todo.org

差异

diff -r 000000000000 -r fdac27abf6d8 .hgignore
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgignore	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,19 @@
+syntax: glob
+auto-save-list
+backups
+bookmarks
+ede-projects.el
+elpa
+eshell
+filesets-cache.el
+ido.last
+newsticker
+places
+savehist
+semanticdb
+server
+url
+viper
+recentf
+*.elc
+*#*#

diff -r 000000000000 -r fdac27abf6d8 README.md
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/README.md	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,342 @@
+# R E A D  M E !
+
+This repository gathers all my Emacs resources files. I have tried to drop some
+useful comments on each function. The lisp code runs with Emacs release 25.2.
+Some tools to make an even better Emacs experience:
+- Ripgrep https://github.com/BurntSushi/ripgrep
+- Universal Ctags http://ctags.io/
+Enjoy!
+
+## Intro to Emacs Lisp
+
+A nice and clear summary of Emacs Lisp can be found here:
+http://www.fincher.org/tips/Languages/Emacs.shtml. Go here if you are keen to
+learn more about lists: https://www.emacswiki.org/emacs/ListModification A
+detailed Elisp documentation is embedded in Emacs. Run ``M-x info-emacs-manual``
+and navigate to the section ``Emacs Lisp``.
+
+A quick look up into Emacs own documentation, especially into the index, can give
+you this command `M-x elisp-index-search <return> KEYWORD <return>`.
+
+## Tips, Tips, Tips
+
+Editing source code without code navigation is a real pain. For the most time I
+use the _classic_ etags, that is shipped with the regular Emacs release. On
+Windows machines it is as natural as on Unix machines to get the TAGS file. The
+reason for this is to pipe all relevant source code files to etags. If the
+`findutils` are installed (is a part of Git on Windows) use this command in Eshell:
+
+    find . -type f -not -iregex ".*\(Debug\|Release\).*" -and -regex ".*\.[ch]$" -exec etags --append {} ;
+
+### Expand supported tags for etags
+
+Call etags with this parameters to support function tags in the form `FUNC(void,
+SEGMENT)` func_Tag::
+
+  `cat files | etags --regex='{c}/FUNC(.*)[ \t]+\([A-Za-z_]+\).*/\1/' -`
+
+### Expand the search path for executables
+
+Add this code to init.el to add ~/App/GnuPorts/bin to environment variable PATH and Emacs search path:
+
+    (when (equal (getenv "COMPUTERNAME") "VMWIN7X64")
+      (message "Local customization on %s" (getenv "COMPUTERNAME"))
+      (add-to-list 'exec-path (concat (replace-regexp-in-string "\\\\" "/" (getenv "USERPROFILE"))  "/App/GNUports/bin"))
+      (setenv "PATH" (concat (concat (getenv "USERPROFILE") "\\App\\GNUports\\bin;") (getenv "PATH"))))
+
+### Lookup text in open buffers
+
+Start a occur session with from isearch mode directly by pressing M-s o. This
+feature is very useful when re-factoring / analyzing code. To have something,
+that is as powerful as Vims famous star command use this Elisp snippet:
+
+    (global-set-key (kbd "C-?")
+                      (lambda ()
+                        (interactive)
+                        (occur (thing-at-point 'symbol))
+                        (pop-to-buffer "*Occur*" nil t)
+                        (next-error-follow-minor-mode)))
+
+Calling occur with a prefix argument will open the *Occur* buffer with the
+context around a match. Here is an example: C-6 M-x occur
+
+Occur Edit mode applies edits made in *Occur* buffers to the original buffers.
+It is bound to key `e` in Occur mode.
+
+### Using directory local variables
+
+Here is my `.dir-locals.el` file, located a project's root
+directory, as an example:
+
+    ;;; Directory Local Variables
+    ;;; For more information see (info "(emacs) Directory Variables")
+
+    ((nil . ((grep-find-ignored-directories . (".git" "Debug" "Release" "AUTOSAR_tresos" "Doc" "Documentation" "TLProj" "TLSim"))
+             (grep-command . "grep -nH -R --exclude-dir=C_AUTOSAR --exclude-dir=Debug --exclude-dir=Release --exclude-dir=Documenatation --include='*.[ch]'")
+             (compile-command . (format "cd %sC_Application/Build/ ; ebuild Debug.gpj" (file-name-as-directory desktop-dirname))))))
+
+
+### Using autoload
+
+Write your elisp code and add this line in front of functions which shall
+support autoload feature:
+
+    ;;;###autoload
+
+Next, run ``M-x update-file-autoloads``. The first input parameter is the file
+to be parsed for the autoload keyword. The second input parameter is the file
+which will hold the elisp code to active the functions, marked by the above
+comment line. Now, just add this line to your init.el:
+
+       (load "loaddefs.el")
+
+Or run `update-directory-autoloads` to update the load definitions for an
+entire directory.
+
+Need more info? Check out the [GNU Emacs Manual](http://www.gnu.org/software/emacs/manual/html_node/elisp/Autoload.html)
+
+### Elisp: Read subdirectories
+
+Like to find out which subdirectories exists in a specific directory path? Try
+this Emacs lisp snippet as a starting point to write your final code:
+
+    (defun deep(path)
+      (message "enter -- %s" path)
+      (dolist (candidate (directory-files path))
+        (when (file-directory-p (concat (file-name-as-directory path) candidate))
+          (when (and (not (equal candidate ".")) (not (equal candidate "..")))
+            (deep (concat (file-name-as-directory path) candidate))))))
+    (deep "~/.vim") ;; Sorry!
+
+### Elisp: call functions by reference
+
+A small code snippte to show how to select a function from a list, using IDO,
+and call the selected function, referenced by init-func.
+
+      (let ((init-func (ido-completing-read
+                        "Run function: "
+                        (quote ("func-a" "func-b" "func-c")))))
+        (when (fboundp (intern init-func))
+          (funcall (intern init-func) desktop-dirname)))
+
+### Find project's root directory
+
+My favorite method is save my desktop file in project's root path. A `compile`
+shall run in directory `desktop-dirname`.
+
+Here is a differnt approach to get projects root: `(locate-dominating-file FILE NAME)`
+
+```
+Look up the directory hierarchy from FILE for a directory containing NAME. Stop
+at the first parent directory containing a file NAME, and return the directory.
+Return nil if not found. Instead of a string, NAME can also be a predicate
+taking one argument (a directory) and returning a non-nil value if that
+directory is the one for which we’re looking.
+```
+
+### Numbered column
+
+Function `rectangle-number-lines` does this job. It is bound to `C-x r N` and
+operates on the active region. Use with prefix `C-u C-x r N` and you will be
+requested for the starting number and the format.
+Select 4 lines and press `C-u C-x r N 15 <CR> #define something 0x%x <CR>`
+to get this result:
+
+    #define something 0xf
+    #define something 0x10
+    #define something 0x11
+    #define something 0x12
+
+### Converting Decimal and Hexadecimal Numbers
+
+Hexadecimal a to decimal: `(format "%d" #xa)`
+
+Decimal to hexadezimal: `(format "%x" 10)`
+
+Some further example to show simple math:
+
+    (- (string-to-number (format "%d" #x170)) 200)
+    ==> 168
+
+### Search and replace powered with Elisp
+
+Search for a regular expression and process the found regex groups with a piece
+of Elisp. It goes like this:
+
+> `M-x query-replace-regexp<CR>`, enter the regex to look for with `Query
+> replace regex: \(T\w*\)<CR>` and enter the elisp code to run the replacement
+> like this `with: \,(concat "Head" \1 "Tail")<CR>`.
+
+### Call interactive commands from Elisp
+
+Here is an example how to call the interactive M-x compile:
+
+    (call-interactively #'compile)))
+
+### Benchmark your Elisp code
+
+Sometimes it is useful to check the performance of a piece of Elisp code. In
+this case you can use the `benchmark` function. Check out the documentation to
+read more about it.
+
+### Better interactive commands
+
+Some commands provide input history, so that user can use up-key to enter
+previous input. (e.g. shell-command [Alt+!]) Also, some commands provide
+completition (e.g. "dired"" [Ctrl+x])
+
+The most useful are: read-string, read-file-name, read-regexp. Examples:
+
+    (defun test-fun (arg)
+     "Prompt user to enter a string, with input history support."
+     (interactive (list (read-string "Your name is:")) )
+     (message "String is [%s] ." arg) )
+
+    (defun test-fun (arg)
+     "Prompt user to enter a file path, with file name completion and input history support."
+     (interactive (list (read-file-name "Open directory:")) )
+     (message "Path is [%s]." arg) )
+
+    (defun test-fun (arg)
+     "Prompt user to enter a elisp regex and input history support."
+     (interactive (list (read-regexp "Type a regex:")) )
+     (message "Regex is [%s]." arg) )
+
+
+### Splitting Windows
+
+If this is an integer, `split-window-sensibly` may split a window horizontally
+only if it has at least this many columns. If this is nil,
+`split-window-sensibly` is not allowed to split a window horizontally.
+
+### Move, Change, Kill
+
+* Some brief tips to edit text:
+  - `C-a` and `C-e` moves to start and end of line.
+  - `M-a` and `M-e` moves to start and end of sentence.
+  - `C-M-n` and `C-M-p` moves between braces.
+  - `C-M-f` and `C-M-b` moves statement wise.
+  - `back-to-indentation`, bound to `M-m`, moves point to the first
+     non-whitespace character on this line.
+
+### Hot Tips for org-mode
+
+- Adds a tag: `C-c C-q`
+
+- Toggle DONE|TODO status:  `C-c C-t`
+
+- Adds the scheduling date: `C-c C-s`
+
+- Adds  a date: `C-c !`
+
+- Move subtree to the Archives `C-c C-w`
+
+- How to handle files to be used for agenda display? Entries may be added to
+  this list with `M-x org-agenda-file-to-front` and removed with `M-x
+  org-remove-file`. You can also use customize to edit the list with `M-x
+  customize-variable<CR>org-agenda-files<CR>`
+
+### The Eshell
+
+Emacs has it own shell integrated: Eshell. Start this major mode by typing `M-x
+eshell-mode`. Eshell has a lot of functions integrated that everybody would
+expect from a regular shell plus easy execution of Elisp code.
+
+A great introdunction to Eshell and lot of its features is here:
+https://www.masteringemacs.org/article/complete-guide-mastering-eshell
+
+Here are some aliases to get started. Once the alias is entered, it is stored permanently:
+
+    alias ll 'ls -l $*'
+    alias d 'dired $1'
+
+### Lots of cool stuff
+
+* Like to add keywords in a specific mode? Use this:
+
+      (font-lock-add-keywords 'c-mode ; Highlight function calls
+                              '(("\\<\\(\\sw+\\) ?(" 1 'font-lock-function-name-face))))
+
+* In `dired-mode` it is possible to set bookmarks by pressing `C-x r m`. The
+  actual directory is now bookmarked and the location gets strored in a
+  persisitent bookmarks file. Like to customize the feature set of bookmarks?
+  Here you go `M-x customize-group<CR> bookmark<CR>`.
+
+* Ever asked yourself how to move cursor to the first non-whitespace character
+  in a line? The command is `back-to-indentation`, bound by default to M-m.
+
+* Check for unbalanced parentheses in the current buffer with `M-x
+  check-parens`.
+
+* Always good to highlight the most interesting symbols. Press `M-s h r` to
+  highlight a regexp and `M-s h u` to remove it again. To highlight the current
+  regexp at point, press `M-s h .`.
+
+* `delete-blank-lines`, bound to `C-x C-o, will` delete all the empty lines
+  around your current cursor, except one line. Press it again and also the last
+  empty line will be deleted. What `just-one-space` does for a sequence of
+  spaces on a single line, does `delete-blank-lines` for a sequence of empty
+  lines.
+
+* `M-z` runs (zap-to-char arg char) Kill up to and including argth occurrence of
+  char.
+
+* `C-x C-q` runs the command `toggle-read-only`. This especially useful in
+  dired-mode, because it makes the file names editable! Changed files names are
+  writen to your drive after pressing `C-x C-q` again.
+
+* To find out more the char/text properties at point, type `C-x =` to get basic
+  information or `C-u C-x =` for detailed information.
+
+* `M-x count-lines-region` displays the number of lines in the current region.
+  Function is bound to `M-=`, except in a few specialist modes.
+
+* `M-x re-builder`: Use this one to test regular expressions.
+
+* In cc-mode press `C-c C-o` and function `c-set-offset` will ask you how to
+  indent the statement at point.
+
+* To customize Emacs dependent on the directory your are working on, take a look
+  at chapter 'Directory Variables' in the Emacs manual.
+
+* `add-change-log-entry-other-window`, mapped to `C-x 4 a`, find change log file
+  in other window and add entry and item.
+
+* To get organized again after resizing some windows, a call of balance-windows
+  might help It is bound to `C-x +` and balances all windows in the actual
+  frame.
+
+* Configure Commands that act on sentences by customizing
+  `sentence-end-double-space`. I.e. command `kill-sentence` mapped on `M-k`.
+
+* If you struggle to leave the minibuffer, do a `M-x top-level` to recover from
+  this situation.
+
+* Like to see the unsaved changes in current buffer? Simply type `M-x
+  diff-buffer-with-file<Ret> buffer<Ret>`. Like to have a similar function with
+  ediff? Use `ediff-current-file`.
+
+* Use `visual-line-mode` to turn word wrap in plain text files on. Simple
+  editing commands act on visual lines only.
+
+* Like to scale the font size for a specific window? `C-x C-+` or `C-x C--` does
+  the job by calling text-scale-adjust.
+
+* The `*grep*` window is to big? Press C-x - or M-x
+  shrink-window-if-larger-than-buffer and the `*grep*` windows fits better in
+  the frame.
+
+* Use `M-x toggle-case-fold-search` to make the search cas sensitive or
+  insensitive.
+
+* Like to open a URL at point? Just type `M-x browse-url-at-point <CR>`.
+
+* Customize variable `ido-use-virtual-buffers` enables ido to list recently
+  closed buffers.
+
+* Like to search the eshell history with ido?:
+
+    (ido-completing-read "History: " (ring-elements eshell-history-ring))
+
+* Completion of symbols in most programming language modes, mapped on C-M-i.
+  Read the Emacs manual (26.8 Completion for Symbol Names).

diff -r 000000000000 -r fdac27abf6d8 abbrev-defs.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/abbrev-defs.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,269 @@
+;;-*-coding: utf-8;-*-
+(define-abbrev-table 'Buffer-menu-mode-abbrev-table '())
+
+(define-abbrev-table 'Custom-mode-abbrev-table '())
+
+(define-abbrev-table 'Info-edit-mode-abbrev-table '())
+
+(define-abbrev-table 'adoc-mode-abbrev-table '())
+
+(define-abbrev-table 'apropos-mode-abbrev-table '())
+
+(define-abbrev-table 'asciidoc-mode-abbrev-table '())
+
+(define-abbrev-table 'awk-mode-abbrev-table
+  '(
+   ))
+
+(define-abbrev-table 'bat-mode-abbrev-table '())
+
+(define-abbrev-table 'bibtex-mode-abbrev-table '())
+
+(define-abbrev-table 'bookmark-bmenu-mode-abbrev-table '())
+
+(define-abbrev-table 'bookmark-edit-annotation-mode-abbrev-table '())
+
+(define-abbrev-table 'bs-mode-abbrev-table '())
+
+(define-abbrev-table 'c++-mode-abbrev-table
+  '(
+    ("x3" "uint32" nil 0)
+    ("x6" "uint16" nil 1)
+    ("x8" "uint8" nil 5)
+    ("xbrf" "" c-skeleton-plain-doxy-comment-before 0)
+    ("xcase" "" c-skeleton-new-case 0)
+    ("xdbg" "#warning ADDED DEBUG CODE --" nil 2)
+    ("xdef" "#define" nil 0)
+    ("xdel" "" c-skeleton-delimiter 0)
+    ("xel" "" c-skeleton-else 6)
+    ("xfile" "" c-skeleton-file-header 0)
+    ("xfun" "" c-skeleton-function-header 0)
+    ("xif" "" c-skeleton-if 0)
+    ("xifd" "" c-skeleton-preproc-ifdef 0)
+    ("xinc" "" c-skeleton-preproc-include 0)
+    ("xop" "" c-skeleton-open-curly-braces 3)
+    ("xswitch" "" c-skeleton-switch-case 0)
+   ))
+
+(define-abbrev-table 'c-mode-abbrev-table
+  '(
+    ("x3" "uint32" nil 0)
+    ("x6" "uint16" nil 1)
+    ("x8" "uint8" nil 5)
+    ("xbrf" "" c-skeleton-plain-doxy-comment-before 6)
+    ("xcase" "" c-skeleton-new-case 9)
+    ("xdbg" "#warning ADDED DEBUG CODE --" nil 2)
+    ("xdef" "#define" nil 0)
+    ("xdel" "" c-skeleton-delimiter 3)
+    ("xel" "" c-skeleton-else 7)
+    ("xfile" "" c-skeleton-file-header 1)
+    ("xfun" "" c-skeleton-function-header 5)
+    ("xif" "" c-skeleton-if 8)
+    ("xifd" "" c-skeleton-preproc-ifdef 0)
+    ("xinc" "" c-skeleton-preproc-include 2)
+    ("xop" "" c-skeleton-open-curly-braces 2)
+    ("xswitch" "" c-skeleton-switch-case 2)
+   ))
+
+(define-abbrev-table 'calc-trail-mode-abbrev-table '())
+
+(define-abbrev-table 'calendar-mode-abbrev-table '())
+
+(define-abbrev-table 'change-log-mode-abbrev-table '())
+
+(define-abbrev-table 'comint-mode-abbrev-table '())
+
+(define-abbrev-table 'completion-list-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-colon-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-javaprop-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-ppd-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-space-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-unix-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-windows-mode-abbrev-table '())
+
+(define-abbrev-table 'conf-xdefaults-mode-abbrev-table '())
+
+(define-abbrev-table 'data-debug-mode-abbrev-table '())
+
+(define-abbrev-table 'debugger-mode-abbrev-table '())
+
+(define-abbrev-table 'diary-fancy-display-mode-abbrev-table '())
+
+(define-abbrev-table 'diary-mode-abbrev-table '())
+
+(define-abbrev-table 'diff-mode-abbrev-table '())
+
+(define-abbrev-table 'dig-mode-abbrev-table '())
+
+(define-abbrev-table 'edebug-eval-mode-abbrev-table '())
+
+(define-abbrev-table 'edit-abbrevs-mode-abbrev-table '())
+
+(define-abbrev-table 'eieio-custom-mode-abbrev-table '())
+
+(define-abbrev-table 'elisp-byte-code-mode-abbrev-table '())
+
+(define-abbrev-table 'emacs-lisp-byte-code-mode-abbrev-table '())
+
+(define-abbrev-table 'emacs-lisp-mode-abbrev-table '())
+
+(define-abbrev-table 'eshell-mode-abbrev-table '())
+
+(define-abbrev-table 'finder-mode-abbrev-table '())
+
+(define-abbrev-table 'fundamental-mode-abbrev-table '())
+
+(define-abbrev-table 'gfm-mode-abbrev-table '())
+
+(define-abbrev-table 'global-abbrev-table '())
+
+(define-abbrev-table 'grep-mode-abbrev-table '())
+
+(define-abbrev-table 'help-mode-abbrev-table '())
+
+(define-abbrev-table 'html-mode-abbrev-table '())
+
+(define-abbrev-table 'idl-mode-abbrev-table '())
+
+(define-abbrev-table 'inferior-python-mode-abbrev-table '())
+
+(define-abbrev-table 'java-mode-abbrev-table
+  '(
+   ))
+
+(define-abbrev-table 'jython-mode-abbrev-table '())
+
+(define-abbrev-table 'ld-script-mode-abbrev-table '())
+
+(define-abbrev-table 'lisp-interaction-mode-abbrev-table '())
+
+(define-abbrev-table 'lisp-mode-abbrev-table
+  '(
+    ("aluminium1" "#eeeeec" nil 0)
+    ("aluminium2" "#d3d7cf" nil 0)
+    ("aluminium3" "#babdb6" nil 0)
+    ("aluminium4" "#888a85" nil 0)
+    ("aluminium5" "#555753" nil 0)
+    ("aluminium6" "#2e3436" nil 0)
+    ("butter1" "#fce94f" nil 0)
+    ("butter2" "#edd400" nil 0)
+    ("butter3" "#c4a000" nil 0)
+    ("chameleon1" "#8ae234" nil 0)
+    ("chameleon2" "#73d216" nil 0)
+    ("chameleon3" "#4e9a06" nil 0)
+    ("chocolate1" "#e9b96e" nil 0)
+    ("chocolate2" "#c17d11" nil 0)
+    ("chocolate3" "#8f5902" nil 0)
+    ("orange1" "#fcaf3e" nil 0)
+    ("orange2" "#f57900" nil 0)
+    ("orange3" "#ce5c00" nil 0)
+    ("plum1" "#ad7fa8" nil 0)
+    ("plum2" "#75507b" nil 0)
+    ("plum3" "#5c3566" nil 0)
+    ("scarletred1" "#ef2929" nil 0)
+    ("scarletred2" "#cc0000" nil 0)
+    ("scarletred3" "#a40000" nil 0)
+    ("skyblue1" "#729fcf" nil 0)
+    ("skyblue2" "#3465a4" nil 0)
+    ("skyblue3" "#204a87" nil 0)
+   ))
+
+(define-abbrev-table 'log-edit-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-automake-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-bsdmake-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-gmake-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-imake-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-makepp-mode-abbrev-table '())
+
+(define-abbrev-table 'makefile-mode-abbrev-table '())
+
+(define-abbrev-table 'markdown-mode-abbrev-table '())
+
+(define-abbrev-table 'message-mode-abbrev-table '())
+
+(define-abbrev-table 'messages-buffer-mode-abbrev-table '())
+
+(define-abbrev-table 'nxml-mode-abbrev-table '())
+
+(define-abbrev-table 'objc-mode-abbrev-table
+  '(
+   ))
+
+(define-abbrev-table 'occur-edit-mode-abbrev-table '())
+
+(define-abbrev-table 'occur-mode-abbrev-table '())
+
+(define-abbrev-table 'org-export-stack-mode-abbrev-table '())
+
+(define-abbrev-table 'org-mode-abbrev-table
+  '(
+    ("xcheck" "- [ ] " nil 0)
+   ))
+
+(define-abbrev-table 'outline-mode-abbrev-table '())
+
+(define-abbrev-table 'package-menu-mode-abbrev-table '())
+
+(define-abbrev-table 'perl-mode-abbrev-table '())
+
+(define-abbrev-table 'pike-mode-abbrev-table
+  '(
+   ))
+
+(define-abbrev-table 'process-menu-mode-abbrev-table '())
+
+(define-abbrev-table 'prog-mode-abbrev-table '())
+
+(define-abbrev-table 'python-mode-abbrev-table '())
+
+(define-abbrev-table 'python-mode-skeleton-abbrev-table '())
+
+(define-abbrev-table 'rst-mode-abbrev-table '())
+
+(define-abbrev-table 'rst-toc-mode-abbrev-table '())
+
+(define-abbrev-table 'select-tags-table-mode-abbrev-table '())
+
+(define-abbrev-table 'semantic-symref-results-mode-abbrev-table '())
+
+(define-abbrev-table 'sgml-mode-abbrev-table '())
+
+(define-abbrev-table 'sh-mode-abbrev-table '())
+
+(define-abbrev-table 'shell-mode-abbrev-table '())
+
+(define-abbrev-table 'special-mode-abbrev-table '())
+
+(define-abbrev-table 'speedbar-mode-abbrev-table '())
+
+(define-abbrev-table 'tabulated-list-mode-abbrev-table '())
+
+(define-abbrev-table 'term-mode-abbrev-table '())
+
+(define-abbrev-table 'text-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-bzr-log-view-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-dir-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-git-log-edit-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-git-log-view-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-hg-log-view-mode-abbrev-table '())
+
+(define-abbrev-table 'vc-svn-log-view-mode-abbrev-table '())
+
+(define-abbrev-table 'xref--xref-buffer-mode-abbrev-table '())
+

diff -r 000000000000 -r fdac27abf6d8 custom.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/custom.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,235 @@
+;;; custom.el ---
+(provide 'custom)
+
+;; =====================================================================
+(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.
+ '(abbrev-file-name "~/.emacs.d/abbrev-defs.el")
+ '(auto-coding-alist
+   (quote
+    (("\\.\\(arc\\|zip\\|lzh\\|lha\\|zoo\\|[jew]ar\\|xpi\\|rar\\|7z\\|ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'" . no-conversion-multibyte)
+     ("\\.\\(exe\\|EXE\\)\\'" . no-conversion)
+     ("\\.\\(sx[dmicw]\\|odt\\|tar\\|t[bg]z\\)\\'" . no-conversion)
+     ("\\.\\(gz\\|Z\\|bz\\|bz2\\|xz\\|gpg\\)\\'" . no-conversion)
+     ("/#[^/]+#\\'" . utf-8-emacs-unix)
+     ("\\.\\(TXT\\|txt\\|[cC]\\|[hH]\\)\\'" . windows-1252))))
+ '(auto-insert t)
+ '(auto-insert-mode t)
+ '(auto-revert-mode-text "")
+ '(c-doc-comment-style (quote ((java-mode . javadoc) (pike-mode . autodoc))))
+ '(c-font-lock-extra-types
+   (quote
+    ("\\sw+Type" "\\sw+_t" "bool" "complex" "imaginary" "FILE" "lconv" "tm" "va_list" "jmp_buf" "Lisp_Object" "BYTE" "PBYTE" "SHORT" "USHORT" "ULONG" "BOOL" "sint[0-9]+" "uint[0-9]+")))
+ '(calendar-mark-diary-entries-flag t)
+ '(calendar-today-marker (quote calendar-today))
+ '(calendar-view-diary-initially-flag t)
+ '(comment-multi-line t)
+ '(company-backends (quote (company-etags company-semantic)))
+ '(compilation-ask-about-save nil)
+ '(compilation-auto-jump-to-first-error nil)
+ '(compilation-message-face (quote default))
+ '(compilation-scroll-output t)
+ '(compilation-window-height 15)
+ '(confirm-kill-emacs (quote yes-or-no-p))
+ '(cua-enable-cua-keys nil)
+ '(current-language-environment "English")
+ '(custom-enabled-themes (quote (glimmer)))
+ '(custom-safe-themes t)
+ '(custom-theme-directory "~/.emacs.d/themes")
+ '(cwarn-configuration (quote ((c-mode t) (c++-mode t))))
+ '(delete-by-moving-to-trash t)
+ '(delete-selection-mode t)
+ '(desktop-locals-to-save
+   (quote
+    (desktop-locals-to-save truncate-lines case-fold-search case-replace fill-column overwrite-mode change-log-default-name line-number-mode column-number-mode size-indication-mode buffer-file-coding-system indent-tabs-mode tab-width indicate-buffer-boundaries indicate-empty-lines show-trailing-whitespace compilation-command)))
+ '(desktop-path (quote (".")))
+ '(desktop-restore-eager 30)
+ '(desktop-restore-frames nil)
+ '(desktop-save (quote if-exists))
+ '(desktop-save-mode t)
+ '(diary-entry-marker "!")
+ '(diary-file "~/Documents/diary.txt")
+ '(diff-switches (quote ("--unified=3" "--ignore-all-space")))
+ '(dired-auto-revert-buffer t)
+ '(echo-keystrokes 0.1 nil nil "Show unfinished keystrokes early.")
+ '(ediff-custom-diff-options "-B")
+ '(ediff-diff-options "-B")
+ '(ediff-keep-variants t)
+ '(ediff-use-last-dir t)
+ '(enable-local-variables :all)
+ '(eshell-history-size 64)
+ '(european-calendar-style t)
+ '(ff-other-file-alist (quote (("\\.c$" (".h")) ("\\.h$" (".c")))))
+ '(ff-search-directories (quote ("." "../*")))
+ '(fill-column 80)
+ '(fringe-mode (quote (nil . 0)) nil (fringe))
+ '(global-auto-revert-mode t)
+ '(global-auto-revert-non-file-buffers nil)
+ '(global-company-mode t)
+ '(global-font-lock-mode t nil (font-lock))
+ '(global-hl-line-sticky-flag nil)
+ '(global-reveal-mode t)
+ '(global-semantic-decoration-mode t)
+ '(global-semantic-idle-local-symbol-highlight-mode t nil (semantic/idle))
+ '(global-semantic-idle-scheduler-mode t)
+ '(global-semanticdb-minor-mode t)
+ '(grep-command
+   "grep -nH -R --exclude-dir=C_AUTOSAR --exclude-dir=Debug --exclude-dir=Release --exclude-dir=Documenatation --include='*.[ch]'")
+ '(grep-find-ignored-directories (quote (".vscode" ".git" ".hg" ".jazz5")))
+ '(grep-find-ignored-files (quote (".#*" "*~" "*.elc" "*.pyc" "*.pyo")))
+ '(grep-find-template "find <D> <X> -type f <F> -exec grep <C> -Hn <R> {} \";\"")
+ '(grep-highlight-matches nil)
+ '(grep-use-null-device nil)
+ '(grep-window-height 15)
+ '(hippie-expand-try-functions-list
+   (quote
+    (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)))
+ '(history-delete-duplicates t)
+ '(ibuffer-formats
+   (quote
+    ((mark modified read-only " "
+           (name 32 32 :left :elide)
+           " "
+           (size 9 -1 :right)
+           " "
+           (mode 16 16 :left :elide)
+           " " filename-and-process)
+     (mark " "
+           (name 16 -1)
+           " " filename))))
+ '(icomplete-mode nil)
+ '(ido-case-fold t)
+ '(ido-default-buffer-method (quote selected-window))
+ '(ido-mode (quote both) nil (ido))
+ '(ido-use-filename-at-point (quote guess))
+ '(ido-use-virtual-buffers (quote auto))
+ '(ido-uses-completions-vertically t)
+ '(indent-tabs-mode nil)
+ '(init-ido-uses-completions-vertically t)
+ '(isearch-allow-scroll t)
+ '(ispell-extra-args (quote ("-d")))
+ '(ispell-local-dictionary "en_US")
+ '(kill-do-not-save-duplicates t)
+ '(kill-ring-max 8)
+ '(linum-format "%4d ")
+ '(make-backup-files nil)
+ '(mark-ring-max 8)
+ '(midnight-mode t nil (midnight))
+ '(mouse-avoidance-mode (quote jump) nil (avoid))
+ '(mouse-wheel-progressive-speed nil)
+ '(mouse-wheel-scroll-amount (quote (2 ((shift) . 0.2) ((control) . 0.5))))
+ '(next-line-add-newlines nil nil nil "t: don't add lines at the end of buffer when trying to scroll past end")
+ '(org-agenda-files (quote ("~/.emacs.d/todo.org")))
+ '(org-archive-location "c:/Users/webasto/Documents/org/done.org::* From %s")
+ '(org-archive-save-context-info (quote (time todo itags)))
+ '(org-export-with-sub-superscripts (quote {}))
+ '(org-log-done (quote time))
+ '(org-replace-disputed-keys t)
+ '(org-startup-folded nil)
+ '(org-use-speed-commands nil)
+ '(package-archives
+   (quote
+    (("gnu" . "http://elpa.gnu.org/packages/")
+     ("melpa" . "http://stable.melpa.org/packages/"))))
+ '(package-selected-packages
+   (quote
+    (hydra ggtags artbollocks-mode markdown-mode ripgrep anything swiper yasnippet powershell sr-speedbar ivy ioccur helm)))
+ '(paragraph-start "^[ \\t]*$")
+ '(partial-completion-mode t nil nil "t: Allow completions like em-s-region to complete to emacspeak-speak-region")
+ '(python-shell-completion-native-enable nil)
+ '(python-shell-interpreter-interactive-arg "")
+ '(python-shell-prompt-detect-enabled nil)
+ '(read-mail-command (quote gnus))
+ '(recentf-auto-cleanup (quote mode))
+ '(recentf-max-menu-items 10)
+ '(recentf-max-saved-items 10)
+ '(recentf-mode 1)
+ '(safe-local-variable-values nil)
+ '(save-abbrevs (quote silently))
+ '(save-place-mode t)
+ '(savehist-autosave-interval nil)
+ '(scroll-bar-mode nil)
+ '(scroll-conservatively 101)
+ '(scroll-margin 4)
+ '(semantic-complete-inline-analyzer-displayor-class (quote semantic-displayor-ghost))
+ '(semantic-default-submodes
+   (quote
+    (global-semantic-highlight-func-mode global-semantic-stickyfunc-mode global-semanticdb-minor-mode global-semantic-idle-local-symbol-highlight-mode)))
+ '(sentence-end-double-space nil)
+ '(shift-select-mode nil)
+ '(show-paren-mode t nil (paren))
+ '(speedbar-frame-parameters
+   (quote
+    ((minibuffer)
+     (width . 80)
+     (border-width . 0)
+     (menu-bar-lines . 0)
+     (tool-bar-lines . 0)
+     (unsplittable . t)
+     (left-fringe . 0))))
+ '(speedbar-sort-tags t)
+ '(speedbar-tag-hierarchy-method nil)
+ '(speedbar-use-images nil)
+ '(speedbar-use-tool-tips-flag nil)
+ '(split-width-threshold 120)
+ '(tab-always-indent (quote complete))
+ '(tab-width 4)
+ '(tags-add-tables (quote ask-user))
+ '(tags-case-fold-search nil)
+ '(tags-loop-revert-buffers t)
+ '(tags-revert-without-query t)
+ '(tags-tag-face (quote match))
+ '(text-scale-mode-step 1.1)
+ '(todo-directory "~\\Documents\\todo\\")
+ '(tool-bar-mode nil)
+ '(tooltip-mode nil)
+ '(truncate-lines t)
+ '(uniquify-buffer-name-style (quote forward) nil (uniquify))
+ '(uniquify-strip-common-suffix t)
+ '(user-mail-address "[e-mail]")
+ '(visible-bell t)
+ '(whitespace-style
+   (quote
+    (tabs trailing space-before-tab empty space-after-tab tab-mark)))
+ '(window-divider-default-bottom-width 2)
+ '(window-divider-default-right-width 2)
+ '(window-divider-mode t))
+
+(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.
+ '(default ((t (:inherit nil :stipple nil :background "grey13" :foreground "azure3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(artbollocks-face ((t (:underline (:color "magenta3" :style wave)))))
+ '(artbollocks-lexical-illusions-face ((t (:underline (:color "magenta" :style wave)))))
+ '(artbollocks-passive-voice-face ((t (:underline (:color "hotpink" :style wave)))))
+ '(artbollocks-weasel-words-face ((t (:underline (:color "maroon2" :style wave)))))
+ '(calendar-today ((t (:box (:line-width 1 :color "grey75")))))
+ '(compilation-mode-line-exit ((t (:inherit compilation-info))))
+ '(completions-common-part ((t (:inherit default :underline t))))
+ '(completions-first-difference ((t (:inherit default :underline t))))
+ '(cua-rectangle ((t (:inherit region))))
+ '(diary ((t (:foreground "hotpink3"))))
+ '(eshell-ls-readonly ((t (:slant italic))))
+ '(font-lock-warning-face ((t (:inherit default :box (:line-width -1 :color "red")))))
+ '(markup-emphasis-face ((t (:inherit markup-reference-face :slant italic))))
+ '(markup-list-face ((t (:inherit font-lock-comment-delimiter-face))))
+ '(markup-title-0-face ((t (:inherit markup-gen-face :weight bold :height 1.4))))
+ '(markup-title-1-face ((t (:inherit markup-gen-face :height 1.4))))
+ '(markup-title-2-face ((t (:inherit markup-gen-face :slant italic :height 1.0))))
+ '(mode-line-highlight ((t (:inherit highlight))))
+ '(org-block ((t (:inherit font-lock-doc-face))))
+ '(semantic-highlight-edits-face ((t (:overline "grey50"))))
+ '(semantic-highlight-func-current-tag-face ((t (:inherit hl-line :overline "grey50"))))
+ '(semantic-idle-symbol-highlight ((t (:inherit hl-line))))
+ '(speedbar-file-face ((t (:inherit default))))
+ '(speedbar-highlight-face ((t (:inherit highlight))))
+ '(speedbar-selected-face ((t (:inherit highlight))))
+ '(speedbar-tag-face ((t (:inherit font-lock-function-name-face))))
+ '(which-func ((t (:foreground "white"))))
+ '(window-divider ((t (:foreground "gray50")))))
+;;; custom.el ends here

diff -r 000000000000 -r fdac27abf6d8 elisp/autoloads-elisp.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/autoloads-elisp.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,166 @@
+;;; autoloads-elisp.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads nil "buffers" "buffers.el" (22774 31653 0 0))
+;;; Generated autoloads from buffers.el
+
+(autoload 'quick-multi-occur "buffers" "\
+Occur on multiple visited files (buffers). Press key 'e' in
+*Occur* buffer to do code refactoring by editing matching lines.
+This function operates on C files only.
+
+\(fn)" t nil)
+
+(autoload 'revert-all-buffers "buffers" "\
+Reverts all opened buffers from their respective files. In
+case the buffer is modofied, the buffer will not be reverted.
+
+\(fn)" t nil)
+
+(autoload 'store-last-insertation-point "buffers" "\
+Store in `go-back-marker' last point where
+`self-insert-command' was called. Function shall be called by
+`after-change-functions'.
+
+\(fn BEG END LEN)" nil nil)
+
+(autoload 'go-back-to-last-insertion-point "buffers" "\
+Go back to point of last text insertion.
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "enhance-edit" "enhance-edit.el" (22783 42855
+;;;;;;  0 0))
+;;; Generated autoloads from enhance-edit.el
+
+(autoload 'select-region-symbol-line "enhance-edit" "\
+This function selects symbol at point, or, if a region is
+active, the actual line.
+
+\(fn)" t nil)
+
+(autoload 'prettify-c-code "enhance-edit" "\
+A simple reformat of current buffer in `c-mode'.
+
+\(fn)" t nil)
+
+(autoload 'quick-search-forward "enhance-edit" "\
+A quick search forward for the symbol at point. Using regex search
+with use of symbol boundaries.
+
+\(fn)" t nil)
+
+(autoload 'quick-search-backward "enhance-edit" "\
+A quick search backward for the symbol at point. Using regex search
+with use of symbol boundaries.
+
+\(fn)" t nil)
+
+(autoload 'toggle-selective-display "enhance-edit" "\
+Fold the text. It works in any mode.
+
+\(fn)" t nil)
+
+(autoload 'insert-date "enhance-edit" "\
+When called without prefix arg, it inserts the current date in
+`diary-mode' format at point. When called with prefix arg,inserts
+the current date plus `user-mail-address' at point.
+
+\(fn PREFIX)" t nil)
+
+(autoload 'print-radix-16-value "enhance-edit" "\
+Convert the current decimal number (radix 10) at point as
+hexadecimal number and print the radix 16 converted number.
+
+\(fn)" t nil)
+
+(autoload 'print-radix-10-value "enhance-edit" "\
+Convert the current hexadecimal number (radix 16) at point as
+decimal number and print the radix 10 converted number.
+
+\(fn)" t nil)
+
+(autoload 'show-dir-info "enhance-edit" "\
+
+
+\(fn)" t nil)
+
+(autoload 'cycle-bti-bol "enhance-edit" "\
+Cycle between `back-to-indentation' and `beginning-of-line'.
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "enhance-etags" "enhance-etags.el" (22774 31653
+;;;;;;  0 0))
+;;; Generated autoloads from enhance-etags.el
+
+(autoload 'rebuild-etags "enhance-etags" "\
+A universal approch to gnerate the TAGS file by Emacs own
+etags or Universal Ctags. It requires a loaded desktop, so that
+`desktop-dirname' is set.
+
+In case file .ctags is available in `desktop-dirname', Universal
+Ctags is executed.
+
+In case file .ctags is not available, the classic find/etags
+command gets computed by `compute-rebuild-find-etags-command'.
+Before starting the process, the old TAGS file gets deleted,
+because etags is called with option --append.
+
+\(fn)" t nil)
+
+(autoload 'ido-find-file-in-tag-files "enhance-etags" "\
+An ido-method to open a file, that is listed in the visited
+tags file. Customize `ido-case-fold' to select the right input
+method that works for you.
+
+\(fn)" t nil)
+
+(autoload 'ido-find-tag "enhance-etags" "\
+Go to the IDO selected tag.
+
+\(fn PREFIX)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "enhance-semantic" "enhance-semantic.el" (22774
+;;;;;;  31653 0 0))
+;;; Generated autoloads from enhance-semantic.el
+
+(autoload 'semantic-start-simple-ede-project "enhance-semantic" "\
+Enable`semantic-mode' and create a 'simple' ede project of
+type CPP.
+
+\(fn ROOT-DIR)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "style-doxygen" "style-doxygen.el" (22774 31653
+;;;;;;  0 0))
+;;; Generated autoloads from style-doxygen.el
+
+(autoload 'doxygen-font-lock-mode "style-doxygen" "\
+Use font lock for Doxygen keywords for the current buffer.
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("skeletons.el") (22774 31653 0 0))
+
+;;;***
+
+(provide 'autoloads-elisp)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; autoloads-elisp.el ends here

diff -r 000000000000 -r fdac27abf6d8 elisp/buffers.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/buffers.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,80 @@
+;;; buffers.el --- revert, jump between buffers
+
+;; Copyright (C) 2017 Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: elisp support
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Some work to be done ....
+
+;;; Code:
+
+
+;;;###autoload
+(defun quick-multi-occur ()
+  "Occur on multiple visited files (buffers). Press key 'e' in
+*Occur* buffer to do code refactoring by editing matching lines.
+This function operates on C files only."
+  (interactive)
+  (let* ((text (read-from-minibuffer "locking for: " (thing-at-point 'symbol))))
+    (when (eq major-mode 'c-mode)
+      (multi-occur-in-matching-buffers "\\.[ch]$" text))
+    (when (eq major-mode 'python-mode)
+      (multi-occur-in-matching-buffers "\\.py$" text))
+    (when (eq major-mode 'emacs-lisp-mode)
+      (multi-occur-in-matching-buffers "\\.el$" text))))
+
+;;;###autoload
+(defun revert-all-buffers ()
+  "Reverts all opened buffers from their respective files. In
+case the buffer is modofied, the buffer will not be reverted."
+  (interactive)
+  (let* ((mod-counter 0)
+         (no-mod-counter 0))
+    (dolist (buf (buffer-list))
+      (when (buffer-file-name buf)
+        (if (buffer-modified-p buf)
+            (setq mod-counter (1+ mod-counter))
+          (progn
+            (set-buffer buf)
+            (revert-buffer t t t)
+            (setq no-mod-counter (1+ no-mod-counter))))))
+    (if (> mod-counter 0)
+        (message "%d buffer(s) reverted. %d modified buffer(s) not reverted."
+                 no-mod-counter mod-counter)
+      (message "%d buffer(s) reverted."
+               no-mod-counter))))
+
+;;;###autoload
+(defun store-last-insertation-point (beg end len)
+  "Store in `go-back-marker' last point where
+`self-insert-command' was called. Function shall be called by
+`after-change-functions'."
+  (when buffer-file-name
+    (when (not (equal "TAGS" (upcase (file-name-nondirectory buffer-file-name))))
+      (setq go-back-marker (point-marker)))))
+
+;;;###autoload
+(defun go-back-to-last-insertion-point ()
+  "Go back to point of last text insertion."
+  (interactive)
+  (when (boundp 'go-back-marker)
+    (switch-to-buffer (marker-buffer go-back-marker))
+    (goto-char (marker-position go-back-marker))))
+
+(provide 'buffers)

diff -r 000000000000 -r fdac27abf6d8 elisp/enhance-edit.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/enhance-edit.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,167 @@
+;;; enhance-edit.el --- functions to give abetter edit experience
+
+;; Copyright (C) 2017 Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: elisp support
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Some work to be done ....
+
+;;; Code:
+
+
+;;;###autoload
+(defun select-region-symbol-line ()
+  "This function selects symbol at point, or, if a region is
+active, the actual line."
+  (interactive)
+  (if (and transient-mark-mode mark-active)
+      (progn (set-mark-command (beginning-of-line))
+             (goto-char (line-end-position)))
+    (let* ((bounds-of-sym (bounds-of-thing-at-point 'symbol)))
+      (if bounds-of-sym
+          (let* ((pos1 (car bounds-of-sym))
+                 (pos2 (cdr bounds-of-sym)))
+            (goto-char pos1)
+            (set-mark-command nil)
+            (goto-char pos2))
+        (progn (set-mark-command (beginning-of-line))
+               (goto-char (line-end-position)))))))
+
+;;;###autoload
+(defun prettify-c-code ()
+  "A simple reformat of current buffer in `c-mode'."
+  (interactive)
+  (when (eq major-mode 'c-mode)
+    (save-excursion
+      ;; Look for this: if(...) and change to if (...)
+      (goto-char (point-min))
+      (while (re-search-forward "\\(if\\|for\\|while\\|switch\\)(" nil t)
+        (if (prettify-test-face-at-point 'font-lock-keyword-face -2)
+            (replace-match "\\1 (")))
+      ;; Look for this: (  abc  and change to (abc)
+      (goto-char (point-min))
+      (while (re-search-forward "([ ]+\\(\\w\\)" nil t)
+        (if (not (prettify-test-face-at-point 'font-lock-comment-face))
+            (replace-match "(\\1")))
+      ;; Look for this: abc  ) and change to abc)
+      (goto-char (point-min))
+      (while (re-search-forward "\\(\\w\\)[ ]+)" nil t)
+        (if (not (prettify-test-face-at-point 'font-lock-comment-face))
+            (replace-match "\\1)")))
+      (goto-char (point-min))
+      (while (re-search-forward "([ ]\\{1,\\}(" nil t)
+        (if (not (prettify-test-face-at-point 'font-lock-comment-face))
+            (replace-match "((")))
+      (goto-char (point-min))
+      (while (re-search-forward ")[ ]\\{1,\\})" nil t)
+        (if (not (prettify-test-face-at-point 'font-lock-comment-face))
+            (replace-match "))"))))))
+
+(defun prettify-test-face-at-point (test-face &optional point-offset)
+  "A support function for `prettify-c-code'. "
+  (let ((face-at-point (plist-get
+                        (text-properties-at
+                         (+ (point) (if point-offset point-offset 0)))
+                        'face)))
+    (equal face-at-point test-face)))
+
+;;;###autoload
+(defun quick-search-forward ()
+  "A quick search forward for the symbol at point. Using regex search
+with use of symbol boundaries."
+  (interactive)
+  ;; move point to tail of symbol
+  (left-char 1)
+  (search-forward-regexp "\\_>" nil t)
+  ;; read symbol and run search forward
+  (let ((regexp (concat "\\_<" (thing-at-point 'symbol) "\\_>")))
+    (search-forward-regexp regexp nil t)))
+
+;;;###autoload
+(defun quick-search-backward ()
+  "A quick search backward for the symbol at point. Using regex search
+with use of symbol boundaries. "
+  (interactive)
+  ;; move point to head of symbol
+  (right-char 1)
+  (search-backward-regexp "\\_<" nil t)
+  ;; read symbol and run search backward
+  (let ((regexp (concat "\\_<" (thing-at-point 'symbol) "\\_>")))
+    (search-backward-regexp regexp nil t)))
+
+;;;###autoload
+(defun toggle-selective-display ()
+  "Fold the text. It works in any mode."
+  (interactive)
+  (set-selective-display
+   (if selective-display nil tab-width)))
+
+;;;###autoload
+(defun insert-date (prefix)
+  "When called without prefix arg, it inserts the current date in
+`diary-mode' format at point. When called with prefix arg,inserts
+the current date plus `user-mail-address' at point."
+  (interactive "P")
+  (let* ((MOYlist '(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))
+         (now (decode-time))
+         (date-string (format "%d %s %04d"
+                              (nth 3 now)                      ; day
+                              (nth (- (nth 4 now) 1) MOYlist)  ; month
+                              (nth 5 now))))                   ; year
+    (if prefix
+        (insert (concat date-string "<" user-mail-address ">"))
+      (insert date-string))))
+
+;;;###autoload
+(defun print-radix-16-value ()
+  "Convert the current decimal number (radix 10) at point as
+hexadecimal number and print the radix 16 converted number."
+  (interactive)
+  (message "\"%s\" is %X as radix 16"
+           (thing-at-point 'word)
+           (string-to-number (thing-at-point 'word) 10)))
+
+;;;###autoload
+(defun print-radix-10-value ()
+  "Convert the current hexadecimal number (radix 16) at point as
+decimal number and print the radix 10 converted number."
+  (interactive)
+  (message "\"%s\" is %X as radix 10"
+           (thing-at-point 'word)
+           (string-to-number (thing-at-point 'word) 16)))
+
+;;;###autoload
+(defun show-dir-info ()
+  (interactive)
+  (message "buffer file name:  %s\ndefault directory: %s\ndesktop directory: %s"
+           (or (buffer-file-name)
+               "buffer has no file")
+           (file-name-as-directory default-directory)
+           (file-name-as-directory desktop-dirname)))
+
+;;;###autoload
+(defun cycle-bti-bol ()
+  "Cycle between `back-to-indentation' and `beginning-of-line'."
+  (interactive)
+  (let ((orig (point)))
+    (back-to-indentation)
+    (when (= orig (point))
+      (beginning-of-line))))
+
+(provide 'enhance-edit)

diff -r 000000000000 -r fdac27abf6d8 elisp/enhance-etags.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/enhance-etags.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,111 @@
+;;; enhance-etags.el --- Elisp code snippets to make live easier
+
+;; Copyright (C) 2017 Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: elisp support
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Support functions to update etags files.
+
+;;; Code:
+
+(defvar-mode-local c-mode init-ido-tags-symbol-list nil
+  "List of known tags for this major mode.")
+
+
+(defun compute-rebuild-find-etags-command ()
+  "The classic find/etags command gets computed which takes
+`grep-find-ignored-directories' into account."
+  (format "%s"
+          (concat "find . -type f -not -iregex \".*\\("
+                  ;; `identity' returns the argument unchanged
+                  (mapconcat 'identity grep-find-ignored-directories "\\|")
+                  "\\).*\" -and -regex \".*\\.[ch]$\" -exec etags --append {} +")))
+
+;;;###autoload
+(defun rebuild-etags ()
+  "A universal approch to gnerate the TAGS file by Emacs own
+etags or Universal Ctags. It requires a loaded desktop, so that
+`desktop-dirname' is set.
+
+In case file .ctags is available in `desktop-dirname', Universal
+Ctags is executed.
+
+In case file .ctags is not available, the classic find/etags
+command gets computed by `compute-rebuild-find-etags-command'.
+Before starting the process, the old TAGS file gets deleted,
+because etags is called with option --append."
+  (interactive)
+  (when (and (boundp 'desktop-dirname) (boundp 'grep-find-ignored-directories))
+    (let* ((default-directory desktop-dirname))
+      (if (file-exists-p ".ctags")
+          ;; Oh! We can run Ctags. Assuming it's the Universal|Exuberant Ctags.
+          (progn
+            (start-process-shell-command "CTAGS" "*ctags*" "ctags -Re .")
+            (set-process-sentinel (get-process "CTAGS") 'rebuild-tags-sentinel))
+        ;; Ohhhh! Use old school approach with find/etags
+        (progn
+          (when (file-exists-p "tags")
+            (delete-file "TAGS" nil))
+          (start-process-shell-command "ETAGS" "*etags*" (compute-rebuild-find-etags-command))
+          (set-process-sentinel (get-process "ETAGS") 'rebuild-tags-sentinel))))))
+
+(defun rebuild-tags-sentinel (process event)
+  "Throw a message in case process status is not 'exit'."
+  (when (not (equal (format "%s" (process-status process)) "exit"))
+    (message (format "Process %s had status <%s>"
+                     process
+                     (process-status process)))))
+
+
+;;;###autoload
+(defun ido-find-file-in-tag-files ()
+  "An ido-method to open a file, that is listed in the visited
+tags file. Customize `ido-case-fold' to select the right input
+method that works for you."
+  (interactive)
+  (save-excursion
+    (let ((enable-recursive-minibuffers t))
+      (visit-tags-table-buffer))
+    (find-file
+     (expand-file-name
+      (ido-completing-read
+       "Open file: " (tags-table-files) nil t)))))
+
+(defun init-ido-read-tag (prompt &optional require-match initial-input)
+  "Return the name of a tag in the current tags table."
+  (let ((enable-recursive-minibuffers t))
+    (visit-tags-table-buffer 'same)
+    (tags-completion-table)
+    (setq init-ido-tags-symbol-list '())
+    ;;(mapatoms (lambda (e) (push (symbol-name e) init-ido-tags-symbol-list)) tags-completion-table)
+    (mapcar (lambda (e) (push e init-ido-tags-symbol-list)) tags-completion-table)
+    (ido-completing-read prompt
+                         init-ido-tags-symbol-list
+                         nil
+                         require-match
+                         initial-input)))
+
+;;;###autoload
+(defun ido-find-tag (prefix)
+  "Go to the IDO selected tag."
+  (interactive "P")
+  (let ((tag (init-ido-read-tag "Find tag: " nil nil))) ;; choose the tag
+    (xref-find-definitions tag)))
+
+(provide 'enhance-etags)

diff -r 000000000000 -r fdac27abf6d8 elisp/enhance-semantic.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/enhance-semantic.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,47 @@
+;;; desktops.el --- Customize Emacs for special projects
+
+;; Copyright (C) 2017  Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: tools, c
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Some work to be done ....
+
+;;; Code:
+
+;;;###autoload
+(defun semantic-start-simple-ede-project ()
+  "Enable`semantic-mode' and create a simple ede project of
+type CPP. Root directory is `dektop-dirname'."
+  (interactive)
+  (global-ede-mode 1)
+  (ede-cpp-root-project "generation4"
+                        :file (concat desktop-dirname desktop-base-file-name)
+                        :include-path '("/C_Application" "/C_HeaterCore" "/C_CDD" "/C_CmdHandler" "/C_WBusCoreServices"))
+  (semantic-mode t))
+
+(defun additional-semantic-c-setup ()
+  "A function to be called for each buffer using c-mode. Set
+proper key bindings. The intention of this function is to be
+added to hook `c-mode-common-hook'."
+  (local-set-key (kbd "C-c , <return>") 'semantic-complete-inline-done)
+  (local-set-key (kbd "C-c , <tab>") 'semantic-analyze-proto-impl-toggle))
+
+(add-hook 'c-mode-common-hook 'additional-semantic-c-setup t)
+
+(provide 'enhance-semantic)

diff -r 000000000000 -r fdac27abf6d8 elisp/skeletons.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/skeletons.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,222 @@
+;;; skeletons.el --- skeletons used by abbrevs
+
+;; Copyright (C) 2017 Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: elisp support
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; ....
+
+;;; Code:
+
+;;;;;;;
+;; Auto-pairing is done by skeleton-mode
+(setq skeleton-pair t)
+(setq skeleton-pair-on-word nil)
+
+(add-hook 'markdown-mode-hook
+          (lambda ()
+            (local-set-key (kbd "'")  'skeleton-pair-insert-maybe)
+            (local-set-key (kbd "`")  'skeleton-pair-insert-maybe)
+            (local-set-key (kbd "\"") 'skeleton-pair-insert-maybe)))
+
+(add-hook 'emacs-lisp-mode-hook
+          (lambda ()
+            (local-set-key (kbd "(")  'skeleton-pair-insert-maybe)
+            (local-set-key (kbd "\"") 'skeleton-pair-insert-maybe)))
+
+(add-hook 'c-mode-common-hook
+          (lambda ()
+            (local-set-key (kbd "{")  'skeleton-pair-insert-maybe)
+            (local-set-key (kbd "(")  'skeleton-pair-insert-maybe)
+            (local-set-key (kbd "\"") 'skeleton-pair-insert-maybe)))
+
+(define-skeleton c-skeleton-file-header
+  "A comment header of a C files." nil
+  "/*\n"
+  " *\n"
+  " * WEBASTO SE, MCC, COPYRIGHT (c) " (format "%04d" (nth 5 (decode-time))) "\n"
+  " * ALL RIGHTS RESERVED\n"
+  " *\n"
+  " */\n"
+  "\n"
+  "/**\n"
+  " * \\file <FILE>\n"
+  " *\n"
+  " * \\ingroup <GROUP_NAME>\n"
+  " *\n"
+  " * \\brief <ADD DESC>\n"
+  " *\n"
+  " * \\author  $Author$\n"
+  " * \\version $Revision$\n"
+  " * \\date    $Date$\n"
+  " *\n"
+  " */\n")
+
+(define-skeleton c-skeleton-delimiter
+  "A delimiter line to bring more structure in file headers." nil
+  "/* " _ "========================================================================== */"
+  )
+
+
+(define-skeleton c-skeleton-function-header
+   "A comment header of a C function" nil
+   "/**\n"
+   " * \\brief " (read-string "Brief description:")
+   "\n *"
+   "\n * <Add detailed documentation here>"
+   "\n *"
+   "\n * \\par Used global variables:"
+   "\n * - None"
+   "\n *"
+   "\n * \\param[in] "
+   "\n * \\param[out] "
+   "\n * \\return "
+   "\n *"
+   "\n * */\n")
+
+(define-skeleton c-skeleton-preproc-if
+   "A simple preprocessor ifdef directive." nil
+   "#if (" (setq str (read-string "Directive condition: ")) ")\n"
+   _ "\n#endif /* " str " */")
+
+(define-skeleton c-skeleton-preproc-ifdef
+   "A simple preprocessor ifdef directive." nil
+   "#ifdef " (setq str (read-string "Directive condition: ")) "\n"
+   _ "\n#endif /* " str " */")
+
+(define-skeleton c-skeleton-plain-doxy-comment-before
+   "A simple doxygen comment before definition." nil
+   "/** \\brief " _ " */")
+
+(define-skeleton c-skeleton-plain-doxy-comment-after
+   "A simple doxygen comment after definition." nil
+   "/**< " _ " */")
+
+(define-skeleton c-skeleton-preproc-include
+   "A simple preprocessor include." nil
+   "#include \"" _ "\"")
+
+(define-skeleton c-skeleton-open-curly-braces
+  "Put a pair of curly braces with proper indention." nil
+  "{" > "\n" > _ "\n}" > )
+
+(define-skeleton c-skeleton-if
+  "insert a final else to th if statement." nil
+  "if (" _ ")" > "\n{" > "\n}" >)
+
+(define-skeleton c-skeleton-else
+  "insert a final else to th if statement." nil
+  "else" > "\n{" > "\n" > _ "\n}" > )
+
+(define-skeleton c-skeleton-new-case
+  "a case construction, used by switch statement." nil
+  "case " (read-string "Identifier: ") ":" > "\n"
+   > _ > "\nbreak;" >)
+
+(define-skeleton c-skeleton-switch-case
+  "a default switch-case construction" nil
+  "switch (" (read-string "Identifier: ") > ")\n"
+  "{" > "\n" > _
+  "\ndefault:" > "\nbreak;" > "\n}")
+
+
+(setq auto-insert-alist
+      '((("\\.\\([Hh]\\|hh\\|hpp\\)\\'" . "C / C++ header")
+         (upcase
+          (concat
+           (file-name-nondirectory
+            (file-name-sans-extension buffer-file-name))
+           "_"
+           (file-name-extension buffer-file-name)))
+
+         " /*\n"
+         " *    WEBASTO GROUP, MCC, COPYRIGHT (c) " (format "%4d" (nth 5 (decode-time))) "\n"
+         " *    ALL RIGHTS RESERVED\n"
+         " *\n"
+         " */\n"
+         "\n"
+         "/**\n"
+         " * \\file " (file-name-nondirectory buffer-file-name) "\n"
+         " * \\ingroup <module name>\n"
+         " * \\brief <short description>\n"
+         " * \n"
+         " * <Description about the purpose of this file>\n"
+         " *\n"
+         " */\n"
+         "\n"
+         "#ifndef " str n "#define " str "\n\n"
+         "/* ============================= INCLUDES ================================== */\n"
+         "\n"
+         "/* ============================= TYPEDEFS ================================== */\n"
+         "\n"
+         "/* ========================= SYMBOLIC CONSTANTS ============================ */\n"
+         "\n"
+         "/* ========================= EXPORTED MACROS =============================== */\n"
+         "\n"
+         "/* ========================= EXPORTED VARIABLES ============================ */\n"
+         "\n"
+         "/* ======================== EXPORTED FUNCTIONS ============================= */\n"
+         "\n"
+         "\n"
+         "#endif /* " str " */\n")
+        (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
+         nil
+
+         "/*\n"
+         " *    WEBASTO GROUP, MCC, COPYRIGHT (c) " (format "%4d" (nth 5 (decode-time))) "\n"
+         " *    ALL RIGHTS RESERVED\n"
+         " *\n"
+         " */\n"
+         "\n"
+         "/**\n"
+         " * \\file " (file-name-nondirectory buffer-file-name) "\n"
+         " * \\ingroup <module name>\n"
+         " * \\brief <short description>\n"
+         " *\n"
+         " * <Description about the purpose of this file>\n"
+         " *\n"
+         " */\n"
+         "\n"
+         "/* ============================= INCLUDES ================================== */\n"
+         "\n"
+         "#include \"Basic/HcStd.h\"\n"
+         "#include \"" (file-name-nondirectory
+                        (file-name-sans-extension buffer-file-name)) ".h\"\n\n"
+         "\n"
+         "/* ============================= TYPEDEFS ================================== */\n"
+         "\n"
+         "/* ======================= FORWARD DECLARATIONS ============================ */\n"
+         "\n"
+         "/* ========================= SYMBOLIC CONSTANTS ============================ */\n"
+         "\n"
+         "/* ============================== MACROS =================================== */\n"
+         "\n"
+         "/* ========================= EXPORTED VARIABLES ============================ */\n"
+         "\n"
+         "/* ========================== LOCAL VARIABLES ============================== */\n"
+         "\n"
+         "/* ======================== EXPORTED FUNCTIONS ============================= */\n"
+         "\n"
+         "/* ========================== LOCAL FUNCTIONS ============================== */\n"
+         "\n"
+         "/* =============================== TASKS =================================== */\n")))
+
+
+
+(provide 'skeletons)

diff -r 000000000000 -r fdac27abf6d8 elisp/style-doxygen.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/elisp/style-doxygen.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,169 @@
+;;; style-doxygen.el --- Doxygen support
+
+;; Copyright (C) 2017 Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: elisp support
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Highlight Doxygen keywords in c-mode.
+;;
+;; The code uses the standard Emacs interface for that purpose, called
+;; `font-lock-add-keywords'.
+;;
+;; Parts taken from Sourceforge project Doxymacs.
+;; Find the original sources here - http://sourceforge.net/projects/doxymacs
+;;
+;; To get it working in c-mode, disable highlighting for comment style gtkdoc. It is
+;; controlled by variable `c-doc-comment-style'. Customize this variable.
+;;
+;; Add this to your init.el:
+;;
+;; (eval-after-load "c-mode" (load "style-doxygen.el"))
+;;
+;; Code:
+
+
+;; (defgroup doxygen-faces nil
+;;   "Doxygen highlighting"
+;;   :group 'docs)
+;;
+;; (defface font-lock-doxygen-keyword
+;;   `((t (:inherit font-lock-comment-delimiter-face)))
+;;   "Doxygen keywords"
+;;   :group 'doxygen-faces)
+;;
+;; (defface font-lock-doxygen-parameter
+;;   `((t (:inherit font-lock-function-name-face)))
+;;   "Doxygen keywords"
+;;   :group 'doxygen-faces)
+
+(defconst doxygen-keywords
+  (list
+   (list
+    ;; One shot keywords that take no arguments
+    (concat "\\([@\\\\]\\(brief\\|li\\|\\(end\\)?code\\|sa"
+        "\\|note\\|\\(end\\)?verbatim\\|return\\|arg\\|fn"
+        "\\|hideinitializer\\|showinitializer"
+        ;; FIXME
+        ;; How do I get & # < > % to work?
+        ;;"\\|\\\\&\\|\\$\\|\\#\\|<\\|>\\|\\%"
+        "\\|\\$"
+        "\\|internal\\|nosubgrouping\\|author\\|date\\|endif"
+        "\\|invariant\\|post\\|pre\\|remarks\\|since\\|test\\|version"
+        "\\|\\(end\\)?htmlonly\\|\\(end\\)?latexonly\\|f\\$\\|file"
+        "\\|\\(end\\)?xmlonly\\|\\(end\\)?manonly\\|property"
+        "\\|mainpage\\|name\\|overload\\|typedef\\|deprecated\\|par"
+        "\\|addindex\\|line\\|skip\\|skipline\\|until\\|see"
+        "\\|endlink\\|callgraph\\|endcond\\|else\\)\\)\\>")
+    '(0 font-lock-comment-delimiter-face prepend))
+   ;; attention, warning, etc. given a different font
+   (list
+    "\\([@\\\\]\\(attention\\|warning\\|todo\\|bug\\)\\)\\>"
+    '(0 font-lock-warning-face prepend))
+   ;; keywords that take a variable name as an argument
+   (list
+    (concat "\\([@\\\\]\\(param\\(?:\\s-*\\[\\(?:in\\|out\\|in,out\\)\\]\\)?"
+        "\\|a\\|namespace\\|relates\\(also\\)?"
+        "\\|var\\|def\\)\\)\\s-+\\(\\sw+\\)")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(4 font-lock-doc-face prepend))
+   ;; keywords that take a type name as an argument
+   (list
+    (concat "\\([@\\\\]\\(class\\|struct\\|union\\|exception\\|enum"
+        "\\|throw\\|interface\\|protocol\\)\\)\\s-+\\(\\(\\sw\\|:\\)+\\)")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(3 font-lock-doc-face prepend))
+   ;; keywords that take a function name as an argument
+   (list
+    "\\([@\\\\]retval\\)\\s-+\\([^ \t\n]+\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 font-lock-doc-face prepend))
+   ;; bold
+   (list
+    "\\([@\\\\]b\\)\\s-+\\([^ \t\n]+\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 (quote bold) prepend))
+   ;; code
+   (list
+    "\\([@\\\\][cp]\\)\\s-+\\([^ \t\n]+\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 (quote font-lock-doc-face) prepend))
+   ;; italics/emphasised
+   (list
+    "\\([@\\\\]e\\(m\\)?\\)\\s-+\\([^ \t\n]+\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(3 (quote italic) prepend))
+   ;; keywords that take a list
+   (list
+    "\\([@\\\\]ingroup\\)\\s-+\\(\\(\\sw+\\s-*\\)+\\)\\s-*$"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 font-lock-doc-face prepend))
+   ;; one argument that can contain arbitrary non-whitespace stuff
+   (list
+    (concat "\\([@\\\\]\\(link\\|copydoc\\|xrefitem"
+        "\\|if\\(not\\)?\\|elseif\\)\\)"
+        "\\s-+\\([^ \t\n]+\\)")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(4 font-lock-doc-face prepend))
+   ;; one optional argument that can contain arbitrary non-whitespace stuff
+   (list
+    "\\([@\\\\]\\(cond\\|dir\\)\\(\\s-+[^ \t\n]+\\)?\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(3 font-lock-doc-face prepend t))
+   ;; one optional argument with no space between
+   (list
+    "\\([@\\\\]\\(~\\)\\([^ \t\n]+\\)?\\)"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(3 font-lock-doc-face prepend t))
+   ;; one argument that has to be a filename
+   (list
+    (concat "\\([@\\\\]\\(example\\|\\(dont\\)?include\\|includelineno"
+        "\\|htmlinclude\\|verbinclude\\)\\)\\s-+"
+        "\\(\"?[~:\\/a-zA-Z0-9_. ]+\"?\\)")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(4 font-lock-doc-face prepend))
+   ;; dotfile <file> ["caption"]
+   (list
+    (concat "\\([@\\\\]dotfile\\)\\s-+"
+        "\\(\"?[~:\\/a-zA-Z0-9_. ]+\"?\\)\\(\\s-+\"[^\"]+\"\\)?")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 font-lock-doc-face prepend)
+    '(3 font-lock-doc-face prepend t))
+   ;; image <format> <file> ["caption"] [<sizeindication>=<size>]
+   (list
+    "\\([@\\\\]image\\)\\s-+\\(html\\|latex\\)\\s-+\\(\"?[~:\\/a-zA-Z0-9_. ]+\"?\\)\\(\\s-+\"[^\"]+\"\\)?\\(\\s-+\\sw+=[0-9]+\\sw+\\)?"
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(2 font-lock-doc-face prepend)
+    '(3 font-lock-doc-face prepend)
+    '(4 font-lock-doc-face prepend t)
+    '(5 font-lock-doc-face prepend t))
+   ;; one argument that has to be a word
+   (list
+    (concat "\\([@\\\\]\\(addtogroup\\|defgroup\\|weakgroup"
+        "\\|page\\|anchor\\|ref\\|section\\|subsection"
+        "\\)\\)\\s-+\\(\\sw+\\)")
+    '(1 font-lock-comment-delimiter-face prepend)
+    '(3 font-lock-doc-face prepend))))
+
+;;;###autoload
+(defun doxygen-font-lock-mode ()
+  "Use font lock for Doxygen keywords for the current buffer."
+  (interactive)
+  (font-lock-add-keywords 'c-mode doxygen-keywords))
+
+(provide 'style-doxygen)

diff -r 000000000000 -r fdac27abf6d8 init.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/init.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,476 @@
+;;; init.el
+
+;; Copyright (C) 2017  Markus
+
+;; Author: Markus <[e-mail]>
+;; Keywords: tools, c
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary: Well, none!
+
+;;; Code:
+
+;;;;;;;;;;
+;; Add additional directories in front of `load-path'.
+(add-to-list 'load-path "~/.emacs.d/modes")
+(add-to-list 'load-path "~/.emacs.d/elisp")
+
+;; Added by Package.el.  This must come before configurations of
+;; installed packages.  Don't delete this line.  If you don't want it,
+;; just comment it out by adding a semicolon to the start of the line.
+;; You may delete these explanatory comments.
+(package-initialize)
+
+(defgroup my-customs nil
+  "Customizing group of init.el. It offers an easy way to keep
+the init file as it is and to adapt certain variables depedent on
+the actual work station or project your are working on.
+
+Here is a additional tip to customize Emacs for your project
+needs, this variables might be useful:
+
+    * `ff-search-directories'
+    * `compilation-search-path'
+    * `grep-find-template'
+    * `grep-find-ignored-directories'
+    * `grep-find-ignored-files'
+
+They are part of Emacs standard packages."
+  :group 'tools)
+
+(defcustom init-ido-uses-completions-vertically nil
+  "Display IDO completions vertically, when t."
+  :type '(boolean)
+  :group 'my-customs)
+
+(setq custom-file "~/.emacs.d/custom.el")
+(load custom-file)
+
+;; Load autoload commands. Gerated by `update-file-autoloads' or
+;; `update-directory-autoloads'. Check out
+;; http://www.gnu.org/software/emacs/manual/html_node/elisp/Autoload.html
+(require 'autoloads-modes)
+(require 'autoloads-elisp)
+
+;;;;;;;
+;; Load my skeleton templates before abbrev mode loads.
+(require 'skeletons)
+
+;; Set the frame's title. %b is the name of the buffer. %+ indicates
+;; the state of the buffer: * if modified, % if read only, or -
+;; otherwise. Two of them to emulate the mode line. %f for the file
+;; name. Incredibly useful!
+(setq-default frame-title-format
+              '(:eval
+                (format "%s (%s) on Emacs"
+                        (buffer-name)
+                        (file-name-directory (or (buffer-file-name)
+                                                 default-directory)))))
+
+;;;;;;;;;;
+;; The history mode
+(setq savehist-additional-variables    ;; also save ...
+      '(search-ring regexp-search-ring)    ;;       ... my search entries
+      savehist-file "~/.emacs.d/savehist") ;; keep my home clean
+(savehist-mode t)                      ;; do customization before activate
+
+(when (eq system-type 'windows-nt)
+  (prefer-coding-system 'windows-1256-dos))
+
+;;;;;;;;;;
+;; Mode VC needs filesets to work properly. Needed for operations on marked
+;; files in a vc-dir buffer. Chapter "28.1.3 Basic Editing under Version
+;; Control"
+(filesets-init)
+
+;;;;;;;;;;
+;; My Ediff configuration
+;; Find out more on http://www.emacswiki.org/emacs/EdiffMode
+(eval-after-load "ediff"
+  (progn (setq ediff-window-setup-function 'ediff-setup-windows-plain)
+         (setq ediff-split-window-function 'split-window-horizontally)
+         (setq-default ediff-ignore-similar-regions t)))
+
+;; Display IDO completions vertically
+;; Code taken from this Emacs wiki page:
+;; http://www.emacswiki.org/emacs/InteractivelyDoThings#toc23
+(add-hook 'ido-minibuffer-setup-hook
+          (lambda ()
+            (set (make-local-variable 'truncate-lines) nil)
+            (setcar (nthcdr 2 ido-decorations)
+                    (if init-ido-uses-completions-vertically "\n  | " "  | "))))
+
+(add-hook 'ido-setup-hook
+          (lambda ()
+            ;; C-f/p is more intuitive in vertical layout
+            (define-key ido-completion-map (kbd "<down>") 'ido-next-match)
+            (define-key ido-completion-map (kbd "<up>") 'ido-prev-match)))
+
+(add-hook 'compilation-mode-hook
+          (lambda ()
+            ;; line break for comilation buffer
+            (setq truncate-lines t)
+            (text-scale-adjust -1)))
+
+(add-hook 'before-save-hook
+          (lambda()
+            ;; Emacs writes the backup before save-buffer and sets local
+            ;; variable `buffer-backed-up' to t. To enable further backups in
+            ;; this session, set buffer-backed-up to nil with this hook.
+            ;; `backup-directory-alist' controls which and where files are
+            ;; stored.
+            (setq buffer-backed-up nil)))
+
+(add-hook 'before-save-hook
+          ;; Take care to customize `whitespace-style' in order to keep
+          ;; indentation of source code
+          'whitespace-cleanup)
+
+;; Get easy access to eshells history list
+(add-hook 'eshell-mode-hook
+          (lambda ()
+            (local-set-key (kbd "C-c h")
+                           (lambda ()
+                             (interactive)
+                             (insert
+                              (ido-completing-read "Eshell history: "
+                                                   (delete-dups
+                                                    (ring-elements eshell-history-ring))))))
+            (local-set-key (kbd "C-c C-h") 'eshell-list-history)
+            (local-set-key (kbd "C-c o") 'eshell-show-output)))
+
+;; Support for Octave/Matlab files
+(autoload 'octave-mode "octave")
+(add-to-list 'auto-mode-alist '("\\.m$" . octave-mode))
+
+;; Makefiles
+(add-to-list 'auto-mode-alist '("\\.mak$" . makefile-mode))
+
+;; RH850 assembler code
+(add-to-list 'auto-mode-alist '("\\.850$" . asm-mode))
+
+;;;;;;;;;
+;; Add hooks
+
+(add-hook 'org-mode-hook
+          (lambda ()
+            (local-set-key (kbd "C-c a") 'org-agenda-file-to-front)
+            (artbollocks-mode 1)
+            (abbrev-mode 1)))
+
+(add-hook 'makefile-mode
+          (lambda ()
+            (setq indent-tabs-mode t))) ; Use real tabs
+
+;; Use this hooks to change file mode
+(add-hook 'after-save-hook
+          'executable-make-buffer-file-executable-if-script-p)
+
+(add-hook 'python-mode-hook
+          (lambda ()
+            (local-set-key (kbd "C-c , <return>") 'semantic-complete-inline-done)
+            (setq python-indent 4)
+            (whitespace-mode 1)
+            (setq whitespace-style '(empty
+                                     tabs
+                                     trailing
+                                     indentation::space
+                                     space-before-tab::space
+                                     space-after-tab::space))))
+
+(add-hook 'emacs-lisp-mode-hook
+          (lambda ()
+            (eldoc-mode 1)))
+
+(add-hook 'text-mode-hook
+          (lambda ()
+            (artbollocks-mode 1)
+            (setq comment-start nil)
+            (turn-on-auto-fill)
+            (text-mode-hook-identify)))
+
+
+;; Stop ^M's from displaying in system shell window
+(add-hook 'comint-output-filter-functions 'shell-strip-ctrl-m)
+
+(add-hook 'comint-mode-hook
+          (lambda()
+            (setq comint-process-echoes t))) ; This prevents shell commands from being echoed
+
+(add-hook 'shell-mode-hook
+          (lambda ()
+            (setq comint-scroll-to-bottom-on-input t)
+            (setq comint-scroll-to-bottom-on-output t)
+            (setq comint-scroll-show-maximum-output t)
+            ;; parse  shell output as compilation output please
+            (compilation-shell-minor-mode)))
+
+(add-hook 'c-mode-common-hook
+          (lambda ()
+            (linum-mode 1)
+            (doxygen-font-lock-mode)
+            (cwarn-mode 0)
+            (electric-indent-mode 1)
+            (c-toggle-auto-newline -1)
+            (c-toggle-hungry-state -1)
+            (c-set-offset 'substatement-open '0)
+            (c-set-offset 'inline-open '+)
+            (c-set-offset 'block-open '+)
+            (c-set-offset 'case-label '+)
+            (c-set-offset 'statement-case-open '+)
+            (c-set-offset 'brace-list-open '0)
+            (c-set-offset 'brace-list-entry '0)))
+
+(add-hook 'align-load-hook
+          (lambda ()
+            (add-to-list 'align-rules-list
+                         '(c-assignment-1
+                           (regexp . "[=;]\\(\\s-*\\)")
+                           (modes  . '(c-mode))
+                           (repeat . t)))))
+
+;; Set indentation style
+(setq c-default-style '((c-mode . "k&r")
+                        (other  . "k&r")))
+
+;; Indenting in C and tab behaviour. Optimized for a tab width of four.
+(setq c-basic-offset 4
+      tab-width  4
+      indent-tabs-mode nil
+      tab-stop-list '(4 8 12 16 20 24 28 32 36 40))
+
+;; remember last point of changed text
+(add-to-list 'after-change-functions 'store-last-insertation-point)
+
+;;;;;;;;;;
+;; window move with shift plus cursor arrows
+(windmove-default-keybindings)
+
+;; winner-mode help to undo(C-c <left>) or redo (C-c <right> changes in the
+;; window configuration
+(winner-mode 1)
+
+;;;;;;;;;;
+;; Aliases
+(defalias 'cv  'customize-variable)
+(defalias 'cf  'customize-face)
+(defalias 'cg  'customize-group)
+(defalias 'dcd 'desktop-change-dir)
+
+;;;;;;;;;;
+;; key mappings. First, unbind leader key
+(global-unset-key (kbd "<apps>"))
+
+;; recursive `rgrep' with `default-directory' as root directory
+(global-set-key (kbd "<apps> r")   'rgrep)
+
+;; recursive `rgrep' with `desktop-dirname' as root directory
+(global-set-key (kbd "<apps> R") (lambda ()
+                                 (interactive)
+                                 (let ((default-directory desktop-dirname))
+                                   (call-interactively #'rgrep))))
+
+;; To maximize speed of a `rgrep' command, don't forget to customize
+;; grep-find-ignored-directories and grep-find-ignored-files.
+(global-set-key (kbd "<apps> <apps> r") (lambda ()
+                                      (interactive)
+                                      (customize-variable 'grep-find-ignored-directories)))
+
+;;;;;;;
+;; Support functions and key mappings to make life in Emacs easier.
+(global-set-key (kbd "<apps> <tab>") 'ff-find-other-file)
+
+(global-set-key (kbd "<apps> d") (lambda ()
+                                 (interactive)
+                                 (message "desktop location is %s" (file-name-as-directory desktop-dirname))))
+
+(global-set-key (kbd "M-#") 'select-region-symbol-line)
+(global-set-key (kbd "<apps> e") 'rebuild-etags)
+(global-set-key (kbd "<apps> .") 'insert-date)
+(global-set-key (kbd "<apps> m") 'quick-multi-occur)
+;; align active region. Change `align-rules-list' for your needs-
+(global-set-key (kbd "<apps> a") (lambda ()
+                                 (interactive)
+                                 (when (region-active-p)
+                                   (align (region-beginning) (region-end)))))
+
+;;; Look up symbol at point in current buffer. Function uses package hi-lock. To
+;;; remove highlighting, press M-s h u or M-x unhighlight-regexp<CR>.
+(global-set-key (kbd "<apps> o") (lambda ()
+                                 (interactive)
+                                 (highlight-regexp
+                                  (thing-at-point 'symbol) 'match)
+                                 (occur (thing-at-point 'symbol))
+                                 (message "Remove highlighting by pressing M-s h u")))
+
+(global-set-key (kbd "<apps> p") (lambda ()
+                                 (interactive)
+                                 (if (equal (current-buffer) (get-buffer " SPEEDBAR"))
+                                     (other-frame -1)
+                                   (if (not (get-buffer " SPEEDBAR"))
+                                       (progn
+                                         (speedbar 1)
+                                         (speedbar-expand-line))
+                                     (switch-to-buffer-other-frame " SPEEDBAR")))))
+
+
+(global-set-key (kbd "<M-right>") 'quick-search-forward)
+(global-set-key (kbd "<M-left>") 'quick-search-backward)
+
+(global-set-key (kbd "<apps> <DEL>") 'go-back-to-last-insertion-point)
+
+;; folding aka `selective-display'
+(global-set-key (kbd "<apps> z") 'toggle-selective-display)
+(global-set-key (kbd "<apps> C-z") 'toggle-selective-display)
+
+;; show converted numbers
+(global-set-key (kbd "M-0") 'print-radix-10-value)
+(global-set-key (kbd "M-6") 'print-radix-16-value)
+
+;; Better support of tags based search with `tags-search' and
+;; `tags-loop-continue'. By the way: Do not forget the useful
+;; `tags-query-replace' as a LO-Fi-version of code-refactoring.
+(global-set-key (kbd "<apps> t") (lambda()
+                                 (interactive)
+                                 (bookmark-set "point before tags-search" nil)
+                                 (tags-search (thing-at-point 'symbol))))
+(global-set-key (kbd "<apps> c") 'tags-loop-continue)
+
+;;;;;;;;;;
+;; Functions keys for quick, 'one-key' access.
+;; Browse files and symbols with ido-mode
+(global-set-key (kbd "<f1>") 'ido-find-file-in-tag-files)
+(global-set-key (kbd "<f2>") 'ido-find-tag)
+
+;; Key <f3> is reserved to access `kmacro-start-macro-or-insert-counterhk'.
+;; Key <f4> is reserved to access `kmacro-end-or-call-macro'.
+
+(global-set-key (kbd "<f5>") 'ibuffer)
+(global-set-key (kbd "<f6>") 'org-todo-list)
+
+(global-set-key (kbd "<f7>")   'recompile)
+(global-set-key (kbd "<C-f7>") 'compile)
+
+;; customize `grep-command' for your favorite grep tool (GNU global, Cscope,
+;; Ripgrep or classic grep with switch -r)
+(global-set-key (kbd "<f8>") (lambda ()
+                               (interactive)
+                               (let ((default-directory desktop-dirname))
+                                 (grep (concat grep-command " " (thing-at-point 'symbol))))))
+
+;; <f10> is used to focus on the menu
+(global-set-key (kbd "<f11>") 'toggle-frame-fullscreen)
+(global-set-key (kbd "<f12>") 'next-error)
+(global-set-key (kbd "<S-f12>") 'previous-error)
+
+;; A quick access key for my-customs
+(global-set-key (kbd "<C-f12>") (lambda ()
+                                  (interactive)
+                                  (customize-group 'my-customs)))
+
+;; key binding to toggle movement in CamelCase words
+(global-set-key (kbd "<apps> s") 'global-subword-mode)
+
+(global-set-key (kbd "C-S-j") 'join-line)
+(global-set-key (kbd "C-S-<left>") 'beginning-of-line-text)
+
+;; Scroll the view port
+(global-set-key (kbd "<C-up>") (lambda()
+                                 (interactive)
+                                 (scroll-down 1)))
+(global-set-key (kbd "<C-down>") (lambda()
+                                   (interactive)
+                                   (scroll-up 1)))
+
+(global-set-key (kbd "M-<up>") 'backward-paragraph)
+(global-set-key (kbd "M-<down>") 'forward-paragraph)
+
+;; text completion
+(global-set-key (kbd "<C-tab>") 'hippie-expand)
+
+(global-set-key (kbd "<apps> i") 'show-dir-info)
+
+(global-set-key (kbd "<home>") 'cycle-bti-bol)
+
+;; Indent and outdent active region
+(global-set-key (kbd "<apps> <left>") (lambda (p1 p2)
+                                      (interactive "r")
+                                      (indent-rigidly-left-to-tab-stop p1 p2)))
+(global-set-key (kbd "<apps> <right>") (lambda (p1 p2)
+                                       (interactive "r")
+                                       (indent-rigidly-right-to-tab-stop p1 p2)))
+
+;; Resize current window in vertical and horizontal dimension
+(global-set-key (kbd "C-M--") (lambda ()
+                                (interactive)
+                                (when (> (window-width) 40)
+                                  (shrink-window-horizontally 3)
+                                  (when (> (window-height) 20)
+                                    (shrink-window 5)))))
+(global-set-key (kbd "C-M-+") (lambda ()
+                                (interactive)
+                                (enlarge-window-horizontally 3)
+                                (enlarge-window 5)))
+
+;; Bring back some important buffers
+(global-set-key (kbd "<apps> b c") (lambda ()
+                                   (interactive)
+                                   (pop-to-buffer "*compilation*")))
+(global-set-key (kbd "<apps> b g") (lambda ()
+                                   (interactive)
+                                   (pop-to-buffer "*grep*")))
+(global-set-key (kbd "<apps>  b o") (lambda ()
+                                   (interactive)
+                                   (pop-to-buffer "*Occur*")))
+
+;;;;;;;;;;
+;; Some fancy stuff
+(if window-system
+    (progn
+      ;; Start the server. If a server is already running, restart it.
+      (server-start)
+      ;; Menu bar, please.
+      (menu-bar-mode 1))
+  ;; No GUI, no menus!
+  (menu-bar-mode -1))
+
+;;;;;;;;;;
+;; Test available ELPA packages
+(add-hook 'after-init-hook
+          (lambda ()
+            (when (fboundp 'defhydra)
+              ;; taken from https://killring.org/2016/09/16/emacs-hydra-for-fun-and-profit/
+              (defhydra hydra-window (:color red :hint nil)
+                "One key surfing:"
+                ("o" other-window "other window")
+                ("n" next-error "next error")
+                ("p" previous-error "previous error")
+                ("q" nil "cancel"))
+              (defun one-key-surfer ()
+                (interactive)
+                (hydra-window/body))
+              (global-set-key (kbd "C-#") 'one-key-surfer))
+            (when (fboundp 'swiper)
+              (global-set-key (kbd "<C-apps>") 'swiper))))
+
+;;;;;;;;;;
+;; Set property values.
+;; Enable upper-case (C-x C-u) or lower-case (C-x C-l) conversions
+(put 'downcase-region 'disabled nil)
+(put 'upcase-region 'disabled nil)
+;; Enable goal-column. Can be used by C-x C-n and left by C-u C-x C-n
+(put 'set-goal-column 'disabled nil)
+(put 'narrow-to-region 'disabled nil)
+(put 'scroll-left 'disabled nil)

diff -r 000000000000 -r fdac27abf6d8 modes/autoloads-modes.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modes/autoloads-modes.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,38 @@
+;;; autoloads-modes.el --- automatically extracted autoloads
+;;
+;;; Code:
+
+
+;;;### (autoloads nil "ripgrep" "ripgrep.el" (22734 57018 0 0))
+;;; Generated autoloads from ripgrep.el
+
+(autoload 'ripgrep-regexp "ripgrep" "\
+Run a ripgrep search with `REGEXP' rooted at `DIRECTORY'.
+`ARGS' provides Ripgrep command line arguments.
+
+\(fn REGEXP DIRECTORY &optional ARGS)" t nil)
+
+;;;***
+
+;;;### (autoloads nil "srec-mode" "srec-mode.el" (22728 15612 0 0))
+;;; Generated autoloads from srec-mode.el
+
+(autoload 'srec-mode "srec-mode" "\
+A major mode for editing Motorola S-format Record files.  Runs `srec-mode-hook'.
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads nil nil ("loaddefs-modes.el") (22767 55776 0 0))
+
+;;;***
+
+(provide 'autoloads-modes)
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; autoloads-modes.el ends here

diff -r 000000000000 -r fdac27abf6d8 modes/ripgrep.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modes/ripgrep.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,204 @@
+;;; ripgrep.el --- Front-end for ripgrep, a command line search tool
+
+;; Copyright (C) 2016 Nicolas Lamirault <[e-mail]>
+;;
+;; Author: Nicolas Lamirault <[e-mail]>
+;; Version: 0.4.0
+;; Package-Version: 0.4.0
+;; Keywords : ripgrep ack pt ag sift grep search
+;; Homepage: https://github.com/nlamirault/ripgrep.el
+
+;; Modifications in base version 0.4.0:
+;; Author: Markus Prepens <[e-mail]>
+
+;; Description: ripgrep-regexp makes no use of prefix arguments: Any prefix
+;; argument runs Ripgrep interactive, presets current buffers default-directory
+;; and symbol at point. No prefix argument uses desktop-dirname and current
+;; symbol at point without further interaction. If desktop-dirname is nil, run
+;; Ripgrep from default-directory.
+
+;;; Commentary:
+
+;; Emacs front-end for ripgrep, a command line search tool
+
+;; Installation:
+
+;; ripgrep.el is available on the two major community maintained repositories
+;; Melpa stable (https://stable.melpa.org), and Melpa (https://melpa.org)
+;;
+;; (add-to-list 'package-archives
+;;              '("melpa" . "https://melpa.org/packages/") t)
+;;
+;; M-x package-install ripgrep
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 2
+;; of the License, or (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+;; 02110-1301, USA.
+
+;;; Commentary:
+
+;; Usage :
+
+;; M-x ripgrep-regexp
+
+;;; Code:
+
+(require 'compile)
+(require 'grep)
+(require 'thingatpt)
+
+
+;; Customization
+;; --------------------------
+
+(defgroup ripgrep nil
+  "Ripgrep"
+  :group 'tools
+  :group 'matching)
+
+
+(defcustom ripgrep-executable
+  "rg"
+  "Name of the ripgrep executable to use."
+  :type 'string
+  :group 'ripgrep)
+
+
+(defcustom ripgrep-arguments
+  (list "")
+  "Default arguments passed to ripgrep."
+  :type '(repeat (string))
+  :group 'ripgrep)
+
+
+(defcustom ripgrep-highlight-search t
+  "Non-nil means we highlight the current search term in results.
+This requires the ripgrep command to support --color-match, which is only in v0.14+"
+  :type 'boolean
+  :group 'ripgrep)
+
+
+;; Faces
+;; --------------------------
+
+
+(defface ripgrep-hit-face '((t :inherit compilation-info))
+  "Face name to use for ripgrep matches."
+  :group 'ripgrep)
+
+
+(defface ripgrep-match-face '((t :inherit match))
+  "Face name to use for ripgrep matches."
+  :group 'ripgrep)
+
+
+
+;; Mode
+;; --------------------------
+
+
+(defvar ripgrep-search-finished-hook nil
+  "Hook run when ripgrep completes a search in a buffer.")
+
+(defun ripgrep/run-finished-hook (buffer how-finished)
+  "Run the ripgrep hook to signal that the search has completed."
+  (with-current-buffer buffer
+    (run-hooks 'ripgrep-search-finished-hook)))
+
+(defvar ripgrep-search-mode-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map compilation-minor-mode-map)
+    (define-key map "p" 'compilation-previous-error)
+    (define-key map "n" 'compilation-next-error)
+    (define-key map "{" 'compilation-previous-file)
+    (define-key map "}" 'compilation-next-file)
+    (define-key map "k" '(lambda ()
+                           (interactive)
+                           (let ((kill-buffer-query-functions))
+                             (kill-buffer))))
+    map)
+  "Keymap for ripgrep-search buffers.
+`compilation-minor-mode-map' is a cdr of this.")
+
+
+(define-compilation-mode ripgrep-search-mode "Ripgrep"
+  "Ripgrep results compilation mode"
+  (set (make-local-variable 'truncate-lines) t)
+  (set (make-local-variable 'compilation-disable-input) t)
+  (set (make-local-variable 'compilation-scroll-output) nil)
+  (set (make-local-variable 'tool-bar-map) grep-mode-tool-bar-map)
+  (let ((symbol 'compilation-ripgrep)
+        (pattern '("^\\([^:\n]+?\\):\\([0-9]+\\):\\([0-9]+\\):" 1 2 3)))
+    (set (make-local-variable 'compilation-error-regexp-alist) (list symbol))
+    (set (make-local-variable 'compilation-error-regexp-alist-alist) (list (cons symbol pattern))))
+  (set (make-local-variable 'compilation-error-face) 'ripgrep-hit-face)
+  (add-hook 'compilation-filter-hook 'ripgrep-filter nil t))
+
+
+;; Taken from grep-filter, just changed the color regex.
+(defun ripgrep-filter ()
+  "Handle match highlighting escape sequences inserted by the rg process.
+This function is called from `compilation-filter-hook'."
+  (when ripgrep-highlight-search
+    (save-excursion
+      (forward-line 0)
+      (let ((end (point)) beg)
+        (goto-char compilation-filter-start)
+        (forward-line 0)
+        (setq beg (point))
+        ;; Only operate on whole lines so we don't get caught with part of an
+        ;; escape sequence in one chunk and the rest in another.
+        (when (< (point) end)
+          (setq end (copy-marker end))
+          ;; Highlight rg matches and delete marking sequences.
+          (while (re-search-forward "\033\\[30;43m\\(.*?\\)\033\\[[0-9]*m" end 1)
+            (replace-match (propertize (match-string 1)
+                                       'face nil 'font-lock-face 'ripgrep-match-face)
+                           t t))
+          ;; Delete all remaining escape sequences
+          (goto-char beg)
+          (while (re-search-forward "\033\\[[0-9;]*[mK]" end 1)
+            (replace-match "" t t)))))))
+
+
+
+;; API
+;; --------------------------
+
+
+;;;###autoload
+(defun ripgrep-regexp (regexp directory &optional args)
+  "Run a ripgrep search with `REGEXP' rooted at `DIRECTORY'.
+`ARGS' provides Ripgrep command line arguments."
+  (interactive
+   (if (and current-prefix-arg (boundp 'desktop-dirname))
+       (list (read-from-minibuffer "Ripgrep search for: " (thing-at-point 'symbol))
+             (read-directory-name "Directory: " default-directory))
+     (list (thing-at-point 'symbol)
+           desktop-dirname)))
+  (let ((default-directory directory))
+    (compilation-start
+     (mapconcat 'identity
+                (append (list ripgrep-executable)
+                        ripgrep-arguments
+                        args
+                        '("--no-heading --vimgrep")
+                        (list (shell-quote-argument regexp) ".")) " ")
+     'ripgrep-search-mode)))
+
+
+(provide 'ripgrep)
+;;; ripgrep.el ends here

diff -r 000000000000 -r fdac27abf6d8 modes/srec-mode.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modes/srec-mode.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,263 @@
+;;; srec-mode.el --- Major Mode for Motorola S-format record files
+
+;; Copyright (C) 2003  Dast <[e-mail]>
+
+;; Author: Dast <[e-mail]>
+;; Keywords: files, data, hardware, tools
+;; URL: http://dast.freeshell.org/section/emacs/elisp
+;; Version: 1.0
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This file provides a mode for viewing Motorola S-Record formatted
+;; files.  The format is designed to allow printable ASCII
+;; representations of program or data files to be loaded on various
+;; hardware platforms.  Each line is a record with a specific format.
+;; Details on the S-Record format can be found at the following
+;; locations.  It has been modified to allow records to start with
+;; either the letter S or T, upper or lower case.
+
+;; http://www.cs.net/lucid/moto.htm
+;; http://www.compusmart.ab.ca/rc/TechTips/srecords.html
+;; http://www.amelek.gda.pl/avr/uisp/srecord.htm
+
+;; To use this file, make sure you put it in your load-path.  Then you
+;; can put the following line in your .emacs file.
+
+;; (require 'srec-mode)
+
+;; This file does not modify auto-mode-alist to load the mode
+;; automatically.  You may wish to set it to load for appropriate file
+;; extensions.
+
+;; Tested with GNU Emacs 21.2.1 on Win32.
+
+;; You can find this file at
+;; http://dast.freeshell.org/section/emacs/elisp
+
+;;; Code:
+
+(defgroup srec ()
+  "Mororola S Record file group"
+  :group 'languages)
+
+(defface srec-mode-type-face
+  '((t (:inherit font-lock-type-face)))
+  "Bold cyan"
+  :group 'srec)
+
+(defface srec-mode-length-face
+  '((t (:inherit font-lock-variable-name-face)))
+  "Aquamarine"
+  :group 'srec)
+
+(defface srec-mode-addr-face
+  '((t (:inherit font-lock-keyword-face)))
+  "Light Salmon"
+  :group 'srec)
+
+(defface srec-mode-misc-face
+  '((t (:inherit font-lock-doc-face)))
+  "Orchid1"
+  :group 'srec)
+
+(defface srec-mode-checksum-face
+  '((t (:inherit font-lock-comment-face)))
+  "yellow"
+  :group 'srec)
+
+(defface srec-mode-error-face
+  '((t (:inherit show-paren-mismatch)))
+  "red")
+
+(defcustom srec-mode-hook nil
+  "Normal hook run by `srec-mode'."
+  :type 'hook
+  :group 'srec)
+
+(defcustom srec-mode-check-s0-len nil
+  "If nil, do not check the length of S0 records, otherwise check them."
+  :type 'boolean
+  :group 'srec)
+
+(defvar srec-font-lock-keywords
+  '(
+    ;; bad records
+    ("^[^SsT].*$"
+     . 'srec-mode-error-face) ;anything that doesn't begin with an S or a T
+    ("^[SsT].*[^[:xdigit:]\n].*$"
+     . 'srec-mode-error-face) ;anything that begins with an S or a T but has non hex digits
+
+    ;; S0 records
+    ("^\\([SsT]0\\)\\([[:xdigit:]]\\{2\\}\\)\\(.*\\)\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-misc-face) (4 'srec-mode-checksum-face)))
+
+    ;; data records
+    ("^\\([SsT]1\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{4\\}\\)[[:xdigit:]]\\{0,504\\}\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ("^\\([SsT]2\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{6\\}\\)[[:xdigit:]]\\{0,502\\}\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ("^\\([SsT]3\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{8\\}\\)[[:xdigit:]]\\{0,500\\}\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+
+    ;; terminator record with optional starting execution address, must be the last in the file?
+    ;;    ("^\\([SsT]7\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{8\\}\\)\\([[:xdigit:]]\\{2\\}\\)$" . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ;;    ("^\\([SsT]8\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{6\\}\\)\\([[:xdigit:]]\\{2\\}\\)$" . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ;;    ("^\\([SsT]9\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{4\\}\\)\\([[:xdigit:]]\\{2\\}\\)$" . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+
+    ;; hardcoded lengths
+    ("^\\([SsT]7\\)\\(05\\)\\([[:xdigit:]]\\{8\\}\\)\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ("^\\([SsT]8\\)\\(04\\)\\([[:xdigit:]]\\{6\\}\\)\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face)))
+    ("^\\([SsT]9\\)\\(03\\)\\([[:xdigit:]]\\{4\\}\\)\\([[:xdigit:]]\\{2\\}\\)$"
+     . ((1 'srec-mode-type-face) (2 'srec-mode-length-face) (3 'srec-mode-addr-face) (4 'srec-mode-checksum-face))))
+  "Keyword highlighting specification for `srec-mode'.")
+
+;;;###autoload
+(define-derived-mode srec-mode fundamental-mode "SREC"
+  "A major mode for editing Motorola S-format Record files.  Runs `srec-mode-hook'."
+  (set (make-local-variable 'font-lock-defaults)
+       '(srec-font-lock-keywords))
+  (toggle-truncate-lines)
+  (local-set-key [menu-bar srec] (cons "SREC" (make-sparse-keymap "SREC")))
+  (local-set-key [menu-bar srec check] '("Check Buffer Format" . srec-check-buffer))
+  (local-set-key [menu-bar srec process] '("Process S2 Records" . srec-process-buffer))
+  (local-set-key [menu-bar srec consec] '("Consecutive S2 Ranges" . srec-consecutive-ranges))
+  ;;(define-key srec-mode-map [menu-bar srec check] '("Check Buffer Format" . srec-check-buffer))
+  (run-hooks 'srec-mode-hook))
+
+
+(defun srec-check-region (beg end)
+  "Check all of the S records in the given region."
+  (interactive "r")
+  (goto-char beg)
+  (while (and
+          (<= (point) end)
+          (re-search-forward "^\\([SsT]\\([0-9]\\)\\(\\([[:xdigit:]]\\{2\\}\\)[[:xdigit:]]*\\)\\([[:xdigit:]]\\{2\\}\\)\\)$" nil t))
+    (let ( (line (match-string-no-properties 1))
+           (type (match-string-no-properties 2))
+           (cblk (match-string-no-properties 3))
+           (leng (match-string-no-properties 4))
+           (csum (match-string-no-properties 5)))
+      ;; highlight bad lengths in yellow, bad checksums in blue
+      (if (and
+           (or (not (string= type "0")) srec-mode-check-s0-len)
+           (not (srec-good-len-p cblk leng)))
+          (highlight-phrase line "hi-yellow") ; highlight entire line
+        (if (not (srec-good-sum-p cblk csum))
+            (highlight-phrase line "hi-blue")))) ; highlight entire line
+    (forward-line)))
+
+(defun srec-check-buffer ()
+  "Check all of the S records in the given buffer."
+  (interactive)
+  (save-excursion
+    (srec-check-region (point-min) (point-max))
+    (princ "All done!\n")))
+
+(defun srec-good-sum-p (cblk csum)
+  "Check the checksum in an S record."
+  (let ((index 0)
+        (num 0)
+        (asum 0))
+    ;; calculate the checksum
+    (while (setq index (string-match "\\([[:xdigit:]]\\{2\\}\\)" cblk index))
+      (setq index (+ index 2))  ; 2 is the length of the match data
+      (setq asum (+ asum (number-to-decimal (match-string 1 cblk) 16))))
+    ;; compare the calculated checksum against the checksum field
+    ;; logxor to do ones compliment, logand to get least significant bits
+    (= (logand 255 (logxor asum 255)) (number-to-decimal csum 16))))
+
+
+(defun srec-good-len-p (cblk leng)
+  "Check the length of an S record."
+  ;; (length of cblk) == (leng field in decimal * 2)
+  (= (length cblk) (* 2 (string-to-number leng 16))))
+
+
+(defun srec-process-region (beg end)
+  "Process all of the S2 records in the given region."
+  (interactive "r")
+  (goto-char beg)
+  (with-output-to-temp-buffer "*Processed S2 Records*"
+    (while (and
+            (<= (point) end)
+            (re-search-forward "^[SsT]2[[:xdigit:]]\\{2\\}\\([[:xdigit:]]\\{6\\}\\)\\([[:xdigit:]]*\\)[[:xdigit:]]\\{2\\}$" nil t))
+      (let ( (addr (match-string-no-properties 1))
+             (blk  (match-string-no-properties 2))
+             (index 0)
+             (byte)
+             (line ""))
+        (princ (format "0x%s : " addr))
+
+        (while (setq index (string-match "\\([[:xdigit:]]\\{2\\}\\)" blk index))
+          (setq index (+ index 2))  ; 2 is the length of the match data
+          (setq byte (format "%c" (string-to-number (match-string 1 blk) 16)))
+          (if (string-match "\\([^[:print:]]\\)" byte 0)
+              (setq byte "."))
+          (setq line (concat line byte)))
+        (princ (format "%s\n" line)))))
+  (save-current-buffer
+    (set-buffer "*Processed S2 Records*")
+    (toggle-truncate-lines)))
+
+(defun srec-process-buffer ()
+  "Process all of the S2 records in the given buffer."
+  (interactive)
+  (save-excursion
+    (srec-process-region (point-min) (point-max))))
+
+(defun srec-consecutive-ranges ()
+  "Find all consecutive ranges of S2 records in the given buffer"
+  (interactive)
+
+  (save-excursion
+    (goto-char (point-min))
+    (with-output-to-temp-buffer "*Consecutive S2 Record Ranges*"
+      (re-search-forward "^[SsT]2\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{6\\}\\)[[:xdigit:]]*[[:xdigit:]]\\{2\\}$" nil t)
+      ;; subtract 4 from the length to get rid of 3 character pairs for the address and 1 character pair for the checksum
+      (let ( (prev-leng (- (string-to-number (match-string-no-properties 1) 16) 4))
+             (prev-addr (match-string-no-properties 2)) )
+
+        (setq prev-addr-num (string-to-number prev-addr 16))
+        (setq prev-end-addr (+ prev-addr-num prev-leng))
+
+        ;; we begin at the first address we find
+        (princ (format "%s - " prev-addr))
+
+        (while (re-search-forward "^[SsT]2\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{6\\}\\)[[:xdigit:]]*[[:xdigit:]]\\{2\\}$" nil t)
+          ;; subtract 4 from the length to get rid of 3 character pairs for the address and 1 character pair for the checksum
+          (let ( (leng (- (string-to-number (match-string-no-properties 1) 16) 4))
+                 (addr (match-string-no-properties 2)) )
+
+            (setq addr-num (string-to-number addr 16))
+            (setq end-addr (+ addr-num leng))
+
+            ;; if we don't begin at the end of the previous record
+            ;;       (princ (format "Addr: %d\tPrev Addr: %d\n" addr-num prev-end-addr))
+            (if (/= addr-num prev-end-addr)
+                ;; then we have a new range
+                ;;       (princ (format "0%s\n%s - " (upcase (decimal-to-number prev-end-addr 16)) addr))
+                (princ (format "0%X\n%s - " prev-end-addr addr)))
+            (setq prev-end-addr end-addr))) ; end while
+        ;;    (princ (format "0%s\n" (upcase (decimal-to-number prev-end-addr 16))))
+        (princ (format "0%X\n" prev-end-addr))))))
+
+(provide 'srec-mode)
+;;; srec-mode.el ends here

diff -r 000000000000 -r fdac27abf6d8 themes/angry-bee-theme.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/themes/angry-bee-theme.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,114 @@
+(deftheme angry-bee
+ "My color theme with dark background.")
+
+(custom-theme-set-variables
+ 'angry-bee)
+
+(custom-theme-set-faces
+ 'angry-bee
+
+ ;; basics
+ '(default ((t (:inherit nil :stipple nil :background "grey12" :foreground "azure3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(region ((t (:foreground "white" :background "deepskyblue3"))))
+ '(mode-line ((t (:box (:line-width 1 :color "lightblue2" :style none) :foreground "black" :background "lightblue2"))))
+ '(mode-line-inactive ((t (:box (:line-width 1 :color "grey45" :style none) :foreground "grey60" :background "grey15"))))
+
+ ;; decoration
+ '(fringe ((t (:inherit default))))
+ '(underline ((((supports :underline t)) (:underline "grey35"))))
+ '(cursor ((t (:background "yellow" :foreground "white"))))
+ '(hl-line ((t (:inherit t :background "grey22"))))
+ '(linum ((t (:weight bold :slant normal :foreground "coral4" :background "grey17"))))
+ '(border ((t (:inherit default))))
+ '(highlight ((t (:foreground "white" :background "grey40"))))
+
+ ;; prompt
+ '(minibuffer-prompt ((t (:weight bold :foreground "yellow2"))))
+ '(eshell-prompt ((t (:inherit default :foreground "yellow3"))))
+ '(comint-highlight-prompt ((t (:inherit default :foreground "yellow3"))))
+
+ ;; search
+ '(isearch ((t (:foreground "yellow" :background "gold3" :weight bold))))
+ '(lazy-highlight ((t (:underline "gold3"))))
+ '(isearch-fail ((t (:foreground "coral1" :underline "coral3"))))
+ '(match ((t (:underline "white"))))
+ '(show-paren-match ((t (:underline "gold2"))))
+ '(show-paren-mismatch ((t (:underline "coral1"))))
+ '(hi-blue ((t (:inherit default :underline "cornflowerblue"))))
+ '(hi-green ((t (:inherit default :underline "limegreen"))))
+ '(hi-pink ((t (:inherit default :underline "hotpink"))))
+ '(hi-red ((t (:inherit default :underline "coral"))))
+ '(hi-yellow ((t (:inherit default :underline "yellow3"))))
+
+ ;; compilation
+ '(compilation-error ((t (:foreground "skyblue3"))))
+ '(compilation-line-number ((t (:foreground "skyblue1" :weight bold :underline "skyblue4"))))
+ '(compilation-column-number ((t (:foreground "skyblue1" :weight bold :underline "skyblue4"))))
+ '(compilation-info ((t (:foreground "deepskyblue1"  :underline "skyblue4"))))
+
+ ;; Faces
+ '(font-lock-warning-face ((t (:foreground "yellow1" :underline "yellow3"))))
+ '(font-lock-builtin-face ((t (:foreground "cyan3"))))
+ '(font-lock-doc-face ((t (:foreground "limegreen" :slant italic))))
+ '(font-lock-comment-face ((t (:foreground "grey60" :slant normal))))
+ '(font-lock-comment-delimiter-face ((t (:foreground "grey40" :weight bold))))
+ '(font-lock-preprocessor-face ((t (:foreground "white" :bold t))))
+ '(font-lock-constant-face ((t (:foreground "yellow2"))))
+ '(font-lock-string-face ((t (:foreground "yellow2"))))
+ '(font-lock-keyword-face ((t (:foreground "deepskyblue3" :weight bold))))
+ '(font-lock-type-face ((t (:foreground "cornflowerblue" :slant italic))))
+ '(font-lock-variable-name-face ((t (:foreground "yellow1"))))
+ '(font-lock-function-name-face ((t (:foreground "yellow1" :weight bold))))
+ '(sh-quoted-exec ((t (:foreground "gray" :slant italic))))
+
+ ;; org/calendar/diary
+ '(org-done ((t (:foreground "green2"))))
+ '(org-todo ((t (:foreground "yellow2"))))
+ '(org-level-1 ((t (:inherit default :foreground "cyan1" :height 1.2 :weight bold))))
+ '(org-level-2 ((t (:inherit default :foreground "cyan2" :height 1.1 :weight bold))))
+ '(org-level-3 ((t (:inherit default :foreground "cyan2" :height 1.0))))
+ '(diary ((t (:foreground "lightblue" :slant italic))))
+
+ ;; dired
+ '(dired-directory ((t (:foreground "deepskyblue2" :underline "deepskyblue1"))))
+ '(dired-marked ((t (:foreground "white" :background "grey40"))))
+ '(dired-flagged ((t (:foreground "white" :background "yellow3"))))
+
+ ;; ido
+ '(ido-first-match ((t (:foreground "yellow1" :underline "orange1"))))
+ '(ido-only-match ((t (:foreground "yellow1" :underline "orange1"))))
+ '(ido-subdir ((t (:foreground "deepskyblue3" :underline "deepskyblue1"))))
+ '(ido-virtual ((t (:foreground "grey50" :slant italic))))
+
+ ;; diff
+ '(diff-header ((t (:foreground "yellow1" :weight bold))))
+ '(diff-file-header ((t (:foreground "yellow1" :weight bold))))
+ '(diff-context ((t (:inherit default))))
+ '(diff-hunk-header ((t (:foreground "yellow3"))))
+ '(diff-added ((t (:foreground "turquoise3" :background))))
+ '(diff-refine-added ((t (:inherit diff-added))))
+ '(diff-changed ((t (:inherit hl-line :slant italic))))
+ '(diff-refine-changed ((t (:inherit diff-changed))))
+ '(diff-removed ((t (:foreground "hotpink3"))))
+ '(diff-refine-removed ((t (:inherit diff-removed))))
+
+ ;; ediff
+ '(ediff-even-diff-a ((t (:background "grey20"))))
+ '(ediff-even-diff-b ((t (:background "grey20"))))
+ '(ediff-even-diff-c ((t (:background "grey20"))))
+ '(ediff-odd-diff-a ((t (:background "grey20"))))
+ '(ediff-odd-diff-b ((t (:background "grey20"))))
+ '(ediff-odd-diff-c ((t (:background "grey20"))))
+ '(ediff-current-diff-a ((t (:foreground "white" :background "forestgreen"))))
+ '(ediff-current-diff-B ((t (:foreground "white" :background "forestgreen"))))
+ '(ediff-current-diff-C ((t (:foreground "white" :background "forestgreen"))))
+ '(ediff-fine-diff-A ((t (:foreground "white" :background "dodgerblue3" :weight bold))))
+ '(ediff-fine-diff-B ((t (:foreground "white" :background "dodgerblue3" :weight bold))))
+ '(ediff-fine-diff-C ((t (:foreground "white" :background "dodgerblue3" :weight bold))))
+
+ ;; customize
+ '(custom-button ((t (:background "grey20" :foreground "steelblue3" :box (:line-width 1 :color "steelblue3")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "coral1" :foreground "white" :box (:line-width 1 :color "coral3")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "coral1" :foreground "white" :box (:line-width 1 :color "white"))))))
+
+(provide-theme 'angry-bee)

diff -r 000000000000 -r fdac27abf6d8 themes/bleached-paper-theme.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/themes/bleached-paper-theme.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,107 @@
+(deftheme bleached-paper
+ "Created 2014-Jan-03.")
+
+(custom-theme-set-variables
+ 'bleached-paper)
+
+(custom-theme-set-faces
+ 'bleached-paper
+ '(default ((t (:inherit nil :stipple nil :background "white" :foreground "grey33" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(hl-line ((t (:inherit nil :background "lightcyan1"))))
+ '(highlight-changes ((t (:background "lightyellow"))))
+ '(mode-line ((t (:background "paleturquoise4" :foreground "paleturquoise1" :box (:line-width 1 :color "paleturquoise4" :style nil)))))
+ '(mode-line-inactive ((t (:background "paleturquoise3"  :foreground "white" :box (:line-width 1 :color "grey85")))))
+
+ ;; decorations
+ '(border ((t (:foreground "grey20"))))
+ '(fringe ((t (:background "white" :foreground "grey22"))))
+ '(linum ((t (:weight normal :slant italic :foreground "grey55" :background "#f8f9fe"))))
+ '(region ((t (:background "lightcyan2"))))
+ '(cursor ((t (:background "grey40" :foreground "white"))))
+ '(underline (( ((supports :underline t)) (:underline "skyblue1"))))
+ '(highlight ((t (:foreground "white" :background "steelblue1"))))
+
+ ;; ido and prompts
+ '(ido-first-match ((t (:foreground "plum4" :weight bold))))
+ '(ido-only-match ((t (:foreground "plum4" :weight bold))))
+ '(ido-subdir ((t (:foreground "blue3" :underline "steelblue1"))))
+ '(ido-virtual ((t (:foreground "grey50" :slant italic))))
+ '(minibuffer-prompt ((t (:foreground "hotpink3" :weight bold))))
+ '(eshell-prompt ((t (:weight normal :foreground "royalblue"))))
+ '(comint-highlight-prompt ((t (:inherit eshell-prompt))))
+
+ ;; compilation
+ '(compilation-info ((t (:foreground "violetred3" :weight normal))))
+ '(compilation-line-number ((t (:foreground "violetred1"))))
+ '(compilation-column-number ((t (:foreground "steelblue3"))))
+ '(compilation-warning ((t (:foreground "violetred3"))))
+ '(compilation-error ((t (:foreground "violetred3"))))
+
+ ;; font lock
+ '(font-lock-doc-face ((t (:foreground "aquamarine4"))))
+ '(font-lock-comment-face ((t (:foreground "aquamarine4"))))
+ '(font-lock-comment-delimiter-face ((t (:foreground "aquamarine3"))))
+ '(font-lock-preprocessor-face ((t (:foreground "sienna" :weight normal))))
+ '(font-lock-constant-face ((t (:foreground "coral3"))))
+ '(font-lock-string-face ((t (:foreground "coral3"))))
+ '(font-lock-function-name-face ((t (:foreground "plum4" :weight bold))))
+ '(font-lock-keyword-face ((t (:foreground "sienna" :weight normal))))
+ '(font-lock-type-face ((t (:foreground "goldenrod4" :weight normal))))
+ '(font-lock-builtin-face ((t (:foreground "maroon"))))
+ '(font-lock-variable-name-face ((t (:foreground "darkcyan"))))
+
+ ;; search
+ '(isearch ((t (:foreground "hotpink4" :background "pink1"))))
+ '(lazy-highlight ((t (:foreground "cyan4" :background "lightcyan2"))))
+ '(isearch-fail ((t (:foreground "red3" :background "mistyrose" :underline t))))
+ '(show-paren-match ((t (:underline "cornflowerblue"))))
+ '(show-paren-mismatch ((t (:foreground "white" :background "palevioletred2"))))
+ '(match ((t (:background "grey88"))))
+ '(hi-yellow ((t (:background "lightyellow2"))))
+ '(hi-blue ((t (:background "lightblue"))))
+ '(hi-green ((t (:background "palegreen"))))
+ '(hi-pink ((t (:background "pink1"))))
+ '(outline-1 ((t (:foreground "blue3" :weight normal))))
+ '(outline-2 ((t (:foreground "blue3"))))
+ '(outline-3 ((t (:slant italic))))
+
+ ;; org
+ '(org-done ((t (:foreground "lightblue" :slant italic :weight normal))))
+ '(org-todo ((t (:foreground "tomato3" :slant italic :weight normal ))))
+ '(org-level-1 ((t (:family "Sans Serif" :foreground "dodgerblue" :weight bold :height 1.6))))
+ '(org-level-2 ((t (:foreground "grey30"))))
+
+ ;; dired
+ '(dired-directory ((t (:foreground "slateblue2" :underline "slateblue1"))))
+ '(dired-header ((t (:foreground "blue3" :underline "steelblue1"))))
+ '(dired-marked ((t (:weight bold :slant normal :underline "dodgerblue"))))
+ '(dired-flagged ((t (:weight bold :slant italic :underline "tomato"))))
+
+ ;; diff
+ '(highlight-changes ((t (:background "lavenderblush2"))))
+ '(diff-added ((t (:inherit diff-changed :foreground "palegreen4"))))
+ '(diff-context ((t (:inherit default))))
+ '(diff-header ((t (:foreground "dodgerblue2"))))
+ '(diff-file-header ((t (:foreground "dodgerblue3" :weight bold))))
+ '(diff-hunk-header ((t (:box (:line-width 1 :color "dodgerblue3" :style nil) :foreground "dodgerblue3"))))
+ '(diff-refine-change ((t (:foreground "black" :background "gold1"))))
+ '(diff-removed ((t (:inherit diff-changed :foreground "coral3"))))
+ '(ediff-even-diff-A ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-even-diff-B ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-even-diff-C ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-odd-diff-A ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-odd-diff-B ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-odd-diff-C ((t (:foreground "grey50" :background "grey93"))))
+ '(ediff-current-diff-A ((t (:foreground "dodgerblue3" :background "paleturquoise1"))))
+ '(ediff-current-diff-B ((t (:foreground "dodgerblue3" :background "paleturquoise1"))))
+ '(ediff-current-diff-C ((t (:foreground "dodgerblue3" :background "paleturquoise1"))))
+ '(ediff-fine-diff-A ((t (:foreground "red3" :background "pink1"))))
+ '(ediff-fine-diff-B ((t (:foreground "red3" :background "pink1"))))
+ '(ediff-fine-diff-C ((t (:foreground "red3" :background "pink1"))))
+
+ ;; customize
+ '(custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :color "cornflowerblue")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "grey95"))))
+ '(custom-button-pressed ((t (:inherit custom-button :background "grey80")))))
+
+(provide-theme 'bleached-paper)

diff -r 000000000000 -r fdac27abf6d8 themes/glimmer-theme.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/themes/glimmer-theme.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,124 @@
+(deftheme glimmer
+ "Created 2013-03-19. My color theme with dark background.")
+
+(custom-theme-set-variables
+ 'glimmer
+ '(line-spacing 4))
+
+(custom-theme-set-faces
+ 'glimmer
+
+ ;; basics
+ '(default ((t (:inherit nil :stipple nil :background "grey13" :foreground "azure3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(cursor ((t (:background "magenta" :foreground "white"))))
+ '(minibuffer-prompt ((t (:foreground "yellowgreen" :weight bold))))
+ '(border ((t (:inherit default))))
+ '(region ((t (:foreground "lightcyan" :background "royalblue"))))
+
+ ;; decorations
+ '(window-divider ((t (:foreground "gray33"))))
+ '(window-divider-first-pixel ((t (:foreground "gray33"))))
+ '(window-divider-last-pixel ((t (:foreground "gray33"))))
+ '(fringe ((t (:inherit default))))
+
+ ;; mode line
+ '(mode-line ((t (:box (:line-width 1 :color "grey17" :style nil) :foreground "maroon1" :background "grey8" :weight bold))))
+ '(mode-line-inactive ((t (:box (:line-width 1 :color "grey17" :style nil) :foreground "grey50" :background "grey10" :bold nil))))
+ '(mode-line-buffer-id ((t (:foreground "limegreen" :bold t))))
+
+ ;; shell and stuff
+ '(sh-quoted-exec ((t (:foreground "gray" :slant italic))))
+ '(eshell-prompt ((t (:inherit dired-directory :underline nil))))
+ '(comint-highlight-prompt ((t (:inherit default :foreground "gray"))))
+
+ ;; search
+ '(isearch ((t (:foreground "black" :background "yellow3" :underline nil :weight bold))))
+ '(lazy-highlight ((t (:background "grey5" :underline "yellow3"))))
+ '(isearch-fail ((t (:foreground "firebrick1" :underline "firebrick3"))))
+ '(show-paren-match ((t (:underline "yellow"))))
+ '(show-paren-mismatch ((t (:underline "firebrick1"))))
+ '(highlight ((t (:foreground "white" :background "dodgerblue3"))))
+ '(match ((t (:underline "green3"))))
+ '(hi-blue ((t (:inherit default :underline "cornflowerblue"))))
+ '(hi-green ((t (:inherit default :underline "limegreen"))))
+ '(hi-pink ((t (:inherit default :underline "hotpink"))))
+ '(hi-red ((t (:inherit default :underline "rosybrown4"))))
+ '(hi-yellow ((t (:inherit default :underline "yellow3"))))
+
+ ;; compilation
+ '(underline ((t (:underline "grey50"))))
+ '(compilation-error ((t (:foreground "limegreen"))))
+ '(compilation-line-number ((t (:foreground "yellowgreen" :weight bold))))
+ '(compilation-column-number ((t (:foreground "skyblue1" :slant italic))))
+ '(compilation-info ((t (:foreground "steelblue2"))))
+
+ ;; font lock
+ '(font-lock-warning-face ((t (:foreground "firebrick1" :underline "tomato3"))))
+ '(font-lock-builtin-face ((t (:foreground "skyblue3"))))
+ '(font-lock-comment-face ((t (:foreground "cyan4" :slant normal))))
+ '(font-lock-comment-delimiter-face ((t (:foreground "aquamarine3" :weight bold :slant normal))))
+ '(font-lock-preprocessor-face ((t (:foreground "dodgerblue3" :bold nil))))
+ '(font-lock-constant-face ((t (:foreground "skyblue2"))))
+ '(font-lock-string-face ((t (:foreground "skyblue2"))))
+ '(font-lock-doc-face ((t (:foreground "cyan2" :slant italic))))
+ '(font-lock-keyword-face ((t (:foreground "royalblue1" :weight bold))))
+ '(font-lock-type-face ((t (:foreground "cyan3"))))
+ '(font-lock-variable-name-face ((t (:foreground "magenta1"))))
+ '(font-lock-function-name-face ((t (:foreground "yellow3" :weight bold))))
+
+ ;; minor modes
+ '(highlight-changes ((t (:background "#103015")))) ; Sorry, no X11 color
+ '(highlight-changes-delete ((t (:background "#300515")))) ; Sorry, no X11 color
+ '(hl-line ((t (:background "grey18"))))
+ '(linum ((t (:weight bold :slant normal :foreground "grey26"))))
+
+ ;; org/calendar/diary
+ '(org-done ((t (:foreground "grey50" :background "grey5"))))
+ '(org-todo ((t (:foreground "royalblue1" :background "grey20"))))
+ '(org-level-1 ((t (:inherit default :foreground "aquamarine3" :height 1.2 :weight bold))))
+ '(org-level-2 ((t (:inherit default :foreground "magenta2" :height 1.1 :weight bold))))
+ '(org-level-3 ((t (:inherit default :foreground "white" :height 1.0))))
+ '(diary ((t (:foreground "lightblue" :slant italic))))
+
+ ;; dired
+ '(dired-directory ((t (:foreground "limegreen" :underline "limegreen"))))
+ '(dired-marked ((t (:foreground "white" :background "grey40"))))
+ '(dired-ignored ((t (:foreground "grey40" :slant italic))))
+ '(dired-flagged ((t (:foreground "white" :background "firebrick3"))))
+
+ ; IDO
+ '(ido-first-match ((t (:foreground "yellowgreen"))))
+ '(ido-only-match ((t (:foreground "yellowgreen"))))
+ '(ido-subdir ((t (:foreground "deepskyblue3" :underline "deepskyblue1"))))
+ '(ido-virtual ((t (:foreground "grey50" :slant italic))))
+
+ ;; diff mode
+ '(diff-context ((t (:inherit default))))
+ '(diff-hunk-header ((t (:background "darkslategray" :foreground "white"))))
+ '(diff-added ((t (:foreground "deepskyblue3"))))
+ '(diff-refine-added ((t (:inherit diff-added))))
+ '(diff-changed ((t (:inherit hl-line :slant italic))))
+ '(diff-refine-changed ((t (:inherit diff-changed))))
+ '(diff-removed ((t (:foreground "orangered"))))
+ '(diff-refine-removed ((t (:inherit diff-removed))))
+
+ ;; ediff
+ '(ediff-even-diff-A ((t (:background "grey20"))))
+ '(ediff-even-diff-B ((t (:background "grey20"))))
+ '(ediff-even-diff-C ((t (:background "grey20"))))
+ '(ediff-odd-diff-A ((t (:background "grey20"))))
+ '(ediff-odd-diff-B ((t (:background "grey20"))))
+ '(ediff-odd-diff-C ((t (:background "grey20"))))
+ '(ediff-current-diff-A ((t (:foreground "white" :background "cyan4"))))
+ '(ediff-current-diff-B ((t (:foreground "white" :background "cyan4"))))
+ '(ediff-current-diff-C ((t (:foreground "white" :background "cyan4"))))
+ '(ediff-fine-diff-A ((t (:foreground "white" :background "cyan3"))))
+ '(ediff-fine-diff-B ((t (:foreground "white" :background "cyan3"))))
+ '(ediff-fine-diff-C ((t (:foreground "white" :background "cyan3"))))
+
+ ;; customize
+ '(custom-button ((t (:background "grey20" :foreground "grey87" :box (:line-width 1 :color "cyan4")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "grey20"))))
+ '(custom-button-pressed ((t (:inherit custom-button :background "grey20")))))
+
+(provide-theme 'glimmer)

diff -r 000000000000 -r fdac27abf6d8 themes/grayskies-theme.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/themes/grayskies-theme.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,112 @@
+(deftheme grayskies
+ "Created 2014-Jan-03.")
+
+(custom-theme-set-variables
+ 'grayskies)
+
+(custom-theme-set-faces
+ 'grayskies
+
+ ;; basics
+ '(default ((t (:inherit nil :stipple nil :background "grey95" :foreground "grey20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(fringe ((t (:background "grey95" :foreground "skyblue2"))))
+ '(hl-line ((t (:background "grey95"))))
+ '(border ((t (:foreground "grey60"))))
+ '(linum ((t (:weight bold :slant italic :foreground "hotpink3"))))
+ '(region ((t (:background "grey80"))))
+ '(cursor ((t (:background "dodgerblue3" :foreground "white"))))
+ '(underline (( ((supports :underline t)) (:underline "skyblue1"))))
+ '(cua-rectangle ((t (:inherit region))))
+
+ ;; mode line
+ '(mode-line ((t (:family "Segoe UI" :background "grey70" :foreground "grey25" :box (:line-width 1 :color "grey65" :style nil)))))
+ '(mode-line-inactive ((t (:family "Segoe UI" :background "grey85"  :foreground "grey40" :box (:line-width 1 :color "grey70")))))
+
+ ;; shell
+ '(minibuffer-prompt ((t (:foreground "red3"))))
+ '(eshell-prompt ((t (:weight bold :foreground "dodgerblue3" :slant italic))))
+ '(comint-highlight-prompt ((t (:inherit eshell-prompt))))
+
+ ;; search
+ '(match ((t (:foreground "black" :background "lightcyan2" :bold nil))))
+ '(highlight ((t :foreground "grey25" :background "grey70" )))
+ '(isearch ((t :foreground "white" :background "grey40" :underline nil)))
+ '(lazy-highlight ((t (:underline "red"))))
+ '(isearch-fail ((t (:foreground "red3" :background "mistyrose" :underline t))))
+ '(show-paren-match ((t (:underline "grey30"))))
+ '(show-paren-mismatch ((t (:foreground "white" :underline "white" :background "hotpink"))))
+ '(hi-yellow ((t (:background "palegoldenrod"))))
+ '(hi-blue ((t (:background "lightblue"))))
+ '(hi-green ((t (:background "darkseagreen1"))))
+ '(hi-pink ((t (:background "hotpink"))))
+
+ ;; compilation
+ '(compilation-info ((t (:foreground "dodgerblue3" :weight normal))))
+ '(compilation-line-number ((t (:foreground "hotpink2"))))
+ '(compilation-column-number ((t (:foreground "steelblue3"))))
+ '(compilation-warning ((t (:foreground "coral3"))))
+ '(compilation-error ((t (:foreground "coral3"))))
+
+ ;; font lock
+ '(font-lock-doc-face ((t (:foreground "cadetblue4"))))
+ '(font-lock-comment-face ((t (:foreground "aquamarine4"))))
+ '(font-lock-comment-delimiter-face ((t (:foreground "aquamarine3"))))
+ '(font-lock-preprocessor-face ((t (:foreground "black" :weight bold))))
+ '(font-lock-constant-face ((t (:foreground "deeppink3"))))
+ '(font-lock-string-face ((t (:foreground "deepskyblue4"))))
+ '(font-lock-function-name-face ((t (:foreground "dodgerblue4" :bold t))))
+ '(font-lock-keyword-face ((t (:foreground "tomato3" :bold t))))
+ '(font-lock-type-face ((t (:foreground "dodgerblue4" :bold nil))))
+ '(font-lock-builtin-face ((t (:foreground "maroon"))))
+ '(font-lock-variable-name-face ((t (:foreground "darkcyan"))))
+ '(outline-1 ((t (:foreground "blue3" :bold t))))
+ '(outline-2 ((t (:foreground "blue3"))))
+ '(outline-3 ((t (:slant italic))))
+
+ ;; org
+ '(org-done ((t (:foreground "lightblue" :slant italic :weight bold))))
+ '(org-todo ((t (:foreground "tomato3" :slant italic :weight bold ))))
+ '(org-table ((t (:foreground "dodgerblue3" :weight bold ))))
+ '(org-level-1 ((t (:family "Times New Roman" :foreground "dodgerblue" :weight bold :height 1.6))))
+ '(org-level-2 ((t (:foreground "grey30"))))
+
+ ;; dired
+ '(dired-directory ((t (:foreground "royalblue" :underline "steelblue1"))))
+ '(dired-header ((t (:foreground "blue3" :underline "steelblue1"))))
+ '(dired-marked ((t (:foreground "black" :background "skyblue"))))
+ '(dired-flagged ((t (:foreground "white" :background "tomato3"))))
+
+ ;; ido
+ '(ido-first-match ((t (:foreground "black" :background "grey65" :weight bold))))
+ '(ido-only-match  ((t (:foreground "black" :background "grey65" :weight bold))))
+ '(ido-subdir ((t (:foreground "blue3" :underline "steelblue1"))))
+ '(ido-virtual ((t (:foreground "grey60" :slant italic))))
+
+ ;; diff
+ '(highlight-changes ((t (:background "lavenderblush2"))))
+ '(diff-added ((t (:inherit default :background "palegreen" :foreground "black"))))
+ '(diff-removed ((t (:inherit default :background "pink1" :foreground "black"))))
+ '(diff-changed ((t (:inherit default :background "powderblue" :foreground "black"))))
+ '(diff-context ((t (:inherit default))))
+ '(diff-hunk-header ((t (:background "lightgray" :foreground "dimgray"))))
+ '(diff-refine-change ((t (:foreground "black" :background "gold1"))))
+ '(diff-removed ((t (:inherit diff-changed :foreground "coral3"))))
+ '(ediff-even-diff-A ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-even-diff-B ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-even-diff-C ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-odd-diff-A ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-odd-diff-B ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-odd-diff-C ((t (:foreground "grey40" :background "grey90"))))
+ '(ediff-current-diff-A ((t (:foreground "white" :background "steelblue1"))))
+ '(ediff-current-diff-B ((t (:foreground "white" :background "steelblue1"))))
+ '(ediff-current-diff-C ((t (:foreground "white" :background "steelblue1"))))
+ '(ediff-fine-diff-A ((t (:foreground "white" :background "dodgerblue1"))))
+ '(ediff-fine-diff-B ((t (:foreground "white" :background "dodgerblue1"))))
+ '(ediff-fine-diff-C ((t (:foreground "white" :background "dodgerblue1"))))
+
+ ;; customize
+ '(custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :color "cornflowerblue")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "grey95"))))
+ '(custom-button-pressed ((t (:inherit custom-button :background "grey80")))))
+
+(provide-theme 'grayskies)

diff -r 000000000000 -r fdac27abf6d8 themes/summertime-theme.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/themes/summertime-theme.el	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,117 @@
+(deftheme summertime
+ "Created 2011-10-19.")
+
+(custom-theme-set-variables
+ 'summertime
+  '(line-spacing 3))
+
+(custom-theme-set-faces
+ 'summertime
+
+ ;; basics
+ '(default ((t (:inherit nil :stipple nil :background "smokewhite" :foreground "dodgerblue4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :foundry "outline"))))
+ '(region ((t (:background "lightblue2"))))
+ '(cursor ((t (:background "black"))))
+ '(underline (( ((supports :underline t)) (:underline "cornflowerblue"))))
+ '(minibuffer-prompt ((t (:foreground "firebrick2" :weight normal))))
+ '(highlight ((t (:background "lightcyan2"))))
+ '(border ((t (:foreground "grey20"))))
+
+ ;; mode line
+ '(mode-line ((t (:foreground "black" :background "azure3" :box (:line-width 1 :color "azure4" :style nil)))))
+ '(mode-line-inactive ((t (:foreground "black" :background "azure2" :box (:line-width 1 :color "azure3" :style none)))))
+
+ ;; decorations
+ '(fringe ((t (:foreground "grey60" :background "smokewhite"))))
+ '(window-divider ((t (:foreground "gray33"))))
+ '(window-divider-first-pixel ((t (:foreground "gray33"))))
+ '(window-divider-last-pixel ((t (:foreground "gray33"))))
+
+ ;; shell and stuff
+ '(eshell-prompt ((t (:foreground "dodgerblue1" :background "white" :weight normal))))
+ '(comint-highlight-prompt ((t (:inherit eshell-prompt))))
+
+ ;; search
+ '(isearch ((t (:foreground "black" :background "moccasin"))))
+ '(lazy-highlight ((t (:background "lightcyan1"))))
+ '(isearch-fail ((t (:foreground "white" :background "indianred1" :underline t))))
+ '(match ((t (:underline "black"))))
+ '(show-paren-match ((t (:inherit match))))
+ '(show-paren-mismatch ((t (:foreground "red3" :background "mistyrose"))))
+
+ ;; compilation
+ '(compilation-line-number ((t (:foreground "cornflowerblue" :weight bold))))
+ '(compilation-column-number ((t (:foreground "dodgerblue3" :weight bold))))
+ '(compilation-info ((t (:foreground "dodgerblue3"))))
+ '(compilation-warning ((t (:foreground "red"))))
+ '(compilation-error ((t (:foreground "indianred3"))))
+
+  ;; font lock
+ '(font-lock-doc-face ((t (:foreground "forestgreen"))))
+ '(font-lock-comment-face ((t (:foreground "darkseagreen4"))))
+ '(font-lock-comment-delimiter-face ((t (:foreground "darkseagreen3"))))
+ '(font-lock-preprocessor-face ((t (:foreground "grey30" :slant normal :weight bold))))
+ '(font-lock-constant-face ((t (:foreground "palevioletred3"))))
+ '(font-lock-string-face ((t (:foreground "palevioletred3" :slant italic))))
+ '(font-lock-function-name-face ((t (:foreground "dodgerblue3" :bold t))))
+ '(font-lock-keyword-face ((t (:foreground "firebrick3" :weight bold))))
+ '(font-lock-type-face ((t (:foreground "maroon3" :bold nil))))
+ '(font-lock-builtin-face ((t (:foreground "deepskyblue4"))))
+ '(font-lock-variable-name-face ((t (:foreground "firebrick4"))))
+
+ ;; minor modes
+ '(hi-yellow ((t (:background "yellow"))))
+ '(hi-blue ((t (:background "lightblue"))))
+ '(hi-green ((t (:background "palegreen"))))
+ '(hi-pink ((t (:background "pink1"))))
+ '(linum ((t (:foreground "cornflowerblue" :slant normal :weight bold))))
+ '(hl-line ((t (:inherit nil :background "azure2"))))
+ '(ido-first-match ((t (:foreground "black" :background "lightcyan2" :weight normal))))
+ '(ido-only-match  ((t (:foreground "black" :background "lightcyan2" :weight normal))))
+ '(ido-subdir ((t (:foreground "dodgerblue3" :underline "dodgerblue1"))))
+ '(ido-virtual ((t (:foreground "grey50" :slant italic))))
+ '(cua-rectangle ((t (:inherit region))))
+ '(highlight-changes ((t (:background "aquamarine1"))))
+ '(highlight-changes-delete ((t (:foreground "red1" :background "rosybrown1"))))
+
+ ;; org/calendar/diary
+ '(org-done ((t (:foreground "grey70" :background "grey93"))))
+ '(org-todo ((t (:foreground "darkgoldenrod" :background "lemonchiffon"))))
+ '(org-level-1 ((t (:inherit default :foreground "dodgerblue1" :height 1.3 :weight bold))))
+ '(org-level-2 ((t (:inherit default :foreground "dodgerblue1" :height 1.2 :weight bold))))
+ '(org-level-3 ((t (:inherit default :foreground "dodgerblue4" :height 1.0))))
+ '(diary ((t (:foreground "lightblue" :slant italic))))
+
+ ;; dired
+ '(dired-directory ((t (:foreground "royalblue" :underline "blue1"))))
+ '(dired-header ((t (:foreground "blue3" :underline "blue1"))))
+ '(dired-marked ((t (:weight bold :slant normal :foreground "dodgerblue1" :underline "dodgerblue"))))
+ '(dired-flagged ((t (:weight bold :slant italic :foreground "lightcoral" :underline "tomato"))))
+
+ ;; diff mode
+ '(diff-added ((t (:inherit diff-changed :foreground "green4"))))
+ '(diff-context ((t (:inherit default))))
+ '(diff-hunk-header ((t (:background "lightgray" :foreground "dimgray"))))
+ '(diff-refine-change ((t (:foreground "black" :background "gold1"))))
+ '(diff-removed ((t (:inherit diff-changed :foreground "coral3"))))
+
+ ;; ediff
+ '(ediff-even-diff-A ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-even-diff-B ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-even-diff-C ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-odd-diff-A ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-odd-diff-B ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-odd-diff-C ((t (:foreground "cyan3" :background "lightcyan1"))))
+ '(ediff-current-diff-A ((t (:foreground "black" :background "lightcyan2"))))
+ '(ediff-current-diff-B ((t (:foreground "black" :background "lightcyan2"))))
+ '(ediff-current-diff-C ((t (:foreground "black" :background "lightcyan2"))))
+ '(ediff-fine-diff-A ((t (:foreground "black" :background "pink1"))))
+ '(ediff-fine-diff-B ((t (:foreground "black" :background "pink1"))))
+ '(ediff-fine-diff-C ((t (:foreground "black" :background "pink1"))))
+
+ ;; customize
+ '(custom-button ((t (:background "lightblue3" :foreground "white" :box (:line-width 2 :color "lightblue2")))))
+ '(custom-button-mouse ((t (:inherit custom-button :background "grey95"))))
+ '(custom-button-pressed ((t (:inherit custom-button :background "grey80")))))
+
+(provide-theme 'summertime)

diff -r 000000000000 -r fdac27abf6d8 todo.org
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/todo.org	Thu Dec 28 00:07:12 2017 +0100
@@ -0,0 +1,35 @@
+-*- mode: org -*-
+#+SEQ_TODO: TODO TEST DONE
+
+* The Emacs Config Wishlist
+
+** TODO Take a look at Hydra mode
+
+** TODO Enhance org-mode
+
+ TODO and DONE are the standard work-flow states in Org-mode, but it's possible
+ to configure your own work flow, either globally for all Org-mode files or a
+ custom one for each file. For example, if you wanted to set up a custom work
+ flow, such as TODO --> TEST --> DONE, add the following to the top of your Org
+ file:
+
+#+BEGIN_SRC emacs-lisp
+#+SEQ_TODO: TODO TEST DONE
+#+END_SRC
+
+** DONE start using directory local variable files
+   CLOSED: [2017-06-11 Sun 00:37]
+Check if this code snippet, put in file .dir-locals.el, work for my projects.
+
+#+BEGIN_SRC emacs-lisp
+((nil
+  . ((grep-find-ignored-directories
+      . (quote (".git" ".vscode" "Build" "Debug" "Release"
+                "AUTOSAR_tresos" "Doc" "Documentation" "TLProj" "TLSim")))
+     (compile-command
+      . (lambda ()
+          (concat
+           "cd "
+           (file-name-as-directory desktop-dirname)
+           "C_Application/Build/ && gbuild Debug.gpj"))))))
+#+END_SRC