config/doom: updates

.config/doom/config.el

@@ -663,6 +663,7 @@ Version 2019-11-04 2021-02-16"
           "E" 'org-export-repeat
           :desc "Save and Export" "be" (lambda () (interactive) (basic-save-buffer) (org-export-repeat))
           :localleader
+          ":" 'org-babel-mark-block
           "E" 'org-export-repeat
           )
 
@@ -696,7 +697,7 @@ Version 2019-11-04 2021-02-16"
     (setq org-export-with-tags nil
           org-export-with-tasks 'done
           org-export-with-todo-keywords nil
-          org-export-with-toc nil
+          ; only apply to tex, not html: org-export-with-toc nil
           org-export-with-section-numbers nil
           org-export-with-broken-links 't
           org-ascii-text-width 999
@@ -1061,11 +1062,11 @@ This is 0.3 red + 0.59 green + 0.11 blue and always between 0 and 255."
 
   )
 
-(use-package vc-fossil
-  ;; Keep from loading unnecessarily at startup.
-  :defer t
-  ;; This allows VC to load vc-fossil when needed.
-  :init (add-to-list 'vc-handled-backends 'Fossil))
+;(use-package vc-fossil
+;  ;; Keep from loading unnecessarily at startup.
+;  :defer t
+;  ;; This allows VC to load vc-fossil when needed.
+;  :init (add-to-list 'vc-handled-backends 'Fossil))
 
 (use-package! chordpro-mode
   :mode ("\\.cho\\'" . chordpro-mode)

.config/doom/packages.el

@@ -41,26 +41,22 @@
 (setq straight-host-usernames '((github . "xeruf")))
 
 ;;; Multimedia & Integration
-(package! emms)
-(package! exiftool)
-(package! elpher)
+;(package! emms)
+;(package! exiftool)
+;(package! elpher)
 (package! activity-watch-mode :recipe (:fork t)) ; eagle eyes
 
 (package! kill-or-bury-alive) ; https://github.com/mrkkrp/kill-or-bury-alive
 (package! recompile-on-save)
 
-(package! vc-fossil)
+;(package! vc-fossil)
 
 ;;; Prettification
 (package! dired+)
 (package! xterm-color)
-(package! rainbow-mode)
+(package! rainbow-mode) ;  Colorize color names in buffers 
 
 ;;; ORG
-(unpin! org-journal)
-
-(package! org :pin "ca873f7")
-
 (package! websocket)
 (package! org-roam-ui
   :recipe (:host github :repo "org-roam/org-roam-ui" :files ("*.el" "out")))
@@ -95,6 +91,8 @@
 
 (package! ess)
 
+(package! helm-dash)
+
 ;; https://www.emacswiki.org/emacs/CsvMode
 (package! csv-mode)
 

.config/doom/user.el##user.janek

@@ -26,10 +26,19 @@
                             ))
     ))
 
+(defun list-non-hidden-directories (directory)
+  "List all non-hidden subdirectories in DIRECTORY and return them as a list."
+  (let ((dir-list (directory-files directory t))
+        (directories '()))
+    (dolist (file dir-list directories)
+      (when (and (file-directory-p file)                   ; Check if it's a directory
+                 (not (string-prefix-p "." (file-name-nondirectory file))))  ; Check if it's not hidden
+        (setq directories (cons file directories))))))
+
 (use-package! recentf
   :config
-    (add-to-list 'recentf-exclude "writing\\/tug")
     (add-to-list 'recentf-exclude "\\.\\(sync\\|stversions\\|stfolder\\)")
-    (add-to-list 'recentf-list (expand-file-name "5-incubator/downloads/" user-data-dir))
+    (add-to-list 'recentf-list (expand-file-name "5-incubator/download/" user-data-dir))
+    (setq recentf-list (append (list-non-hidden-directories user-data-dir) recentf-list))
     (setq recentf-keep '(recentf-keep-default-predicate file-remote-p "/ssh:.*"))
   )