From b56ea97cba8a0d256d0a9bd08710b7fff5f5c8dc Mon Sep 17 00:00:00 2001 From: Marcus Kammer <2262664-marcus-kammer@users.noreply.gitlab.com> Date: Sun, 26 Sep 2021 17:28:05 +0200 Subject: [PATCH 1/6] Update info additional directory --- bundle/custom_win32.el | 1 + 1 file changed, 1 insertion(+) 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)) From c19c660accba10bcc089ba9c0a8c4da5f02b9a8e Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 1 Oct 2021 08:52:46 +0200 Subject: [PATCH 2/6] Optimize readability of info docs produced bei sphinx --- bundle/bundle--defaults.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/bundle/bundle--defaults.el b/bundle/bundle--defaults.el index 6f677988..cade0e9c 100644 --- a/bundle/bundle--defaults.el +++ b/bundle/bundle--defaults.el @@ -92,3 +92,20 @@ shell-mode-hook eshell-mode-hook)) (add-hook mode (lambda () (display-line-numbers-mode 0)))) + +(defadvice info-insert-file-contents (after + sphinx-info-insert-file-contents + activate) + "Hack to make `Info-hide-note-references' buffer-local and +automatically set to `hide' iff it can be determined that this file +was created from a Texinfo file generated by Docutils or Sphinx." + (set (make-local-variable 'Info-hide-note-references) + (default-value 'Info-hide-note-references)) + (save-excursion + (save-restriction + (widen) (goto-char (point-min)) + (when (re-search-forward + "^Generated by \\(Sphinx\\|Docutils\\)" + (save-excursion (search-forward "\x1f" nil t)) t) + (set (make-local-variable 'Info-hide-note-references) + 'hide))))) From b509d5bd8135fe322dc7dc6d7619861c555f5fa0 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 7 Oct 2021 11:49:45 +0200 Subject: [PATCH 3/6] Update sbcl binary path for windows --- bundle/bundle--customfile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)))) From 92c87a27eb8c435e3c50e7b2a45212066d9832b7 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 7 Oct 2021 11:50:18 +0200 Subject: [PATCH 4/6] Add custom function which is org related --- bundle/bundle--mk.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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))))) From 9ef5bc8279619c96c4addc8533ad9effc1d13fde Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 7 Oct 2021 11:51:20 +0200 Subject: [PATCH 5/6] Disable env in doom modeline --- bundle/custom_win32_EVG02667NB.el | 1 + 1 file changed, 1 insertion(+) 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 From 3f7f9fb2bb0a81aa7e9983a9952f35a0a6e4f60d Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 7 Oct 2021 11:51:45 +0200 Subject: [PATCH 6/6] Update eww bookmarks --- eww-bookmarks | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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")