commit e581101a7d66e077acd7af7f3e2b0e3edeb3295b
parent 3b7d18ca04d5c64d67e475449756c258c968cd21
Author: andsy10 <andsy1016@gmail.com>
Date: Tue, 4 Aug 2026 06:38:25 +0800
Quote function symbols with sharp quotes everywhere
Diffstat:
5 files changed, 240 insertions(+), 240 deletions(-)
diff --git a/lisp/init-completion.el b/lisp/init-completion.el
@@ -157,7 +157,7 @@ targets."
(add-hook 'eshell-mode-hook
(lambda ()
(setq-local corfu-auto nil)
- (local-set-key (kbd "TAB") 'completion-at-point)))
+ (local-set-key (kbd "TAB") #'completion-at-point)))
:bind
(:map corfu-map
("RET" . nil)))
diff --git a/lisp/init-exwm.el b/lisp/init-exwm.el
@@ -39,8 +39,8 @@
(if (= 1 (length exwm-workspace--list))
(message "No previous workspace")))
- (global-set-key (kbd "s-]") 'my-exwm-next-workspace)
- (global-set-key (kbd "s-[") 'my-exwm-previous-workspace)
+ (global-set-key (kbd "s-]") #'my-exwm-next-workspace)
+ (global-set-key (kbd "s-[") #'my-exwm-previous-workspace)
(add-to-list 'global-mode-string
'(:eval (propertize (format " WS:%d " exwm-workspace-current-index)
@@ -63,7 +63,7 @@
XF86AudioRaiseVolume
XF86AudioMute
))
- (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
+ (define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key)
(setq exwm-input-global-keys
`(([?\s-r] . exwm-reset)
@@ -117,7 +117,7 @@
:after exwm
:demand t
:init
- (add-hook 'exwm-wm-mode-hook 'desktop-environment-mode)
+ (add-hook 'exwm-wm-mode-hook #'desktop-environment-mode)
:config
(advice-add 'desktop-environment-screenshot :after
(lambda (&rest _) (message "Saved fullscreen screenshot.")))
diff --git a/lisp/init-kbd-func.el b/lisp/init-kbd-func.el
@@ -252,7 +252,7 @@ fallback."
argument)."
(interactive)
(let ((current-prefix-arg '-))
- (call-interactively 'gptel-agent)))
+ (call-interactively #'gptel-agent)))
(defun my-pi-coding-agent ()
"Run `pi-coding-agent' in project root."
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
@@ -6,220 +6,220 @@
;; god-mode
(general-def god-local-mode-map
- "i" 'god-mode-all
- "[" 'backward-paragraph
- "]" 'forward-paragraph
- "." 'repeat
- "y" 'yank
- "C-c C-<f12>" 'scratch-buffer
- "z" 'avy-goto-char
- "'" 'avy-goto-word-1
- "<f2>" 'open-init-file)
+ "i" #'god-mode-all
+ "[" #'backward-paragraph
+ "]" #'forward-paragraph
+ "." #'repeat
+ "y" #'yank
+ "C-c C-<f12>" #'scratch-buffer
+ "z" #'avy-goto-char
+ "'" #'avy-goto-word-1
+ "<f2>" #'open-init-file)
;; g for gptel
(general-def
:prefix "C-c g"
- "g" 'gptel
- "m" 'gptel-menu
- "s" 'gptel-send
- "a" 'gptel-agent
- "t" 'gptel-tools
- "p" 'pi-coding-agent)
+ "g" #'gptel
+ "m" #'gptel-menu
+ "s" #'gptel-send
+ "a" #'gptel-agent
+ "t" #'gptel-tools
+ "p" #'pi-coding-agent)
(general-def gptel-mode-map
- "C-c C-s" 'my-gptel-save-session
- "C-c C-k" 'gptel-abort)
+ "C-c C-s" #'my-gptel-save-session
+ "C-c C-k" #'gptel-abort)
;; pi
(general-def (pi-coding-agent-input-mode-map
pi-coding-agent-chat-mode-map)
- "C-c C-q" 'pi-coding-agent-quit)
+ "C-c C-q" #'pi-coding-agent-quit)
;; u for ui
(general-def
:prefix "C-c u"
- "l" 'global-tab-line-mode
- "d" 'disable-theme
- "R" 'rainbow-mode
- "b" 'indent-bars-mode
- "t" 'consult-theme
- "c" 'consult-colors-emacs
- "f" 'describe-face
- "r" 'rainbow-delimiters-mode
- "k" 'keycast-header-line-mode
- "w" 'global-whitespace-mode)
+ "l" #'global-tab-line-mode
+ "d" #'disable-theme
+ "R" #'rainbow-mode
+ "b" #'indent-bars-mode
+ "t" #'consult-theme
+ "c" #'consult-colors-emacs
+ "f" #'describe-face
+ "r" #'rainbow-delimiters-mode
+ "k" #'keycast-header-line-mode
+ "w" #'global-whitespace-mode)
;; f for find and consult command
(general-def
:prefix "C-c f"
- "r" 'consult-recent-file
- "f" 'consult-find
- "g" 'consult-grep
- "G" 'consult-git-grep
- "e" 'consult-flycheck
- "l" 'consult-locate
- "h" 'consult-fd-home
- "m" 'consult-man
- "d" 'my-open-current-directory
- "j" 'consult-jinx
- "k" 'consult-kmacro
- "o" 'consult-outline
- "i" 'consult-info
- "s" 'consult-focus-lines)
+ "r" #'consult-recent-file
+ "f" #'consult-find
+ "g" #'consult-grep
+ "G" #'consult-git-grep
+ "e" #'consult-flycheck
+ "l" #'consult-locate
+ "h" #'consult-fd-home
+ "m" #'consult-man
+ "d" #'my-open-current-directory
+ "j" #'consult-jinx
+ "k" #'consult-kmacro
+ "o" #'consult-outline
+ "i" #'consult-info
+ "s" #'consult-focus-lines)
;; p for project
(general-def
:prefix "C-x p"
- "b" 'consult-project-buffer
- "t" 'ghostel-project
- "r" 'my-consult-git-grep-project
- "R" 'project-query-replace-regexp
- "v" 'magit-project-status
- "V" 'project-vc-dir
- "i" 'project-ibuffer
- "a" 'my-pi-coding-agent)
+ "b" #'consult-project-buffer
+ "t" #'ghostel-project
+ "r" #'my-consult-git-grep-project
+ "R" #'project-query-replace-regexp
+ "v" #'magit-project-status
+ "V" #'project-vc-dir
+ "i" #'project-ibuffer
+ "a" #'my-pi-coding-agent)
;; v for version control
(general-def
:prefix "C-x v"
- "=" 'magit-diff-buffer-file
- "c" 'magit-clone
- "i" 'magit-init
- "l" 'magit-log-buffer-file
- "h" 'magit-log-buffer-file)
+ "=" #'magit-diff-buffer-file
+ "c" #'magit-clone
+ "i" #'magit-init
+ "l" #'magit-log-buffer-file
+ "h" #'magit-log-buffer-file)
;; t for modes toggle
(general-def
:prefix "C-c t"
- "f" 'flycheck-mode
- "j" 'my-jinx-smart-toggle
- "g" 'gptel-mode
- "h" 'global-diff-hl-mode)
+ "f" #'flycheck-mode
+ "j" #'my-jinx-smart-toggle
+ "g" #'gptel-mode
+ "h" #'global-diff-hl-mode)
;; o for org-mode
(general-def
:prefix "C-c o"
- "f" 'my-denote-find-file
- "g" 'consult-denote-grep
- "s" 'consult-org-agenda
- "C" 'calendar
- "c" 'org-capture
- "d" 'denote
- "r" 'denote-rename-file-date
- "R" 'denote-rename-file
- "m" 'my-denote-open-metanote
- "q" 'org-ql-search)
+ "f" #'my-denote-find-file
+ "g" #'consult-denote-grep
+ "s" #'consult-org-agenda
+ "C" #'calendar
+ "c" #'org-capture
+ "d" #'denote
+ "r" #'denote-rename-file-date
+ "R" #'denote-rename-file
+ "m" #'my-denote-open-metanote
+ "q" #'org-ql-search)
;; j for journal
(general-def
:prefix "C-c j"
- "o" 'my-denote-journal-open-entry
- "n" 'denote-journal-new-or-existing-entry)
+ "o" #'my-denote-journal-open-entry
+ "n" #'denote-journal-new-or-existing-entry)
;; m for media
(general-def
:prefix "C-c m"
- "n" 'emms-next
- "p" 'emms-previous
- "b" 'emms-browser
- "s" 'emms-start
- "q" 'emms-stop
- "P" 'emms-pause
- "S" 'emms-toggle-single-track
- "l" 'emms-playlist-mode-switch-buffer
- "d" 'emms-play-directory)
+ "n" #'emms-next
+ "p" #'emms-previous
+ "b" #'emms-browser
+ "s" #'emms-start
+ "q" #'emms-stop
+ "P" #'emms-pause
+ "S" #'emms-toggle-single-track
+ "l" #'emms-playlist-mode-switch-buffer
+ "d" #'emms-play-directory)
;; d for dired
(general-def
:prefix "C-c d"
- "a" 'dirvish-quick-access
- "s" 'dirvish-side
- "h" 'dirvish-history-menu
- "f" 'dirvish-fd
- "F" 'dirvish-fd-switches-menu
- "t" 'trashed
- "d" 'discomfort)
+ "a" #'dirvish-quick-access
+ "s" #'dirvish-side
+ "h" #'dirvish-history-menu
+ "f" #'dirvish-fd
+ "F" #'dirvish-fd-switches-menu
+ "t" #'trashed
+ "d" #'discomfort)
;; x for some other command
(general-def
:prefix "C-c x"
- "e" 'eshell
- "t" 'ghostel
- "p" 'proced
- "b" 'benchmark-init/show-durations-tree
- "B" 'benchmark-init/show-durations-tabulated
- "s" 'syncthing
- "f" 'elfeed
- "k" 'pass)
+ "e" #'eshell
+ "t" #'ghostel
+ "p" #'proced
+ "b" #'benchmark-init/show-durations-tree
+ "B" #'benchmark-init/show-durations-tabulated
+ "s" #'syncthing
+ "f" #'elfeed
+ "k" #'pass)
;; scratch buffer
(if *is-mac*
- (general-def "C-c <f12>" 'scratch-buffer)
- (general-def "C-c <delete>" 'scratch-buffer))
+ (general-def "C-c <f12>" #'scratch-buffer)
+ (general-def "C-c <delete>" #'scratch-buffer))
;; dired
(general-def (dired-mode-map dirvish-mode-map)
- "s" 'dirvish-quicksort
- "h" 'dirvish-history-menu
- "M-," 'scroll-other-window-down
- "M-." 'scroll-other-window
- "<mouse-2>" 'emms-play-dired
- "C-c m a" 'emms-add-dired
- "b" 'dired-up-directory
- "C-b" 'backward-char
- "C-f" 'forward-char
- "<right>" 'dired-find-file
- "<left>" 'dired-up-directory
- "C-/" 'dired-undo
- "<SPC>" 'my-dirvish-layout-toggle
- "C-c C-r" 'dired-rsync
- "e" 'dired-do-eww)
+ "s" #'dirvish-quicksort
+ "h" #'dirvish-history-menu
+ "M-," #'scroll-other-window-down
+ "M-." #'scroll-other-window
+ "<mouse-2>" #'emms-play-dired
+ "C-c m a" #'emms-add-dired
+ "b" #'dired-up-directory
+ "C-b" #'backward-char
+ "C-f" #'forward-char
+ "<right>" #'dired-find-file
+ "<left>" #'dired-up-directory
+ "C-/" #'dired-undo
+ "<SPC>" #'my-dirvish-layout-toggle
+ "C-c C-r" #'dired-rsync
+ "e" #'dired-do-eww)
(general-def (dired-mode-map dirvish-mode-map)
:prefix "C-c d"
- "u" 'dirvish-setup-menu
- "r" 'dirvish-renaming-menu
- "v" 'dirvish-vc-menu
- "m" 'dirvish-mark-menu
- "i" 'dirvish-file-info-menu
- "y" 'dirvish-yank-menu)
+ "u" #'dirvish-setup-menu
+ "r" #'dirvish-renaming-menu
+ "v" #'dirvish-vc-menu
+ "m" #'dirvish-mark-menu
+ "i" #'dirvish-file-info-menu
+ "y" #'dirvish-yank-menu)
;; magit
(general-def (magit-mode-map tokei-mode-map)
- "C-<tab>" 'my-magit-toggle-parent-section)
+ "C-<tab>" #'my-magit-toggle-parent-section)
;; sly
(general-def (sly-mode-map sly-editing-mode-map)
- "M-p" 'backward-paragraph
- "M-n" 'forward-paragraph)
+ "M-p" #'backward-paragraph
+ "M-n" #'forward-paragraph)
(general-def sly-prefix-map
- "M-p" 'sly-pprint-eval-last-expression
- "C-p" 'sly-previous-note
- "C-n" 'sly-next-note)
+ "M-p" #'sly-pprint-eval-last-expression
+ "C-p" #'sly-previous-note
+ "C-n" #'sly-next-note)
;; ghostel
(general-def (ghostel-mode-map
ghostel-semi-char-mode-map
ghostel-line-mode-map)
"M-]" nil
- "C-q" 'ghostel-send-next-key)
+ "C-q" #'ghostel-send-next-key)
(general-def ghostel-char-mode-map
"M-]" nil)
;; embark
(general-def embark-file-map
- "d" 'consult-directory-externally
- "p" 'emms-play-dired)
+ "d" #'consult-directory-externally
+ "p" #'emms-play-dired)
(general-def minibuffer-local-map
- "C-c C-e" 'embark-export)
+ "C-c C-e" #'embark-export)
;; completion
(general-def completion-list-mode-map
- "M-n" 'minibuffer-next-completion
- "M-p" 'minibuffer-previous-completion)
+ "M-n" #'minibuffer-next-completion
+ "M-p" #'minibuffer-previous-completion)
;; markdown
(general-def markdown-mode-map
@@ -228,170 +228,170 @@
;; org-mode
(general-def org-mode-map
- "C-<tab>" 'org-cycle-parent-subtree
- "M-g i" 'consult-outline
- "M-g M-i" 'consult-outline
- "C-c t l" 'org-toggle-link-display
- "M-{" 'backward-paragraph
- "M-}" 'forward-paragraph
- "C-," 'crux-duplicate-current-line-or-region
- "C-c o l" 'denote-link
- "C-c o L" 'denote-org-link-to-heading
- "C-c o b" 'my-denote-find-backlink-with-location
- "C-c o B" 'my-denote-org-find-backlink-for-heading-with-location
- "C-c o t" 'my-org-tree-slide-start)
+ "C-<tab>" #'org-cycle-parent-subtree
+ "M-g i" #'consult-outline
+ "M-g M-i" #'consult-outline
+ "C-c t l" #'org-toggle-link-display
+ "M-{" #'backward-paragraph
+ "M-}" #'forward-paragraph
+ "C-," #'crux-duplicate-current-line-or-region
+ "C-c o l" #'denote-link
+ "C-c o L" #'denote-org-link-to-heading
+ "C-c o b" #'my-denote-find-backlink-with-location
+ "C-c o B" #'my-denote-org-find-backlink-for-heading-with-location
+ "C-c o t" #'my-org-tree-slide-start)
;; org-tree-slide-mode
(general-def org-tree-slide-mode-map
- "<left>" 'org-tree-slide-move-previous-tree
- "<right>" 'org-tree-slide-move-next-tree
- "C-c o t" 'my-org-tree-slide-stop
- "ESC" 'my-org-tree-slide-stop
- "q" 'my-org-tree-slide-stop)
+ "<left>" #'org-tree-slide-move-previous-tree
+ "<right>" #'org-tree-slide-move-next-tree
+ "C-c o t" #'my-org-tree-slide-stop
+ "q" #'my-org-tree-slide-stop
+ "M-v" #'scroll-down-command)
;; hs-hide-mode
(general-def hs-minor-mode-map
- "C-c h" 'hs-toggle-hiding
- "C-c H" 'hs-hide-all
- "C-c S" 'hs-show-all)
+ "C-c h" #'hs-toggle-hiding
+ "C-c H" #'hs-hide-all
+ "C-c S" #'hs-show-all)
;; calendar
(general-def calendar-mode-map
- "RET" 'denote-journal-calendar-find-file)
+ "RET" #'denote-journal-calendar-find-file)
;; ibuffer
(general-def ibuffer-mode-map
- "h k" 'my-persp-remove-marked-ibuffers
- "h A" 'my-persp-set-marked-ibuffers
- "h a" 'my-persp-add-marked-ibuffers)
+ "h k" #'my-persp-remove-marked-ibuffers
+ "h A" #'my-persp-set-marked-ibuffers
+ "h a" #'my-persp-add-marked-ibuffers)
;; multiple-cursor
(general-def mc/keymap
- "<return>" 'newline)
+ "<return>" #'newline)
;; emms
(general-def emms-playlist-mode-map
- "<prior>" 'emms-previous
- "<next>" 'emms-next
- "C-c C-s" 'emms-history-save)
+ "<prior>" #'emms-previous
+ "<next>" #'emms-next
+ "C-c C-s" #'emms-history-save)
;; perspective
(general-def persp-mode-map
"C-c p c" nil
- "C-c p d" 'persp-kill
- "C-x M-b" 'persp-ibuffer)
+ "C-c p d" #'persp-kill
+ "C-x M-b" #'persp-ibuffer)
;; info
(general-def Info-mode-map
- "M-n" 'forward-paragraph)
+ "M-n" #'forward-paragraph)
;; diff
(general-def diff-mode-map
- "M-o" 'other-window)
+ "M-o" #'other-window)
;; discomfort
(general-def discomfort-mode-map
- "p" 'previous-line
- "P" 'discomfort-poweroff)
+ "p" #'previous-line
+ "P" #'discomfort-poweroff)
;; eww
(general-def eww-mode-map
- "M-n" 'forward-paragraph
- "M-p" 'backward-paragraph
- "p" 'shr-previous-link
- "n" 'shr-next-link
- "P" 'eww-previous-url
- "N" 'eww-next-url)
+ "M-n" #'forward-paragraph
+ "M-p" #'backward-paragraph
+ "p" #'shr-previous-link
+ "n" #'shr-next-link
+ "P" #'eww-previous-url
+ "N" #'eww-next-url)
;; global map with C-c prefix
(general-def
:prefix "C-c"
- "c" 'hydra-multiple-cursors/body
- "r" 'restart-emacs
- "e" 'er/expand-region
- "s" 'consult-line
- "a" 'org-agenda
- "l" 'org-store-link
- "k" 'comment-line
- "K" 'comment-kill
- "v" 'scroll-other-window
- "M-v" 'scroll-other-window-down)
+ "c" #'hydra-multiple-cursors/body
+ "r" #'restart-emacs
+ "e" #'er/expand-region
+ "s" #'consult-line
+ "a" #'org-agenda
+ "l" #'org-store-link
+ "k" #'comment-line
+ "K" #'comment-kill
+ "v" #'scroll-other-window
+ "M-v" #'scroll-other-window-down)
;; global map
(general-def
;; god-mode
- "M-i" 'god-mode-all
+ "M-i" #'god-mode-all
;; buffer, file, and window
- "<f2>" 'open-init-file
- "<mouse-4>" 'previous-buffer
- "<mouse-5>" 'next-buffer
- "M-[" 'previous-buffer
- "M-]" 'next-buffer
- "C-x C-b" 'ibuffer-other-window
- "C-x K" 'crux-kill-other-buffers
- "C-x b" 'consult-buffer
- "C-x C-1" 'delete-other-windows
- "C-x C-2" 'split-window-below
- "C-x C-3" 'split-window-right
- "C-x C-0" 'delete-window
+ "<f2>" #'open-init-file
+ "<mouse-4>" #'previous-buffer
+ "<mouse-5>" #'next-buffer
+ "M-[" #'previous-buffer
+ "M-]" #'next-buffer
+ "C-x C-b" #'ibuffer-other-window
+ "C-x K" #'crux-kill-other-buffers
+ "C-x b" #'consult-buffer
+ "C-x C-1" #'delete-other-windows
+ "C-x C-2" #'split-window-below
+ "C-x C-3" #'split-window-right
+ "C-x C-0" #'delete-window
;; edit
- "M-c" 'capitalize-dwim
- "M-u" 'upcase-dwim
- "M-l" 'downcase-dwim
- "C-," 'crux-duplicate-current-line-or-region
- "C-<backspace>" 'crux-kill-line-backwards
- "M-y" 'consult-yank-from-kill-ring
- "C-c <backspace>" 'hungry-delete-backward
- "C-c C-<backspace>" 'hungry-delete-forward
- "M-P" 'drag-stuff-up
- "M-N" 'drag-stuff-down
- "M-F" 'drag-stuff-right
- "M-B" 'drag-stuff-left
- "C-M-SPC" 'er/mark-symbol
- "M-@" 'er/mark-word
- "C-S-<mouse-1>" 'mc/add-cursor-on-click
+ "M-c" #'capitalize-dwim
+ "M-u" #'upcase-dwim
+ "M-l" #'downcase-dwim
+ "C-," #'crux-duplicate-current-line-or-region
+ "C-<backspace>" #'crux-kill-line-backwards
+ "M-y" #'consult-yank-from-kill-ring
+ "C-c <backspace>" #'hungry-delete-backward
+ "C-c C-<backspace>" #'hungry-delete-forward
+ "M-P" #'drag-stuff-up
+ "M-N" #'drag-stuff-down
+ "M-F" #'drag-stuff-right
+ "M-B" #'drag-stuff-left
+ "C-M-SPC" #'er/mark-symbol
+ "M-@" #'er/mark-word
+ "C-S-<mouse-1>" #'mc/add-cursor-on-click
;; undo
- "C-/" 'undo-fu-only-undo
- "C-?" 'undo-fu-only-redo
- "C-x u" 'vundo
+ "C-/" #'undo-fu-only-undo
+ "C-?" #'undo-fu-only-redo
+ "C-x u" #'vundo
;; navigate
- "M-p" 'backward-paragraph
- "M-n" 'forward-paragraph
- "<mouse-2>" 'xref-find-definitions-at-mouse
- "C-M-;" 'avy-goto-char
- "C-M-'" 'avy-goto-word-1
- "M-g g" 'avy-goto-line
- "M-g M-g" 'consult-goto-line
- "M-g i" 'consult-imenu
- "M-g I" 'consult-imenu-multi
- "M-g M-i" 'consult-imenu
+ "M-p" #'backward-paragraph
+ "M-n" #'forward-paragraph
+ "<mouse-2>" #'xref-find-definitions-at-mouse
+ "C-M-;" #'avy-goto-char
+ "C-M-'" #'avy-goto-word-1
+ "M-g g" #'avy-goto-line
+ "M-g M-g" #'consult-goto-line
+ "M-g i" #'consult-imenu
+ "M-g I" #'consult-imenu-multi
+ "M-g M-i" #'consult-imenu
;; window
- "C-M-<left>" 'shrink-window-horizontally
- "C-M-<right>" 'enlarge-window-horizontally
- "C-M-<down>" 'shrink-window
- "C-M-<up>" 'enlarge-window
- "M-`" 'popper-toggle
- "C-M-=" 'popper-toggle-type-delete-other-window
- "M-o" 'other-window
+ "C-M-<left>" #'shrink-window-horizontally
+ "C-M-<right>" #'enlarge-window-horizontally
+ "C-M-<down>" #'shrink-window
+ "C-M-<up>" #'enlarge-window
+ "M-`" #'popper-toggle
+ "C-M-=" #'popper-toggle-type-delete-other-window
+ "M-o" #'other-window
;; other
- "C-x r b" 'consult-bookmark
- "C-;" 'embark-act
- "M-s M-b" 'eww-list-bookmarks)
+ "C-x r b" #'consult-bookmark
+ "C-;" #'embark-act
+ "M-s M-b" #'eww-list-bookmarks)
(cond
(*is-android*
(general-def
- "C-M-w" 'popper-toggle-type-delete-other-window))
+ "C-M-w" #'popper-toggle-type-delete-other-window))
(*is-linux*
(general-def
- "M-S-SPC" 'xdg-launcher-run-app))
+ "M-S-SPC" #'xdg-launcher-run-app))
(t nil))
;; expand region
diff --git a/lisp/init-startup.el b/lisp/init-startup.el
@@ -25,7 +25,7 @@
(set-frame-parameter nil 'fullscreen 'fullscreen)
(toggle-frame-fullscreen)
(global-unset-key (kbd "<f12>"))
- (global-set-key (kbd "<f12>") 'toggle-frame-fullscreen))
+ (global-set-key (kbd "<f12>") #'toggle-frame-fullscreen))
(*is-windows*
(toggle-frame-maximized))
(t nil))
