diff --git a/config.el b/config.el index d808b6d..b5d4c0d 100644 --- a/config.el +++ b/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) diff --git a/init.el b/init.el index 4e8c588..1459ce3 100644 --- a/init.el +++ b/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