Update org mode configuration to be pretty

emacs.org

@@ -612,54 +612,70 @@ Highlight matching ()'s []'s etc...
 
 *** org-mode
 
-- foo
-- bar
-
 Org-mode keybindings and settings, pretty sparse really.
 
 #+BEGIN_SRC emacs-lisp
   (use-package org
-               :ensure org-plus-contrib
-               :bind (("C-c a" . org-agenda)
-                      ("C-c b" . org-iswitchb)
-                      ("C-c c" . org-capture)
-                      ("C-c l" . org-store-link)
-                      ("C-c p" . org-latex-export-to-pdf))
-               :init (use-package org-bullets
-                       :config
-                       (progn
-                         (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))))
-               :config
-               (progn
-                 (custom-set-variables
-                  '(org-log-done t)
-                  '(org-hide-leading-stars t)
-                  '(org-hide-emphasis-markers t)
-                  )
-                  (font-lock-add-keywords 'org-mode
-                    '(("^ +\\([-*]\\) "
-                    (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
-                  (let* ((variable-tuple (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
-                    ((x-list-fonts "Lucida Grande")   '(:font "Lucida Grande"))
-                    ((x-list-fonts "Verdana")         '(:font "Verdana"))
-                    ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
-                    (nil (warn "Cannot find a Sans Serif Font.  Install Source Sans Pro."))))
-                    (base-font-color     (face-foreground 'default nil 'default))
-                    (headline           `(:inherit default :weight bold :foreground ,base-font-color)))
-
-                  (custom-theme-set-faces 'user
-                    `(org-level-8 ((t (,@headline ,@variable-tuple))))
-                    `(org-level-7 ((t (,@headline ,@variable-tuple))))
-                    `(org-level-6 ((t (,@headline ,@variable-tuple))))
-                    `(org-level-5 ((t (,@headline ,@variable-tuple))))
-                    `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
-                    `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
-                    `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
-                    `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
-                    `(org-document-title ((t (,@headline ,@variable-tuple :height 1.5 :underline nil))))))
-                 (org-reload)
-                 )
-               )
+    :ensure org-plus-contrib
+    :bind (("C-c a" . org-agenda)
+           ("C-c b" . org-iswitchb)
+           ("C-c c" . org-capture)
+           ("C-c l" . org-store-link)
+           ("C-c p" . org-latex-export-to-pdf))
+   :config
+   (progn
+     (custom-set-variables
+      '(org-log-done t)
+      '(org-hide-leading-stars t)
+      '(org-hide-emphasis-markers t)
+      '(org-confirm-babel-evaluate nil)
+      )
+     (org-babel-do-load-languages
+      'org-babel-load-languages
+      '(
+        (emacs-lisp . t)
+        (sh . t)
+        (haskell . t)
+        (ditaa . t)
+        (perl . t)
+        (python . t)
+        (C . t)
+        )
+      )
+     (add-hook 'after-init-hook (lambda () (org-reload)))
+     )
+   )
+  (use-package org-bullets
+    :ensure t
+    :init
+    (custom-set-variables '(org-bullets-bullet-list '("・" "◦" "•" "◉")))
+    :config
+    (progn
+      (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
+      (let* ((variable-tuple (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
+                                   ((x-list-fonts "Lucida Grande")   '(:font "Lucida Grande"))
+                                   ((x-list-fonts "Verdana")         '(:font "Verdana"))
+                                   ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
+                                   (nil (warn "Cannot find a Sans Serif Font."))))
+             (base-font-color     (face-foreground 'default nil 'default))
+             (headline           `(:inherit default :weight bold :foreground ,base-font-color)))
+        (custom-theme-set-faces 'user
+                                `(org-level-8 ((t (,@headline ,@variable-tuple))))
+                                `(org-level-7 ((t (,@headline ,@variable-tuple))))
+                                `(org-level-6 ((t (,@headline ,@variable-tuple))))
+                                `(org-level-5 ((t (,@headline ,@variable-tuple))))
+                                `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
+                                `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
+                                `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
+                                `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
+                                `(org-document-title ((t (,@headline ,@variable-tuple :height 1.5 :underline nil))))))
+      (font-lock-add-keywords 'org-mode
+                              '(("^ +\\([-*]\\) "
+                                 (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
+      )
+    )
+
+
 #+END_SRC
 
 *** flycheck