Use conventional commenting style for Emacs Lisp

This commit is contained in:
Ohad Livne 2025-11-16 23:15:12 +02:00
parent 77f3b175ef
commit 9c4d290062
Signed by: libohad-dev
GPG key ID: 34FDC68B51191A4D

View file

@ -32,7 +32,7 @@
) )
load-path)) load-path))
:config :config
; keep-sorted start ;; keep-sorted start
(defalias 'yes-or-no-p 'y-or-n-p) (defalias 'yes-or-no-p 'y-or-n-p)
(display-battery-mode) (display-battery-mode)
(display-time-mode) (display-time-mode)
@ -42,9 +42,9 @@
(put 'dired-find-alternate-file 'disabled nil) (put 'dired-find-alternate-file 'disabled nil)
(set-default-file-modes #o750) (set-default-file-modes #o750)
(windmove-default-keybindings 'super) (windmove-default-keybindings 'super)
; keep-sorted end ;; keep-sorted end
:custom :custom
; keep-sorted start ;; keep-sorted start
(auto-save-interval 20) (auto-save-interval 20)
(auto-save-visited-mode t) (auto-save-visited-mode t)
(auto-save-visited-predicate #'should-auto-save-current-buffer) (auto-save-visited-predicate #'should-auto-save-current-buffer)
@ -57,7 +57,7 @@
(inhibit-startup-screen t) (inhibit-startup-screen t)
(show-paren-context-when-offscreen 'overlay) (show-paren-context-when-offscreen 'overlay)
(xref-search-program 'ripgrep) (xref-search-program 'ripgrep)
; keep-sorted end ;; keep-sorted end
) )
(use-package diminish) (use-package diminish)
@ -75,10 +75,10 @@
("<C-tab>" . dired-subtree-cycle) ("<C-tab>" . dired-subtree-cycle)
("<S-iso-lefttab>" . dired-subtree-remove)) ("<S-iso-lefttab>" . dired-subtree-remove))
:config :config
; keep-sorted start ;; keep-sorted start
(defadvice dired-subtree-cycle (after add-icons activate) (revert-buffer)) (defadvice dired-subtree-cycle (after add-icons activate) (revert-buffer))
(defadvice dired-subtree-toggle (after add-icons activate) (revert-buffer)) (defadvice dired-subtree-toggle (after add-icons activate) (revert-buffer))
; keep-sorted end ;; keep-sorted end
:custom :custom
(dired-subtree-use-backgrounds nil)) (dired-subtree-use-backgrounds nil))
@ -157,7 +157,7 @@
("M-." . org-open-at-point) ("M-." . org-open-at-point)
("M-," . org-mark-ring-goto)) ("M-," . org-mark-ring-goto))
:custom :custom
; keep-sorted start block=yes ;; keep-sorted start block=yes
(org-agenda-start-on-weekday 0) (org-agenda-start-on-weekday 0)
(org-agenda-weekend-days '(5 6)) (org-agenda-weekend-days '(5 6))
(org-default-notes-file "~/Documents/notes.org") (org-default-notes-file "~/Documents/notes.org")
@ -172,7 +172,7 @@
"** TODO %?\n %U") "** TODO %?\n %U")
)) ))
(org-clock-sound "~/Music/single-ding.wav") (org-clock-sound "~/Music/single-ding.wav")
; keep-sorted end ;; keep-sorted end
) )
(use-package org-contrib) (use-package org-contrib)
@ -244,10 +244,10 @@
(flymake-show-diagnostics-at-end-of-line t) (flymake-show-diagnostics-at-end-of-line t)
) )
; Note: debugging Python in a virtualenv requires debugpy to be installed inside the venv ;; Note: debugging Python in a virtualenv requires debugpy to be installed inside the venv
(use-package dape) (use-package dape)
; Requires poetry to be installed ;; Requires poetry to be installed
(use-package poetry) (use-package poetry)
(defun load-python-env () (defun load-python-env ()
@ -278,10 +278,10 @@
:config :config
(require 'ein-notebook) (require 'ein-notebook)
:custom :custom
; keep-sorted start ;; keep-sorted start
(ein:jupyter-default-notebook-directory "~/Projects/notebooks") (ein:jupyter-default-notebook-directory "~/Projects/notebooks")
(ein:output-area-inlined-images t) (ein:output-area-inlined-images t)
; keep-sorted end ;; keep-sorted end
) )
(use-package direnv (use-package direnv
@ -316,20 +316,20 @@
(use-package gptel (use-package gptel
:hook :hook
; keep-sorted start ;; keep-sorted start
(gptel-mode . gptel-highlight-mode) (gptel-mode . gptel-highlight-mode)
(gptel-mode . visual-line-mode) (gptel-mode . visual-line-mode)
(gptel-post-response . gptel-end-of-response) (gptel-post-response . gptel-end-of-response)
(gptel-post-stream . gptel-auto-scroll) (gptel-post-stream . gptel-auto-scroll)
; keep-sorted end ;; keep-sorted end
:custom :custom
; keep-sorted start ;; keep-sorted start
(gptel-backend (gptel-get-backend "Ollama")) (gptel-backend (gptel-get-backend "Ollama"))
(gptel-default-mode 'org-mode) (gptel-default-mode 'org-mode)
(gptel-expert-commands t) (gptel-expert-commands t)
(gptel-highlight-methods '(face margin)) (gptel-highlight-methods '(face margin))
(gptel-model 'llama3.2:latest) (gptel-model 'llama3.2:latest)
; keep-sorted end ;; keep-sorted end
:preface :preface
(gptel-make-anthropic "Claude" (gptel-make-anthropic "Claude"
:stream t :stream t
@ -348,10 +348,10 @@
(require 'emms-setup) (require 'emms-setup)
(emms-all) (emms-all)
:custom :custom
; keep-sorted start ;; keep-sorted start
(emms-info-functions '(emms-info-native)) (emms-info-functions '(emms-info-native))
(emms-player-list '(emms-player-mpv)) (emms-player-list '(emms-player-mpv))
; keep-sorted end ;; keep-sorted end
) )
(defun my-qr-selection () (defun my-qr-selection ()