sabancay/vemacs - Change 65TEXEMFIEKH2ICROBGQ6MDWFDSOZUXVDNEC2CA5JQRKFLRMLJOAC

improvements

Created by BAFibzVbBf9zajG92YmeCKAbs6sRw1geBSqjeqxBY5kC on August 17, 2025

65TEXEMFIEKH2ICROBGQ6MDWFDSOZUXVDNEC2CA5JQRKFLRMLJOAC

Dependencies

In channels

main

Change contents

Replacement in init.el at line 1 [3.56074]

B:BD[3.56074] → [3.56075:56385]

;;; init.el -*- lexical-binding: t; -*-
;;; Volker Edelmann, based on Patrick Thomson's Emacs setup.
;;
;;; Commentary:
;; This file loads use-package, org-mode and compiles and executes
;; my emacs org configuration
;;
;;; Code:
;; 
(load-file (concat user-emacs-directory "/environment-setup.el"))

[3.56074]

[2.0]

;;; init.el -*- lexical-binding: t; -*-
;;; Volker Edelmann, based on Patrick Thomson's Emacs setup.
;;
;;; Commentary:
;; This file loads use-package, org-mode and compiles and executes
;; my emacs org configuration
;;
;;; Code:
;; 
(load-file (concat user-emacs-directory "/environment-setup.el"))

Replacement in init.el at line 12 [3.56074]

∅:D[2.28] → [3.56385:56486]

B:BD[3.56385] → [3.56385:56486]


(require 'package)
(add-to-list 'package-archives '("melpa"  . "https://melpa.org/packages/") t)

[2.28]

[2.29]


(require 'package)
(add-to-list 'package-archives '("melpa"  . "https://melpa.org/packages/") t)

Replacement in init.el at line 21 [3.56074]
∅:D[2.248] → [3.56486:56519]
B:BD[3.56486] → [3.56486:56519]
```
(setq package-native-compile t)
```
[2.248]
[2.249]
```
(setq package-native-compile t)
```

Replacement in init.el at line 23 [3.56074]

∅:D[2.286] → [3.56557:56890]

B:BD[3.56557] → [3.56557:56890]

(package-initialize)
(eval-when-compile
  (require 'use-package)
  (require 'ob-tangle))
(defun reload-config ()
  "Reload the literate config from several files"
  (interactive)
  (message "Reloading my configuration")
  (toggle-debug-on-error)
  (org-babel-load-file (concat user-emacs-directory "/basic-setup.org"))

[2.286]

[2.287]

(package-initialize)
(eval-when-compile
  (require 'use-package)
  (require 'ob-tangle))
(defun reload-config ()
  "Reload the literate config from several files"
  (interactive)
  (message "Reloading my configuration")
  (toggle-debug-on-error)
  (org-babel-load-file (concat user-emacs-directory "/basic-setup.org"))

Replacement in init.el at line 36 [3.56074]

∅:D[2.362] → [3.56890:57138]

∅:D[4.15577] → [3.56890:57138]

B:BD[3.56890] → [3.56890:57138]

  (org-babel-load-file (concat user-emacs-directory "/programming-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-elisp-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-clojure-setup.org"))

[2.362]

[2.363]

  (org-babel-load-file (concat user-emacs-directory "/programming-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-elisp-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-clojure-setup.org"))

Replacement in init.el at line 40 [3.56074]

∅:D[2.444] → [3.57218:57468]

B:BD[3.57218] → [3.57218:57468]

B:BD[3.57554] → [3.57554:57892]

B:BD[3.57971] → [3.57971:58357]

  (org-babel-load-file (concat user-emacs-directory "/proglang-julia-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-tcltk-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-python-setup.org"))
  ;;  (org-babel-load-file (concat user-emacs-directory "/proglang-kotlin-setup.org"))
  ;;  (org-babel-load-file (concat user-emacs-directory "/proglang-groovy-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-sql-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-xml-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-rudimentary-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/text_gtd-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/tool-ai-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/keybindings.org"))
  (load-file (concat user-emacs-directory "/post-init.el"))
  )

[2.444]

[2.445]

  (org-babel-load-file (concat user-emacs-directory "/proglang-julia-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-tcltk-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-python-setup.org"))
  ;;  (org-babel-load-file (concat user-emacs-directory "/proglang-kotlin-setup.org"))
  ;;  (org-babel-load-file (concat user-emacs-directory "/proglang-groovy-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-sql-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-xml-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/proglang-rudimentary-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/text_gtd-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/tool-ai-setup.org"))
  (org-babel-load-file (concat user-emacs-directory "/keybindings.org"))
  (load-file (concat user-emacs-directory "/post-init.el"))
  )

Replacement in init.el at line 57 [3.56074]

∅:D[2.569] → [3.58481:59099]

B:BD[3.58481] → [3.58481:59099]

B:BD[3.59099] → [2.570:680]

  (normal-top-level-add-subdirs-to-load-path))
(add-to-list 'load-path (concat (getenv "HOME") "/secrets"))
(print "Load Path:")
(princ (mapconcat #'identity load-path "\n"))
(reload-config)
(with-demoted-errors "Error (personal info): %S"
  (load-library "personal")
  (setq user-full-name my-full-name)
  (setq user-mail-address my-email-address))
(require 'server)
(unless (server-running-p)
  (server-start))
;; show bookmarks
(require 'bookmark+)
(bookmark-bmenu-list)
;;(setq initial-buffer-choice (lambda () (get-buffer "*Bookmark List*")))
(provide 'init)
;;; init.el ends here
(put 'upcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)

[2.569]

  (normal-top-level-add-subdirs-to-load-path))
(add-to-list 'load-path (concat (getenv "HOME") "/secrets"))
(print "Load Path:")
(princ (mapconcat #'identity load-path "\n"))
(reload-config)
(with-demoted-errors "Error (personal info): %S"
  (load-library "personal")
  (setq user-full-name my-full-name)
  (setq user-mail-address my-email-address))
(require 'server)
(unless (server-running-p)
  (server-start))
;; show bookmarks
(require 'bookmark+)
(bookmark-bmenu-list)
(setq initial-buffer-choice (lambda () (get-buffer "*Bookmark List*")))
(provide 'init)
;;; init.el ends here