emacs : indetation space to tabs, colored org headers

This commit is contained in:
2022-11-02 15:38:12 +09:00
parent 5e681be82a
commit 1e55f1962d
2 changed files with 122 additions and 132 deletions

View File

@ -1,6 +1,7 @@
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*- ;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
(setq-default tab-width 4) (setq-default tab-width 4)
(defvaralias 'c-basic-offset 'tab-width) (defvaralias 'c-basic-offset 'tab-width)
(setq! indent-tabs-mode t)
;; Place your private configuration here! Remember, you do not need to run 'doom ;; Place your private configuration here! Remember, you do not need to run 'doom
;; sync' after modifying this file! ;; sync' after modifying this file!
(setq default-input-method "korean-hangul") (setq default-input-method "korean-hangul")
@ -41,14 +42,8 @@
;; available. You can either set `doom-theme' or manually load a theme with the ;; available. You can either set `doom-theme' or manually load a theme with the
;; `load-theme' function. This is the default: ;; `load-theme' function. This is the default:
(if (display-graphic-p) (if (display-graphic-p)
;;(setq doom-theme 'doom-palenight) (setq doom-theme 'doom-palenight)
;;(setq doom-theme 'doom-monokai-pro) (setq doom-theme 'doom-gruvbox))
;;(setq doom-theme 'doom-material)
(setq doom-theme 'morning-star)
;;(setq doom-theme 'doom-dracula)
;;(setq doom-theme 'doom-one)
(setq doom-theme 'morning-star))
;;(setq doom-theme 'doom-gruvbox))
(unless (display-graphic-p) (unless (display-graphic-p)
(xterm-mouse-mode)) (xterm-mouse-mode))
(beacon-mode 1) (beacon-mode 1)
@ -99,8 +94,8 @@
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; -Virtico ;; -Virtico
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
(if (display-graphic-p) ;;(if (display-graphic-p)
(vertico-posframe-mode 1)) ;; (vertico-posframe-mode 1))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; -Transparency ;; -Transparency
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -112,31 +107,22 @@
(set-frame-parameter (set-frame-parameter
nil 'alpha nil 'alpha
(if (eql (cond ((numberp alpha) alpha) (if (eql (cond ((numberp alpha) alpha)
((numberp (cdr alpha)) (cdr alpha)) ((numberp (cdr alpha)) (cdr alpha))
;; Also handle undocumented (<active> <inactive>) form. ;; Also handle undocumented (<active> <inactive>) form.
((numberp (cadr alpha)) (cadr alpha))) ((numberp (cadr alpha)) (cadr alpha)))
100) 100)
gvar/frame-transparency '(100 . 100))))) gvar/frame-transparency '(100 . 100)))))
(global-set-key (kbd "C-c t") 'toggle-transparency) (global-set-key (kbd "C-c t") 'toggle-transparency)
(defun my/org-roam-rg-search () (defun my/org-roam-rg-search ()
"Search org-roam directory using consult-ripgrep. With live-preview." "Search org-roam directory using consult-ripgrep. With live-preview."
(interactive) (interactive)
(let ((consult-ripgrep-command "rg --null --ignore-case --type org --line-buffered --color=always --max-columns=500 --no-heading --line-number . -e ARG OPTS")) (let ((consult-ripgrep-command "rg --null --ignore-case --type org --line-buffered --color=always --max-columns=500 --no-heading --line-number . -e ARG OPTS"))
(consult-ripgrep org-roam-directory))) (consult-ripgrep org-roam-directory)))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; - Language Server Client ;; - Language Server Client
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;;(use-package! eglot)
;;(dap-register-debug-template "Rust::GDB Run Configuration"
;; (list :type "gdb"
;; :request "launch"
;; :name "GDB::Run"
;; :gdbpath "rust-gdb"
;; :target nil
;; :cwd nil))
(after! dap-mode (after! dap-mode
(setq dap-python-debugger 'debugpy)) (setq dap-python-debugger 'debugpy))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -147,24 +133,24 @@
same directory as the org-buffer and insert a link to this file." same directory as the org-buffer and insert a link to this file."
(interactive) (interactive)
(let* ((target-file (let* ((target-file
(concat (concat
(make-temp-name (make-temp-name
(concat "~/org/images/" (concat "~/org/images/"
(f-filename buffer-file-name) (f-filename buffer-file-name)
"_" "_"
(format-time-string "%Y%m%d_%H%M%S_"))) ".png")) (format-time-string "%Y%m%d_%H%M%S_"))) ".png"))
(wsl-path (wsl-path
(concat (as-windows-path(file-name-directory target-file)) (concat (as-windows-path(file-name-directory target-file))
"/" "/"
(file-name-nondirectory target-file))) (file-name-nondirectory target-file)))
(ps-script (ps-script
(concat "(Get-Clipboard -Format image).Save('" wsl-path "')"))) (concat "(Get-Clipboard -Format image).Save('" wsl-path "')")))
(powershell ps-script) (powershell ps-script)
(if (file-exists-p target-file) (if (file-exists-p target-file)
(progn (insert (concat "[[" target-file "]]")) (progn (insert (concat "[[" target-file "]]"))
(org-display-inline-images)) (org-display-inline-images))
(user-error (user-error
"Error pasting the image, make sure you have an image in the clipboard!")) "Error pasting the image, make sure you have an image in the clipboard!"))
)) ))
@ -172,10 +158,10 @@ same directory as the org-buffer and insert a link to this file."
"Remove `org-mode' link at point and trash linked file." "Remove `org-mode' link at point and trash linked file."
(interactive) (interactive)
(let* ((link (org-element-context)) (let* ((link (org-element-context))
(path (org-element-property :path link))) (path (org-element-property :path link)))
(move-file-to-trash path) (move-file-to-trash path)
(delete-region (org-element-property :begin link) (delete-region (org-element-property :begin link)
(org-element-property :end link)))) (org-element-property :end link))))
(defun as-windows-path (unix-path) (defun as-windows-path (unix-path)
"Takes a unix path and returns a matching WSL path" "Takes a unix path and returns a matching WSL path"
@ -187,7 +173,7 @@ same directory as the org-buffer and insert a link to this file."
(defun powershell (script) (defun powershell (script)
"executes the given script within a powershell and returns its return value" "executes the given script within a powershell and returns its return value"
(call-process "powershell.exe" nil nil nil (call-process "powershell.exe" nil nil nil
"-Command" (concat "& {" script "}"))) "-Command" (concat "& {" script "}")))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; - Dashboard ;; - Dashboard
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -199,30 +185,30 @@ same directory as the org-buffer and insert a link to this file."
;;(setq dashboard-startup-banner "~/.config/doom/doom-emacs-dash.png") ;; use custom image as banner ;;(setq dashboard-startup-banner "~/.config/doom/doom-emacs-dash.png") ;; use custom image as banner
(setq dashboard-center-content t) ;; set to 't' for centered content (setq dashboard-center-content t) ;; set to 't' for centered content
(setq dashboard-items '((recents . 10) (setq dashboard-items '((recents . 10)
(bookmarks . 5) (bookmarks . 5)
(projects . 10))) (projects . 10)))
(setq dashboard-set-footer t) (setq dashboard-set-footer t)
(setq dashboard-page-separator "\n\f\n") (setq dashboard-page-separator "\n\f\n")
(setq dashboard-set-navigator t) (setq dashboard-set-navigator t)
;; Format: "(icon title help action face prefix suffix)" ;; Format: "(icon title help action face prefix suffix)"
(setq dashboard-navigator-buttons (setq dashboard-navigator-buttons
`(;; line1 `(;; line1
((,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust 0.0) ((,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust 0.0)
"Github" "Github"
"Browse my Github" "Browse my Github"
(lambda (&rest _) (browse-url "https://github.com/JaeUs3792/"))) (lambda (&rest _) (browse-url "https://github.com/JaeUs3792/")))
(,(all-the-icons-octicon "home" :height 1.1 :v-adjust 0.0) (,(all-the-icons-octicon "home" :height 1.1 :v-adjust 0.0)
"Homepage" "Homepage"
"Browse my Homepage" "Browse my Homepage"
(lambda (&rest _) (browse-url "https://jaeus.net"))) (lambda (&rest _) (browse-url "https://jaeus.net")))
(,(all-the-icons-octicon "zap" :height 1.1 :v-adjust 0.0) (,(all-the-icons-octicon "zap" :height 1.1 :v-adjust 0.0)
"Update" "Update"
"Doom upgrade" "Doom upgrade"
(lambda (&rest _) (doom/upgrade)) warning)))) (lambda (&rest _) (doom/upgrade)) warning))))
:config :config
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)
(dashboard-modify-heading-icons '((recents . "file-text") (dashboard-modify-heading-icons '((recents . "file-text")
(bookmarks . "book")))) (bookmarks . "book"))))
(setq doom-fallback-buffer-name "*dashboard*") (setq doom-fallback-buffer-name "*dashboard*")
(after! dashboard (after! dashboard
@ -268,21 +254,21 @@ same directory as the org-buffer and insert a link to this file."
(after! org (after! org
(setq! org-hide-emphasis-markers t) (setq! org-hide-emphasis-markers t)
(setq org-superstar-item-bullet-alist (setq org-superstar-item-bullet-alist
'((?+ . ?➤) '((?+ . ?➤)
(?* . ?) (?* . ?)
(?- . ?•))) (?- . ?•)))
(custom-set-faces! (custom-set-faces!
'(org-level-1 :height 1.7 :weight ultra-bold) ;; :foreground "#81a2be" '(org-level-1 :height 1.7 :weight ultra-bold :foreground "#81a2be") ;; :foreground "#81a2be"
'(org-level-2 :height 1.6 :weight extra-bold) ;; :foreground "#b294bb" '(org-level-2 :height 1.6 :weight extra-bold :foreground "#b294bb") ;; :foreground "#b294bb"
'(org-level-3 :height 1.5 :weight bold) ;; :foreground "#b5bd68" '(org-level-3 :height 1.5 :weight bold :foreground "#b5bd68") ;; :foreground "#b5bd68"
'(org-level-4 :height 1.4 :weight semi-bold) ;; :foreground "#e6c547" '(org-level-4 :height 1.4 :weight semi-bold :foreground "#e6c547") ;; :foreground "#e6c547"
'(org-level-5 :height 1.3 :weight normal) ;; :foreground "#cc6666" '(org-level-5 :height 1.3 :weight normal :foreground "#cc6666") ;; :foreground "#cc6666"
'(org-level-6 :height 1.2 :weight normal) ;; :foreground "#70c0ba" '(org-level-6 :height 1.2 :weight normal :foreground "#70c0ba") ;; :foreground "#70c0ba"
'(org-level-7 :height 1.1 :weight normal) ;; :foreground "#b77ee0" '(org-level-7 :height 1.1 :weight normal :foreground "#b77ee0") ;; :foreground "#b77ee0"
'(org-level-8 :height 1.0 :weight normal)) ;; :foreground "#9ec400" '(org-level-8 :height 1.0 :weight normal :foreground "#9ec400")) ;; :foreground "#9ec400"
(custom-set-faces! (custom-set-faces!
'(org-document-title :height 2.0))) '(org-document-title :height 2.0)))
(setq org-use-sub-superscripts '{}) (setq org-use-sub-superscripts '{})
(setq org-export-with-sub-superscripts '{}) (setq org-export-with-sub-superscripts '{})
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -290,9 +276,9 @@ same directory as the org-buffer and insert a link to this file."
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
(defun my/org-roam-list-notes-by-tag (tag-name) (defun my/org-roam-list-notes-by-tag (tag-name)
(mapcar #'org-roam-node-file (mapcar #'org-roam-node-file
(seq-filter (seq-filter
(my/org-roam-filter-by-tag tag-name) (my/org-roam-filter-by-tag tag-name)
(org-roam-node-list)))) (org-roam-node-list))))
(defun my/org-roam-refresh-agenda-list () (defun my/org-roam-refresh-agenda-list ()
(interactive) (interactive)
@ -362,38 +348,38 @@ same directory as the org-buffer and insert a link to this file."
(my/org-roam-refresh-agenda-list)) (my/org-roam-refresh-agenda-list))
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("z" "Org mode super agenda" '(("z" "Org mode super agenda"
((alltodo "" ((org-agenda-overriding-header "") ((alltodo "" ((org-agenda-overriding-header "")
(org-super-agenda-groups (org-super-agenda-groups
'((:name "Important" '((:name "Important"
:tag "Important" :tag "Important"
:priority "A" :priority "A"
:order 6) :order 6)
(:name "Due Today" (:name "Due Today"
:deadline today :deadline today
:order 2) :order 2)
(:name "Due Soon" (:name "Due Soon"
:deadline future :deadline future
:order 8) :order 8)
(:name "Overdue" (:name "Overdue"
:deadline past :deadline past
:order 7) :order 7)
(:name "Projects" (:name "Projects"
:tag "Project" :tag "Project"
:order 14) :order 14)
(:name "To read" (:name "To read"
:tag "Read" :tag "Read"
:order 30) :order 30)
(:name "Waiting" (:name "Waiting"
:todo "WAIT" :todo "WAIT"
:order 20) :order 20)
(:name "Holding" (:name "Holding"
:todo "HOLD" :todo "HOLD"
:order 21) :order 21)
(:name "trivial" (:name "trivial"
:priority<= "C" :priority<= "C"
:tag ("Trivial" "Unimportant") :tag ("Trivial" "Unimportant")
:order 90) :order 90)
(:discard (:tag ("Chore" "Routine" "Daily"))))))))))) (:discard (:tag ("Chore" "Routine" "Daily")))))))))))
(after! org (after! org
;;(setq org-todo-keywords ;;(setq org-todo-keywords
;; '((sequence "TODO(t@/!)" "NEXT(n)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "KILL(k)"))) ;; '((sequence "TODO(t@/!)" "NEXT(n)" "WAIT(w)" "HOLD(h)" "|" "DONE(d)" "KILL(k)")))
@ -439,19 +425,19 @@ same directory as the org-buffer and insert a link to this file."
;; - Org Roam UI Mode ;; - Org Roam UI Mode
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
(use-package! websocket (use-package! websocket
:after org-roam) :after org-roam)
(use-package! org-roam-ui (use-package! org-roam-ui
:after org-roam ;; or :after org :after org-roam ;; or :after org
;; normally we'd recommend hooking orui after org-roam, but since org-roam does not have ;; normally we'd recommend hooking orui after org-roam, but since org-roam does not have
;; a hookable mode anymore, you're advised to pick something yourself ;; a hookable mode anymore, you're advised to pick something yourself
;; if you don't care about startup time, use ;; if you don't care about startup time, use
;;:hook (after-init . org-roam-ui-mode) ;;:hook (after-init . org-roam-ui-mode)
:config :config
(setq! org-roam-ui-sync-theme t (setq! org-roam-ui-sync-theme t
org-roam-ui-follow t org-roam-ui-follow t
org-roam-ui-update-on-save t org-roam-ui-update-on-save t
org-roam-ui-open-on-start nil)) org-roam-ui-open-on-start nil))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; - Org Publish ;; - Org Publish
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -459,13 +445,13 @@ same directory as the org-buffer and insert a link to this file."
(setq org-export-with-broken-lilnks t) (setq org-export-with-broken-lilnks t)
(setq org-publish-project-alist (setq org-publish-project-alist
'(("jaeus.net" '(("jaeus.net"
:base-directory "~/org/www/" :base-directory "~/org/www/"
:base-extension "org" :base-extension "org"
:publishing-directory "~/Projects/html/" :publishing-directory "~/Projects/html/"
:recursive t :recursive t
:publishing-function org-html-publish-to-html :publishing-function org-html-publish-to-html
:headline-levels 4 :headline-levels 4
:auto-preamble t))) :auto-preamble t)))
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
;; - EPUB ;; - EPUB
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
@ -506,7 +492,7 @@ same directory as the org-buffer and insert a link to this file."
(setq! verilog-case-indent 4) (setq! verilog-case-indent 4)
(setq! verilog-cexp-indent 4) (setq! verilog-cexp-indent 4)
(setq! verilog-indent-lists nil) (setq! verilog-indent-lists nil)
; -------------------------------------------------------------------------------------------- ; --------------------------------------------------------------------------------------------
;; - Dired ;; - Dired
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
(use-package! dired (use-package! dired
@ -526,14 +512,14 @@ same directory as the org-buffer and insert a link to this file."
:desc "Open dired" "d" #'dired :desc "Open dired" "d" #'dired
:desc "Dired jump to current" "j" #'dired-jump) :desc "Dired jump to current" "j" #'dired-jump)
(:after dired (:after dired
(:map dired-mode-map (:map dired-mode-map
:desc "Peep-dired image previews" "d p" #'peep-dired :desc "Peep-dired image previews" "d p" #'peep-dired
:desc "Dired view file" "d v" #'dired-view-file))) :desc "Dired view file" "d v" #'dired-view-file)))
(evil-define-key 'normal peep-dired-mode-map (evil-define-key 'normal peep-dired-mode-map
(kbd "j") 'peep-dired-next-file (kbd "j") 'peep-dired-next-file
(kbd "k") 'peep-dired-prev-file) (kbd "k") 'peep-dired-prev-file)
(add-hook 'peep-dired-hook 'evil-normalize-keymaps) (add-hook 'peep-dired-hook 'evil-normalize-keymaps)
; -------------------------------------------------------------------------------------------- ; --------------------------------------------------------------------------------------------
;; - KeyBindings ;; - KeyBindings
;; -------------------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------------------
(map! "C-s" 'consult-line) (map! "C-s" 'consult-line)

View File

@ -11,5 +11,9 @@ Host github.com
################################################################### ###################################################################
# Proxy Server # Proxy Server
Host odroid Host odroid
Hostname 192.168.0.11 Hostname jaeus.net
User jaeus User jaeus
Port 53792
Host testbd
User root
Hostname 192.168.250.192