2025-09-23T14:38:37

config.el

@@ -40,7 +40,7 @@
 
 ;; If you use `org' and don't want your org files in the default location below,
 ;; change `org-directory'. It must be set before org loads!
-(setq org-directory "~/nucleus/org/")
+(setq org-directory "~/Bachelor/org/")
 
 
 ;; Whenever you reconfigure a package, make sure to wrap your config in an
@@ -252,7 +252,8 @@
   )
 
 
-(gptel-make-gh-copilot "Copilot")
+(setq gptel-model 'gpt-5
+      gptel-backend (gptel-make-gh-copilot "Copilot"))
 
 ;; Determine the specific system type.
 ;; Emacs variable system-type doesn't yet have a "wsl/linux" value,
@@ -261,21 +262,21 @@
 ;; to ensure that I'm not stepping on any pre-existing variable.
 (setq-default sysTypeSpecific  system-type) ;; get the system-type value
 
-(cond
- ;; If type is "gnu/linux", override to "wsl/linux" if it's WSL.
- ((eq sysTypeSpecific 'gnu/linux)
-  (when (string-match "Linux.*Microsoft.*Linux"
-                      (shell-command-to-string "uname -a"))
-
-    (setq-default sysTypeSpecific "wsl/linux") ;; for later use.
-    (setq
-     cmdExeBin"/mnt/c/Windows/System32/cmd.exe"
-     cmdExeArgs '("/c" "start" "") )
-    (setq
-     browse-url-generic-program  cmdExeBin
-     browse-url-generic-args     cmdExeArgs
-     browse-url-browser-function 'browse-url-generic)
-    )))
+;; (cond
+;;  ;; If type is "gnu/linux", override to "wsl/linux" if it's WSL.
+;;  ((eq sysTypeSpecific 'gnu/linux)
+;;   (when (string-match "Linux.*Microsoft.*Linux"
+;;                       (shell-command-to-string "uname -a"))
+;;
+;;     (setq-default sysTypeSpecific "wsl/linux") ;; for later use.
+;;     (setq
+;;      cmdExeBin"/mnt/c/Windows/System32/cmd.exe"
+;;      cmdExeArgs '("/c" "start" "") )
+;;     (setq
+;;      browse-url-generic-program  cmdExeBin
+;;      browse-url-generic-args     cmdExeArgs
+;;      browse-url-browser-function 'browse-url-generic)
+;;     )))
 
 (setq calendar-week-start-day 1)
 
@@ -316,3 +317,48 @@
   :custom
   (org-cite-global-bibliography '("/home/user/nucleus/Bachelor/Research/Bibliothek.bib"))
   (citar-bibliography '("/home/user/nucleus/Bachelor/Research/Bibliothek.bib")))
+
+(setq default-directory "C:/Users/q669019/Bachelor/")
+
+
+;; from https://pragmaticemacs.wordpress.com/2017/11/08/more-pdf-tools-tweaks/
+;; automatically annotate highlights
+(setq pdf-annot-activate-created-annotations t)
+;; more fine-grained zooming
+(setq pdf-view-resize-factor 1.1)
+;; keyboard shortcuts
+;;
+;;(define-key pdf-view-mode-map (kbd "h") 'pdf-annot-add-highlight-markup-annotation)
+;;;;(define-key pdf-view-mode-map (kbd "t") 'pdf-annot-add-text-annotation)
+;;;;(define-key pdf-view-mode-map (kbd "D") 'pdf-annot-delete)
+
+;; ====================
+;; insert date and time
+
+(defvar current-date-time-format "%Y-%m-%dT%H:%M:%S"
+  "Format of date to insert with `insert-current-date-time' func
+See help of `format-time-string' for possible replacements")
+
+(defvar current-time-format "%H:%M:%S"
+  "Format of date to insert with `insert-current-time' func.
+Note the weekly scope of the command's precision.")
+
+(defun insert-current-date-time ()
+  "insert the current date and time into current buffer.
+Uses `current-date-time-format' for the formatting the date/time."
+  (interactive)
+  (insert (format-time-string current-date-time-format (current-time)))
+  )
+
+(defun insert-current-time ()
+  "insert the current time (1-week scope) into the current buffer."
+  (interactive)
+  (insert (format-time-string current-time-format (current-time)))
+  (insert "\n")
+  )
+
+;;(map! "SPC i t" #'insert-current-date-time)
+;; (global-set-key "SPC i t" 'insert-current-date-time)
+;; (global-set-key "\C-c\C-t" 'insert-current-time)
+
+(map! :map evil-normal-state-map "SPC i t" #'insert-current-date-time)

init.el

@@ -76,10 +76,10 @@
        vc                ; version-control and Emacs, sitting in a tree
 
        :term
-       ;;eshell            ; the elisp shell that works everywhere
-       ;;shell             ; simple shell REPL for Emacs
+       eshell            ; the elisp shell that works everywhere
+       shell             ; simple shell REPL for Emacs
        ;;term              ; basic terminal emulator for Emacs
-       vterm             ; the best terminal emulation in Emacs
+       ;;vterm             ; the best terminal emulation in Emacs
 
        :checkers
        syntax              ; tasing you for every semicolon you forget
@@ -115,7 +115,7 @@
        :lang
        ;;agda              ; types of types of types of types...
        ;;beancount         ; mind the GAAP
-       ;;(cc +lsp)         ; C > C++ == 1
+       (cc +lsp)         ; C > C++ == 1
        ;;clojure           ; java with a lisp
        ;;common-lisp       ; if you've seen one lisp, you've seen them all
        ;;coq               ; proofs-as-programs
@@ -159,7 +159,7 @@
        ;;plantuml          ; diagrams for confusing people more
        ;;graphviz          ; diagrams for confusing yourself even more
        ;;purescript        ; javascript, but functional
-       ;;python            ; beautiful is better than ugly
+       python            ; beautiful is better than ugly
        ;;qt                ; the 'cutest' gui framework ever
        ;;racket            ; a DSL for DSLs
        ;;raku              ; the artist formerly known as perl6