Organisational commit

Modified input method is the main highlight.
This commit is contained in:
2026-01-09 21:40:51 +09:00
parent 9cd88d6be9
commit f99504e8f0
5 changed files with 122 additions and 32 deletions

View File

@@ -7,25 +7,25 @@
;;; Code:
(defun my/resize-margins-to-fill ()
(defun my-resize-margins-to-fill ()
"Set the current buffer margins so that its width is equal to the fill
column."
(interactive)
(let ((margin-size (/ (- (frame-width) fill-column) 2)))
(set-window-margins nil margin-size margin-size)))
(defun my/reset-margins ()
(defun my-reset-margins ()
"Removes margins from the current buffer."
(interactive)
(set-window-margins nil nil nil))
(defun my/insert-buffer-name ()
(defun my-insert-buffer-name ()
"Inserts the name of the current buffer at point."
(interactive)
(let ((name (buffer-name)))
(insert name)))
(defun my/create-org-fc-word-card ()
(defun my-create-org-fc-word-card ()
"Inserts and initialzes an org-fc double card with a word and its
translation at point."
(interactive)
@@ -37,13 +37,13 @@ translation at point."
(previous-line)
(org-fc-type-double-init)))
(keymap-set org-mode-map "C-c C-n" 'my/create-org-fc-word-card)
(keymap-set org-mode-map "C-c C-n" 'my-create-org-fc-word-card)
(setq margins-map (make-sparse-keymap))
(keymap-set margins-map "f" 'my/resize-margins-to-fill)
(keymap-set margins-map "r" 'my/reset-margins)
(keymap-set margins-map "f" 'my-resize-margins-to-fill)
(keymap-set margins-map "r" 'my-reset-margins)
(keymap-set mode-specific-map "C-m" margins-map)
(keymap-set mode-specific-map "b" 'my/insert-buffer-name)
(keymap-set mode-specific-map "b" 'my-insert-buffer-name)
;;; 99-misc.el ends here