Re: Determining existence of text following point

[Jean Louis]

* michael-franzese@gmx.com <michael-franzese@gmx.com> [2021-05-19 10:29]:
> Point will always be at the beginning of a comment on a separate line
> 
> The "^" shows the position of the cursor.
> 
>                    ^;; ;;;;;;;;;;;;;;;;;;;;;;;;;;
> 
>          ^;; +++++++++++++++++++++++++++
> 
> ^;; ----------------------------
> 
> I want to have a keybinding that if I continue to hit will change
> a comment from
> 
> ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> 
> to
> 
> ;; +++++++++++++++++++++++++++++++++++++
> 
> Currently I have the following code
> 
> 
> (defun insert-bifurcation (s n)
>    "todo"
> 
>    (let* ( (a (point))  (b (line-end-position))
>          (line-cut (buffer-substring-no-properties a b)) )
> 
>       (when (or (not (string-match
>                       "[^[:blank:]]" line-cut)) (eolp))
>          (pcase n
> 
>           (0
>               (save-excursion (insert s))
>               (comment-region a b))
>           
>           ((or 1 2 3 4 5)
>               (delete-region a b)
>               (save-excursion (insert s))
>               (comment-region a b))
> 
>             (_
>               (delete-region a b))) )) )
> 
> (defvar count 1)
> 
> (defun insert-bifurcating-comment ()
>   "Insert bifurcating line at cursor position"
>   (interactive)
> 
>   (let* ( (m 62) (n 69)
>         (lena (- m (current-column)))   ; lena = m - (current-column)
>         (lenb (- n (current-column))) )
> 
>     (pcase count
>       (0
>          ;; makes s to be line with repeating ";"
>          (setq-local s (make-string lena ?\;))  ; repeats lena times
>        (insert-bifurcation s count)
>          (setq-local count 1))
>       (1
>          ;; makes s to be line with repeating ";"
>          (setq-local s (make-string lenb ?\;))  ; string length lenb
>        (insert-bifurcation s count)
>        (setq-local count 2))
>       (2
>          ;; makes s to be line with repeating "+"
>          (setq-local s (make-string lena ?+))
>        (insert-bifurcation s count)
>          (setq-local count 3))
>       (_
>          ;; deactivates the bifurcating line
>          (insert-bifurcation s count)
>          (setq-local count 1)) )) )

I am done and obfuscated now. ☺


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

Sign an open letter in support of Richard M. Stallman
https://stallmansupport.org/
https://rms-support-letter.github.io/