Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d

bundle/bundle--customfile.el

@@ -10,8 +10,8 @@
 (when (eq system-type 'windows-nt)
   (setq custom-file "~/.emacs.d/bundle/custom_win32.el")
 
-  (setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.exe")
-        sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\2.0.0\\sbcl.core")
+  (setq sbcl-exe (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe")
+        sbcl-core (expand-file-name "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core")
 	inferior-lisp-program "sbcl"
 	slime-lisp-implementations `((sbcl (,sbcl-exe "--core" ,sbcl-core))))
 

bundle/bundle--mk.el

@@ -74,3 +74,20 @@
            :port 6697
            :nick nick
            :full-name "emacs-user"))
+
+(defun me/org-copy-subtree-contents ()
+  "Get the content text of the subtree at point and add it to the `kill-ring'.
+Excludes the heading and any child subtrees."
+  (interactive)
+  (if (org-before-first-heading-p)
+      (message "Not in or on an org heading")
+    (save-excursion
+      ;; If inside heading contents, move the point back to the heading
+      ;; otherwise `org-agenda-get-some-entry-text' won't work.
+      (unless (org-on-heading-p) (org-previous-visible-heading 1))
+      (let ((contents (substring-no-properties
+                       (org-agenda-get-some-entry-text
+                        (point-marker)
+                        most-positive-fixnum))))
+        (message "Copied: %s" contents)
+        (kill-new contents)))))

bundle/custom_win32.el

@@ -3,6 +3,7 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(Info-additional-directory-list '("d:/visua/HiDrive/Documents/info/"))
  '(custom-enabled-themes '(doom-nord))
  '(custom-safe-themes
    '("fce3524887a0994f8b9b047aef9cc4cc017c5a93a5fb1f84d300391fba313743" "171d1ae90e46978eb9c342be6658d937a83aaa45997b1d7af7657546cae5985b" "37046960cf667c5ab3b76235d35a5db4763c531e706502a9067fa78db5a775c0" "9e39a8334e0e476157bfdb8e42e1cea43fad02c9ec7c0dbd5498cf02b9adeaf1" "37768a79b479684b0756dec7c0fc7652082910c37d8863c35b702db3f16000f8" default))

bundle/custom_win32_EVG02667NB.el

@@ -21,6 +21,7 @@
  '(diary-file
    "d:/UserData/marcus.kammer/OneDrive - Siemens AG/documents/Diary/diary")
  '(display-line-numbers-grow-only t)
+ '(doom-modeline-env-version nil)
  '(doom-modeline-height 32)
  '(flycheck-color-mode-line-face-to-color 'mode-line-buffer-id)
  '(forge-alist

eww-bookmarks

@@ -1,5 +1,7 @@
 ;; Auto-generated file; don't edit
-((:url "https://emacsredux.com/blog/2020/12/11/super-keybindings-for-magit/" :title "Super Keybindings for Magit | Emacs Redux" :time "Wed Jun 16 17:04:48 2021")
+((:url "https://cliki.net/naming%20conventions" :title "CLiki: Naming conventions" :time "Wed Oct  6 11:53:38 2021")
+ (:url "https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node69.html" :title "6. Predicates" :time "Wed Oct  6 11:34:26 2021")
+ (:url "https://emacsredux.com/blog/2020/12/11/super-keybindings-for-magit/" :title "Super Keybindings for Magit | Emacs Redux" :time "Wed Jun 16 17:04:48 2021")
  (:url "https://common-lisp.net/project/asdf/asdf/" :title "Top (ASDF Manual)" :time "Sat Jun 12 13:03:40 2021")
  (:url "https://sachachua.com/blog/" :title "Home :: Sacha Chua" :time "Thu Jun 10 15:12:50 2021")
  (:url "https://www3.ntu.edu.sg/home/ehchua/programming/webprogramming/HTTP_Basics.html" :title "In Introduction to HTTP Basics" :time "Tue Jun  8 16:07:52 2021")