JaeUs/dotfiles
1
0
Fork 0
mirror of http://github.com/JaeUs3792/dotfiles synced 2025-12-14 16:11:34 +09:00
Code Issues Packages Projects Releases Wiki Activity

Emacs : to 28 successfully

Browse Source
This commit is contained in:
JaeYoo-Im
2023-01-17 17:20:30 +09:00
parent da7670ff2b
commit dc264e1e9d
1 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
.config/emacs/emacs.org
View File

@ -278,8 +278,8 @@ emacs built-in package config
(use-package dired-rsync (use-package dired-rsync
:straight (:build t) :straight (:build t)
:defer t :defer t
:config :bind (:map dired-mode-map
(bind-key "C-c C-r" 'dired-rsync dired-mode-map)) ("C-c C-r" . dired-rsync)))
(use-package all-the-icons-dired (use-package all-the-icons-dired
:straight (:build t) :straight (:build t)
:defer t :defer t
@ -435,11 +435,12 @@ emacs built-in package config
(setq dashboard-page-separator "\n\n") (setq dashboard-page-separator "\n\n")
;;(setq dashboard-page-separator "\n\f\n") ;;(setq dashboard-page-separator "\n\f\n")
(setq dashboard-agenda-time-string-format "%d/%m/%Y %A %H:%M") (setq dashboard-agenda-time-string-format "%d/%m/%Y %A %H:%M")
(setq dashboard-projects-backend 'project-el)
(setq dashboard-items '((recents . 10) (setq dashboard-items '((recents . 10)
(agenda . 5) (agenda . 5)
(bookmarks . 5) (bookmarks . 5)
;;(if (version< emacs-version "29") ;;(if (version< emacs-version "29")
;; (projects . 5)) (projects . 5)
(registers . 5))) (registers . 5)))
(setq dashboard-set-navigator t) (setq dashboard-set-navigator t)
@ -765,7 +766,6 @@ Quick Action in minibuffer
;;; Corfu ;;; Corfu
(use-package corfu (use-package corfu
:straight (:build t) :straight (:build t)
:defer t
:custom :custom
(corfu-cycle t) ;; Enable cycling for `corfu-next/previous' (corfu-cycle t) ;; Enable cycling for `corfu-next/previous'
(corfu-auto t) ;; Enable auto completion (corfu-auto t) ;; Enable auto completion
@ -797,7 +797,6 @@ Quick Action in minibuffer
;; Setup Cape for better completion-at-point support and more ;; Setup Cape for better completion-at-point support and more
(use-package cape (use-package cape
:straight (:build t) :straight (:build t)
:defer t
:config :config
;; Add useful defaults completion sources from cape ;; Add useful defaults completion sources from cape
(add-to-list 'completion-at-point-functions #'cape-file) (add-to-list 'completion-at-point-functions #'cape-file)
@ -952,7 +951,6 @@ download image link
(use-package org-download (use-package org-download
:straight (:build t)) :straight (:build t))
#+end_src #+end_src
#+DOWNLOADED: https://avatars.githubusercontent.com/u/74564409?s=120&v=4 @ 2023-01-17 14:15:54
***** ob-latex-as-png ***** ob-latex-as-png
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
@ -1015,18 +1013,18 @@ download image link
[[file:using-picture-environment.png]] [[file:using-picture-environment.png]]
***** def-functions ***** def-functions
#+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el #+begin_src emacs-lisp :mkdirp yes :tangle ~/.config/emacs/modules/custom-org.el
(defun my/org-remove-link-and-trash-linked-file () (defun my/org-remove-link-and-trash-linked-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 my/powershell (script) (defun my/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 "}")))
(defun my/as-windows-path (unix-path) (defun my/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"
;; substring removes the trailing \n ;; substring removes the trailing \n
@ -1035,7 +1033,7 @@ download image link
(concat "wslpath -w " unix-path)) 0 -1)) (concat "wslpath -w " unix-path)) 0 -1))
(defun my/org-paste-image-win2wsl () (defun my/org-paste-image-win2wsl ()
"Paste an image into a time stamped unique-named file in the "Paste an image into a time stamped unique-named file in the
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