| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- ;;; Code:
- (require 'hideshowvis)
- (hideshowvis-symbols)
- ;; Hideshowvis mode
- (autoload 'hideshowvis-minor-mode
- "hideshowvis"
- "Will indicate regions foldable with hideshow in the fringe."
- 'interactive)
- (dolist (hook (list 'emacs-lisp-mode-hook
- 'lisp-mode-hook
- 'ruby-mode-hook
- 'perl-mode-hook
- 'php-mode-hook
- 'html-mode-hook
- 'web-mode-hook
- 'sgml-mode-hook
- 'multi-web-mode-hook
- 'python-mode-hook
- 'lua-mode-hook
- 'c-mode-hook
- 'java-mode-hook
- 'js-mode-hook
- 'js2-mode-hook
- 'js3-mode-hook
- 'css-mode-hook
- 'c++-mode-hook))
- (add-hook hook 'hideshowvis-enable))
- ;; Faces
- (custom-set-faces
- '(hs-fringe-face ((t (:foreground "#afeeee" :box (:line-width 2 :color "grey75" :style released-button)))))
- '(hs-face ((t (:background "#444" :box t))))
- '(hideshowvis-hidable-face ((t (:foreground "#2f4f4f")))))
- ;; Functions
- (defun toggle-hiding (column)
- (interactive "P")
- (if hs-minor-mode
- (if (condition-case nil
- (hs-toggle-hiding)
- (error t))
- (hs-show-all))
- (toggle-selective-display column)))
- (defun toggle-selective-display (column)
- (interactive "P")
- (set-selective-display
- (or column
- (unless selective-display
- (1+ (current-column))))))
- ;; Enable by default in programming modes
- (add-hook 'prog-mode-hook #'hs-minor-mode)
- (provide 'conf-hideshow)
|
