Emacs Theme Editor

Y la gilipollez del día es esta. Un editor de temas para emacs. No tiene mucho misterio, pero es bien práctico.

Simplemente escogemos los colores que queramos, le damos al botón ‘+’ para guardar el diseño. Para generar el código lisp le damos a ese botón de extraña forma, ese que las generaciones que empiezan a tener pelos en sus partes intimas ya no saben que es. El disquete.

Nos aparecerá algo parecido a esto.

(deftheme night-burner "DOCSTRING for night-burner")
  (custom-theme-set-faces 'night-burner
   '(default ((t (:foreground "#a49f81" :background "#000000" ))))
   '(cursor ((t (:background "#fdf4c1" ))))
   '(fringe ((t (:background "#000000" ))))
   '(mode-line ((t (:foreground "#3565a6" :background "#111111" ))))
   '(region ((t (:background "#1e1e1e" ))))
   '(secondary-selection ((t (:background "#3e3834" ))))
   '(font-lock-builtin-face ((t (:foreground "#cc1a1a" ))))
   '(font-lock-comment-face ((t (:foreground "#e7b728" ))))
   '(font-lock-function-name-face ((t (:foreground "#e3b427" ))))
   '(font-lock-keyword-face ((t (:foreground "#cc1919" ))))
   '(font-lock-string-face ((t (:foreground "#429489" ))))
   '(font-lock-type-face ((t (:foreground "#66999d" ))))
   '(font-lock-constant-face ((t (:foreground "#e7b728" ))))
   '(font-lock-variable-name-face ((t (:foreground "#3364a4" ))))
   '(minibuffer-prompt ((t (:foreground "#34629d" :bold t ))))
   '(font-lock-warning-face ((t (:foreground "red" :bold t ))))
   )

;;;###autoload
(and load-file-name
    (boundp 'custom-theme-load-path)
    (add-to-list 'custom-theme-load-path
                 (file-name-as-directory
                  (file-name-directory load-file-name))))
;; Automatically add this theme to the load path

(provide-theme 'nightlie)

Cogemos del principio hasta el ;;;###autoload y lo pegamos en el un archivo, por ejemplo night-burner.el. Los archivos lisp para emacs necesitan una cabecera y un final. Se puede usar algo similar a esto.

;;; night-burner-theme.el --- night-burner Color Theme
;; This is fucking copyleft
$lisp_code
;;; night-burner-theme.el ends here.

Yo he creado el directorio personalized-themes, dónde he metido el tema, en ~/.emacs.d/ y he añadido la ruta al init.el, tal que así.

(add-to-list 'custom-theme-load-path "/home/drymer/.emacs.d/personalized-themes/")
(load-theme 'night-burner t)

La segunda línea sirve para cargar automáticamente el tema en cuestión. Os habréis fijado que en el editor sale otra manera para integrarlo en nuestro emacs. Sois libres de probarlo.

El código y la imagen principal son de uno que he hecho yo mismo, por lo que no os recomiendo usarlo. Se verá mejor así, tal vez.