sheijk / hideshowvis Goto Github PK

Since 2015 there were talks in MELPA about depreciating all 'emacswiki' packages because "anyone can edit your package(s) on the Emacswiki and that poses a security risk".

Finally on 24 Jan, @milkipostman "inadvertently deleted all emacswiki packages", which was probably a good thing.

The problem is that I'm very fond of 'hideshowvis', and I have an automated emacs install that is failing because hideshowvis can't be found (obviously I'm installing it by hand).

Could you add this library to MELPA (or ELPA)?

Issue filed for both projects.

ankurdave/color-identifiers-mode#83

I couldn't find it anywhere until somebody showed me the lambda function to make it happen, so I figured I'd put it in the official git repo so that if somebody needs to find it, they don't need to dig through Reddit.

Put this in your init.el file.

 (add-hook 'hs-minor-mode-hook (lambda () (diminish 'hs-minor-mode)))

If you're using use-package

:config
 (add-hook 'hs-minor-mode-hook (lambda () (diminish 'hs-minor-mode)))

The code in hideshowvis-symbols can be moved to the toplevel and the function will only update hs-set-up-overlay. Mostly testing needed

I'm using Emacs 27, but also tested with Emacs 26 and I can only see the - markers for closed and opened folds. Doesn't depend on a major mode.

When I place the following code in my init.el file:

(autoload 'hideshowvis-enable "hideshowvis" "Highlight foldable regions")

(autoload 'hideshowvis-minor-mode
   "hideshowvis"
   "Will indicate regions foldable with hideshow in the fringe."
   'interactive)

(dolist (hook (list 
  'emacs-lisp-mode-hook
	'json-mode-hook
  'c++-mode-hook
  'python-mode ;; doesn't work?
  'perl-mode ;; doesn't work?
  ))
  (add-hook hook 'hideshowvis-enable))
(hideshowvis-symbols)

I get the following error:
Symbol's function definition is void: hideshowvis-symbols

If I remove that line and run hideshowvis-symbols interactively, it works.

How come it doesn't work when run in init.el?

If I have hideshowvis-symbols enabled, and the regions are hidden and showing the yellow rectangle on the right, if I select a region (say, the whole buffer) and then press TAB (for indent-for-tab-command ) the code is changed, with parts of it removed (parentheses or even complete expressions).

This is code to show the problem:

• Start emacs -Q and evaluate this code:

(add-hook 'prog-mode-hook 'hs-minor-mode)
(add-to-list 'load-path "wherever-hideshowsivis-is")
(require 'hideshowvis)

(add-hook 'emacs-lisp-mode-hook 'hideshowvis-enable)
;; the next line is the culprit
(add-hook 'emacs-lisp-mode-hook 'hideshowvis-symbols)

Now, in that same emacs, open a file like, for example, this one:

(defun a ()
  (setq b 93))


(defun a2 ()
  (setq b 93
	))

Now, in the file hs-hide-all. It will show this:

Then, mark the whole buffer and press TAB (or M-x indent-region). And notice the modeline shows the buffer has been changed (indent-region could do that, but it should not have changed anything in this buffer)

In fact, this is how the code looks if we hs-show-all:

In the first block, (setq b 93) has been erased and in the second block one closing parenthesis has been erased.

If we do not enable hideshow-symbols none of this happens, as far as I can tell.

EDIT: a simple, though brutal and ugly, way of dealing with this for now is advicing indent-region:

(advice-add 'indent-region :before (lambda (&rest args) (hs-show-all)))

I do not know if there is a better way.

This is a question, not a bug.

I'd like to have, for comments, a similar visual indication as that provided by hideshowvis-symbols. As far as I can tell, this is not customizable, and I guess I'd need to modify the function hideshowvis-symbols, starting on the line with (when (eq 'code (overlay-get ov 'hs)). The display of the number of lines hidden is not the most important; it is the visual indicator that stuff is hidden. Any suggestions?