emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/autothemer b0bf38b202 05/21: Cleanup, add package header


From: ELPA Syncer
Subject: [nongnu] elpa/autothemer b0bf38b202 05/21: Cleanup, add package header
Date: Thu, 6 Jan 2022 02:58:07 -0500 (EST)

branch: elpa/autothemer
commit b0bf38b202fc2bac54dcbee5f65d4bc9b9d8ba92
Author: Sebastian Sturm <sturm@itp.uni-leipzig.de>
Commit: Sebastian Sturm <sturm@itp.uni-leipzig.de>

    Cleanup, add package header
---
 autothemer.el | 25 ++++++++++---------------
 1 file changed, 10 insertions(+), 15 deletions(-)

diff --git a/autothemer.el b/autothemer.el
index 4b4e90e265..342b5ed5bb 100644
--- a/autothemer.el
+++ b/autothemer.el
@@ -1,9 +1,16 @@
 ;;; autothemer.el --- Conveniently define themes. -*- lexical-binding: t -*-
+
+;; Copyright 2015 Sebastian Sturm
+
+;; Author: Sebastian Sturm
+;; URL: https://github.com/sebastiansturm/autothemer
+;; Version: 0.2
+;; Package-Requires: ((dash "2.10.0") (emacs "24"))
+
 ;;; Commentary:
-;;
-;; TODO: add description
+
 ;;; Code:
-(require 'cl)
+(require 'cl-macs)
 (require 'dash)
 
 (cl-defstruct autothemer--color name value)
@@ -215,18 +222,6 @@ palette used in the most recent invocation of
     (with-current-buffer buffer (emacs-lisp-mode) (insert (pp templates)))
     (switch-to-buffer buffer)))
 
-;; (macroexpand '(autothemer-defautotheme
-;;                sometheme "somethemename"
-;;                ((((class color) (min-colors 90)) t)
-;;                 (reddish "#880011" "#FF0000")
-;;                 (bluish reddish))
-;;                ((flycheck-error (:underline t :foreground reddish :weight 
'demibold))
-;;                 (button (:box nil :background bluish))
-;;                 ;; etc.
-;;                 )
-;;                ;; execute code that uses red, orange, blue
-;;                ))
-
 (defun autothemer--append-column (list-of-lists new-column)
   "If LIST-OF-LISTS is nil, return NEW-COLUMN.  Otherwise, append to every 
element of LIST-OF-LISTS the corresponding element of NEW-COLUMN."
   (assert (or (not list-of-lists) (eq (length list-of-lists) (length 
new-column))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]