diff --git a/.emacs.rational.d/.#config.el#.~undo-tree~ b/.emacs.rational.d/.#config.el#.~undo-tree~ deleted file mode 100644 index e851cdb..0000000 --- a/.emacs.rational.d/.#config.el#.~undo-tree~ +++ /dev/null @@ -1,4 +0,0 @@ -(undo-tree-save-format-version . 1) -"4a5393278893732c0283cee67786bb2a47c5180c" -[nil current nil nil (25137 37704 59576 695000) 0 nil] -nil diff --git a/.emacs.rational.d/.config.el.~undo-tree~ b/.emacs.rational.d/.config.el.~undo-tree~ deleted file mode 100644 index f7c5384..0000000 --- a/.emacs.rational.d/.config.el.~undo-tree~ +++ /dev/null @@ -1,9 +0,0 @@ -(undo-tree-save-format-version . 1) -"b20f26d4c1a610976323cc8ba3e3402825a52087" -[nil nil nil nil (25137 43379 69396 762000) 0 nil] -([nil nil ((6791 . 6793) (6790 . 6791) (t 25137 43364 922509 987000) 6754) nil (25137 43387 694003 567000) 0 nil]) -([nil current ((#(" - - -" 0 1 (fontified t ws-butler-chg chg) 1 2 (fontified t ws-butler-chg chg) 2 3 (fontified t)) . 6791) (6794 . 6794)) nil (25137 43387 694000 103000) 0 nil]) -nil diff --git a/.emacs.rational.d/.config.el~.~undo-tree~ b/.emacs.rational.d/.config.el~.~undo-tree~ deleted file mode 100644 index 1599bdc..0000000 --- a/.emacs.rational.d/.config.el~.~undo-tree~ +++ /dev/null @@ -1,4 +0,0 @@ -(undo-tree-save-format-version . 1) -"6219c0e3ab970e5c7a9cb17402a3d8be54b7c012" -[nil current nil nil (25137 37704 42936 540000) 0 nil] -nil diff --git a/.emacs.rational.d/config.el b/.emacs.rational.d/config.el index ebfcab7..b664026 100644 --- a/.emacs.rational.d/config.el +++ b/.emacs.rational.d/config.el @@ -21,6 +21,13 @@ ;;(require 'rational-windows) (require 'rational-use-package) +;; backup in one place. flat, no tree structure +(setq backup-directory-alist '(("." . "~/.emacs.rational.d/backups"))) +(customize-set-variable + 'tramp-backup-directory-alist backup-directory-alist) +(setq undo-tree-history-directory-alist '(("." . "~/.emacs.rational.d/undo"))) + + (setq user-full-name "JaeYoo-Im" user-mail-address "cpu3792@gmail.com") @@ -101,7 +108,7 @@ (setq dashboard-items '((recents . 10) (agenda . 5) (bookmarks . 5) - ;;(projects . 5) + ;;(projects . 5) <= related projectile (registers . 5))) (setq dashboard-set-navigator t) ;; Format: "(icon title help action face prefix suffix)" @@ -142,9 +149,9 @@ ;; Also handle undocumented ( ) form. ((numberp (cadr alpha)) (cadr alpha))) 100) - '(75 . 75) '(100 . 100))))) + '(80 . 80) '(100 . 100))))) (global-set-key (kbd "C-c t") 'toggle-transparency) -(set-frame-parameter (selected-frame) 'alpha '(75 . 75)) +(set-frame-parameter (selected-frame) 'alpha '(80 . 80)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; EMOJIFY ♌ diff --git a/.emacs.rational.d/config.el~ b/.emacs.rational.d/config.el~ deleted file mode 100644 index 7669f9d..0000000 --- a/.emacs.rational.d/config.el~ +++ /dev/null @@ -1,201 +0,0 @@ -;;; example-config.el -- Example Rational Emacs user customization file -*- lexical-binding: t; -*- - -;;; Commentary: -;; -;; Rational Emacs supports user customization through a `config.el' file -;; similar to this one. You can copy this file as `config.el' to your -;; Rational Emacs configuration directory as an example. -;; -;; In your configuration you can set any Emacs configuration variable, face -;; attributes, themes, etc as you normally would. -;; -;; See the README.org file in this repository for additional information. - -;;; Code: -(require 'rational-defaults) -(require 'rational-screencast) -(require 'rational-ui) -(require 'rational-editing) -(require 'rational-evil) -(require 'rational-completion) -(require 'rational-windows) -(require 'rational-use-package) - -(setq system-time-locale "C") -(setenv "LANG" "en_US.UTF-8") -(setenv "LC_ALL" "en_US.UTF-8") -;; Set further font and theme customizations -(custom-set-variables - '(rational-ui-default-font - '(:font "Fira Code Retina" :weight light :height 110))) - -(add-to-list 'default-frame-alist `(font . "Fira Code Retina")) -(set-face-attribute 'default nil :font "Fira Code Retina" :height 110) -(set-face-attribute 'fixed-pitch nil :font "Fira Code Retina" :height 110) -(set-face-attribute 'variable-pitch nil :font "Fira Code Retina" :height 110 :weight 'regular) -(set-fontset-font t 'hangul (font-spec :family "D2Coding" :height 110)) -(setq face-font-rescale-alist - '(("D2Coding" . 1.25))) - - -(set-frame-parameter (selected-frame) 'fullscreen 'maximized) -(add-to-list 'default-frame-alist '(fullscreen . maximized)) - -(load-theme 'doom-dracula t) - -(column-number-mode) -(global-display-line-numbers-mode t) -(global-hl-line-mode) - -;;; example-config.el ends here -(setq user-full-name "JaeYoo-Im" - user-mail-address "cpu3792@gmail.com") -(defun toggle-transparency () - (interactive) - (let ((alpha (frame-parameter nil 'alpha))) - (set-frame-parameter - nil 'alpha - (if (eql (cond ((numberp alpha) alpha) - ((numberp (cdr alpha)) (cdr alpha)) - ;; Also handle undocumented ( ) form. - ((numberp (cadr alpha)) (cadr alpha))) - 100) - '(75 . 75) '(100 . 100))))) -(global-set-key (kbd "C-c t") 'toggle-transparency) -(set-frame-parameter (selected-frame) 'alpha '(75 . 75)) - -;; DASHBOARD -(straight-use-package 'dashboard) -(require 'all-the-icons) -(setq dashboard-set-heading-icons t) -(setq dashboard-set-file-icons t) -(setq dashboard-startup-banner 'logo) -(setq dashboard-center-content t) -(setq dashboard-week-agenda t) -(setq dashboard-agenda-time-string-format "%d/%m/%Y %A %H:%M") -(setq dashboard-items '((recents . 10) - (agenda . 5) - (bookmarks . 5) - (registers . 5))) -(setq dashboard-set-navigator t) -;; Format: "(icon title help action face prefix suffix)" -(setq dashboard-navigator-buttons - `(( - (,(all-the-icons-octicon "mark-github" :height 1.1 :v-adjust 0.0) - "Github" - "Browse github" - (lambda (&rest _) (browse-url "https://github.com/JaeUs3792"))) - (,(all-the-icons-octicon "book" :height 1.1 :v-adjust 0.0) - "My Blog" - "Browse Blog" - (lambda (&rest _) (browse-url "https://jaeus.net")))))) -(setq dashboard-set-footer nil) -(dashboard-setup-startup-hook) - - -;; EMOJI -(straight-use-package 'emojify) -(global-emojify-mode) - -;; Which Key -(straight-use-package 'which-key) -(setq which-key-idle-delay 0.5) -(which-key-mode) - - -;; GENERAL KEY MAP -(straight-use-package 'general) -(general-evil-setup t) -(general-create-definer ju/leader-key-def - :keymaps '(normal insert visual emacs) - :prefix "SPC" - :global-prefix "C-SPC") - -(ju/leader-key-def - "." 'find-file - ;; Buffer - "b" '(:ignore t :which-key "buffer handling") - "b b" '(ibuffer :which-key "IBuffer") - "b k" '(kill-current-buffer :which-key "Kill current buffer") - "b n" '(next-buffer :which-key "Next buffer") - "b p" '(previous-buffer :which-key "Previous buffer") - "b B" '(ibuffer-list-buffers :which-key "IBuffer List Buffers") - "b K" '(kill-buffer :which-key "IBuffer Kill Buffers") - ;; Eshell - "e" '(:ignore t :which-key "eshell") - "e h" '(counsel-esh-history :which "Kill history") - "e s" '(eshell :which "run eshell") - ;; Workspace - ;; Counsel - "f" '(:ignore t :which-key "file op.") - "f r" '(consult-recent-file :which-key "Recent files") - "f R" '(revert-buffer :which-key "Revert Buffer") - "t t" '(toggle-truncate-lines :which-key "Toggle truncate lines") - ;; Shortcut - "f d d" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.rational.d/desktop.el")) :which-key "open exwm config") - "f d e" '(lambda () (interactive) (find-file (expand-file-name "~/.emacs.rational.d/config.el")) :which-key "open emacs config")) - - -(global-set-key (kbd "") 'keyboard-escape-quit) -(global-unset-key (kbd "C-j")) -(global-unset-key (kbd "C-k")) -(global-unset-key (kbd "S-SPC")) ;; use only S-\ - - -;; tramp default is scp -(setq tramp-default-method "ssh") - -(straight-use-package 'flycheck) -(global-flycheck-mode t) - - -;;(straight-use-package 'vertico-posframe) -;;(setq vertico-posframe-parameters -;; `((left-fringe . 8) -;; (right-fringe . 8) (alpha . 100))) -;;(vertico-posframe-mode 1) - - -;; TODO -(straight-use-package 'hl-todo) -(setq hl-todo-highlight-punctuation ":" - hl-todo-keyword-faces - `(;; For things that need to be done, just not today. - ("TODO" warning bold) - ;; For problems that will become bigger problems later if not - ;; fixed ASAP. - ("FIXME" error bold) - ;; For tidbits that are unconventional and not intended uses of the - ;; constituent parts, and may break in a future update. - ("HACK" font-lock-constant-face bold) - ;; For things that were done hastily and/or hasn't been thoroughly - ;; tested. It may not even be necessary! - ("REVIEW" font-lock-keyword-face bold) - ;; For especially important gotchas with a given implementation, - ;; directed at another user other than the author. - ("NOTE" success bold) - ;; For things that just gotta go and will soon be gone. - ("DEPRECATED" font-lock-doc-face bold) - ;; For a known bug that needs a workaround - ("BUG" error bold) - ;; For warning about a problematic or misguiding code - ("XXX" font-lock-constant-face bold))) -(global-hl-todo-mode) - -;; ORG Mode -(setq org-todo-keywords - '((sequence "TODO(t)" "HOLD(h)" "|" "KILL(k)" "DONE(d)"))) -(setq org-ellipsis " ▾") -(setq org-hide-emphasis-markers t) -(setq org-src-fontify-natively t) -(setq org-fontify-quote-and-verse-blocks t) - -(setq org-agenda-start-with-log-mode t) -(setq org-log-done 'time) -(setq org-log-into-drawer t) -(add-hook 'org-mode-hook (lambda () (org-indent-mode))) - -;;(straight-use-package 'org-superstar) -;;(add-hook 'org-mode-hook (lambda () (org-superstar-mode 1))) -(straight-use-package 'org-attach-screenshot) -(straight-use-package 'org-download)