Skip to content

Commit

Permalink
fix ALLL byte-compile remarks
Browse files Browse the repository at this point in the history
  • Loading branch information
semenInRussia committed Jun 17, 2024
1 parent 9a36325 commit e405e89
Show file tree
Hide file tree
Showing 6 changed files with 17 additions and 13 deletions.
2 changes: 1 addition & 1 deletion lisp/editing/my-eglot.el
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ Rename variable which is symbol ID"
:inlayHintProvider))
(eglot-events-buffer-config . 0)
(eglot-auto-display-help-buffer . nil))
:defun eglot-inlay-hints-mode
:defun eglot-inlay-hints-mode eglot-code-actions
:bind ((:eglot-mode-map
("C-c lr" . 'eglot-rename)
("<f6>" . 'eglot-rename)
Expand Down
1 change: 1 addition & 0 deletions lisp/editing/my-flymake.el
Original file line number Diff line number Diff line change
Expand Up @@ -34,6 +34,7 @@ Use object DIAG which is captured with one of `embark-target-finders'"
;; see `my-flycheck' for simple showcases
(leaf embark
:after flymake
:defun flymake--diag-text
:config
(advice-add
'embark-target-flymake-at-point
Expand Down
1 change: 0 additions & 1 deletion lisp/editing/my-meow.el
Original file line number Diff line number Diff line change
Expand Up @@ -151,7 +151,6 @@
'("y" . meow-save)
'("Y" . meow-sync-grab)
'("z" . embrace-commander)
'("Z" . meow-comment) ; useless with me, M-; is ok
'("'" . repeat)
'("%" . meow-query-replace-regexp)
;; my own modal state
Expand Down
2 changes: 2 additions & 0 deletions lisp/editing/my-yas.el
Original file line number Diff line number Diff line change
Expand Up @@ -31,6 +31,7 @@
;; :global-minor-mode yas-global-mode
:hook ((prog-mode-hook . yas-minor-mode)
(text-mode-hook . yas-minor-mode))
:defvar yas-snippet-dirs
:custom (yas-wrap-around-region . t)
:config
(setq yas-snippet-dirs (list my-snippets-dir))
Expand All @@ -42,6 +43,7 @@
(leaf cape
:defun cape--table-with-properties cape--bounds cape-interactive
:after cape yasnippet corfu
:defun my-yas-capf
:config
(defvar my-yas--capf-properties
(list :annotation-function (lambda (_) " Snippet ")
Expand Down
11 changes: 6 additions & 5 deletions lisp/env/my-project.el
Original file line number Diff line number Diff line change
Expand Up @@ -16,15 +16,15 @@
(leaf project
:hook (after-init-hook . my-bind--project)
:bind (:project-prefix-map
;; at start `project-dired' is bound with C-x p D, but `dired-jump'
;; (open `dired' in the current directory) is bound with C-x C-j, I
;; love the following convention:
;; at start `project-dired' is bound with C-x p D, but
;; `dired-jump' (open `dired' in the current directory) is
;; bound with C-x C-j, I love the following convention:

;; C-x C-f - find a file in the current directory,
;; C-x p f - find a file in the current project

;; C-x C-b - switch to a opened buffer (or also bookmark or register,
;; because `consult')
;; C-x C-b - switch to a opened buffer (or also bookmark or
;; register, because `consult')
;; C-x p b - switch to a project buffer,

;; so I also do it with:
Expand All @@ -36,6 +36,7 @@
("%" . project-query-replace-regexp))
:config (defun my-bind--project ()
(global-set-key (kbd "C-c p") project-prefix-map))
:defvar project-switch-commands
:config
(remove-from-list! project-switch-commands
;; remove `vc-dir' from the commands which will be shown
Expand Down
13 changes: 7 additions & 6 deletions lisp/package-management/my-leaf.el
Original file line number Diff line number Diff line change
Expand Up @@ -440,12 +440,13 @@
(car leaf--value))
,@leaf--body))
:pre-setq
`(,@(mapcar
(lambda
(elm)
`(setq ,(car elm)
,(cdr elm)))
leaf--value)
`((with-no-warnings
,@(mapcar
(lambda
(elm)
`(setq ,(car elm)
,(cdr elm)))
leaf--value))
,@leaf--body)
:pre-setf
`(,@(mapcar
Expand Down

0 comments on commit e405e89

Please sign in to comment.