[nongnu] elpa/moe-theme ddc6c495e1 226/352: Merge pull request #39 from oppenlander/remove-cl-dependency

[ELPA Syncer]

branch: elpa/moe-theme
commit ddc6c495e1d6eb15560c3e3045a7afb0a007b80d
Merge: 2274fd2394 1801757e73
Author: kuanyui <azazabc123@gmail.com>
Commit: kuanyui <azazabc123@gmail.com>

    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)