[nongnu] elpa/helm 23399802ab 04/11: make all-the-icons icons smaller for helm-imenu

[ELPA Syncer]

branch: elpa/helm
commit 23399802ab57e7bad39f5e16759e56160af355a4
Author: Ta Quang Trung <taquangtrungvn@gmail.com>
Commit: Ta Quang Trung <taquangtrungvn@gmail.com>

    make all-the-icons icons smaller for helm-imenu
---
 helm-imenu.el | 154 +++++++++++++++++++++++++++++-----------------------------
 1 file changed, 78 insertions(+), 76 deletions(-)

diff --git a/helm-imenu.el b/helm-imenu.el
index 56c975df90..b58d8a73af 100644
--- a/helm-imenu.el
+++ b/helm-imenu.el
@@ -304,82 +304,84 @@ string."
 
 (defun helm-imenu-icon-for-type (type)
   (require 'all-the-icons)
-  (helm-acase type
-    ;; ("Array" . "symbol-array.svg")
-    ;; ("Arrays" . "symbol-array.svg")
-    ;; ("Boolean" . "symbol-boolean.svg")
-    ;; ("Booleans" . "symbol-boolean.svg")
-    ;; ("Class" . "symbol-class.svg")
-    ;; ("Classes" . "symbol-class.svg")
-    ;; ("Color" . "symbol-color.svg")
-    ;; ("Colors" . "symbol-color.svg")
-    ;; ("Constant" . "symbol-constant.svg")
-    ;; ("Constants" . "symbol-constant.svg")
-    ;; ("Constructor" . "symbol-method.svg")
-    ;; ("Constructors" . "symbol-method.svg")
-    ;; ("Enum Member" . "symbol-enumerator-member.svg")
-    ;; ("Enum Members" . "symbol-enumerator-member.svg")
-    ;; ("Enum" . "symbol-enumerator.svg")
-    ;; ("Enums" . "symbol-enumerator.svg")
-    ;; ("Event" . "symbol-event.svg")
-    ;; ("Events" . "symbol-event.svg")
-    ;; ("Field" . "symbol-field.svg")
-    ;; ("Fields" . "symbol-field.svg")
-    ;; ("File" . "symbol-file.svg")
-    ;; ("Files" . "symbol-file.svg")
-    ;; ("Folder" . "folder.svg")
-    ;; ("Folders" . "folder.svg")
-    ;; ("Interface" . "symbol-interface.svg")
-    ;; ("Interfaces" . "symbol-interface.svg")
-    ;; ("Keyword" . "symbol-keyword.svg")
-    ;; ("Keywords" . "symbol-keyword.svg")
-    ("Method" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Methods" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Defun" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Defuns" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Fn" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Fns" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Function" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ("Functions" (all-the-icons-faicon "cube-thin" :face 
font-lock-function-name-face))
-    ;; ("Misc" . "symbol-misc.svg")
-    ;; ("Miscs" . "symbol-misc.svg")
-    ("Module" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
-    ("Modules" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
-    ;; ("Numeric" . "symbol-numeric.svg")
-    ;; ("Numerics" . "symbol-numeric.svg")
-    ("Object" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
-    ("Objects" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
-    ;; ("Operator" . "symbol-operator.svg")
-    ;; ("Operators" . "symbol-operator.svg")
-    ;; ("Property" . "symbol-property.svg")
-    ;; ("Propertys" . "symbol-property.svg")
-    ;; ("Reference" . "references.svg")
-    ;; ("References" . "references.svg")
-    ;; ("Snippet" . "symbol-snippet.svg")
-    ;; ("Snippets" . "symbol-snippet.svg")
-    ;; ("String" . "symbol-string.svg")
-    ;; ("Strings" . "symbol-string.svg")
-    ;; ("Struct" . "symbol-structure.svg")
-    ;; ("Structs" . "symbol-structure.svg")
-    ;; ("Text" . "symbol-key.svg")
-    ;; ("Texts" . "symbol-key.svg")
-    ;; ("Type" . "symbol-enumerator.svg")
-    ;; ("Types" . "symbol-enumerator.svg")
-    ;; ("Type Parameter" . "symbol-parameter.svg")
-    ;; ("Type Parameters" . "symbol-parameter.svg")
-    ;; ("Unit" . "symbol-ruler.svg")
-    ;; ("Units" . "symbol-ruler.svg")
-    ;; ("Value" . "symbol-enumerator.svg")
-    ;; ("Values" . "symbol-enumerator.svg")
-    ;; ("Variable" . "symbol-variable.svg")
-    ;; ("Variables" . "symbol-variable.svg")
-    ;; ("Misc" . "symbol-misc.svg")
-    ;; ("Top level" . "symbol-misc.svg")
-    ("Variable"  (all-the-icons-octicon "book" :face 
font-lock-variable-name-face))
-    ("Variables" (all-the-icons-octicon "book":face 
font-lock-variable-name-face))
-    ("Function"  (all-the-icons-faicon "language" :face 
font-lock-function-name-face))
-    ("Types"     (all-the-icons-fileicon "typedoc" :face font-lock-type-face))
-    (t           (all-the-icons-alltheicon "atom"))))
+  (let ((all-the-icons-scale-factor 1.0)
+        (all-the-icons-default-adjust 0.0))
+    (helm-acase type
+      ;; ("Array" . "symbol-array.svg")
+      ;; ("Arrays" . "symbol-array.svg")
+      ;; ("Boolean" . "symbol-boolean.svg")
+      ;; ("Booleans" . "symbol-boolean.svg")
+      ;; ("Class" . "symbol-class.svg")
+      ;; ("Classes" . "symbol-class.svg")
+      ;; ("Color" . "symbol-color.svg")
+      ;; ("Colors" . "symbol-color.svg")
+      ;; ("Constant" . "symbol-constant.svg")
+      ;; ("Constants" . "symbol-constant.svg")
+      ;; ("Constructor" . "symbol-method.svg")
+      ;; ("Constructors" . "symbol-method.svg")
+      ;; ("Enum Member" . "symbol-enumerator-member.svg")
+      ;; ("Enum Members" . "symbol-enumerator-member.svg")
+      ;; ("Enum" . "symbol-enumerator.svg")
+      ;; ("Enums" . "symbol-enumerator.svg")
+      ;; ("Event" . "symbol-event.svg")
+      ;; ("Events" . "symbol-event.svg")
+      ;; ("Field" . "symbol-field.svg")
+      ;; ("Fields" . "symbol-field.svg")
+      ;; ("File" . "symbol-file.svg")
+      ;; ("Files" . "symbol-file.svg")
+      ;; ("Folder" . "folder.svg")
+      ;; ("Folders" . "folder.svg")
+      ;; ("Interface" . "symbol-interface.svg")
+      ;; ("Interfaces" . "symbol-interface.svg")
+      ;; ("Keyword" . "symbol-keyword.svg")
+      ;; ("Keywords" . "symbol-keyword.svg")
+      ("Method" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ("Methods" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ("Defun" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ("Defuns" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ("Fn" (all-the-icons-faicon "cube" :face font-lock-function-name-face))
+      ("Fns" (all-the-icons-faicon "cube" :face font-lock-function-name-face))
+      ("Function" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ("Functions" (all-the-icons-faicon "cube" :face 
font-lock-function-name-face))
+      ;; ("Misc" . "symbol-misc.svg")
+      ;; ("Miscs" . "symbol-misc.svg")
+      ("Module" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
+      ("Modules" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
+      ;; ("Numeric" . "symbol-numeric.svg")
+      ;; ("Numerics" . "symbol-numeric.svg")
+      ("Object" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
+      ("Objects" (all-the-icons-faicon "brackets-curly" :face 
font-lock-type-face))
+      ;; ("Operator" . "symbol-operator.svg")
+      ;; ("Operators" . "symbol-operator.svg")
+      ;; ("Property" . "symbol-property.svg")
+      ;; ("Propertys" . "symbol-property.svg")
+      ;; ("Reference" . "references.svg")
+      ;; ("References" . "references.svg")
+      ;; ("Snippet" . "symbol-snippet.svg")
+      ;; ("Snippets" . "symbol-snippet.svg")
+      ;; ("String" . "symbol-string.svg")
+      ;; ("Strings" . "symbol-string.svg")
+      ;; ("Struct" . "symbol-structure.svg")
+      ;; ("Structs" . "symbol-structure.svg")
+      ;; ("Text" . "symbol-key.svg")
+      ;; ("Texts" . "symbol-key.svg")
+      ;; ("Type" . "symbol-enumerator.svg")
+      ;; ("Types" . "symbol-enumerator.svg")
+      ;; ("Type Parameter" . "symbol-parameter.svg")
+      ;; ("Type Parameters" . "symbol-parameter.svg")
+      ;; ("Unit" . "symbol-ruler.svg")
+      ;; ("Units" . "symbol-ruler.svg")
+      ;; ("Value" . "symbol-enumerator.svg")
+      ;; ("Values" . "symbol-enumerator.svg")
+      ;; ("Variable" . "symbol-variable.svg")
+      ;; ("Variables" . "symbol-variable.svg")
+      ;; ("Misc" . "symbol-misc.svg")
+      ;; ("Top level" . "symbol-misc.svg")
+      ("Variable"  (all-the-icons-octicon "book" :face 
font-lock-variable-name-face))
+      ("Variables" (all-the-icons-octicon "book":face 
font-lock-variable-name-face))
+      ("Function"  (all-the-icons-faicon "language" :face 
font-lock-function-name-face))
+      ("Types"     (all-the-icons-fileicon "typedoc" :face 
font-lock-type-face))
+      (t           (all-the-icons-alltheicon "atom")))))
 
 (defun helm-imenu-transformer (candidates)
   (cl-loop with type