Rh17S15/doom-emacs-conf
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2025-11-11T20:15:39

Browse Source
This commit is contained in:
rh17s15
2025-11-11 20:15:36 +01:00
parent 705a663bc8
commit 8efb705c89
3 changed files with 94 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
config.el
View File

@@ -177,8 +177,9 @@
(after! org
(setq org-startup-with-latex-preview t)
(setq font-lock-maximum-decoration t)
(font-lock-mode))
(setq font-lock-maximum-decoration t))
(add-hook 'org-mode-hook #'turn-on-font-lock)
(menu-bar--display-line-numbers-mode-relative)
@@ -256,3 +257,90 @@
)
)
;; ====================
;; 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)
;; for image splash
;; (setq fancy-splash-image (concat doom-private-dir "e.png"))
;; https://x-e.ro _ ____
;; : \ | \ .
;; | \ . | : |\ /\
;; . | :|\__ | | | \ / \
;; |\ | |! \ \ | | | |\ / /
;; \"-.______ | \: ||\ \ \ | | | | \ / /
;; \_ "-_| |\ || \ \/ | |___| ! |\____/ _/-. /\
;; "-_ ____: |_\ || \/ ___\ __ _// | | ___ \---" /
;; \ \ | _____, /___\___\/ / / \_! | // _/ / /
;; ___\_ \__| | | __. _/____ / / / > // / \/
;; //_________| / |/ |/ \__// / / /_/ \/
;; | / | : | / /__/
;; |/ |/ E V A N G E L I O N
;;
(defun evangelion-splash ()
(let* ((banner '(" _ ____ "
" : \\ | \\ . "
" | \\ . | : |\\ /\\ "
" . | :|\\__ | | | \\ / \\ "
" |\\ | |! \\ \\ | | | |\\ / / "
" \\\"-.______ | \\: ||\\ \\ \\ | | | | \\ / / "
" \\_ \"-_| |\\ || \\ \\/ | |___| ! |\\____/ _/-. /\\ "
" \"-_ ____: |_\\ || \\/ ___\\ __ _// | | ___ \\---\" / "
" \\ \\ | _____, /___\\___\\/ / / \\_! | // _/ / / "
" ___\\_ \\__| | | __. _/____ / / / > // / \\/ "
" //_________| / |/ |/ \\__// / / /_/ \\/ "
" | / | : | / /__/ "
" |/ |/ "
" E M A C S "))
(longest-line (apply #'max (mapcar #'length banner))))
(put-text-property
(point)
(dolist (line banner (point))
(insert (+doom-dashboard--center
+doom-dashboard--width
(concat line (make-string (max 0 (- longest-line (length line))) 50)))
"\n"))
'face 'doom-dashboard-banner)))
(setq +doom-dashboard-ascii-banner-fn #'evangelion-splash)
;; .doom.d/config.el
;; (let ((alternatives '("nameoffirstfile.svg"
;; "nameofanotherfile.png"
;; "nameofathirdfile.svg")))
;; (setq fancy-splash-image
;; (concat doom-private-dir "splash/"
;; (nth (random (length alternatives)) alternatives))))
(setq vterm-shell "/usr/bin/env zsh")