Org mode configuration and modeline tweaks

Also replaced {begin,end}_src for {BEGIN,END}_src to let prettify do its
magic.

config.org

@@ -18,7 +18,7 @@ around this list:
 - Org
 - Bash (eventually zsh)
 - and of course, emacs-lisp
-* The first steps in the look&feel
+* Look and Feel
 ** The colors
 Lately, I have been partial towards Gruvbox, for multiple reasons, the first
 being that I was tired of all those blue themes. It's a warm colorscheme, it has
@@ -77,7 +77,60 @@ border color if needed.
 #+BEGIN_SRC emacs-lisp :tangle no
 (set-face-attribute 'vertical-border nil :foreground "red")
 #+END_SRC
+*** STRT Doom Modeline
+I'm trying to slightly tweak the modeline to show some info like the word count
+and forcing the usage of icons for situations where I use emacs in daemon mode,
+which occured quite often on Windows with Spacemacs, due to the latter's
+increased boot time.
 
+#+BEGIN_SRC emacs-lisp
+(setq doom-modeline-icon t)
+(setq doom-modeline-major-mode-icon t)
+;; FIXME What does it lack to work?
+(setq doom-modeline-enable-word-count t)
+(setq doom-modeline-continuous-word-count-modes
+      '(markdown-mode gfm-mode org-mode))
+#+END_SRC
+* Org-Mode
+** STRT Org location
+I have usually two locations for my own note repository. On Windows, I like to
+put it in a folder located in the root folder of a hard drive while on Linux, I
+prefer having it at the root of my home folder. This prevents having spaces in
+the base folder path.
+
+Right now, the Windows' version is relatively bare, I only have setups where I
+use ~C:~ or ~D:~ as drives to store my notes folder, directly on the root, but
+maybe in the future I'd like to move it, so I should plan to support future
+configurations later.
+#+BEGIN_SRC emacs-lisp
+(let ((base-folder-name "Notes"))
+  (when (eq system-type 'windows-nt)
+    ;; HACK I usually have two disk drives
+    (if (file-directory-p (concat "C:/" base-folder-name))
+        (setq org-directory (concat "C:/" base-folder-name))
+      (setq org-directory (concat "D:/" base-folder-name))))
+  (when (eq system-type 'gnu/linux)
+    ;; TODO Factorize with let
+    (let ((notes-folder (concat
+                         (file-name-as-directory (getenv "HOME"))
+                         base-folder-name)))
+      (if (file-directory-p notes-folder)
+          (setq org-directory notes-folder)
+        (message "Can't find the org note folder.")))))
+#+END_SRC
+** TODO Org Bullets
+Doom's default bullets for org doesn't work perfectly in Windows. Let's use
+another set that'll work on my computers.
+#+BEGIN_SRC emacs-lisp
+(setq org-bullets-bullet-list '("■" "▩" "▦" "▨" "▤" "□"))
+#+END_SRC
+** TODO Todo lists
+I'd like to track when I finish tasks. I'm not feeling that adding a note each
+time I close an item might be the best thing as I'd get tired of the prompt
+really quickly. I'll reserve this to manual additions.
+#+BEGIN_SRC emacs-lisp
+(setq org-log-done 'time)
+#+END_SRC
 * Blog writing
 I have a [[https://retroactive.me][blog]]. I want to use emacs as my platform to type bits and bobs on it.
 
@@ -319,7 +372,7 @@ INITIAL-INPUT can be given as the initial minibuffer input."
 #+END_SRC
 
 Finally, let's set up a shortcut to directly search a file globally with that
-tool. I'm going to map it on ~[LEADER]-s-E~, as I hope it won't be used in the
+tool. I'm going to map it on ~<leader> s E~, as I hope it won't be used in the
 near future by Doom Emacs' default configuration. The mapping makes sure that
 you have the executable available by checking if the function to be called is
 available.
@@ -336,14 +389,14 @@ delimiter because that's the default Emacs behiavour, not following vim's own
 motion.
 To fix this, there is the possibility of changing the underscore's entry in the
 syntax table:
-#+begin_src emacs-lisp :tangle no
+#+BEGIN_SRC emacs-lisp :tangle no
 (modify-syntax-entry ?_ "w")
-#+end_src
+#+END_SRC
 
 But again, the FAQ suggests using hooks to limit the tweak to specific modes.
-#+begin_src emacs-lisp
+#+BEGIN_SRC emacs-lisp
 (defun chicken/alter-underscore-entry()
   (modify-syntax-entry ?_ "w"))
 
 (add-hook! (python-mode lua-mode markdown-mode) #'chicken/alter-underscore-entry)
-#+end_src
+#+END_SRC