early-init.el

@@ -75,15 +75,16 @@
 (use-package ob-tangle)
 (let ((src (concat user-emacs-directory "init.org"))
       (tgt (concat user-emacs-directory "init.el")))
-  (when (file-newer-than-file-p src tgt)
-    (delete-file tgt)
+  (if (file-newer-than-file-p src tgt)
+      (progn
+        (message "init.org has been changed, tangling...")
         (org-babel-tangle-file src tgt "emacs-lisp")
         ;; this is a good time to check if the crafted-emacs repo is fresh
         ;; - we just updated the init.org file so we expect changes.
         ;; - or this is the initial tangling and we need the repo to exist.
         (message "checking crafted emacs repo...")
         (check-crafted-emacs-fresh-repo)
-    ))
+        )))
 
 ;; Configure Crafted Emacs 
 (setq crafted-package-system 'elpaca)

init.org

@@ -145,7 +145,7 @@ metadata and get the version number from the JSON.
 #+RESULTS:
 : pti-latest-github-release
 
-#+BEGIN_SRC emacs-lisp :tangle no :results value
+#+BEGIN_SRC emacs-lisp :results value
   (pti-latest-github-release "plantuml/plantuml")
 #+END_SRC
 
@@ -1260,7 +1260,8 @@ Here is a snapshot of the keybindings dd <2024-07-30 Tue>.
        (auth-source-pass-get 'secret "customer/jira"))
       :bind (("C-c ig" . 'org-jira-get-issues)
              ("C-c ip" . 'org-jira-get-projects)
-             ("C-c ij" . 'org-jira-get-issues-from-custom-jql)))
+             ("C-c ij" . 'org-jira-get-issues-from-custom-jql)
+             ("C-c cc" . 'org-jira-add-comment)))
 #+END_SRC
 
 #+RESULTS:
@@ -1452,9 +1453,6 @@ We can add a list of queries
 #+END_SRC
 
 ** Programming Support Infrastructure
-#+BEGIN_SRC emacs-lisp
-(report-time-since-load "Programming - Infrastructure")
-#+END_SRC
 
 *** Integration with LSP Servers for language support
 #+BEGIN_SRC emacs-lisp
@@ -1501,12 +1499,12 @@ We can add a list of queries
 *** Flymake Support
 
 #+BEGIN_SRC emacs-lisp
-  (defun pti-flymake-evil-keybindings ()
+  (after-load 'flymake
               (evil-define-key 'normal flymake-mode-map
                 (kbd "]d") #'flymake-goto-next-error
-      (kbd "[d") #'flymake-goto-prev-error))
+                (kbd "[d") #'flymake-goto-prev-error
+                ))
 
-  (add-hook 'flymake-mode-hook #'pti-flymake-evil-keybindings)
 #+END_SRC
 
 
@@ -1636,10 +1634,6 @@ see also [[https://www.masteringemacs.org/article/how-to-get-started-tree-sitter
 **** TODO Evaluate if Electric Return is still useful
 
 ** Configure Selected Languages
-#+BEGIN_SRC emacs-lisp
-(report-time-since-load "Programming - Selected Languages")
-#+END_SRC
-
 *** Rust Support
 #+BEGIN_SRC emacs-lisp
 
@@ -1832,31 +1826,27 @@ Configure Geiser and Scheme
 Map the keymap consistently to the eglot mappings.
 
 ** Debugger Support
-#+BEGIN_SRC emacs-lisp
-(report-time-since-load "Programming - Debugger Support")
-#+END_SRC
-
 #+BEGIN_SRC emacs-lisp
         ;; install DAP servers
-  (setq pti-vscode-js-debug-dir (file-name-concat user-emacs-directory "dape/vscode-js-debug"))
-  (defun pti-install-vscode-js-debug ()
+        (setq snam-vscode-js-debug-dir (file-name-concat user-emacs-directory "dape/vscode-js-debug"))
+        (defun snam-install-vscode-js-debug ()
           "Run installation procedure to install JS debugging support."
           (interactive)
-    (mkdir pti-vscode-js-debug-dir t)
-    (let ((default-directory (expand-file-name pti-vscode-js-debug-dir)))
+          (mkdir snam-vscode-js-debug-dir t)
+          (let ((default-directory (expand-file-name snam-vscode-js-debug-dir)))
 
             (vc-git-clone "https://github.com/microsoft/vscode-js-debug.git" "." nil)
             (report-time-since-load "git repository created")
-      (call-process "npm" nil "*pti-install*" t "install")
+            (call-process "npm" nil "*snam-install*" t "install")
             (report-time-since-load "npm dependencies installed")
-      (call-process "npx" nil "*pti-install*" t "gulp" "dapDebugServer")
+            (call-process "npx" nil "*snam-install*" t "gulp" "dapDebugServer")
             (report-time-since-load "vscode-js-debug installed")))
 
-  (setq pti-codelldb-dir (file-name-concat user-emacs-directory "dape/codelldb"))
-  (defun pti-install-codelldb ()
+        (setq snam-codelldb-dir (file-name-concat user-emacs-directory "dape/codelldb"))
+        (defun snam-install-codelldb ()
           "Install Vadimcn.Vscode-Lldb DAP server for C/C++/RUST."
           (interactive)
-    (let* ((default-directory pti-codelldb-dir)
+          (let* ((default-directory snam-codelldb-dir)
                  (arch (car (split-string system-configuration "-" nil nil)))
                  (os (pcase system-type
                        ('windows-nt "windows")
@@ -1868,14 +1858,13 @@ Map the keymap consistently to the eglot mappings.
             (mkdir default-directory t)
             (url-copy-file release-url "codelldb.zip" t)
             (report-time-since-load "codelldb archive downloaded")
-      (call-process "unzip" nil "*pti-install*" t "codelldb.zip")
+            (call-process "unzip" nil "*snam-install*" t "codelldb.zip")
             (report-time-since-load "codelldb installed")
             ))
 
         ;; configure dape (dap-mode)
         (use-package dape
           :ensure (dape :host github :repo "svaante/dape" :wait t)
-    :defer 5
           :config (progn
                     ;; Use n for next etc. in REPL
                     ;; (setq dape-repl-use-shorthand t)
@@ -1895,7 +1884,7 @@ Map the keymap consistently to the eglot mappings.
                                    host "localhost"
                                    port 8123
                                    command "node"
-                             command-cwd ,(file-name-concat pti-vscode-js-debug-dir "dist")
+                                   command-cwd ,(file-name-concat snam-vscode-js-debug-dir "dist")
                                    command-args ("src/dapDebugServer.js" "8123")
                                    :type "pwa-node"
                                    :request "launch"
@@ -1928,7 +1917,7 @@ Map the keymap consistently to the eglot mappings.
                                    ;; Replace vadimcn.vscode-lldb with the vsix directory you just extracted
                                    command ,(expand-file-name
                                              (file-name-concat
-                                        pti-codelldb-dir
+                                              snam-codelldb-dir
                                               (concat "extension/adapter/codelldb"
                                                       (if (eq system-type 'windows-nt)
                                                           ".exe"
@@ -1959,10 +1948,6 @@ Map the keymap consistently to the eglot mappings.
 
 ** Copilot Support
 
-#+BEGIN_SRC emacs-lisp
-(report-time-since-load "Programming - Copilot Support")
-#+END_SRC
-
 #+BEGIN_SRC emacs-lisp
     (use-package copilot
       :ensure (:host github :repo "zerolfx/copilot.el"
@@ -1989,10 +1974,6 @@ the moment.
 
 ** Gitlab Support
 
-#+BEGIN_SRC emacs-lisp
-(report-time-since-load "Programming - Gitlab Support")
-#+END_SRC
-
 #+BEGIN_SRC emacs-lisp
   (use-package gitlab-ci-mode
     :ensure (:host gitlab :repo "ptillemans/gitlab-ci-mode" :branch "fixes_2024")