add puppet mode, align code and some local elisp files
[emacs.git] / .emacs.d / initjj.org
index f664f9b..c957154 100644 (file)
@@ -172,7 +172,7 @@ The variable /system-type/ from emacs isn't directly usable in my
 case. It contains gnu/linux and gnu/kfreebsd - which has extra /,
 which is just annoying when using them in a path entry.
 Hence we do a little creative redefinition for ourself.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defun jj-system-type ()
   "Return a string depending on the OS we use"
   (interactive)
@@ -187,7 +187,7 @@ Hence we do a little creative redefinition for ourself.
 *** jj-dir
 The base directory for all our emacs files. It is based on the
 directory where we load this file from.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-dir (file-name-directory (or load-file-name (buffer-file-name)))
   "The master directory for Ganneffs emacs configuration and storage.
 Usually ~/.emacs.d/")
@@ -195,7 +195,7 @@ Usually ~/.emacs.d/")
 
 *** jj-config-dir
 In which directory do we store the rest of our config?
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-config-dir
   (expand-file-name "config" jj-dir)
   "Ganneffs main emacs configuration can be found here.")
@@ -203,7 +203,7 @@ In which directory do we store the rest of our config?
 
 *** jj-emacs-config
 Name of the main configuration file.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-emacs-config
   (expand-file-name "emacs.org" jj-config-dir)
   "Ganneffs main emacs configuration file.")
@@ -211,7 +211,7 @@ Name of the main configuration file.
 
 *** jj-elisp-dir
 Where do I store packages for emacs.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-elisp-dir
   (expand-file-name "elisp" jj-dir)
   "This directory stores subdirs for local packages in Ganneffs emacs config.")
@@ -220,7 +220,7 @@ Where do I store packages for emacs.
 *** jj-elisp-local-dir
 Some packages just come with a single file. I put them into this
 local directory instead of giving them an own one.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-elisp-local-dir
   (expand-file-name "local" jj-elisp-dir)
   "This directory stores extra elisp files for Ganneffs emacs config.")
@@ -228,7 +228,7 @@ local directory instead of giving them an own one.
 
 *** jj-custom-file
 The customization interface of emacs stores its values in this file.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-custom-file
   (expand-file-name "customized.el" jj-config-dir)
   "Changes from the customization interface in Ganneffs emacs config.")
@@ -236,7 +236,7 @@ The customization interface of emacs stores its values in this file.
 
 *** jj-cache-dir
 Similar to /var on a unix system, volatile data, cache files, ...
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-cache-dir
   (expand-file-name "cache" jj-dir)
   "This directory stores cache files and other volatile data.")
@@ -244,7 +244,7 @@ Similar to /var on a unix system, volatile data, cache files, ...
 
 *** jj-backup-directory
 Backup copies of files I edit are stored here.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-backup-directory
   (expand-file-name (concat "emacs-autosave-" user-login-name) jj-cache-dir)
   "This directory stores backup files.")
@@ -252,7 +252,7 @@ Backup copies of files I edit are stored here.
 
 *** jj-theme-dir
 Where my theme files are stored.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-theme-dir
   (expand-file-name "themes" jj-dir)
   "This directory stores theme files for Ganneffs emacs config")
@@ -260,7 +260,7 @@ Where my theme files are stored.
 
 *** jj-sys-config
 System dependent configuration information stored in here.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-sys-config
   (expand-file-name (concat system-name ".org") jj-config-dir)
   "Ganneffs System/Host specific emacs configuration file.")
@@ -268,7 +268,7 @@ System dependent configuration information stored in here.
 
 *** jj-os-config
 Operating System dependent configuration information stored in here.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-os-config
   (expand-file-name (concat (jj-system-type) ".org") jj-config-dir)
   "Ganneffs Operating system specific emacs configuration file.")
@@ -276,7 +276,7 @@ Operating System dependent configuration information stored in here.
 
 *** jj-user-config
 User dependent configuration stored in here.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-user-config
   (expand-file-name (concat user-login-name ".org") jj-config-dir) 
   "Ganneffs username specific emacs configuration file.")
@@ -284,7 +284,7 @@ User dependent configuration stored in here.
 
 *** jj-ev-config
 Emacs version dependent configuration stored in here.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-ev-config (expand-file-name
                       (concat "emacs"
                               (number-to-string emacs-major-version) ".org")
@@ -294,24 +294,22 @@ Emacs version dependent configuration stored in here.
 
 *** jj-color-style
 Which color scheme should be loaded? I prefer dark very much.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-color-style 'dark "Which color scheme of solarized to select. Dark or Light")
 #+END_SRC
 
 ** Macro
 A small wrapper around =eval-after-load=, taken from [[http://milkbox.net/note/single-file-master-emacs-configuration/][Single File Master EmacsĀ Configuration : milkbox]]
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defmacro after (mode &rest body)
   "`eval-after-load' MODE evaluate BODY."
   (declare (indent defun))
   `(eval-after-load ,mode
      '(progn ,@body)))
-
-
 #+END_SRC
 ** Processing
 First we want to ensure that our cache and backup directories really exist.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (if (not (file-exists-p jj-cache-dir))
     (make-directory jj-cache-dir))
 (if (not (file-exists-p jj-backup-directory))
@@ -321,7 +319,7 @@ First we want to ensure that our cache and backup directories really exist.
 Add our local elisp directory to the load path early, as it contains
 files we want to load during configuration processing, before the
 load-path gets set up for real.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 ;; Have use-package/bindkey in here wich are needed for startup
 (add-to-list 'load-path jj-elisp-local-dir)
 #+END_SRC
@@ -333,7 +331,7 @@ ensures that the generated elisp files get byte-compiled.
 As my configuration requires certain parts of the configuration to
 already be loaded when the byte-compilation happens, this is done
 using an /after-init-hook/.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (defvar jj-init-files '() "Temporary list of files that need a byte-compile")
 (defun jj-byte-compile-init ()
   "Byte compile a list of files"
@@ -367,7 +365,7 @@ And finally we are going to load the various files.
 
 This file is loaded no matter what and exists on all machines my
 dotfiles are on. [[file:config/emacs.org][Main Emacs config]]
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (jj-compile-and-load jj-emacs-config)
 #+END_SRC
 
@@ -376,7 +374,7 @@ dotfiles are on. [[file:config/emacs.org][Main Emacs config]]
 The following may exist - or may not. Depending on the operating
 system, system type, username or emacs version I can load special
 configuration.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (if (file-exists-p jj-os-config)   (jj-compile-and-load jj-os-config))
 (if (file-exists-p jj-sys-config)  (jj-compile-and-load jj-sys-config))
 (if (file-exists-p jj-user-config) (jj-compile-and-load jj-user-config))
@@ -387,7 +385,7 @@ configuration.
 
 And finally, we ensure that our function goes away, no reason to keep
 it. And then print out the time it took to start emacs.
-#+BEGIN_SRC emacs-lisp tangle:yes
+#+BEGIN_SRC emacs-lisp :tangle yes
 (makunbound 'jj-compile-and-load)
 
 ;; Lets get a message about startup time out