20230522-2

.config/emacs/.gitignore

@@ -0,0 +1 @@
+custom.el

.config/emacs/custom-default.el

@@ -45,3 +45,6 @@
 ;; Org setup
 (setq custom-org-directory "~/org"
       custom-org-agenda-files "~/org/agenda/agenda.org")
+
+;; Chatgpt setup
+(setq custom-chatgpt-my-key "my-key")

.config/emacs/init.el

@@ -107,5 +107,6 @@ Otherwise the startup will be very slow. "
 (require 'init-verilog)
 
 (require 'init-extra)
+(require 'init-chatgpt)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; init.el ends here

.config/emacs/lisp/init-base.el

@@ -123,10 +123,8 @@
                       (buf-label (aref val 3))
                       (tty (list (aref val 4) 'face 'font-lock-doc-face))
                       (thread (list (aref val 5) 'face 'font-lock-doc-face))
-                      (cmd (list (aref val (if emacs/>=27p 6 5)) 'face 'completions-annotations)))
+                      (cmd (list (aref val 6) 'face 'completions-annotations)))
-            (push (list p (if emacs/>=27p
+            (push (list p (vector icon name pid status buf-label tty thread cmd))
-                              (vector icon name pid status buf-label tty thread cmd)
-                            (vector icon name pid status buf-label tty cmd)))
 		          tabulated-list-entries)))))
     (advice-add #'list-processes--refresh :after #'my-list-processes--prettify)))
 

.config/emacs/lisp/init-chatgpt.el

@@ -0,0 +1,10 @@
+;; init-chatgpt.el -*- lexical-binding: t -*-
+(use-package chatgpt-shell
+  :config
+  (setq chatgpt-shell-openai-key custom-chatgpt-my-key))
+(use-package dall-e-shell
+  :config
+  (setq dall-e-shell-openai-key custom-chatgpt-my-key))
+
+(provide 'init-chatgpt)
+;;; init-chatgpt.el ends here

.config/emacs/lisp/init-org.el

@@ -193,12 +193,13 @@ prepended to the element after the #+HEADER: tag."
 
   (defconst load-language-alist
     '((emacs-lisp . t)
-      (latex-as-png . t)
       (python     . t)
       (ruby       . t)
       (rust       . t)
       (C          . t))
     "Alist of org ob languages.")
+  (unless ON-WINDOWS
+    (add-to-list 'load-language-alist '(latex-as-png . t)))
 
   (push '("conf-unix" . conf-unix) org-src-lang-modes)
   (add-to-list 'org-structure-template-alist '("sh" . "src shell"))
@@ -222,7 +223,6 @@ prepended to the element after the #+HEADER: tag."
     :init (cl-pushnew '(rust . t) load-language-alist))
   (org-babel-do-load-languages 'org-babel-load-languages
                                load-language-alist)
-
   ;; Auto-toggle Org LaTeX fragments
   (use-package org-fragtog
     :diminish
@@ -318,6 +318,7 @@ prepended to the element after the #+HEADER: tag."
 ; org-roam ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (use-package org-roam
     :demand t ;; ensure org-roam is loaded by default
+    :hook (after-init . (my/org-roam-refresh-agenda-list))
     :custom
     (org-roam-directory "~/org/roam")
     (org-roam-node-display-template (concat "${title:*} " (propertize "${tags:*}" 'face 'org-tag)))
@@ -374,7 +375,6 @@ prepended to the element after the #+HEADER: tag."
     (unless org-note-abort
       (with-current-buffer (org-capture-get :buffer)
         (add-to-list 'org-agenda-files (buffer-file-name)))))
-  (my/org-roam-refresh-agenda-list)
 ; Tools   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (use-package ob-async
     :config

.config/emacs/lisp/init-rust.el

@@ -31,7 +31,10 @@
 ;;; Code:
 
 ;; Rust
-(use-package rustic)
+(use-package rustic
+  :init
+  (setq rustic-analyzer-command '("~/.rustup/toolchains/stable-x86_64-unknown-linux-gnu/bin/rust-analyzer"))
+  (setq rustic-lsp-client 'eglot))
 (use-package rust-playground)
 (use-package toml-mode
   :defer t

.config/emacs/lisp/init-ui.el

@@ -95,12 +95,11 @@
 ;; Good pixel line scrolling
 (if (fboundp 'pixel-scroll-precision-mode)
     (pixel-scroll-precision-mode t)
-  (when (and emacs/>=27p (not sys/macp))
     (use-package good-scroll
       :diminish
       :hook (after-init . good-scroll-mode)
       :bind (([remap next] . good-scroll-up-full-screen)
-             ([remap prior] . good-scroll-down-full-screen)))))
+             ([remap prior] . good-scroll-down-full-screen))))
 
 ;; Smooth scrolling over images
 (use-package iscroll

scripts/init_script_wsl.sh

@@ -76,6 +76,19 @@ paru -S uctags-git --noconfirm
 # nov
 paru -S zip unzip --noconfirm
 
+##
+###############################################################################
+#                               Programming Rust                              #
+###############################################################################
+
+paru -S rustup --noconfirm
+
+rustup default stable
+
+rustup component add rust-analyzer
+rustup component add rls
+rustup component add rust-src
+
 ##################################################
 # EXWM
 ##################################################
@@ -86,4 +99,3 @@ paru -S xorg-xrandr feh cronie --noconfirm
 # Extra
 ##################################################
 paru -S bat
-