diff options
Diffstat (limited to 'config/doom')
| -rw-r--r-- | config/doom/config.org | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index 1dd6ce9..e56dfb4 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -136,7 +136,36 @@ Because I always need help and it should come up quickly :load-path "~/dev/dotfiles/elisp/" :commands (delivery-track-update-dhl)) #+end_src - +** Fixes +#+begin_src emacs-lisp +;; this imports fixes of emacs 30 +(defun vtable-beginning-of-table () + "Go to the start of the current table." + (if (or (text-property-search-backward 'vtable (vtable-current-table) #'eq) + (get-text-property (point) 'vtable)) + (point) + (goto-char (point-min)))) + +(defun vtable-end-of-table () + "Go to the end of the current table." + (if (text-property-search-forward 'vtable (vtable-current-table) #'eq) + (point) + (goto-char (point-max)))) + +;; This is my own fix +(defun vtable-header-line-sort (e) + "Sort a vtable from the header line." + (interactive "e") + (let* ((pos (event-start e)) + (obj (posn-object pos))) + (with-current-buffer (window-buffer (posn-window pos)) + (vtable-beginning-of-table) ;; This line is the fix + (vtable-goto-column + (get-text-property (if obj (cdr obj) (posn-point pos)) + 'vtable-column + (car obj))) + (vtable-sort-by-current-column)))) +#+end_src * Dictionary #+begin_src emacs-lisp :tangle "packages.el" (package! lexic) |