From 6784039531ee5e5cd4702a1aa43ad29f667ab210 Mon Sep 17 00:00:00 2001 From: Alexey Norets Date: Sat, 2 May 2026 10:08:58 +0300 Subject: [PATCH] few chages for page-up/page-down --- init.el | 110 ++++++++++++++++++++++++++++++++++++++------------------ 1 file changed, 76 insertions(+), 34 deletions(-) diff --git a/init.el b/init.el index 963be4f..5b00876 100644 --- a/init.el +++ b/init.el @@ -106,17 +106,17 @@ ((eq evil-state 'normal) "") ((eq evil-state 'emacs) "") (t " * "))) -(setq-default mode-line-format '("%e " mode-line-modified " " - (:eval (propertize (buffer-name)) 'face 'font-lock-constant-face) - "%6l:%c (%o) " - (:eval - (if (and (mode-line-window-selected-p) (bound-and-true-p evil-mode)) - (my-evil-mode-indicator)) - " ") - (:eval (unless (not vc-mode) (concat " | Git:" (substring-no-properties vc-mode 5)))) - mode-line-format-right-align - (:eval (concat " " (symbol-name major-mode))) - " " mode-line-misc-info)) +;; (setq-default mode-line-format '("%e " mode-line-modified " " +;; (:eval (propertize (buffer-name)) 'face 'font-lock-constant-face) +;; "%6l:%c (%o) " +;; (:eval +;; (if (and (mode-line-window-selected-p) (bound-and-true-p evil-mode)) +;; (my-evil-mode-indicator)) +;; " ") +;; (:eval (unless (not vc-mode) (concat " | Git:" (substring-no-properties vc-mode 5)))) +;; mode-line-format-right-align +;; (:eval (concat " " (symbol-name major-mode))) +;; " " mode-line-misc-info)) (use-package emacs :init @@ -203,18 +203,18 @@ :ensure t :init :custom - (denote-directory "~/Nextcloud/DenoteNotes/") + (denote-directory "~/NCKlinsoft/DenoteNotes/") :hook (dired-mode . denote-dired-mode) :custom-face (denote-faces-link ((t (:slant italic))))) (global-set-key (kbd "C-c n n") 'denote-open-or-create) -(use-package consult-denote - :ensure t - :config - (define-key global-map (kbd "C-c n f") #'consult-denote-find) - (define-key global-map (kbd "C-c n g") #'consult-denote-grep)) +;; (use-package consult-denote +;; :ensure t +;; :config +;; (define-key global-map (kbd "C-c n f") #'consult-denote-find) +;; (define-key global-map (kbd "C-c n g") #'consult-denote-grep)) (use-package vertico :ensure t @@ -316,6 +316,12 @@ :bind (:map isearch-mode-map ("C-f" . my-project-search-from-isearch))) +(use-package isearch + :ensure nil + :defer t + :bind + (:map isearch-mode-map + ("C-d" . isearch-forward-symbol-at-point))) ;; Selection window (rg, grep, help etc). ----- @@ -436,6 +442,7 @@ (setq org-src-preserve-indentation t) (setq org-src-tab-acts-natively t) (setq org-hide-emphasis-markers nil) + (setq org-agenda-files (quote ("~/Nextcloud/DenoteNotes/"))) (setq org-edit-src-content-indentation 0)) @@ -528,11 +535,10 @@ (global-set-key (kbd "C-z") 'move-text-down) (global-set-key (kbd "C-q") 'move-text-up) -;; (global-set-key (kbd "C-c t c") 'avy-goto-char) -(global-set-key (kbd "C-'") 'avy-goto-char) -;; (global-set-key (kbd "C-c t w") 'avy-goto-word-0) -(global-set-key (kbd "C-,") 'avy-goto-word-0) - +;; (global-set-key (kbd "C-'") 'avy-goto-char) +(keymap-global-set "C-;" 'avy-goto-char) +(keymap-set org-mode-map "C-;" 'avy-goto-char) +(global-set-key (kbd "C-:") 'avy-goto-word-0) ;;; Functions. ----- ;;RecentFiles @@ -547,23 +553,44 @@ (global-set-key "\C-x\C-r" 'my/recentf-open-files-compl) ;; Half page up/down + (defun my/half-page-up () (interactive) - ;; (scroll-down-command ) - (move-to-window-line-top-bottom 0) - (recenter)) -(global-set-key (kbd "M-p") 'my/half-page-up) + (let ((target-line (/ (window-height) 2))) + (condition-case nil + (scroll-down (/ (window-height) 2)) + (error nil)) + (sit-for 0) + (move-to-window-line target-line))) (defun my/half-page-down () (interactive) - (if (eq (line-number-at-pos) (line-number-at-pos (window-start))) - ;; If the cursor is at the top of the page, move it to the center - (progn - (let ((middle-line (1+ (/ (window-height) 2)))) - (move-to-window-line middle-line))) - ;; (scroll-up scroll-amount) - (move-to-window-line -1 ) - (recenter))) + (let ((target-line (/ (window-height) 2))) + (condition-case nil + (scroll-up (/ (window-height) 2)) + (error nil)) + (sit-for 0) + (move-to-window-line target-line))) + +;; (defun my/half-page-up () +;; (interactive) +;; ;; (follow-scroll-down) +;; ;; (recenter)) +;; (move-to-window-line-top-bottom 0) +;; (recenter)) +(global-set-key (kbd "M-p") 'my/half-page-up) + + +;; (defun my/half-page-down () +;; (interactive) +;; (if (eq (line-number-at-pos) (line-number-at-pos (window-start))) +;; ;; If the cursor is at the top of the page, move it to the center +;; (progn +;; (let ((middle-line (1+ (/ (window-height) 2)))) +;; (move-to-window-line middle-line))) +;; ;; (scroll-up scroll-amount) +;; (move-to-window-line -1 ) +;; (recenter))) (global-set-key (kbd "M-n") 'my/half-page-down) ;; Split window and follow cursor. ----- @@ -650,6 +677,21 @@ (set-mark-command 1)) (global-set-key (kbd "M-`") 'jump-to-mark) +;; Show/hide `~*/+` symbols in org-mode ------ +(defun my/org-toggle-emphasis () + "Toggle hiding/showing of org emphasize markers." + (interactive) + (if org-hide-emphasis-markers + (set-variable 'org-hide-emphasis-markers nil) + (set-variable 'org-hide-emphasis-markers t)) + (save-excursion + (goto-char (point-min)) + (org-ctrl-c-ctrl-c))) + ;; (org-reload)) + +(define-key org-mode-map (kbd "C-c e") 'my/org-toggle-emphasis) + + ;; (defun exchange-point-and-mark-no-activate () ;; "Identical to \\[exchange-point-and-mark] but will not activate the region." ;; (interactive)