Browse Source

WIP fix of hl-line

pull/15/head
10sr 8 years ago
parent
commit
ccd229c42b
1 changed files with 19 additions and 9 deletions
  1. +19
    -9
      emacs.el

+ 19
- 9
emacs.el View File

@@ -723,19 +723,25 @@ IF OK-IF-ALREADY-EXISTS is true force download."

;; highlight current line
;; http://wiki.riywo.com/index.php?Meadow
;; (defface 10sr-hl-line
;; '((((min-colors 256)
;; (background dark))
;; (:background "color-234"))
;; (((min-colors 256)
;; (background light))
;; (:background "color-234"))
;; (t
;; (:underline "black")))
;; "*Face used by hl-line."
;; :group '10sr)
(defface 10sr-hl-line
'((((min-colors 256)
(background dark))
(:background "color-234"))
(((min-colors 256)
(background light))
(:background "color-234"))
(t
(:underline "black")))
'((t (:underline "black")))
"*Face used by hl-line."
:group '10sr)
(global-hl-line-mode 1) ;; (hl-line-mode 1)
(set-variable 'hl-line-face '10sr-hl-line) ;; (setq hl-line-face nil)
(set-face-underline 'hl-line t)
(set-face-background 'hl-line "unspecified-bg")
;; (set-variable 'hl-line-face '10sr-hl-line) ;; (setq hl-line-face nil)
(set-variable 'hl-line-global-modes
'(not
term-mode))
@@ -964,6 +970,10 @@ IF OK-IF-ALREADY-EXISTS is true force download."
("\\.asciidoc\\'" . adoc-mode)
,@auto-mode-alist)))

;; (require 'markup-faces)
;; (set-face-foreground 'markup-meta-hide-face
;; "unspecified-fg")

(setq auto-mode-alist
`(("autostart\\'" . sh-mode)
("xinitrc\\'" . sh-mode)


Loading…
Cancel
Save