Re: Cycle Auto-Fill

[Ergus <spacibba@aol.com>]

Hi Christopher:

I am not a big lisper, but I had a similar code. I modified yours to
look similar in case you find anything interesting on it

```
(defvar gungadin-auto-fill-cycle 0)

(defun gungadin-auto-fill-cycle ()
   "Cycles Auto Fill.

Automatically breaks lines that get beyond variable fill-column."
   (interactive)

   (pcase gungadin-auto-fill-cycle
     (0
      (message "Auto Fill Comments Only")
      (setq-local comment-auto-fill-only-comments t)
      (auto-fill-mode 1))
     (1
      (message "Auto Fill Buffer")
      (setq-local comment-auto-fill-only-comments nil))
     (2
      (message "Disable Auto Fill")
      (auto-fill-mode 0)))
   (setq gungadin-auto-fill-cycle (% (1+ gungadin-auto-fill-cycle) 3)))
```


On Sat, Dec 05, 2020 at 02:25:06PM +0100, Christopher Dimech wrote:
>Have written the following function to use one key binding
>to cycle auto-fill (only-comments, whole-buffer, disable)
>
>Who would like to criticise this little bugger?
>
>(defun gungadin-auto-fill-cycle ()
>   "Cycles Auto Fill.  Automatically breaks lines that get beyond
>variable fill-column."
>   (interactive)
>   (unless (get 'gungadin-auto-fill-cycle 'state)
>      (put 'gungadin-auto-fill-cycle 'state 1))
>
>   (setq n (get 'gungadin-auto-fill-cycle 'state))
>
>   (when (= n 1)
>      (message "Auto Fill Comments Only")
>      (set (make-local-variable 'comment-auto-fill-only-comments) t)
>      (auto-fill-mode 1)
>      (put 'gungadin-auto-fill-cycle 'state 2))
>   (when (= n 2)
>      (message "Auto Fill Buffer")
>      (set (make-local-variable 'comment-auto-fill-only-comments) nil)
>      (put 'gungadin-auto-fill-cycle 'state 3))
>   (when (= n 3)
>      (message "Disable Auto Fill")
>      (auto-fill-mode 0)
>      (put 'gungadin-auto-fill-cycle 'state 1)) )
>
>(global-set-key (kbd "H-a") #'gungadin-auto-fill-cycle)
>
>
>
>---------------------
>Christopher Dimech
>General Administrator - Naiad Informatics - GNU Project (Geocomputation)
>- Geophysical Simulation
>- Geological Subsurface Mapping
>- Disaster Preparedness and Mitigation
>- Natural Resource Exploration and Production
>- Free Software Advocacy
>
>