Преглед изворни кода

Decide hl-line color randomly

master
10sr пре 5 година
родитељ
комит
dae2f9a9ca
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 измењених фајлова са 32 додато и 21 уклоњено
  1. +32
    -21
      emacs.el

+ 32
- 21
emacs.el Прегледај датотеку

@@ -769,13 +769,24 @@ found, otherwise returns nil."
'(safe-require-or-eval 'fill-column-indicator)
(setq fill-column-indicator))

(defun my-gen-hl-line-color-dark ()
"Generate color for current line in black background."
(let* ((candidates (mapcar 'number-to-string (number-sequence 0 6)))
(limit (length candidates)))
(format "#%s%s%s"
(nth (random limit) candidates)
(nth (random limit) candidates)
(nth (random limit) candidates)
)))
;; (my-gen-hl-line-color-dark)

;; highlight current line
;; http://wiki.riywo.com/index.php?Meadow
(face-spec-set 'hl-line
'((((min-colors 256)
`((((min-colors 256)
(background dark))
;; Rotate midnightblue
(:background "#701919"))
(:background ,(my-gen-hl-line-color-dark)))
(((min-colors 256)
(background light))
;; TODO: What is should be?
@@ -860,25 +871,25 @@ found, otherwise returns nil."
;; Use gfind if available?
"find"))
(findcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command " find " -L . "
"-mindepth 1 "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print "
"2> /dev/null "
"| "
"cut -b3-"))
(fdcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command fd "
"--follow --hidden --no-ignore "
"--color always "
"2>/dev/null")))
(if (executable-find "fd")
(setenv "FZF_DEFAULT_COMMAND" fdcmd)
(setenv "FZF_DEFAULT_COMMAND" findcmd)))
"echo .; "
"echo ..; "
"command " find " -L . "
"-mindepth 1 "
"\\( -fstype 'sysfs' -o -fstype 'devfs' -o -fstype 'devtmpfs' -o -fstype 'proc' \\) -prune "
"-o -print "
"2> /dev/null "
"| "
"cut -b3-"))
(fdcmd (concat "set -eu; set -o pipefail; "
"echo .; "
"echo ..; "
"command fd "
"--follow --hidden --no-ignore "
"--color always "
"2>/dev/null")))
(if (executable-find "fd")
(setenv "FZF_DEFAULT_COMMAND" fdcmd)
(setenv "FZF_DEFAULT_COMMAND" findcmd)))
(set-variable 'fzf/window-height 45)
(set-variable 'fzf/args "--print-query --ansi --color='bg+:-1' --inline-info --cycle")
;; (set-variable 'fzf/args "--print-query --ansi --inline-info --cycle")


Loading…
Откажи
Сачувај