branch: elpa/moe-theme
commit ddc6c495e1d6eb15560c3e3045a7afb0a007b80d
Merge: 2274fd2394 1801757e73
Author: kuanyui <[email protected]>
Commit: kuanyui <[email protected]>
Merge pull request #39 from oppenlander/remove-cl-dependency
Removed dependency on cl functions
---
moe-theme.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/moe-theme.el b/moe-theme.el
index 71a105c339..b07dc00b22 100644
--- a/moe-theme.el
+++ b/moe-theme.el
@@ -206,10 +206,10 @@ Don't setq this manually.")
(>= (length moe-theme-resize-markdown-title) 6))
(let* ((s1 (car moe-theme-resize-markdown-title))
(s2 (cadr moe-theme-resize-markdown-title))
- (s3 (third moe-theme-resize-markdown-title))
- (s4 (fourth moe-theme-resize-markdown-title))
- (s5 (fifth moe-theme-resize-markdown-title))
- (s6 (sixth moe-theme-resize-markdown-title)))
+ (s3 (nth 2 moe-theme-resize-markdown-title))
+ (s4 (nth 3 moe-theme-resize-markdown-title))
+ (s5 (nth 4 moe-theme-resize-markdown-title))
+ (s6 (nth 5 moe-theme-resize-markdown-title)))
(progn (require 'markdown-mode)
(set-face-attribute 'markdown-header-face-1 nil :height s1)
(set-face-attribute 'markdown-header-face-2 nil :height s2)
@@ -223,13 +223,13 @@ Don't setq this manually.")
(>= (length moe-theme-resize-org-title) 9))
(let* ((s1 (car moe-theme-resize-org-title))
(s2 (cadr moe-theme-resize-org-title))
- (s3 (third moe-theme-resize-org-title))
- (s4 (fourth moe-theme-resize-org-title))
- (s5 (fifth moe-theme-resize-org-title))
- (s6 (sixth moe-theme-resize-org-title))
- (s7 (seventh moe-theme-resize-org-title))
- (s8 (eighth moe-theme-resize-org-title))
- (s9 (ninth moe-theme-resize-org-title)))
+ (s3 (nth 2 moe-theme-resize-org-title))
+ (s4 (nth 3 moe-theme-resize-org-title))
+ (s5 (nth 4 moe-theme-resize-org-title))
+ (s6 (nth 5 moe-theme-resize-org-title))
+ (s7 (nth 6 moe-theme-resize-org-title))
+ (s8 (nth 7 moe-theme-resize-org-title))
+ (s9 (nth 8 moe-theme-resize-org-title)))
(progn (require 'org)
(set-face-attribute 'org-document-title nil :height s1)
(set-face-attribute 'org-level-1 nil :height s2)
@@ -246,10 +246,10 @@ Don't setq this manually.")
(>= (length moe-theme-resize-rst-title) 6))
(let* ((s1 (car moe-theme-resize-rst-title))
(s2 (cadr moe-theme-resize-rst-title))
- (s3 (third moe-theme-resize-rst-title))
- (s4 (fourth moe-theme-resize-rst-title))
- (s5 (fifth moe-theme-resize-rst-title))
- (s6 (sixth moe-theme-resize-rst-title)))
+ (s3 (nth 2 moe-theme-resize-rst-title))
+ (s4 (nth 3 moe-theme-resize-rst-title))
+ (s5 (nth 4 moe-theme-resize-rst-title))
+ (s6 (nth 5 moe-theme-resize-rst-title)))
(progn (require 'rst)
(set-face-attribute 'rst-level-1-face nil :height s1)
(set-face-attribute 'rst-level-2-face nil :height s2)
