diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el index e57775bc..40b62f67 100644 --- a/bundle/bundle--customfile.el +++ b/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)))) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 57985124..e376c929 100644 --- a/bundle/bundle--mk.el +++ b/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))))) diff --git a/bundle/custom_win32.el b/bundle/custom_win32.el index 66e6f0e3..7831f5d7 100644 --- a/bundle/custom_win32.el +++ b/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)) diff --git a/bundle/custom_win32_EVG02667NB.el b/bundle/custom_win32_EVG02667NB.el index af06e6b5..8478d1c0 100644 --- a/bundle/custom_win32_EVG02667NB.el +++ b/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 diff --git a/eww-bookmarks b/eww-bookmarks index c8ad4be2..a1ea505a 100644 --- a/eww-bookmarks +++ b/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")