More file type support for Org-Brain

packages.el

@@ -36,6 +36,7 @@
     org-bullets
     org-brain
     all-the-icons
+    modern-cpp-font-lock
     )
   "The list of Lisp packages required by the chicken-dotfiles layer.
 
@@ -78,7 +79,18 @@ recipe.  See: https://github.com/milkypostman/melpa#recipe-format"
     (defun org-brain-insert-resource-icon (link)
       "Insert an icon, based on content of org-mode LINK."
       (insert (format "%s "
-                      (cond ((string-prefix-p "http" link)
+                      (cond
+                       ;; File extensions
+                       ((string-suffix-p ".pdf" link)
+                        (all-the-icons-octicon "file-pdf"))
+                       ((string-match ".cpp" link)
+                        (all-the-icons-alltheicon "cplusplus"))
+                       ((string-match ".h" link)
+                        (all-the-icons-alltheicon "cplusplus-line"))
+                       ((string-match ".hpp" link)
+                        (all-the-icons-alltheicon "cplusplus-line"))
+                       ;; URL
+                       ((string-prefix-p "http" link)
                              (cond ((string-match "wikipedia\\.org" link)
                                     (all-the-icons-faicon "wikipedia-w"))
                                    ((string-match "github\\.com" link)
@@ -91,23 +103,24 @@ recipe.  See: https://github.com/milkypostman/melpa#recipe-format"
                                     (all-the-icons-faicon "bitbucket"))
                                    ((string-match "stackoverflow\\.com" link)
                                     (all-the-icons-faicon "stack-overflow"))
-                                   ((string-match "\\.pdf$" link)
-                                    (all-the-icons-octicon "file-pdf"))
                                    (t
                                     (all-the-icons-faicon "globe"))))
-                            ((string-prefix-p "brain:" link)
-                             (all-the-icons-fileicon "brain"))
-                            (t
-                             (all-the-icons-icon-for-file link))))))
+                       ((string-prefix-p "brain:" link)
+                        (all-the-icons-fileicon "brain"))
+                       (t
+                        (all-the-icons-icon-for-file link)))))) 
 
     (add-hook 'org-brain-after-resource-button-functions #'org-brain-insert-resource-icon)
     ))
 
+(defun chicken-dotfiles/init-modern-cpp-font-lock()
+  (add-hook 'c++-mode-hook #'modern-c++-font-lock-mode))
+
 (defun chicken-dotfiles/post-init-org-bullets()
   (use-package org-bullets
     :defer t
     :init
-    (setq org-bullets-bullet-list '("◉" "○" "⬡" "⬢" "■" "□" "◈" "◇"))
+    (setq org-bullets-bullet-list '("◼"))
     )
   )
 
@@ -118,11 +131,10 @@ recipe.  See: https://github.com/milkypostman/melpa#recipe-format"
     (setq org-agenda-to-appt t)
     (setq org-agenda-include-diary t)
     (setq org-agenda-files (list
-                            "~/Notes/Agenda/birthdays.org"
+                            "C:/Notes/Agenda/birthdays.org"
                             ;; GTD
-                            "~/Notes/inbox.org" "~/Notes/gtd.org" "~/Notes/tickler.org"))
-    )
-  )
+                            "C:/Notes/inbox.org" "c:/Notes/inbox_work.org" "C:/Notes/gtd.org" "C:/Notes/gtd_work.org" "C:/Notes/tickler_work.org"))
+    ))
 
 (defun chicken-dotfiles/post-init-org()
   (use-package org
@@ -135,26 +147,43 @@ recipe.  See: https://github.com/milkypostman/melpa#recipe-format"
                                         ; GTD inspired by https://emacs.cafe/emacs/orgmode/gtd/2017/06/30/orgmode-gtd.html
 
     (setq org-capture-templates '(("t" "Todo [inbox]" entry
-                                   (file+headline "~/Notes/inbox.org" "Tasks")
+                                   (file+headline "C:/Notes/inbox.org" "Tasks")
                                    "* TODO %i%?")
-                                  ("T" "Tickler" entry
-                                   (file+headline "~/Notes/tickler.org" "Tickler")
+                                  ("T" "Todo [tickler]" entry
+                                   (file+headline "C:/Notes/tickler.org" "Tasks")
                                    "* %i%? \n %U")
                                   ;; Media
                                   ("A" "Artist" entry
-                                  (file+headline "~/Notes/inbox.org" "Music")
+                                  (file+headline "C:/Notes/inbox.org" "Music")
                                   "* TODO %i%? \n %U")
                                   ("S" "Series" entry
-                                  (file+headline "~/Notes/inbox.org" "Series")
-                                  "* TODO %i%? \n %U"))
-          )
-
-   
-    (setq org-directory "~/Notes")
-    (setq org-default-notes-file "~/Notes/inbox.org" )
-    (setq org-refile-targets '(("~/Notes/gtd.org" :maxlevel . 3)
-                               ("~/Notes/backlog.org" :level . 2)
-                               ("~/Notes/tickler.org" :maxlevel . 2)))
+                                  (file+headline "C:/Notes/inbox.org" "Series")
+                                  "* TODO %i%? \n %U")
+                                  ;; Work
+                                  ("W" "Work [inbox]" entry
+                                   (file+headline "C:/Notes/inbox_work.org" "Tasks")
+                                   "* TODO %i%?")
+                                  ))
+
+    (setq org-directory "C:/Notes")
+    (setq org-default-notes-file "C:/Notes/inbox.org" )
+    (setq org-refile-targets '(("C:/Notes/gtd.org" :maxlevel . 3)
+                               ("C:/Notes/gtd_work.org" :maxlevel . 3)
+                               ("C:/Notes/backlog.org" :level . 2)
+                               ))
+    (defun wild-git-url(path)
+      (shell-command (concat "start " (concat "https://github.com/WildSheepStudio/Wild/commit/" path))))
+
+    ;; TODO Replace with org-link-abbrev-alist or attempt to make a completion routine as seen here : https://orgmode.org/manual/Completion.html#Completion
+    :config
+    (org-link-set-parameters "wild-git" :follow 'wild-git-url)
+    (set-face-attribute 'org-table nil :family "Iosevka")
+    (set-face-attribute 'org-block nil :family "Iosevka")
+    (set-face-attribute 'org-code nil :family "Iosevka" :weight 'light :height 0.8)
+    (set-face-attribute 'org-default nil :family "ETBembo")
+    ;; TODO Use Spacemacs' utilities instead?
+    (add-hook 'org-mode-hook 'buffer-face-mode)
+    (setq org-bullets-bullet-list '(" "))
     )
   )
 ;;; packages.el ends here