简体   繁体   中英

Emacs: How to enable a mode globally?

I just have a mode from an addon which I want to enable globally. In order to turn on it by hand I need to enter Mx highlight-indentation-mode . So, below is a list of what I have tried yet: (highlight-indentation-mode t) , (highlight-indentation-mode 1) , (setq highlight-indentation-mode t) . Nothing worked. Next I figure out that may be I need to enable a mode globally, and I started google about it. What I have tried next:

(define-globalized-minor-mode global-highlight-indentation-mode highlight-indentation-mode
  (lambda () (setq highlight-indentation-mode t)))

No, this surely aren't the droids I am looking for, it turns on the variable, but a mode still doesn't work.

(define-globalized-minor-mode global-highlight-indentation-mode highlight-indentation-mode
  (lambda () highlight-indentation-mode t))

(define-globalized-minor-mode global-highlight-indentation-mode highlight-indentation-mode
  (highlight-indentation-mode t))

These two just broke my Emacs: when I tried open file with this two commands in config, Emacs wrote an error, and refused to open a files.

UPD: Based on comments I also tried

(defun enable-highlight-indentation-mode ()
  (interactive)
    (highlight-indentation-mode t))

(define-globalized-minor-mode global-highlight-indentation-mode highlight-indentation-mode
  enable-highlight-indentation-mode)  

(global-highlight-indentation-mode t)

And the same without (interactive) . When I am try to open a file with this, Emacs refuse to open, and write an error:

File mode specification error: (void-function nil)
c-font-lock-fontify-region: Symbol's function definition is void: nil
;;; highlight-indentation.el --- Minor modes for highlighting indentation
;; Author: Anton Johansson <anton.johansson@gmail.com> - http://antonj.se
;; Created: Dec 15 23:42:04 2010
;; Version: 0.6.0
;; URL: https://github.com/antonj/Highlight-Indentation-for-Emacs
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2 of
;; the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be
;; useful, but WITHOUT ANY WARRANTY; without even the implied
;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE. See the GNU General Public License for more details.
;;
;;; Commentary:
;; Customize `highlight-indentation-face', and
;; `highlight-indentation-current-column-face' to suit your theme.

;;; Code:

(defgroup highlight-indentation nil
  "Highlight Indentation"
  :prefix "highlight-indentation-"
  :group 'basic-faces)

(defface highlight-indentation-face
  ;; Fringe has non intrusive color in most color-themes
  '((t :inherit fringe))
  "Basic face for highlighting indentation guides."
  :group 'highlight-indentation)

(defcustom highlight-indentation-offset 4
  "Default indentation offset, used if no other can be found from
major mode. This value is always used by
`highlight-indentation-mode' if set buffer local. Set buffer
local with `highlight-indentation-set-offset'"
  :group 'highlight-indentation)

(defvar highlight-indentation-current-regex nil)

;;;###autoload
(define-minor-mode highlight-indentation-mode
  "Highlight indentation minor mode highlights indentation based
on spaces"
  :lighter " ||"
  (when highlight-indentation-current-regex ;; OFF
    (font-lock-remove-keywords nil `((,highlight-indentation-current-regex
                                      (1 'highlight-indentation-face)))))

  (set (make-local-variable 'highlight-indentation-current-regex) nil)

  (when highlight-indentation-mode ;; ON
    (when (not (local-variable-p 'highlight-indentation-offset))
      (set (make-local-variable 'highlight-indentation-offset)
           ;; Set indentation offset from highlight-indentation-offset if set, otherwise
           ;; according to major mode
           (cond ((and (eq major-mode 'python-mode) (boundp 'python-indent))
                  python-indent)
                 ((and (eq major-mode 'python-mode) (boundp 'py-indent-offset))
                  py-indent-offset)
                 ((and (eq major-mode 'python-mode) (boundp 'python-indent-offset))
                  python-indent-offset)
                 ((eq major-mode 'ruby-mode)
                  ruby-indent-level)
                 ((and (eq major-mode 'scala-mode) (boundp 'scala-indent:step))
                  scala-indent:step)
                 ((and (eq major-mode 'scala-mode) (boundp 'scala-mode-indent:step))
                  scala-mode-indent:step)
                 ((or (eq major-mode 'scss-mode) (eq major-mode 'css-mode))
                  css-indent-offset)
                 ((eq major-mode 'nxml-mode)
                  nxml-child-indent)
                 ((eq major-mode 'coffee-mode)
                  coffee-tab-width)
                 ((eq major-mode 'js-mode)
                  js-indent-level)
                 ((eq major-mode 'js2-mode)
                  js2-basic-offset)
                 ((local-variable-p 'c-basic-offset)
                  c-basic-offset)
                 (t
                  (default-value 'highlight-indentation-offset)))))
    (set (make-local-variable 'highlight-indentation-current-regex)
         (format "\\( \\) \\{%s\\}" (- highlight-indentation-offset 1)))
    (font-lock-add-keywords nil `((,highlight-indentation-current-regex
                                   (1 'highlight-indentation-face)))))
  (font-lock-fontify-buffer))

;;;###autoload
(defun highlight-indentation-set-offset (offset)
  "Set indentation offset localy in buffer, will prevent
highlight-indentation from trying to guess indentation offset
from major mode"
  (interactive
   (if (and current-prefix-arg (not (consp current-prefix-arg)))
       (list (prefix-numeric-value current-prefix-arg))
     (list (read-number "Indentation offset: "))))
  (set (make-local-variable 'highlight-indentation-offset) offset)
  (when highlight-indentation-mode
    (highlight-indentation-mode)))


;;;
;;; Copyright (C) Kresten Krab Thorup
;;; Available under Apache License, Version 2.
;;;
;;; This minor mode will highlight the indentation of the current line
;;; as a vertical bar (grey background color) aligned with the column of the
;;; first character of the current line.
;;;
(defface highlight-indentation-current-column-face
  ;; Fringe has non intrusive color in most color-themes
  '((t :inherit fringe))
  "Basic face for highlighting indentation guides."
  :group 'highlight-indentation)

;; used to hold the last regex we installed
(defvar highlight-indentation-current-column-regex nil)

;;;###autoload
(define-minor-mode
  highlight-indentation-current-column-mode
  "Hilight Indentation minor mode displays
a vertical bar corresponding to the indentation of the current line"
  :lighter " |"

  (when highlight-indentation-current-column-regex
    (font-lock-remove-keywords nil highlight-indentation-current-column-regex))

  (set (make-local-variable 'highlight-indentation-current-column-regex) nil)
  (cond (highlight-indentation-current-column-mode
          (add-hook 'post-command-hook 'highlight-indentation-current-column-post-command-hook nil t))
         (t
          (remove-hook 'post-command-hook 'highlight-indentation-current-column-post-command-hook t)

          (font-lock-fontify-buffer))))

(defun highlight-indentation-current-column-post-command-hook ()
  "This hook runs after every keystroke"
  (when highlight-indentation-current-column-regex
    (font-lock-remove-keywords nil highlight-indentation-current-column-regex))
  (let ((indent (save-excursion (back-to-indentation) (current-column))))
    (when (and highlight-indentation-current-column-mode
               (> indent 1))
      (let* ((re (format "^ \\{%d\\}\\( \\)" indent))
             (arg `((,re (1 'highlight-indentation-current-column-face prepend)))))
        (set (make-local-variable 'highlight-indentation-current-column-regex) arg)
        (font-lock-add-keywords nil arg))))
  (font-lock-fontify-buffer))

(defun turn-on-highlight-indentation-mode ()
(interactive)
  (highlight-indentation-mode 1))

(define-globalized-minor-mode global-highlight-indentation-mode
  highlight-indentation-mode turn-on-highlight-indentation-mode)

(global-highlight-indentation-mode 1)

(provide 'highlight-indentation)

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM