fix dape configurations

init.org

@@ -839,7 +839,7 @@ screen.
 
 *** Set Theme
 
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
   ;; Set theme
   (use-package catppuccin-theme
     :ensure t
@@ -854,8 +854,10 @@ screen.
       (message (format "Cattpuccin Flavor set to %s" catppuccin-flavor)))
     :bind
     (("<f5>" . #'catppuccin-toggle)))
+#+END_SRC
 
-  (use-package modus-themes :tangle no
+#+BEGIN_SRC emacs-lisp :tangle yes
+  (use-package modus-themes
     :ensure t
     :demand t
     :custom
@@ -1717,28 +1719,30 @@ Configure Geiser and Scheme
  - map .scm file by default to Guile
 
 #+BEGIN_SRC emacs-lisp
+  (use-package geiser-guile
+    :ensure t
+  :commands (geiser-guile))
+  (use-package geiser-chicken
+    :ensure t
+    :commands (geiser-chicken))
+  (use-package geiser-racket
+    :ensure t
+    :commands (geiser-racket))
+
   (use-package geiser
     :ensure t 
-    :commands (geiser-mode)
+    :commands (geiser geiser-mode)
     :config
     (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/guile")) guile))
     (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/chicken")) chicken))
     (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/racket")) racket))
     (setq geiser-default-implementation 'guile))
+
   (use-package scheme-mode
     :ensure nil 
     :commands (scheme-mode)
     :hook (scheme-mode . geiser-mode))
 
-  (use-package geiser-guile
-    :ensure t
-    :after geiser)
-  (use-package geiser-chicken
-    :ensure t
-    :after geiser)
-  (use-package geiser-racket
-    :ensure t
-    :after geiser)
 #+END_SRC
 
 #+RESULTS:
@@ -1880,6 +1884,20 @@ Map the keymap consistently to the eglot mappings.
 
 #+END_SRC
 
+*** Python Support
+
+**** Enable Pyvenv
+
+    (pyvenv-mode 1))
+        
+#+BEGIN_SRC emacs-lisp
+  (use-package pyvenv
+    :ensure t
+    :hook
+        (python-mode . pyvenv-mode)
+        (python-ts-mode . pyvenv-mode))
+#+END_SRC
+
 ** Debugger Support
 #+BEGIN_SRC emacs-lisp
 (report-time-since-load "Programming - Debugger Support")
@@ -1944,8 +1962,8 @@ Map the keymap consistently to the eglot mappings.
                              command-args ("src/dapDebugServer.js" "8123")
                              :type "pwa-node"
                              :request "launch"
-                             :cwd dape-cwd-fn
+                             :cwd dape-cwd
-                             :program dape-find-file-buffer-default
+                             :program dape-buffer-default
                              :outputCapture "console"
                              :sourceMapRenames t
                              :pauseForSourceMap nil
@@ -1958,13 +1976,13 @@ Map the keymap consistently to the eglot mappings.
                              modes (go-mode go-ts-mode)
                              command "dlv"
                              command-args ("dap" "--listen" "127.0.0.1:55878")
-                             command-cwd dape-cwd-fn
+                             command-cwd dape-command-cwd
                              host "127.0.0.1"
                              port 55878
                              :type "debug"       ;; needed to set the adapterID correctly as a string type
                              :request "launch"
-                             :cwd dape-cwd-fn
+                             :cwd dape-cwd
-                             :program dape-cwd-fn))
+                             :program dape-buffer-default))
               (add-to-list 'dape-configs
                            `(codelldb
                              modes (c-mode c-ts-mode
@@ -1983,8 +2001,8 @@ Map the keymap consistently to the eglot mappings.
                              command-args ("--port" "5818")
                              :type "lldb"
                              :request "launch"
-                             :cwd dape-cwd-fn
+                             :cwd dape-cwd
-                             :program dape-find-file))
+                             :program dape-buffer-default))
               (add-to-list 'dape-configs
                            `(debugpy
                              modes (python-ts-mode python-mode)
@@ -1992,8 +2010,8 @@ Map the keymap consistently to the eglot mappings.
                              command-args ("-m" "debugpy.adapter")
                              :type "executable"
                              :request "launch"
-                             :cwd dape-cwd-fn
+                             :cwd dape-cwd
-                             :program dape-find-file-buffer-default))
+                             :program dape-buffer-default))
 
               ))
 
@@ -3073,13 +3091,15 @@ Indicates the ~init.el~ file is provided by and ends here:
 (report-time-since-load "Future")
 #+END_SRC
 
-** TODO Decide about general keybindings.
+** DONE Decide about general keybindings.
+CLOSED: [2025-01-20 Mon 10:28]
 The *general* package offers enhanced support for *evil* keybindings,
 notably it integrates with *use-package* to define keybindings which
 will load the package if not loaded yet.
 It considerably streamlines managing evil bindings so it should offer
 enough value but I just removed it, so it'll have to wait a bit.
-** NEXT Add support for zola blogposts writing in org-mode
+** DONE Add support for zola blogposts writing in org-mode
+CLOSED: [2025-01-20 Mon 10:28]
 :LOGBOOK:
 CLOCK: [2024-08-15 Thu 13:47]--[2024-08-16 Fri 00:57] => 11:10
 :END: