aboutsummaryrefslogtreecommitdiff
path: root/bard-elisp/bard-ryo.el
diff options
context:
space:
mode:
authorBardofSprites <[email protected]>2025-12-26 19:40:49 -0500
committerBardofSprites <[email protected]>2025-12-26 19:40:49 -0500
commit21794a4dfa857a770155b9e0c59af885e0d5756c (patch)
tree06db5ca0fc03ce026725ed83eec24b4e5711a382 /bard-elisp/bard-ryo.el
parent72a63d40f3278aade59bc9adb55bc374e45499ea (diff)
literate configuration
Diffstat (limited to 'bard-elisp/bard-ryo.el')
-rw-r--r--bard-elisp/bard-ryo.el49
1 files changed, 0 insertions, 49 deletions
diff --git a/bard-elisp/bard-ryo.el b/bard-elisp/bard-ryo.el
deleted file mode 100644
index 782aab8..0000000
--- a/bard-elisp/bard-ryo.el
+++ /dev/null
@@ -1,49 +0,0 @@
-(defun bard/ryo-insert-p ()
- "Return t if `ryo-modal-mode` is not bound or not active."
- (not (bound-and-true-p ryo-modal-mode)))
-
-(defun xah-beginning-of-line-or-block ()
- "Move cursor to beginning of indent or line, end of previous block, in that order.
-
-If `visual-line-mode' is on, beginning of line means visual line.
-
-URL `http://xahlee.info/emacs/emacs/emacs_move_by_paragraph.html'
-Created: 2018-06-04
-Version: 2024-10-30"
- (interactive)
- (let ((xp (point)))
- (if (or (eq (point) (line-beginning-position))
- (eq last-command this-command))
- (when (re-search-backward "\n[\t\n ]*\n+" nil :move)
- (skip-chars-backward "\n\t ")
- ;; (forward-char)
- )
- (if visual-line-mode
- (beginning-of-visual-line)
- (if (eq major-mode 'eshell-mode)
- (progn
- (declare-function eshell-bol "esh-mode.el" ())
- (eshell-bol))
- (back-to-indentation)
- (when (eq xp (point))
- (beginning-of-line)))))))
-
-(defun xah-end-of-line-or-block ()
- "Move cursor to end of line or next block.
-
-• When called first time, move cursor to end of line.
-• When called again, move cursor forward by jumping over any sequence of whitespaces containing 2 blank lines.
-• if `visual-line-mode' is on, end of line means visual line.
-
-URL `http://xahlee.info/emacs/emacs/emacs_move_by_paragraph.html'
-Created: 2018-06-04
-Version: 2024-10-30"
- (interactive)
- (if (or (eq (point) (line-end-position))
- (eq last-command this-command))
- (re-search-forward "\n[\t\n ]*\n+" nil :move)
- (if visual-line-mode
- (end-of-visual-line)
- (end-of-line))))
-
-(provide 'bard-ryo)