Correct settings and defaults for emacs

bundle/bundle--customfile.el

@@ -2,6 +2,7 @@
 (when (eq system-type 'gnu/linux)
   (setq custom-file "~/.emacs.d/bundle/custom_gnu.el"))
 
+
 (when (eq system-type 'windows-nt)
   (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
   (add-to-list 'load-path (expand-file-name "~/AppData/Roaming/__secrets"))
@@ -10,11 +11,15 @@
         sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.core")
 	inferior-lisp-program "sbcl"
 	slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
-  (setq plantuml-jar-path "c:/Users/Marcus.Kammer/AppData/Local/Programs/plantuml/plantuml.jar")
-  (setq plantuml-default-exec-mode 'jar)
+
+
   (when (string= (system-name) "EVG02667NB")
     (add-to-list 'Info-default-directory-list "~/Info")
-    (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el"))
+    (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el")
+    (setq plantuml-jar-path "c:/Users/Marcus.Kammer/AppData/Local/Programs/plantuml/plantuml.jar")
+    (setq plantuml-default-exec-mode 'jar))
+
+
   (when (string= (system-name) "XPS-8930")))
 
 ;; CUSTOM_FILE

bundle/bundle--defaults.el

@@ -20,9 +20,10 @@
 (setq-default calendar-view-diary-initially-flag t)
 (setq-default calendar-week-start-day 1)
 (setq-default ispell-program-name "aspell")
-(setq-default shell-file-name "/bin/bash")
-(setq-default tex-shell-file-name "/bin/bash")
 (setq-default grep-command "grep -i -nH -e ")
+(when (eq system-type 'gnu/linux)
+  (setq-default shell-file-name "/bin/bash")
+  (setq-default tex-shell-file-name "/bin/bash"))
 
 ;; Files and sessions
 (setq-default auto-save-timeout 60)
@@ -39,7 +40,7 @@
 (setq require-final-newline 't)
 
 ;; Miscellaneous
-(require 'cl)
+(require 'cl-lib)
 (setq-default  inhibit-startup-buffer-menu t
                inhibit-startup-screen t)
 (put 'narrow-to-region 'disabled nil)

bundle/bundle--hooks.el

@@ -15,5 +15,4 @@
 (if (display-graphic-p)
     (add-hook 'after-init-hook (lambda ()
                                  (org-agenda-list)
-                                 (me/split-windows-horizontal)
-                                 (speedbar t))))
+                                 (me/split-windows-horizontal))))

bundle/bundle--mk.el

@@ -29,3 +29,13 @@
     (while (< count (1- count-windows))
       (split-window-below (- 0 height))
       (setq count (1+ count)))))
+
+(require 'ox-latex)
+(add-to-list 'org-latex-classes
+             '("koma-article"
+               "\\documentclass{scrartcl}"
+               ("\\section{%s}" . "\\section*{%s}")
+               ("\\subsection{%s}" . "\\subsection*{%s}")
+               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
+               ("\\paragraph{%s}" . "\\paragraph*{%s}")
+               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))