config

Personal configuration.
git clone git://code.dwrz.net/config
Log | Files | Refs

nerd-icons.el (92459B)


      1 ;;; nerd-icons.el --- Emacs Nerd Font Icons Library -*- lexical-binding: t -*-
      2 
      3 ;; Copyright (C) 2023 Hongyu Ding <rainstormstudio@yahoo.com>
      4 
      5 ;; Author: Hongyu Ding <rainstormstudio@yahoo.com>, Vincent Zhang <seagle0128@gmail.com>
      6 ;; Keywords: lisp
      7 ;; Version: 0.1.0
      8 ;; Package-Requires: ((emacs "24.3"))
      9 ;; URL: https://github.com/rainstormstudio/nerd-icons.el
     10 ;; Keywords: convenient, lisp
     11 
     12 ;; This program is free software; you can redistribute it and/or modify
     13 ;; it under the terms of the GNU General Public License as published by
     14 ;; the Free Software Foundation, either version 3 of the License, or
     15 ;; (at your option) any later version.
     16 
     17 ;; This program is distributed in the hope that it will be useful,
     18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
     19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     20 ;; GNU General Public License for more details.
     21 
     22 ;; You should have received a copy of the GNU General Public License
     23 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
     24 
     25 ;;; Commentary:
     26 
     27 ;; This package was inspired by
     28 
     29 ;; - `all-the-icons', found at https://github.com/Alexander-Miller/treemacs/blob/master/src/extra/treemacs-all-the-icons.el
     30 ;; - `vim-devicons' for Vim, found at https://github.com/ryanoasis/vim-devicons
     31 ;; - `nvim-web-devicons' for NeoVim, found at https://github.com/nvim-tree/nvim-web-devicons
     32 
     33 ;; This package provides an interface to the Nerd Fonts
     34 
     35 ;; - `nerd-fonts', found at https://github.com/ryanoasis/nerd-fonts
     36 
     37 ;;; Code:
     38 
     39 (require 'cl-lib)
     40 
     41 (require 'nerd-icons-data)
     42 (require 'nerd-icons-faces)
     43 
     44 (declare-function set-fontset-font "src/fontset.c")
     45 
     46 (defgroup nerd-icons nil
     47   "Manage how Nerd Fonts formats icons."
     48   :prefix "nerd-icons-"
     49   :group 'appearance
     50   :group 'convenience)
     51 
     52 (defcustom nerd-icons-color-icons t
     53   "Whether or not to include a foreground color when formatting the icon."
     54   :group 'nerd-icons
     55   :type 'boolean)
     56 
     57 (defcustom nerd-icons-scale-factor 1.0
     58   "The base Scale Factor for the `height' face property of an icon."
     59   :group 'nerd-icons
     60   :type 'number)
     61 
     62 (defcustom nerd-icons-default-adjust 0.0
     63   "The default adjustment to be made to the `raise' display property of an icon."
     64   :group 'nerd-icons
     65   :type 'number)
     66 
     67 (defcustom nerd-icons--cache-limit 2048
     68   "Maximum cache size for functions cached by `nerd-icons-cache'."
     69   :group 'nerd-icons
     70   :type 'integer)
     71 
     72 (defcustom nerd-icons-font-family "Symbols Nerd Font Mono"
     73   "The Nerd Font for display icons."
     74   :group 'nerd-icons
     75   :type 'string)
     76 
     77 (defcustom nerd-icons-fonts-subdirectory nil
     78   "The subdirectory within the system fonts folder where the icons are installed."
     79   :group 'nerd-icons
     80   :type 'directory)
     81 
     82 (defvar nerd-icons-font-names '("NFM.ttf")
     83   "List of defined font file names.")
     84 
     85 (defvar nerd-icons-glyph-sets '() "List of defined icon glyph sets.")
     86 
     87 (defvar nerd-icons-extension-icon-alist
     88   '(
     89     ("fish"           nerd-icons-devicon "nf-dev-terminal"       :face nerd-icons-lpink)
     90     ("zsh"            nerd-icons-devicon "nf-dev-terminal"       :face nerd-icons-lcyan)
     91     ("sh"             nerd-icons-devicon "nf-dev-terminal"       :face nerd-icons-purple)
     92     ("bat"            nerd-icons-codicon "nf-cod-terminal_cmd"   :face nerd-icons-lsilver)
     93     ("cmd"            nerd-icons-codicon "nf-cod-terminal_cmd"   :face nerd-icons-lsilver)
     94     ;; Meta
     95     ("tags"           nerd-icons-octicon "nf-oct-tag"            :face nerd-icons-blue)
     96     ("log"            nerd-icons-octicon "nf-oct-log"            :face nerd-icons-maroon)
     97     ;; Config
     98     ("node"           nerd-icons-devicon "nf-dev-nodejs_small"   :face nerd-icons-green)
     99     ("babelrc"        nerd-icons-mdicon "nf-md-babel"            :face nerd-icons-yellow)
    100     ("bashrc"         nerd-icons-mdicon "nf-md-bash"             :face nerd-icons-dpink)
    101     ("bowerrc"        nerd-icons-devicon "nf-dev-bower"          :face nerd-icons-silver)
    102     ("cr"             nerd-icons-sucicon "nf-seti-crystal"       :face nerd-icons-yellow)
    103     ("ecr"            nerd-icons-sucicon "nf-seti-crystal"       :face nerd-icons-yellow)
    104     ("ini"            nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-yellow)
    105     ("properties"     nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-yellow)
    106     ("eslintignore"   nerd-icons-mdicon "nf-md-eslint"           :face nerd-icons-purple)
    107     ("eslint"         nerd-icons-mdicon "nf-md-eslint"           :face nerd-icons-lpurple)
    108     ("git"            nerd-icons-sucicon "nf-seti-git"            :face nerd-icons-lred)
    109     ("gitattributes"  nerd-icons-sucicon "nf-seti-git"            :face nerd-icons-lred)
    110     ("gitignore"      nerd-icons-sucicon "nf-seti-git"            :face nerd-icons-lred)
    111     ("gitmodules"     nerd-icons-sucicon "nf-seti-git"            :face nerd-icons-lred)
    112     ("mk"             nerd-icons-devicon "nf-dev-gnu"            :face nerd-icons-dorange)
    113     ;; ("cmake"    nerd-icons-devicon "cmake") TODO: cmake
    114     ("dockerignore"   nerd-icons-devicon "nf-dev-docker"         :face nerd-icons-dblue)
    115     ("xml"            nerd-icons-faicon "nf-fa-file_code_o"      :face nerd-icons-lorange)
    116     ("json"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-yellow)
    117     ("jsonl"          nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-yellow)
    118     ("cson"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-yellow)
    119     ("yml"            nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-dyellow)
    120     ("yaml"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-dyellow)
    121     ("toml"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-orange)
    122     ("conf"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-dorange)
    123     ("editorconfig"   nerd-icons-sucicon "nf-seti-editorconfig"  :face nerd-icons-silver)
    124     ;; ?
    125     ("pkg"            nerd-icons-octicon "nf-oct-package"        :face nerd-icons-dsilver)
    126     ("rpm"            nerd-icons-octicon "nf-oct-package"        :face nerd-icons-dsilver)
    127     ("pkgbuild"       nerd-icons-octicon "nf-oct-package"        :face nerd-icons-dsilver)
    128     ("elc"            nerd-icons-octicon "nf-oct-file_binary"    :face nerd-icons-dsilver)
    129     ("eln"            nerd-icons-octicon "nf-oct-file_binary"    :face nerd-icons-dsilver)
    130     ("gz"             nerd-icons-octicon "nf-oct-file_binary"    :face nerd-icons-lmaroon)
    131     ("zip"            nerd-icons-octicon "nf-oct-file_zip"       :face nerd-icons-lmaroon)
    132     ("7z"             nerd-icons-octicon "nf-oct-file_zip"       :face nerd-icons-lmaroon)
    133     ("zst"            nerd-icons-octicon "nf-oct-file_zip"       :face nerd-icons-lmaroon)
    134     ("dat"            nerd-icons-faicon "nf-fa-bar_chart"        :face nerd-icons-cyan)
    135     ("dmg"            nerd-icons-octicon "nf-oct-tools"          :face nerd-icons-lsilver)
    136     ("dll"            nerd-icons-faicon "nf-fa-cogs"             :face nerd-icons-silver)
    137     ("ds_store"       nerd-icons-faicon "nf-fa-cogs"             :face nerd-icons-silver)
    138     ("exe"            nerd-icons-octicon "nf-oct-file_binary"    :face nerd-icons-dsilver)
    139     ("msg"            nerd-icons-octicon "nf-oct-mail"           :face nerd-icons-dsilver)
    140     ;; Source Codes
    141     ("ada"            nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-blue)
    142     ("adb"            nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-blue)
    143     ("adc"            nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-blue)
    144     ("ads"            nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-blue)
    145     ("gpr"            nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-green)
    146     ("cgpr"           nerd-icons-sucicon "nf-custom-ada"         :face nerd-icons-green)
    147     ("scpt"           nerd-icons-devicon "nf-dev-apple"          :face nerd-icons-pink)
    148     ;; ("aup"         nerd-icons-fileicon "audacity") TODO: audacity
    149     ("elm"            nerd-icons-sucicon "nf-seti-elm"           :face nerd-icons-blue)
    150     ("erl"            nerd-icons-devicon "nf-dev-erlang"         :face nerd-icons-red)
    151     ("hrl"            nerd-icons-devicon "nf-dev-erlang"         :face nerd-icons-dred)
    152     ("eex"            nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lorange)
    153     ("leex"           nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lorange)
    154     ("heex"           nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lorange)
    155     ("ex"             nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lpurple)
    156     ("exs"            nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lred)
    157     ("livemd"         nerd-icons-sucicon "nf-seti-elixir"        :face nerd-icons-lblue)
    158     ("java"           nerd-icons-devicon "nf-dev-java"           :face nerd-icons-purple)
    159     ("groovy"         nerd-icons-devicon "nf-dev-groovy"         :face nerd-icons-cyan)
    160     ("gradle"         nerd-icons-sucicon "nf-seti-gradle"        :face nerd-icons-silver)
    161     ("ebuild"         nerd-icons-mdicon "nf-md-gentoo"           :face nerd-icons-cyan)
    162     ("eclass"         nerd-icons-mdicon "nf-md-gentoo"           :face nerd-icons-blue)
    163     ("go"             nerd-icons-devicon "nf-dev-go"             :face nerd-icons-blue)
    164     ("jl"             nerd-icons-sucicon "nf-seti-julia"         :face nerd-icons-purple)
    165     ("magik"          nerd-icons-faicon "nf-fa-magic"            :face nerd-icons-blue)
    166     ;; ("matlab"      nerd-icons-devicon "matlab") TODO: matlab
    167     ("nix"            nerd-icons-mdicon "nf-md-nix"              :face nerd-icons-blue)
    168     ("pl"             nerd-icons-sucicon "nf-seti-perl"          :face nerd-icons-lorange)
    169     ("pm"             nerd-icons-sucicon "nf-seti-perl"          :face nerd-icons-lorange)
    170     ;; ("pl6"         nerd-icons-devicon"raku") TODO: raku
    171     ;; ("pm6"         nerd-icons-devicon "raku") TODO: raku
    172     ("pod"            nerd-icons-devicon "nf-dev-perl"           :face nerd-icons-lgreen)
    173     ("php"            nerd-icons-devicon "nf-dev-php"            :face nerd-icons-lsilver)
    174     ;; ("pony"        nerd-icons-devicon "pony") TODO: pony
    175     ("ps1"            nerd-icons-mdicon "nf-md-powershell"       :face nerd-icons-blue)
    176     ("pro"            nerd-icons-sucicon "nf-seti-prolog"        :face nerd-icons-lmaroon)
    177     ("proog"          nerd-icons-sucicon "nf-seti-prolog"        :face nerd-icons-lmaroon)
    178     ("py"             nerd-icons-devicon "nf-dev-python"         :face nerd-icons-dblue)
    179     ;; ("idr"         nerd-icons-devicon "idris") TODO: idris
    180     ;; ("ipynb"       nerd-icons-devicon "jupyter") TODO: jupyter
    181     ("gem"            nerd-icons-devicon "nf-dev-ruby"           :face nerd-icons-red)
    182     ;; ("raku"        nerd-icons-devicon "raku") TODO: raku
    183     ;; ("rakumod"     nerd-icons-devicon "raku") TODO: raku
    184     ("rb"             nerd-icons-octicon "nf-oct-ruby"           :face nerd-icons-lred)
    185     ("rs"             nerd-icons-devicon "nf-dev-rust"           :face nerd-icons-maroon)
    186     ("rlib"           nerd-icons-devicon "nf-dev-rust"           :face nerd-icons-dmaroon)
    187     ("r"              nerd-icons-sucicon "nf-seti-r"             :face nerd-icons-lblue)
    188     ("rd"             nerd-icons-sucicon "nf-seti-r"             :face nerd-icons-lblue)
    189     ("rdx"            nerd-icons-sucicon "nf-seti-r"             :face nerd-icons-lblue)
    190     ("rsx"            nerd-icons-sucicon "nf-seti-r"             :face nerd-icons-lblue)
    191     ("svelte"         nerd-icons-sucicon "nf-seti-svelte"        :face nerd-icons-red)
    192     ("gql"            nerd-icons-mdicon "nf-md-graphql"          :face nerd-icons-dpink)
    193     ("graphql"        nerd-icons-mdicon "nf-md-graphql"          :face nerd-icons-dpink)
    194     ;; There seems to be a a bug with this font icon which does not
    195     ;; let you propertise it without it reverting to being a lower
    196     ;; case phi
    197     ("c"              nerd-icons-sucicon "nf-custom-c"           :face nerd-icons-blue)
    198     ("h"              nerd-icons-faicon "nf-fa-h_square"         :face nerd-icons-purple)
    199     ("m"              nerd-icons-devicon "nf-dev-apple" )
    200     ("mm"             nerd-icons-devicon "nf-dev-apple" )
    201     ;;
    202     ("cc"             nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-blue)
    203     ("cpp"            nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-blue)
    204     ("cxx"            nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-blue)
    205     ("hh"             nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-purple)
    206     ("hpp"            nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-purple)
    207     ("hxx"            nerd-icons-sucicon "nf-custom-cpp"         :face nerd-icons-purple)
    208     ;; Lisps
    209     ("cl"             nerd-icons-sucicon "nf-custom-common_lisp" :face nerd-icons-lorange)
    210     ("l"              nerd-icons-sucicon "nf-custom-scheme"      :face nerd-icons-orange)
    211     ("lisp"           nerd-icons-sucicon "nf-custom-scheme"      :face nerd-icons-orange)
    212     ;; ("hy"             nerd-icons-sucicon "nf-custom-hy"          :face nerd-icons-blue)
    213     ("el"             nerd-icons-sucicon "nf-custom-emacs"       :face nerd-icons-purple)
    214     ("clj"            nerd-icons-devicon "nf-dev-clojure"        :face nerd-icons-blue)
    215     ("cljc"           nerd-icons-devicon "nf-dev-clojure"        :face nerd-icons-blue)
    216     ("cljs"           nerd-icons-devicon "nf-dev-clojure"        :face nerd-icons-lyellow)
    217     ("coffee"         nerd-icons-devicon "nf-dev-coffeescript"   :face nerd-icons-maroon)
    218     ("iced"           nerd-icons-devicon "nf-dev-coffeescript"   :face nerd-icons-lmaroon)
    219     ("dart"           nerd-icons-devicon "nf-dev-dart"           :face nerd-icons-blue)
    220     ("ledger"         nerd-icons-mdicon  "nf-md-file_table_box_multiple" :face nerd-icons-green)
    221     ("rkt"            nerd-icons-sucicon "nf-custom-scheme"       :face nerd-icons-red)
    222     ("scrbl"          nerd-icons-sucicon "nf-custom-scheme"       :face nerd-icons-blue)
    223     ;; Stylesheeting
    224     ("css"            nerd-icons-devicon "nf-dev-css3"           :face nerd-icons-yellow)
    225     ("scss"           nerd-icons-mdicon "nf-md-sass"             :face nerd-icons-pink)
    226     ("sass"           nerd-icons-mdicon "nf-md-sass"             :face nerd-icons-dpink)
    227     ("less"           nerd-icons-devicon "nf-dev-less"           :face nerd-icons-dyellow)
    228     ;; ("postcss"     nerd-icons-devicon "postcss") TODO: postcss
    229     ;; ("sss"         nerd-icons-devicon "postcss") TODO: postcss
    230     ("styl"           nerd-icons-devicon "nf-dev-stylus"         :face nerd-icons-lgreen)
    231     ("csv"            nerd-icons-octicon "nf-oct-graph"          :face nerd-icons-dblue)
    232     ;; haskell
    233     ("hs"             nerd-icons-devicon "nf-dev-haskell"        :face nerd-icons-red)
    234     ("chs"            nerd-icons-devicon "nf-dev-haskell"        :face nerd-icons-red)
    235     ("lhs"            nerd-icons-devicon "nf-dev-haskell"        :face nerd-icons-red)
    236     ("hsc"            nerd-icons-devicon "nf-dev-haskell"        :face nerd-icons-red)
    237     ;; Web modes
    238     ("inky-haml"      nerd-icons-sucicon "nf-seti-haml"          :face nerd-icons-lyellow)
    239     ("haml"           nerd-icons-sucicon "nf-seti-haml"          :face nerd-icons-lyellow)
    240     ("htm"            nerd-icons-devicon "nf-dev-html5"          :face nerd-icons-orange)
    241     ("html"           nerd-icons-devicon "nf-dev-html5"          :face nerd-icons-orange)
    242     ("inky-er"        nerd-icons-devicon "nf-dev-html5"          :face nerd-icons-lred)
    243     ("inky-erb"       nerd-icons-devicon "nf-dev-html5"          :face nerd-icons-lred)
    244     ("erb"            nerd-icons-devicon "nf-dev-html5"          :face nerd-icons-lred)
    245     ;; ("hbs"         nerd-icons-fileicon "moustache") TODO: moustache
    246     ("inky-slim"      nerd-icons-codicon "nf-cod-dashboard"      :face nerd-icons-yellow)
    247     ("slim"           nerd-icons-codicon "nf-cod-dashboard"      :face nerd-icons-yellow)
    248     ("jade"           nerd-icons-sucicon "nf-seti-jade"          :face nerd-icons-red)
    249     ("pug"            nerd-icons-sucicon "nf-seti-pug"           :face nerd-icons-red)
    250     ;; Javascript
    251     ;; ("d3js"        nerd-icons-devicon "d3") TODO: d3
    252     ("re"             nerd-icons-sucicon "nf-seti-reasonml"      :face nerd-icons-red-alt)
    253     ("rei"            nerd-icons-sucicon "nf-seti-reasonml"      :face nerd-icons-dred)
    254     ("ml"             nerd-icons-sucicon "nf-seti-ocaml"         :face nerd-icons-lpink)
    255     ("mli"            nerd-icons-sucicon "nf-seti-ocaml"         :face nerd-icons-dpink)
    256     ("react"          nerd-icons-devicon "nf-dev-react"          :face nerd-icons-lblue)
    257     ("ts"             nerd-icons-sucicon "nf-seti-typescript"    :face nerd-icons-blue-alt)
    258     ("js"             nerd-icons-devicon "nf-dev-javascript"     :face nerd-icons-yellow)
    259     ("es"             nerd-icons-devicon "nf-dev-javascript"     :face nerd-icons-yellow)
    260     ("jsx"            nerd-icons-devicon "nf-dev-javascript"     :face nerd-icons-cyan-alt)
    261     ("tsx"            nerd-icons-sucicon "nf-seti-typescript"    :face nerd-icons-blue-alt)
    262     ("njs"            nerd-icons-mdicon "nf-md-nodejs"           :face nerd-icons-lgreen)
    263     ("vue"            nerd-icons-sucicon "nf-seti-vue"           :face nerd-icons-lgreen)
    264 
    265     ("sbt"            nerd-icons-sucicon "nf-seti-sbt"           :face nerd-icons-red)
    266     ("scala"          nerd-icons-devicon "nf-dev-scala"          :face nerd-icons-red)
    267     ("scm"            nerd-icons-sucicon "nf-custom-scheme"      :face nerd-icons-red)
    268     ("swift"          nerd-icons-devicon "nf-dev-swift"          :face nerd-icons-green)
    269 
    270     ("tcl"            nerd-icons-mdicon "nf-md-feather"          :face nerd-icons-dred)
    271     ("exp"            nerd-icons-mdicon "nf-md-feather"          :face nerd-icons-dred)
    272 
    273     ("tf"             nerd-icons-mdicon "nf-md-terraform"        :face nerd-icons-purple-alt)
    274     ("tfvars"         nerd-icons-mdicon "nf-md-terraform"        :face nerd-icons-purple-alt)
    275     ("tfstate"        nerd-icons-mdicon "nf-md-terraform"        :face nerd-icons-purple-alt)
    276 
    277     ("asm"            nerd-icons-sucicon "nf-seti-asm"           :face nerd-icons-blue)
    278     ;; Verilog(-AMS) and SystemVerilog(-AMS     ;; Verilog(-AMS) and SystemVerilog(-AMS)
    279     ("v"              nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    280     ("vams"           nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    281     ("sv"             nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    282     ("sva"            nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    283     ("svh"            nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    284     ("svams"          nerd-icons-mdicon "nf-md-chip"             :face nerd-icons-red)
    285     ;; VHDL(-AMS     ;; VHDL(-AMS)
    286     ("vhd"            nerd-icons-octicon "nf-oct-cpu"            :face nerd-icons-blue)
    287     ("vhdl"           nerd-icons-octicon "nf-oct-cpu"            :face nerd-icons-blue)
    288     ("vhms"           nerd-icons-octicon "nf-oct-cpu"            :face nerd-icons-blue)
    289     ;; Cabal
    290     ;; ("cabal"       nerd-icons-devicon "cabal") TODO: cabal
    291     ;; Kotlin
    292     ("kt"             nerd-icons-sucicon "nf-seti-kotlin"        :face nerd-icons-orange)
    293     ("kts"            nerd-icons-sucicon "nf-seti-kotlin"        :face nerd-icons-orange)
    294     ;; Nimrod
    295     ("nim"            nerd-icons-sucicon "nf-seti-nim"           :face nerd-icons-yellow)
    296     ("nims"           nerd-icons-sucicon "nf-seti-nim"           :face nerd-icons-yellow)
    297     ;; SQL
    298     ("sql"            nerd-icons-octicon "nf-oct-database"       :face nerd-icons-silver)
    299     ;; Styles
    300     ;; ("styles"      nerd-icons-devicon "style") TODO: style
    301     ;; Lua
    302     ("lua"            nerd-icons-sucicon "nf-seti-lua"           :face nerd-icons-dblue)
    303     ;; ASCII doc
    304     ;; ("adoc"        nerd-icons-devicon "asciidoc") TODO: asciidoc
    305     ;; ("asciidoc"    nerd-icons-devicon "asciidoc") TODO: asciidoc
    306     ;; Puppet
    307     ("pp"             nerd-icons-sucicon "nf-seti-puppet"        :face nerd-icons-yellow)
    308     ;; Jinja
    309     ("j2"             nerd-icons-sucicon "nf-seti-jinja"         :face nerd-icons-silver)
    310     ("jinja2"         nerd-icons-sucicon "nf-seti-jinja"         :face nerd-icons-silver)
    311     ;; Docker
    312     ("dockerfile"     nerd-icons-sucicon "nf-seti-docker"        :face nerd-icons-cyan)
    313     ;; Vagrant
    314     ;; ("vagrantfile" nerd-icons-fileicon "vagrant") TODO: vagrant
    315     ;; GLSL
    316     ("glsl"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-blue)
    317     ("vert"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-blue)
    318     ("tesc"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-purple)
    319     ("tese"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-dpurple)
    320     ("geom"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-green)
    321     ("frag"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-red)
    322     ("comp"           nerd-icons-faicon "nf-fa-paint_brush"      :face nerd-icons-dblue)
    323     ;; CUDA
    324     ("cu"             nerd-icons-sucicon "nf-custom-c"           :face nerd-icons-green)
    325     ("cuh"            nerd-icons-faicon "nf-fa-h_square"         :face nerd-icons-green)
    326     ;; Fortran
    327     ("f90"            nerd-icons-mdicon "nf-md-language_fortran" :face nerd-icons-purple)
    328     ;; C#
    329     ("cs"             nerd-icons-mdicon "nf-md-language_csharp"  :face nerd-icons-dblue)
    330     ("csx"            nerd-icons-mdicon "nf-md-language_csharp"  :face nerd-icons-dblue)
    331     ;; F#
    332     ("fs"             nerd-icons-devicon "nf-dev-fsharp"         :face nerd-icons-blue-alt)
    333     ("fsi"            nerd-icons-devicon "nf-dev-fsharp"         :face nerd-icons-blue-alt)
    334     ("fsx"            nerd-icons-devicon "nf-dev-fsharp"         :face nerd-icons-blue-alt)
    335     ("fsscript"       nerd-icons-devicon "nf-dev-fsharp"         :face nerd-icons-blue-alt)
    336     ;; Godot / GDScript
    337     ("gd"             nerd-icons-sucicon "nf-seti-godot"         :face nerd-icons-blue)
    338     ("tscn"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-orange)
    339     ("tres"           nerd-icons-codicon "nf-cod-settings"       :face nerd-icons-orange)
    340     ;; zig
    341     ("zig"            nerd-icons-sucicon "nf-seti-zig"           :face nerd-icons-orange)
    342     ;; odin
    343     ;; ("odin"        nerd-icons-fileicon "odin") TODO: odin
    344     ;; File Types
    345     ("ico"            nerd-icons-octicon "nf-oct-file_media"     :face nerd-icons-blue)
    346     ("png"            nerd-icons-mdicon "nf-md-file_png_box"     :face nerd-icons-orange)
    347     ("gif"            nerd-icons-mdicon "nf-md-file_gif_box"     :face nerd-icons-green)
    348     ("jpeg"           nerd-icons-mdicon "nf-md-file_jpg_box"     :face nerd-icons-dblue)
    349     ("jpg"            nerd-icons-mdicon "nf-md-file_jpg_box"     :face nerd-icons-dblue)
    350     ("webp"           nerd-icons-octicon "nf-oct-file_media"     :face nerd-icons-dblue)
    351     ("xpm"            nerd-icons-octicon "nf-oct-file_media"     :face nerd-icons-dgreen)
    352     ;; Audio
    353     ("mp3"            nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    354     ("wav"            nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    355     ("m4a"            nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    356     ("ogg"            nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    357     ("flac"           nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    358     ("opus"           nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    359     ("au"             nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    360     ("aif"            nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    361     ("aifc"           nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    362     ("aiff"           nerd-icons-faicon "nf-fa-music"            :face nerd-icons-dred)
    363     ("svg"            nerd-icons-sucicon "nf-seti-svg"           :face nerd-icons-lgreen)
    364     ;; Video
    365     ("mov"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    366     ("mp4"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    367     ("ogv"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-dblue)
    368     ("mpg"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    369     ("mpeg"           nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    370     ("flv"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    371     ("ogv"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-dblue)
    372     ("mkv"            nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    373     ("webm"           nerd-icons-faicon "nf-fa-film"             :face nerd-icons-blue)
    374     ;; Fonts
    375     ("ttf"            nerd-icons-faicon "nf-fa-font"             :face nerd-icons-dcyan)
    376     ("woff"           nerd-icons-faicon "nf-fa-font"             :face nerd-icons-cyan)
    377     ("woff2"          nerd-icons-faicon "nf-fa-font"             :face nerd-icons-cyan)
    378     ;; Archives
    379     ("iso"            nerd-icons-mdicon "nf-md-disc"            :face nerd-icons-orange)
    380     ("tar"            nerd-icons-mdicon "nf-md-zip_box"          :face nerd-icons-orange)
    381     ("rar"            nerd-icons-mdicon "nf-md-zip_box"          :face nerd-icons-orange)
    382     ("tgz"            nerd-icons-mdicon "nf-md-zip_box"          :face nerd-icons-orange)
    383     ("jar"            nerd-icons-devicon "nf-dev-java"           :face nerd-icons-dpurple)
    384     ;; Doc
    385     ("pdf"            nerd-icons-codicon "nf-cod-file_pdf"       :face nerd-icons-dred)
    386     ("text"           nerd-icons-faicon "nf-fa-file_text"        :face nerd-icons-cyan)
    387     ("txt"            nerd-icons-faicon "nf-fa-file_text"        :face nerd-icons-cyan)
    388     ("doc"            nerd-icons-mdicon "nf-md-file_word"        :face nerd-icons-blue)
    389     ("docx"           nerd-icons-mdicon "nf-md-file_word"        :face nerd-icons-blue)
    390     ("docm"           nerd-icons-mdicon "nf-md-file_word"        :face nerd-icons-blue)
    391     ("texi"           nerd-icons-sucicon "nf-seti-tex"           :face nerd-icons-lred)
    392     ("tex"            nerd-icons-sucicon "nf-seti-tex"           :face nerd-icons-lred)
    393     ("ltx"            nerd-icons-sucicon "nf-seti-tex"           :face nerd-icons-lred)
    394     ("dtx"            nerd-icons-sucicon "nf-seti-tex"           :face nerd-icons-lred)
    395     ("sty"            nerd-icons-sucicon "nf-seti-tex"           :face nerd-icons-lred)
    396     ("md"             nerd-icons-octicon "nf-oct-markdown"       :face nerd-icons-lblue)
    397     ("bib"            nerd-icons-mdicon "nf-md-book"             :face nerd-icons-lblue)
    398     ("org"            nerd-icons-sucicon "nf-custom-orgmode"     :face nerd-icons-lgreen)
    399     ("org_archive"    nerd-icons-sucicon "nf-custom-orgmode"     :face nerd-icons-lgreen)
    400     ("pps"            nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-orange)
    401     ("ppt"            nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-orange)
    402     ("pptx"           nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-orange)
    403     ("pptsx"          nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-orange)
    404     ("ppttx"          nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-orange)
    405     ("knt"            nerd-icons-mdicon "nf-md-file_powerpoint"  :face nerd-icons-cyan)
    406     ("xlsx"           nerd-icons-mdicon "nf-md-file_excel"       :face nerd-icons-dgreen)
    407     ("xlsm"           nerd-icons-mdicon "nf-md-file_excel"       :face nerd-icons-dgreen)
    408     ("xlsb"           nerd-icons-mdicon "nf-md-file_excel"       :face nerd-icons-dgreen)
    409     ("xltx"           nerd-icons-mdicon "nf-md-file_excel"       :face nerd-icons-dgreen)
    410     ("xltm"           nerd-icons-mdicon "nf-md-file_excel"       :face nerd-icons-dgreen)
    411     ("epub"           nerd-icons-mdicon "nf-md-book_open"        :face nerd-icons-green)
    412     ("ly"             nerd-icons-faicon "nf-fa-music"            :face nerd-icons-green)
    413     ;;
    414     ("key"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-lblue)
    415     ("pem"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-orange)
    416     ("p12"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-dorange)
    417     ("crt"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-lblue)
    418     ("pub"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-blue)
    419     ("gpg"            nerd-icons-octicon "nf-oct-key"            :face nerd-icons-lblue)
    420     ("kdbx"           nerd-icons-octicon "nf-oct-key"            :face nerd-icons-green)
    421     ("cache"          nerd-icons-octicon "nf-oct-database"       :face nerd-icons-green)
    422     ;; backup
    423     ("backup"         nerd-icons-mdicon "nf-md-file_restore"     :face nerd-icons-lblue)
    424     ("old"            nerd-icons-mdicon "nf-md-file_restore"     :face nerd-icons-lblue)
    425     ("bak"            nerd-icons-mdicon "nf-md-file_restore"     :face nerd-icons-lblue)))
    426 
    427 (defvar                        nerd-icons-regexp-icon-alist
    428   '(
    429     ;;
    430     ("^TAGS$"                  nerd-icons-octicon "nf-oct-tag"               :face nerd-icons-blue)
    431     ("^TODO$"                  nerd-icons-octicon "nf-oct-checklist"         :face nerd-icons-lyellow)
    432     ("^LICENSE$"               nerd-icons-octicon "nf-oct-book"              :face nerd-icons-blue)
    433     ("^readme"                 nerd-icons-octicon "nf-oct-book"              :face nerd-icons-lcyan)
    434 
    435     ;; Config
    436     ("nginx$"                  nerd-icons-devicon "nf-dev-nginx"             :face nerd-icons-dgreen)
    437     ;; ("apache$"              nerd-icons-alltheicon "apache") TODO: apache
    438 
    439     ;; C
    440     ("^Makefile$"              nerd-icons-sucicon "nf-seti-makefile"         :face nerd-icons-dorange)
    441     ("^CMakeLists.txt$"        nerd-icons-sucicon "nf-seti-makefile"         :face nerd-icons-red) ;; TODO: cmake
    442     ("^CMakeCache.txt$"        nerd-icons-sucicon "nf-seti-makefile"         :face nerd-icons-blue) ;; TODO: cmakecache
    443     ("^meson.build$"           nerd-icons-sucicon "nf-seti-makefile"         :face nerd-icons-purple) ;; TODO: meson
    444     ("^meson_options.txt$"     nerd-icons-sucicon "nf-seti-makefile"         :face nerd-icons-purple) ;; TODO: meson
    445 
    446     ;; Docker
    447     ("^\\.?Dockerfile"         nerd-icons-sucicon "nf-seti-docker"           :face nerd-icons-blue)
    448 
    449     ;; Homebrew
    450     ("^Brewfile$"              nerd-icons-faicon "nf-fa-beer"                :face nerd-icons-lsilver)
    451 
    452     ;; ;; AWS
    453     ("^stack.*.json$"          nerd-icons-devicon "nf-dev-aws"               :face nerd-icons-orange)
    454     ("^serverless\\.yml$"      nerd-icons-faicon "nf-fa-bolt"                :face nerd-icons-yellow)
    455 
    456     ;; lock files
    457     ("~$"                      nerd-icons-octicon "nf-oct-lock"              :face nerd-icons-maroon)
    458 
    459     ;; Source Codes
    460     ("^mix.lock$"              nerd-icons-sucicon "nf-seti-elixir"           :face nerd-icons-lyellow)
    461 
    462     ;; Ruby
    463     ("^Gemfile\\(\\.lock\\)?$" nerd-icons-octicon "nf-oct-ruby"              :face nerd-icons-red)
    464     ("_?test\\.rb$"            nerd-icons-octicon "nf-oct-ruby"              :face nerd-icons-red)
    465     ("_?test_helper\\.rb$"     nerd-icons-octicon "nf-oct-ruby"              :face nerd-icons-dred)
    466     ("_?spec\\.rb$"            nerd-icons-octicon "nf-oct-ruby"              :face nerd-icons-red)
    467     ("_?spec_helper\\.rb$"     nerd-icons-octicon "nf-oct-ruby"              :face nerd-icons-dred)
    468 
    469     ("-?spec\\.ts$"            nerd-icons-mdicon "nf-md-language_typescript" :face nerd-icons-blue)
    470     ("-?test\\.ts$"            nerd-icons-mdicon "nf-md-language_typescript" :face nerd-icons-blue)
    471     ("-?spec\\.js$"            nerd-icons-mdicon "nf-md-language_javascript" :face nerd-icons-lpurple)
    472     ("-?test\\.js$"            nerd-icons-mdicon "nf-md-language_javascript" :face nerd-icons-lpurple)
    473     ("-?spec\\.jsx$"           nerd-icons-mdicon "nf-md-react"               :face nerd-icons-blue-alt)
    474     ("-?test\\.jsx$"           nerd-icons-mdicon "nf-md-react"               :face nerd-icons-blue-alt)
    475 
    476     ;; Git
    477     ("^MERGE_"                 nerd-icons-octicon "nf-oct-git_merge"         :face nerd-icons-red)
    478     ("^COMMIT_EDITMSG"         nerd-icons-octicon "nf-oct-git_commit"        :face nerd-icons-red)
    479 
    480     ;; Stylesheeting
    481     ("stylelint"               nerd-icons-sucicon "nf-seti-stylelint"        :face nerd-icons-lyellow)
    482 
    483     ;; JavaScript
    484     ("^package.json$"          nerd-icons-devicon "nf-dev-npm"               :face nerd-icons-red)
    485     ("^package.lock.json$"     nerd-icons-devicon "nf-dev-npm"               :face nerd-icons-dred)
    486     ("^yarn\\.lock"            nerd-icons-sucicon "nf-seti-yarn"             :face nerd-icons-blue-alt)
    487     ("\\.npmignore$"           nerd-icons-devicon "nf-dev-npm"               :face nerd-icons-dred)
    488     ("^bower.json$"            nerd-icons-devicon "nf-dev-bower"             :face nerd-icons-lorange)
    489     ("^gulpfile"               nerd-icons-devicon "nf-dev-gulp"              :face nerd-icons-lred)
    490     ("^gruntfile"              nerd-icons-devicon "nf-dev-grunt"             :face nerd-icons-lyellow)
    491     ("^webpack"                nerd-icons-mdicon "nf-md-webpack"             :face nerd-icons-lblue)
    492 
    493     ;; Go
    494     ("^go.mod$"                nerd-icons-sucicon "nf-seti-config"           :face nerd-icons-blue-alt)
    495     ("^go.work$"               nerd-icons-sucicon "nf-seti-config"           :face nerd-icons-blue-alt)
    496 
    497     ;; Groovy
    498     ("Jenkinsfile\\'"          nerd-icons-devicon "nf-dev-groovy"            :face nerd-icons-cyan-alt)
    499 
    500     ;; Emacs
    501     ("bookmark"                nerd-icons-octicon "nf-oct-bookmark"          :face nerd-icons-lpink)
    502 
    503     ("^\\*scratch\\*$"         nerd-icons-faicon "nf-fa-sticky_note"         :face nerd-icons-lyellow)
    504     ("^\\*scratch.*"           nerd-icons-faicon "nf-fa-sticky_note"         :face nerd-icons-yellow)
    505     ("^\\*new-tab\\*$"         nerd-icons-mdicon "nf-md-star"                :face nerd-icons-cyan)
    506     ("Cask\\'"                 nerd-icons-sucicon "nf-custom-emacs"          :face nerd-icons-blue)
    507     ("Eask\\'"                 nerd-icons-sucicon "nf-custom-emacs"          :face nerd-icons-blue)
    508 
    509     ("^\\."                    nerd-icons-octicon "nf-oct-gear")))
    510 
    511 (defvar nerd-icons-default-file-icon
    512   '(nerd-icons-faicon "nf-fa-file_o"))
    513 
    514 (defvar nerd-icons-dir-icon-alist
    515   '(
    516     ("trash"            nerd-icons-faicon "nf-fa-trash_o")
    517     ("dropbox"          nerd-icons-faicon "nf-fa-dropbox")
    518     ("google[ _-]drive" nerd-icons-mdicon "nf-md-folder_google_drive")
    519     ("github"           nerd-icons-sucicon "nf-custom-folder_github")
    520     ("^atom$"           nerd-icons-devicon "nf-dev-atom")
    521     ("documents"        nerd-icons-mdicon "nf-md-folder_file")
    522     ("download"         nerd-icons-mdicon "nf-md-folder_download")
    523     ("desktop"          nerd-icons-octicon "nf-oct-device_desktop")
    524     ("pictures"         nerd-icons-mdicon "nf-md-folder_image")
    525     ("photos"           nerd-icons-faicon "nf-fa-camera_retro")
    526     ("music"            nerd-icons-mdicon "nf-md-folder_music")
    527     ("movies"           nerd-icons-faicon "nf-fa-film")
    528     ("code"             nerd-icons-octicon "nf-oct-code")
    529     ("workspace"        nerd-icons-octicon "nf-oct-code")
    530     ;; ("test"             nerd-icons-devicon "test-dir")
    531     ("\\.git"           nerd-icons-sucicon "nf-custom-folder_git")
    532     ("\\.config"        nerd-icons-sucicon "nf-custom-folder_config")
    533     (".?"               nerd-icons-sucicon "nf-custom-folder_oct")))
    534 
    535 (defvar nerd-icons-weather-icon-alist
    536   '(
    537     ("tornado"               nerd-icons-wicon "nf-weather-tornado")
    538     ("hurricane"             nerd-icons-wicon "nf-weather-hurricane")
    539     ("thunderstorms"         nerd-icons-wicon "nf-weather-thunderstorm")
    540     ("sunny"                 nerd-icons-wicon "nf-weather-day_sunny")
    541     ("rain.*snow"            nerd-icons-wicon "nf-weather-rain_mix")
    542     ("rain.*hail"            nerd-icons-wicon "nf-weather-rain_mix")
    543     ("sleet"                 nerd-icons-wicon "nf-weather-sleet")
    544     ("hail"                  nerd-icons-wicon "nf-weather-hail")
    545     ("drizzle"               nerd-icons-wicon "nf-weather-sprinkle")
    546     ("rain"                  nerd-icons-wicon "nf-weather-showers")
    547     ("showers"               nerd-icons-wicon "nf-weather-showers")
    548     ("blowing.*snow"         nerd-icons-wicon "nf-weather-snow_wind")
    549     ("snow"                  nerd-icons-wicon "nf-weather-snow")
    550     ("dust"                  nerd-icons-wicon "nf-weather-dust")
    551     ("fog"                   nerd-icons-wicon "nf-weather-fog")
    552     ("haze"                  nerd-icons-wicon "nf-weather-day_haze")
    553     ("smoky"                 nerd-icons-wicon "nf-weather-smoke")
    554     ("blustery"              nerd-icons-wicon "nf-weather-cloudy_windy")
    555     ("windy"                 nerd-icons-wicon "nf-weather-cloudy_gusts")
    556     ("cold"                  nerd-icons-wicon "nf-weather-snowflake_cold")
    557     ("partly.*cloudy.*night" nerd-icons-wicon "nf-weather-night_alt_partly_cloudy")
    558     ("partly.*cloudy"        nerd-icons-wicon "nf-weather-day_cloudy_high")
    559     ("cloudy.*night"         nerd-icons-wicon "nf-weather-night_alt_cloudy")
    560     ("cxloudy.*day"          nerd-icons-wicon "nf-weather-day_cloudy")
    561     ("cloudy"                nerd-icons-wicon "nf-weather-cloudy")
    562     ("clear.*night"          nerd-icons-wicon "nf-weather-night_clear")
    563     ("fair.*night"           nerd-icons-wicon "nf-weather-stars")
    564     ("fair.*day"             nerd-icons-wicon "nf-weather-horizon")
    565     ("hot"                   nerd-icons-wicon "nf-weather-hot")
    566     ("not.*available"        nerd-icons-wicon "nf-weather-na")))
    567 
    568 (defvar nerd-icons-mode-icon-alist
    569   '(
    570     (emacs-lisp-mode                   nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-purple)
    571     (circe-server-mode                 nerd-icons-faicon "nf-fa-commenting_o")
    572     (circe-channel-mode                nerd-icons-faicon "nf-fa-commenting_o")
    573     (circe-query-mode                  nerd-icons-faicon "nf-fa-commenting_o")
    574     (crystal-mode                      nerd-icons-sucicon "nf-custom-crystal"         :face nerd-icons-yellow)
    575     (erc-mode                          nerd-icons-faicon "nf-fa-commenting_o")
    576     (inferior-emacs-lisp-mode          nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-lblue)
    577     (dired-mode                        nerd-icons-octicon "nf-oct-file_directory")
    578     (lisp-interaction-mode             nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-orange)
    579     (sly-mrepl-mode                    nerd-icons-sucicon "nf-custom-common_lisp"     :face nerd-icons-orange)
    580     (slime-repl-mode                   nerd-icons-sucicon "nf-custom-common_lisp"     :face nerd-icons-orange)
    581     (org-mode                          nerd-icons-sucicon "nf-custom-orgmode"         :face nerd-icons-lgreen)
    582     (ledger-mode                       nerd-icons-mdicon "nf-md-file_table_box_multiple"   :face nerd-icons-green)
    583     (typescript-mode                   nerd-icons-mdicon "nf-md-language_typescript"  :face nerd-icons-blue-alt)
    584     (typescript-ts-mode                nerd-icons-mdicon "nf-md-language_typescript"  :face nerd-icons-blue-alt)
    585     (typescript-tsx-mode               nerd-icons-mdicon "nf-md-language_typescript"  :face nerd-icons-blue-alt)
    586     (tsx-ts-mode                       nerd-icons-mdicon "nf-md-language_typescript"  :face nerd-icons-blue-alt)
    587     (js-mode                           nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-yellow)
    588     (js-ts-mode                        nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-yellow)
    589     (js-jsx-mode                       nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-yellow)
    590     (js2-mode                          nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-yellow)
    591     (js3-mode                          nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-yellow)
    592     (rjsx-mode                         nerd-icons-devicon "nf-dev-javascript"         :face nerd-icons-cyan-alt)
    593     (term-mode                         nerd-icons-devicon "nf-dev-terminal")
    594     (vterm-mode                        nerd-icons-devicon "nf-dev-terminal")
    595     (eshell-mode                       nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-purple)
    596     (magit-refs-mode                   nerd-icons-devicon "nf-dev-git_branch"         :face nerd-icons-red)
    597     (magit-process-mode                nerd-icons-octicon "nf-oct-mark_github")
    598     (magit-diff-mode                   nerd-icons-devicon "nf-dev-git_compare"        :face nerd-icons-lblue)
    599     (ediff-mode                        nerd-icons-devicon "nf-dev-git_compare"        :face nerd-icons-red)
    600     (diff-mode                         nerd-icons-devicon "nf-dev-git_compare"        :face nerd-icons-lred)
    601     (comint-mode                       nerd-icons-faicon "nf-fa-terminal"             :face nerd-icons-lblue)
    602     (eww-mode                          nerd-icons-faicon "nf-fa-firefox"              :face nerd-icons-red)
    603     (xwidget-webkit-mode               nerd-icons-faicon "nf-fa-chrome"               :face nerd-icons-blue)
    604     (org-agenda-mode                   nerd-icons-octicon "nf-oct-checklist"          :face nerd-icons-lgreen)
    605     (cfw:calendar-mode                 nerd-icons-octicon "nf-oct-calendar")
    606     (ibuffer-mode                      nerd-icons-faicon "nf-fa-files_o"              :face nerd-icons-dsilver)
    607     (messages-buffer-mode              nerd-icons-faicon "nf-fa-file_o"               :face nerd-icons-dsilver)
    608     (help-mode                         nerd-icons-faicon "nf-fa-info"                 :face nerd-icons-purple)
    609     (helpful-mode                      nerd-icons-faicon "nf-fa-info"                 :face nerd-icons-purple)
    610     (Info-mode                         nerd-icons-faicon "nf-fa-info"                 :face nerd-icons-blue)
    611     (benchmark-init/tree-mode          nerd-icons-faicon "nf-fa-dashboard")
    612     (jenkins-mode                      nerd-icons-devicon "nf-dev-jenkins"            :face nerd-icons-blue)
    613     (magit-popup-mode                  nerd-icons-sucicon "nf-seti-git"               :face nerd-icons-red)
    614     (magit-status-mode                 nerd-icons-sucicon "nf-seti-git"               :face nerd-icons-lred)
    615     (magit-log-mode                    nerd-icons-sucicon "nf-seti-git"               :face nerd-icons-green)
    616     (mu4e-compose-mode                 nerd-icons-octicon "nf-oct-pencil")
    617     (mu4e-headers-mode                 nerd-icons-octicon "nf-oct-mail")
    618     (mu4e-main-mode                    nerd-icons-octicon "nf-oct-mail")
    619     (mu4e-view-mode                    nerd-icons-codicon "nf-cod-mail_read")
    620     (sieve-mode                        nerd-icons-octicon "nf-oct-mail")
    621     (gnus-group-mode                   nerd-icons-octicon "nf-oct-mail")
    622     (gnus-summary-mode                 nerd-icons-octicon "nf-oct-mail")
    623     (gnus-article-mode                 nerd-icons-codicon "nf-cod-mail_read")
    624     (message-mode                      nerd-icons-octicon "nf-oct-pencil")
    625     (package-menu-mode                 nerd-icons-faicon "nf-fa-archive"              :face nerd-icons-silver)
    626     (paradox-menu-mode                 nerd-icons-faicon "nf-fa-archive"              :face nerd-icons-silver)
    627     (Custom-mode                       nerd-icons-codicon "nf-cod-settings")
    628 
    629     ;; Special matcher for Web Mode based on the `web-mode-content-type' of the current buffer
    630     (web-mode                          nerd-icons--web-mode-icon)
    631 
    632     (fundamental-mode                  nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-dsilver)
    633     (special-mode                      nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-yellow)
    634     (cask-mode                         nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-blue)
    635     (eask-mode                         nerd-icons-sucicon "nf-custom-emacs"           :face nerd-icons-blue)
    636     (text-mode                         nerd-icons-faicon "nf-fa-file_text"            :face nerd-icons-cyan)
    637     (enh-ruby-mode                     nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-lred)
    638     (ruby-mode                         nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-lred)
    639     (ruby-ts-mode                      nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-lred)
    640     (inf-ruby-mode                     nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-red)
    641     (projectile-rails-compilation-mode nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-red)
    642     (rspec-compilation-mode            nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-red)
    643     (rake-compilation-mode             nerd-icons-devicon "nf-dev-ruby"               :face nerd-icons-red)
    644     (sh-mode                           nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-purple)
    645     (bash-ts-mode                      nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-purple)
    646     (shell-mode                        nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-purple)
    647     (fish-mode                         nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-lpink)
    648     (bat-mode                          nerd-icons-codicon "nf-cod-terminal_cmd"       :face nerd-icons-lsilver)
    649     (nginx-mode                        nerd-icons-devicon "nf-dev-nginx"              :face nerd-icons-dgreen)
    650     ;; (apache-mode                    nerd-icons-alltheicon "apache"                 :face nerd-icons-dgreen)
    651     (makefile-mode                     nerd-icons-devicon "nf-dev-gnu"                :face nerd-icons-dorange)
    652     (makefile-ts-mode                  nerd-icons-devicon "nf-dev-gnu"                :face nerd-icons-dorange)
    653     ;; (cmake-mode                     nerd-icons-fileicon "cmake"                    :face nerd-icons-red)
    654     ;; (cmake-ts-mode                  nerd-icons-fileicon "cmake"                    :face nerd-icons-red)
    655     (dockerfile-mode                   nerd-icons-sucicon "nf-seti-docker"            :face nerd-icons-blue)
    656     (dockerfile-ts-mode                nerd-icons-sucicon "nf-seti-docker"            :face nerd-icons-blue)
    657     (docker-compose-mode               nerd-icons-sucicon "nf-seti-docker"            :face nerd-icons-lblue)
    658     (nxml-mode                         nerd-icons-faicon "nf-fa-file_code_o"          :face nerd-icons-lorange)
    659     (conf-mode                         nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-lyellow)
    660     (json-mode                         nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-yellow)
    661     (json-ts-mode                      nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-yellow)
    662     (jsonian-mode                      nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-yellow)
    663     (yaml-mode                         nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-dyellow)
    664     (yaml-ts-mode                      nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-dyellow)
    665     (toml-mode                         nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-orange)
    666     (toml-ts-mode                      nerd-icons-codicon "nf-cod-settings"           :face nerd-icons-orange)
    667     (elisp-byte-code-mode              nerd-icons-octicon "nf-oct-file_binary"        :face nerd-icons-dsilver)
    668     (archive-mode                      nerd-icons-octicon "nf-oct-file_zip"           :face nerd-icons-lmaroon)
    669     (elm-mode                          nerd-icons-sucicon "nf-custom-elm"             :face nerd-icons-blue)
    670     (erlang-mode                       nerd-icons-devicon "nf-dev-erlang"             :face nerd-icons-red)
    671     (elixir-mode                       nerd-icons-sucicon "nf-custom-elixir"          :face nerd-icons-lorange)
    672     (elixir-ts-mode                    nerd-icons-sucicon "nf-custom-elixir"          :face nerd-icons-lorange)
    673     (java-mode                         nerd-icons-devicon "nf-dev-java"               :face nerd-icons-purple)
    674     (groovy-mode                       nerd-icons-devicon "nf-dev-groovy"             :face nerd-icons-cyan)
    675     (java-ts-mode                      nerd-icons-devicon "nf-dev-java"               :face nerd-icons-purple)
    676     (go-mode                           nerd-icons-devicon "nf-dev-go"                 :face nerd-icons-blue)
    677     (go-ts-mode                        nerd-icons-devicon "nf-dev-go"                 :face nerd-icons-blue)
    678     (go-dot-mod-mode                   nerd-icons-sucicon "nf-seti-config"            :face nerd-icons-blue-alt)
    679     (go-mod-ts-mode                    nerd-icons-sucicon "nf-seti-config"            :face nerd-icons-blue-alt)
    680     (go-dot-work-mode                  nerd-icons-sucicon "nf-seti-config"            :face nerd-icons-blue-alt)
    681     (graphql-mode                      nerd-icons-sucicon "nf-seti-graphql"           :face nerd-icons-dpink)
    682     ;; (matlab-mode                    nerd-icons-fileicon "matlab"                   :face nerd-icons-orange)
    683     (nix-mode                          nerd-icons-mdicon "nf-md-nix"                  :face nerd-icons-blue)
    684     (perl-mode                         nerd-icons-devicon "nf-dev-perl"               :face nerd-icons-lorange)
    685     (cperl-mode                        nerd-icons-devicon "nf-dev-perl"               :face nerd-icons-lorange)
    686     (php-mode                          nerd-icons-devicon "nf-dev-php"                :face nerd-icons-lsilver)
    687     (php-ts-mode                       nerd-icons-devicon "nf-dev-php"                :face nerd-icons-lsilver)
    688     (prolog-mode                       nerd-icons-devicon "nf-dev-prolog"             :face nerd-icons-lmaroon)
    689     (python-mode                       nerd-icons-devicon "nf-dev-python"             :face nerd-icons-dblue)
    690     (python-ts-mode                    nerd-icons-devicon "nf-dev-python"             :face nerd-icons-dblue)
    691     (inferior-python-mode              nerd-icons-devicon "nf-dev-python"             :face nerd-icons-dblue)
    692     ;; (racket-mode                    nerd-icons-fileicon "racket"                   :face nerd-icons-red)
    693     (rust-mode                         nerd-icons-devicon "nf-dev-rust"               :face nerd-icons-maroon)
    694     (rustic-mode                       nerd-icons-devicon "nf-dev-rust"               :face nerd-icons-maroon)
    695     (rust-ts-mode                      nerd-icons-devicon "nf-dev-rust"               :face nerd-icons-maroon)
    696     (scala-mode                        nerd-icons-devicon "nf-dev-scala"              :face nerd-icons-red)
    697     ;; (scheme-mode                    nerd-icons-fileicon   "scheme"                 :face nerd-icons-red)
    698     (swift-mode                        nerd-icons-devicon "nf-dev-swift"              :face nerd-icons-green)
    699     (svelte-mode                       nerd-icons-sucicon "nf-seti-svelte"            :face nerd-icons-red)
    700     (ada-mode                          nerd-icons-sucicon "nf-custom-ada"             :face nerd-icons-blue)
    701     (ada-ts-mode                       nerd-icons-sucicon "nf-custom-ada"             :face nerd-icons-blue)
    702     (gpr-mode                          nerd-icons-sucicon "nf-custom-ada"             :face nerd-icons-green)
    703     (gpr-ts-mode                       nerd-icons-sucicon "nf-custom-ada"             :face nerd-icons-green)
    704     (c-mode                            nerd-icons-sucicon "nf-custom-c"               :face nerd-icons-blue)
    705     (c-ts-mode                         nerd-icons-sucicon "nf-custom-c"               :face nerd-icons-blue)
    706     (c++-mode                          nerd-icons-sucicon "nf-custom-cpp"             :face nerd-icons-blue)
    707     (c++-ts-mode                       nerd-icons-sucicon "nf-custom-cpp"             :face nerd-icons-blue)
    708     (csharp-mode                       nerd-icons-mdicon "nf-md-language_csharp"      :face nerd-icons-dblue)
    709     (csharp-ts-mode                    nerd-icons-mdicon "nf-md-language_csharp"      :face nerd-icons-dblue)
    710     (clojure-mode                      nerd-icons-devicon "nf-dev-clojure_alt"        :face nerd-icons-blue)
    711     (clojure-ts-mode                   nerd-icons-devicon "nf-dev-clojure_alt"        :face nerd-icons-blue)
    712     (cider-repl-mode                   nerd-icons-devicon "nf-dev-clojure_alt"        :face nerd-icons-green)
    713     (clojurec-mode                     nerd-icons-sucicon "nf-seti-clojure"           :face nerd-icons-blue)
    714     (clojurec-ts-mode                  nerd-icons-sucicon "nf-seti-clojure"           :face nerd-icons-blue)
    715     (clojurescript-mode                nerd-icons-devicon "nf-dev-clojure_alt"        :face nerd-icons-lyellow)
    716     (clojurescript-ts-mode             nerd-icons-devicon "nf-dev-clojure_alt"        :face nerd-icons-lyellow)
    717     (coffee-mode                       nerd-icons-devicon "nf-dev-coffeescript"       :face nerd-icons-maroon)
    718     (lisp-mode                         nerd-icons-sucicon "nf-custom-scheme"          :face nerd-icons-orange)
    719     (css-mode                          nerd-icons-devicon "nf-dev-css3"               :face nerd-icons-yellow)
    720     (css-ts-mode                       nerd-icons-devicon "nf-dev-css3"               :face nerd-icons-yellow)
    721     (scss-mode                         nerd-icons-mdicon "nf-md-sass"                 :face nerd-icons-pink)
    722     (sass-mode                         nerd-icons-mdicon "nf-md-sass"                 :face nerd-icons-dpink)
    723     (less-css-mode                     nerd-icons-devicon "nf-dev-less"               :face nerd-icons-dyellow)
    724     (stylus-mode                       nerd-icons-devicon "nf-dev-stylus"             :face nerd-icons-lgreen)
    725     (csv-mode                          nerd-icons-octicon "nf-oct-graph"              :face nerd-icons-dblue)
    726     (gdscript-mode                     nerd-icons-sucicon "nf-seti-godot"             :face nerd-icons-blue)
    727     (gdscript-ts-mode                  nerd-icons-sucicon "nf-seti-godot"             :face nerd-icons-blue)
    728     (haskell-mode                      nerd-icons-devicon "nf-dev-haskell"            :face nerd-icons-red)
    729     (haskell-c2hs-mode                 nerd-icons-devicon "nf-dev-haskell"            :face nerd-icons-red)
    730     (literate-haskell-mode             nerd-icons-devicon "nf-dev-haskell"            :face nerd-icons-red)
    731     (haml-mode                         nerd-icons-sucicon "nf-seti-haml"              :face nerd-icons-lyellow)
    732     (html-mode                         nerd-icons-devicon "nf-dev-html5"              :face nerd-icons-orange)
    733     (html-ts-mode                      nerd-icons-devicon "nf-dev-html5"              :face nerd-icons-orange)
    734     (rhtml-mode                        nerd-icons-devicon "nf-dev-html5"              :face nerd-icons-lred)
    735     ;; (mustache-mode                  nerd-icons-fileicon "moustache"                :face nerd-icons-green)
    736     (slim-mode                         nerd-icons-codicon "nf-cod-dashboard"          :face nerd-icons-yellow)
    737     (jade-mode                         nerd-icons-sucicon "nf-seti-jade"              :face nerd-icons-red)
    738     (pug-mode                          nerd-icons-sucicon "nf-seti-pug"               :face nerd-icons-red)
    739     (react-mode                        nerd-icons-devicon "nf-dev-react"              :face nerd-icons-lblue)
    740     (image-mode                        nerd-icons-octicon "nf-oct-file_media"         :face nerd-icons-blue)
    741     (texinfo-mode                      nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    742     (markdown-mode                     nerd-icons-octicon "nf-oct-markdown"           :face nerd-icons-lblue)
    743     (markdown-ts-mode                  nerd-icons-octicon "nf-oct-markdown"           :face nerd-icons-lblue)
    744     ;; (bibtex-mode                    nerd-icons-fileicon "bib"                      :face nerd-icons-maroon)
    745     (compilation-mode                  nerd-icons-faicon "nf-fa-cogs")
    746     (objc-mode                         nerd-icons-faicon "nf-fa-apple")
    747     (tuareg-mode                       nerd-icons-sucicon "nf-seti-ocaml")
    748     (purescript-mode                   nerd-icons-sucicon "nf-seti-purescript")
    749     (verilog-mode                      nerd-icons-mdicon "nf-md-chip"                 :face nerd-icons-red)
    750     (verilog-ts-mode                   nerd-icons-mdicon "nf-md-chip"                 :face nerd-icons-red)
    751     (vhdl-mode                         nerd-icons-octicon "nf-oct-cpu"                :face nerd-icons-blue)
    752     (vhdl-ts-mode                      nerd-icons-octicon "nf-oct-cpu"                :face nerd-icons-blue)
    753     ;; (haskell-cabal-mode             nerd-icons-fileicon "cabal"                    :face nerd-icons-lblue)
    754     (kotlin-mode                       nerd-icons-sucicon "nf-custom-kotlin"          :face nerd-icons-orange)
    755     (kotlin-ts-mode                    nerd-icons-sucicon "nf-custom-kotlin"          :face nerd-icons-orange)
    756     (nim-mode                          nerd-icons-sucicon "nf-seti-nim"               :face nerd-icons-yellow)
    757     (sql-mode                          nerd-icons-devicon  "nf-dev-database"          :face nerd-icons-silver)
    758     (lua-mode                          nerd-icons-sucicon "nf-seti-lua"               :face nerd-icons-dblue)
    759     (lua-ts-mode                       nerd-icons-sucicon "nf-seti-lua"               :face nerd-icons-dblue)
    760     ;; (adoc-mode                      nerd-icons-fileicon "asciidoc"                 :face nerd-icons-lblue)
    761     (puppet-mode                       nerd-icons-sucicon "nf-custom-puppet"          :face nerd-icons-yellow)
    762     (jinja2-mode                       nerd-icons-sucicon "nf-seti-jinja"             :face nerd-icons-silver)
    763     (powershell-mode                   nerd-icons-mdicon "nf-md-powershell"           :face nerd-icons-blue)
    764     (tex-mode                          nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    765     (latex-mode                        nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    766     (latex-ts-mode                     nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    767     (doctex-mode                       nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    768     ;; Modes provided by AUCTeX 14.1 and higher
    769     (TeX-mode                          nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    770     (LaTeX-mode                        nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    771     (docTeX-mode                       nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    772     (ConTeXt-mode                      nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    773     (AmSTeX-mode                       nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    774     (plain-TeX-mode                    nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    775     (Texinfo-mode                      nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    776     (japanese-plain-TeX-mode           nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    777     (japanese-LaTeX-mode               nerd-icons-sucicon "nf-seti-tex"               :face nerd-icons-lred)
    778     (dart-mode                         nerd-icons-devicon "nf-dev-dart"               :face nerd-icons-blue)
    779     (fsharp-mode                       nerd-icons-devicon "nf-dev-fsharp"             :face nerd-icons-blue)
    780     (asm-mode                          nerd-icons-sucicon "nf-seti-asm"               :face nerd-icons-blue)
    781     (fasm-mode                         nerd-icons-sucicon "nf-seti-asm"               :face nerd-icons-blue)
    782     (masm-mode                         nerd-icons-sucicon "nf-seti-asm"               :face nerd-icons-blue)
    783     (nasm-mode                         nerd-icons-sucicon "nf-seti-asm"               :face nerd-icons-blue)
    784     (gas-mode                          nerd-icons-sucicon "nf-seti-asm"               :face nerd-icons-blue)
    785     ;; (tcl-mode                       nerd-icons-fileicon "tcl"                      :face nerd-icons-dred)
    786     ;; (cuda-mode                      nerd-icons-fileicon "nvidia"                   :face nerd-icons-green)
    787     (f90-mode                          nerd-icons-mdicon "nf-md-language_fortran"     :face nerd-icons-purple)
    788     ;; (hy-mode                        nerd-icons-fileicon "hy"                       :face nerd-icons-blue)
    789     (glsl-mode                         nerd-icons-faicon "nf-fa-paint_brush"          :face nerd-icons-green)
    790     (zig-mode                          nerd-icons-sucicon "nf-seti-zig"               :face nerd-icons-orange)
    791     ;; (odin-mode                      nerd-icons-fileicon "odin"                     :face nerd-icons-lblue)
    792     (pdf-view-mode                     nerd-icons-codicon  "nf-cod-file_pdf"          :face nerd-icons-dred)
    793     (doc-view-mode                     nerd-icons-mdicon   "nf-md-file_document"      :face nerd-icons-lred)
    794     (calibre-library-mode              nerd-icons-codicon  "nf-cod-library"           :face nerd-icons-dblue)
    795     (calibre-edit-mode                 nerd-icons-codicon  "nf-cod-library"           :face nerd-icons-lred)
    796     (calibredb-search-mode             nerd-icons-codicon  "nf-cod-library"           :face nerd-icons-dblue)
    797     (calibredb-show-mode               nerd-icons-codicon  "nf-cod-library"           :face nerd-icons-lblue)
    798     (osm-mode                          nerd-icons-mdicon   "nf-md-map_search"         :face nerd-icons-lgreen)
    799     (spacemacs-buffer-mode             nerd-icons-sucicon  "nf-custom-emacs"          :face nerd-icons-purple)
    800 
    801     (elfeed-search-mode                nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-orange)
    802     (elfeed-summary-mode               nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-orange)
    803     (elfeed-show-mode                  nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-yellow)
    804     (newsticker-treeview-mode          nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-orange)
    805     (newsticker-treeview-list-mode     nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-lorange)
    806     (newsticker-treeview-item-mode     nerd-icons-faicon   "nf-fa-rss_square"         :face nerd-icons-yellow)
    807 
    808     (emms-browser-mode                 nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    809     (emms-lyrics-mode                  nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    810     (emms-show-all-mode                nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    811     (emms-metaplaylist-mode            nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    812     (emms-tag-editor-mode              nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    813     (emms-playlist-mode                nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-silver)
    814     (lilypond-mode                     nerd-icons-faicon   "nf-fa-music"              :face nerd-icons-green)
    815     (bongo-playlist-mode               nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    816     (bongo-library-mode                nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    817     (mingus-playlist-mode              nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    818     (mingus-help-mode                  nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    819     (mingus-browse-mode                nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    820     (mingus-burn-mode                  nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    821     (simple-mpc-mode                   nerd-icons-faicon "nf-fa-music"                :face nerd-icons-silver)
    822     (telega-root-mode                  nerd-icons-faicon "nf-fae-telegram"            :face nerd-icons-purple)
    823     (telega-chat-mode                  nerd-icons-faicon "nf-fae-telegram"            :face nerd-icons-blue)
    824     (mastodon-mode                     nerd-icons-mdicon "nf-md-mastodon"             :face nerd-icons-blue)
    825 
    826     (fanyi-mode                        nerd-icons-codicon "nf-cod-library"            :face nerd-icons-lcyan)
    827     (osx-dictionary-mode               nerd-icons-codicon "nf-cod-library"            :face nerd-icons-lcyan)
    828     (youdao-dictionary-mode            nerd-icons-codicon "nf-cod-library"            :face nerd-icons-lcyan)
    829 
    830     (magik-mode                        nerd-icons-faicon "nf-fa-magic"                :face nerd-icons-blue)
    831     (magik-ts-mode                     nerd-icons-faicon "nf-fa-magic"                :face nerd-icons-blue)
    832     (magik-session-mode                nerd-icons-devicon "nf-dev-terminal"           :face nerd-icons-blue)
    833     (magik-cb-mode                     nerd-icons-faicon "nf-fa-book"                 :face nerd-icons-blue)
    834     ;; (meson-mode                     nerd-icons-fileicon "meson"                    :face nerd-icons-purple)
    835     ;; (man-common                     nerd-icons-fileicon "man-page"                 :face nerd-icons-blue)
    836     (heex-mode                         nerd-icons-sucicon "nf-seti-elixir"            :face nerd-icons-lorange)
    837     (heex-ts-mode                      nerd-icons-sucicon "nf-seti-elixir"            :face nerd-icons-lorange)
    838     (julia-mode                        nerd-icons-sucicon "nf-seti-julia"             :face nerd-icons-purple)
    839     (julia-ts-mode                     nerd-icons-sucicon "nf-seti-julia"             :face nerd-icons-purple)
    840     (flycheck-error-list               nerd-icons-faicon "nf-fa-list_alt"             :face nerd-icons-lred)))
    841 
    842 (defvar nerd-icons-url-alist
    843   '(
    844     ;; Social media and communities
    845     ("^\\(https?://\\)?\\(www\\.\\)?del\\.icio\\.us"          nerd-icons-faicon "nf-fa-delicious")
    846     ("^\\(https?://\\)?\\(www\\.\\)?behance\\.net"            nerd-icons-faicon "nf-fa-behance")
    847     ("^\\(https?://\\)?\\(www\\.\\)?dribbble\\.com"           nerd-icons-faicon "nf-fa-dribbble")
    848     ("^\\(https?://\\)?\\(www\\.\\)?facebook\\.com"           nerd-icons-faicon "nf-fa-facebook_official")
    849     ("^\\(https?://\\)?\\(www\\.\\)?glide\\.me"               nerd-icons-faicon "nf-fa-glide_g")
    850     ("^\\(https?://\\)?\\(www\\.\\)?plus\\.google\\.com"      nerd-icons-faicon "nf-fa-google_plus")
    851     ("linkedin\\.com"                                         nerd-icons-faicon "nf-fa-linkedin")
    852     ("^\\(https?://\\)?\\(www\\.\\)?ok\\.ru"                  nerd-icons-faicon "nf-fa-odnoklassniki")
    853     ("^\\(https?://\\)?\\(www\\.\\)?reddit\\.com"             nerd-icons-faicon "nf-fa-reddit_alien")
    854     ("^\\(https?://\\)?\\(www\\.\\)?slack\\.com"              nerd-icons-faicon "nf-fa-slack")
    855     ("^\\(https?://\\)?\\(www\\.\\)?snapchat\\.com"           nerd-icons-faicon "nf-fa-snapchat_ghost")
    856     ("^\\(https?://\\)?\\(www\\.\\)?weibo\\.com"              nerd-icons-faicon "nf-fa-weibo")
    857     ("^\\(https?://\\)?\\(www\\.\\)?twitter\\.com"            nerd-icons-faicon "nf-fa-twitter")
    858     ;; Blogging
    859     ("joomla\\.org"                                           nerd-icons-faicon "nf-fa-joomla")
    860     ("^\\(https?://\\)?\\(www\\.\\)?medium\\.com"             nerd-icons-faicon "nf-fa-medium")
    861     ("tumblr\\.com"                                           nerd-icons-faicon "nf-fa-tumblr")
    862     ("^wordpress\\.com"                                       nerd-icons-faicon "nf-fa-wordpress")
    863     ;; Programming
    864     ("^\\(https?://\\)?\\(www\\.\\)?bitbucket\\.org"          nerd-icons-faicon "nf-fa-bitbucket")
    865     ("^\\(https?://\\)?\\(www\\.\\)?codepen\\.io"             nerd-icons-faicon "nf-fa-codepen")
    866     ("^\\(https?://\\)?\\(www\\.\\)?codiepie\\.com"           nerd-icons-faicon "nf-fa-codiepie")
    867     ("^\\(https?://\\)?\\(www\\.\\)?gist\\.github\\.com"      nerd-icons-octicon "nf-oct-logo_gist")
    868     ("^\\(https?://\\)?\\(www\\.\\)?github\\.com"             nerd-icons-octicon "nf-oct-mark_github")
    869     ("^\\(https?://\\)?\\(www\\.\\)?gitlab\\.com"             nerd-icons-faicon "nf-fa-gitlab")
    870     ("^\\(https?://\\)?\\(www\\.\\)?news\\.ycombinator\\.com" nerd-icons-faicon "nf-fa-hacker_news")
    871     ("^\\(https?://\\)?\\(www\\.\\)?jsfiddle\\.net"           nerd-icons-faicon "nf-fa-jsfiddle")
    872     ("^\\(https?://\\)?\\(www\\.\\)?maxcdn\\.com"             nerd-icons-faicon "nf-fa-maxcdn")
    873     ("^\\(https?://\\)?\\(www\\.\\)?stackoverflow\\.com"      nerd-icons-faicon "nf-fa-stack_overflow")
    874     ;; Video
    875     ("^\\(https?://\\)?\\(www\\.\\)?twitch\\.tv"              nerd-icons-faicon "nf-fa-twitch")
    876     ("^\\(https?://\\)?\\(www\\.\\)?vimeo\\.com"              nerd-icons-faicon "nf-fa-vimeo")
    877     ("^\\(https?://\\)?\\(www\\.\\)?youtube\\.com"            nerd-icons-faicon "nf-fa-youtube")
    878     ("^\\(https?://\\)?\\(www\\.\\)?youtu\\.be"               nerd-icons-faicon "nf-fa-youtube")
    879     ("^\\(https?://\\)?\\(www\\.\\)?vine\\.co"                nerd-icons-faicon "nf-fa-vine")
    880     ;; Sound
    881     ("^\\(https?://\\)?\\(www\\.\\)?last\\.fm"                nerd-icons-faicon "nf-fa-lastfm")
    882     ("^\\(https?://\\)?\\(www\\.\\)?mixcloud\\.com"           nerd-icons-faicon "nf-fa-mixcloud")
    883     ("^\\(https?://\\)?\\(www\\.\\)?soundcloud\\.com"         nerd-icons-faicon "nf-fa-soundcloud")
    884     ("spotify\\.com"                                          nerd-icons-faicon "nf-fa-spotify")
    885     ;; Shopping
    886     ("^\\(https?://\\)?\\(www\\.\\)?amazon\\."                nerd-icons-faicon "nf-fa-amazon")
    887     ("^\\(https?://\\)?\\(www\\.\\)?opencart\\.com"           nerd-icons-faicon "nf-fa-opencart")
    888     ("^\\(https?://\\)?\\(www\\.\\)?paypal\\.com"             nerd-icons-faicon "nf-fa-paypal")
    889     ("^\\(https?://\\)?\\(www\\.\\)?shirtsinbulk\\.com"       nerd-icons-faicon "nf-fa-shitsinbulk")
    890     ;; Images
    891     ("^\\(https?://\\)?\\(www\\.\\)?500px\\.com"              nerd-icons-faicon "nf-fa-500px")
    892     ("^\\(https?://\\)?\\(www\\.\\)?deviantart\\.com"         nerd-icons-faicon "nf-fa-deviantart")
    893     ("^\\(https?://\\)?\\(www\\.\\)?flickr\\.com"             nerd-icons-faicon "nf-fa-flickr")
    894     ("^\\(https?://\\)?\\(www\\.\\)?instagram\\.com"          nerd-icons-faicon "nf-fa-instagram")
    895     ("^\\(https?://\\)?\\(www\\.\\)?pinterest\\."             nerd-icons-faicon "nf-fa-pinterest")
    896     ;; Information and books
    897     ("^\\(https?://\\)?\\(www\\.\\)?digg\\.com"               nerd-icons-faicon "nf-fa-digg")
    898     ("^\\(https?://\\)?\\(www\\.\\)?foursquare\\.com"         nerd-icons-faicon "nf-fa-foursquare")
    899     ("^\\(https?://\\)?\\(www\\.\\)?getpocket\\.com"          nerd-icons-faicon "nf-fa-get_pocket")
    900     ("^\\(https?://\\)?\\(www\\.\\)?scribd\\.com"             nerd-icons-faicon "nf-fa-scribd")
    901     ("^\\(https?://\\)?\\(www\\.\\)?slideshare\\.net"         nerd-icons-faicon "nf-fa-slideshare")
    902     ("stackexchange\\.com"                                    nerd-icons-faicon "nf-fa-stack_exchange")
    903     ("^\\(https?://\\)?\\(www\\.\\)?stumbleupon\\.com"        nerd-icons-faicon "nf-fa-stumbleupon")
    904     ("^\\(https?://\\)?\\(www\\.\\)?tripadvisor\\."           nerd-icons-faicon "nf-fa-tripadvisor")
    905     ("^\\(https?://\\)?\\(www\\.\\)?yelp\\."                  nerd-icons-faicon "nf-fa-yelp")
    906 
    907     ("wikipedia\\.org"                                        nerd-icons-faicon "nf-fa-wikipedia_w")
    908     ;; Various companies and tools
    909     ("^\\(https?://\\)?\\(www\\.\\)?angel\\.co"               nerd-icons-faicon "nf-fa-angellist")
    910     ("^\\(https?://\\)?\\(www\\.\\)?apple\\.com"              nerd-icons-faicon "nf-fa-apple")
    911     ("^\\(https?://\\)?\\(www\\.\\)?buysellads\\.com"         nerd-icons-faicon "nf-fa-buysellads")
    912     ("^\\(https?://\\)?\\(www\\.\\)?connectdevelop\\.com"     nerd-icons-faicon "nf-fa-connectdevelop")
    913     ("^\\(https?://\\)?\\(www\\.\\)?dashcube\\.com"           nerd-icons-faicon "nf-fa-dashcube")
    914     ("^\\(https?://\\)?\\(www\\.\\)?dropbox\\.com"            nerd-icons-faicon "nf-fa-dropbox")
    915     ("^\\(https?://\\)?\\(www\\.\\)?enviragallery\\.com"      nerd-icons-faicon "nf-fa-envira")
    916     ("^\\(https?://\\)?\\(www\\.\\)?fortawesome\\.com"        nerd-icons-faicon "nf-fa-fort_awesome")
    917     ("^\\(https?://\\)?\\(www\\.\\)?forumbee\\.com"           nerd-icons-faicon "nf-fa-forumbee")
    918     ("^\\(https?://\\)?\\(www\\.\\)?gratipay\\.com"           nerd-icons-faicon "nf-fa-gratipay")
    919     ("^\\(https?://\\)?\\(www\\.\\)?modx\\.com"               nerd-icons-faicon "nf-fa-modx")
    920     ("^\\(https?://\\)?\\(www\\.\\)?pagelines\\.com"          nerd-icons-faicon "nf-fa-pagelines")
    921     ("^\\(https?://\\)?\\(www\\.\\)?producthunt\\.com"        nerd-icons-faicon "nf-fa-product_hunt")
    922     ("sellsy\\.com"                                           nerd-icons-faicon "nf-fa-sellsy")
    923     ("^\\(https?://\\)?\\(www\\.\\)?simplybuilt\\.com"        nerd-icons-faicon "nf-fa-simplybuilt")
    924     ("^\\(https?://\\)?\\(www\\.\\)?skyatlas\\.com"           nerd-icons-faicon "nf-fa-skyatlas")
    925     ("^\\(https?://\\)?\\(www\\.\\)?skype\\.com"              nerd-icons-faicon "nf-fa-skype")
    926     ("steampowered\\.com"                                     nerd-icons-faicon "nf-fa-steam")
    927     ("^\\(https?://\\)?\\(www\\.\\)?themeisle\\.com"          nerd-icons-faicon "nf-fa-themeisle")
    928     ("^\\(https?://\\)?\\(www\\.\\)?trello\\.com"             nerd-icons-faicon "nf-fa-trello")
    929     ("^\\(https?://\\)?\\(www\\.\\)?whatsapp\\.com"           nerd-icons-faicon "nf-fa-whatsapp")
    930     ("^\\(https?://\\)?\\(www\\.\\)?ycombinator\\.com"        nerd-icons-faicon "nf-fa-y_combinator")
    931     ("yahoo\\.com"                                            nerd-icons-faicon "nf-fa-yahoo")
    932     ("^\\(https?://\\)?\\(www\\.\\)?yoast\\.com"              nerd-icons-faicon "nf-fa-yoast")
    933     ;; Catch all
    934     ("android"                                                nerd-icons-faicon "nf-fa-android")
    935     ("creativecommons"                                        nerd-icons-faicon "nf-fa-creative_commons")
    936     ("forums?"                                                nerd-icons-codicon "nf-cod-comment_discussion")
    937     ("\\.pdf$"                                                nerd-icons-codicon "nf-cod-file_pdf" :face nerd-icons-dred)
    938     ("google"                                                 nerd-icons-faicon "nf-fa-google")
    939     ("\\.rss"                                                 nerd-icons-faicon "nf-fa-rss")))
    940 
    941 (defun nerd-icons-auto-mode-match? (&optional file)
    942   "Whether or not FILE's `major-mode' match against its `auto-mode-alist'."
    943   (let* ((file (or file (buffer-file-name) (buffer-name)))
    944          (auto-mode (nerd-icons-match-to-alist file auto-mode-alist)))
    945     (eq major-mode auto-mode)))
    946 
    947 (defun nerd-icons-match-to-alist (file alist)
    948   "Match FILE against an entry in ALIST using `string-match'."
    949   (cdr (cl-find-if (lambda (it) (string-match (car it) file)) alist)))
    950 
    951 (defun nerd-icons-dir-is-submodule (dir)
    952   "Checker whether or not DIR is a git submodule."
    953   (let* ((gitmodule-dir (locate-dominating-file dir ".gitmodules"))
    954          (modules-file  (expand-file-name (format "%s.gitmodules" gitmodule-dir)))
    955          (module-search (format "submodule \".*?%s\"" (file-name-base dir))))
    956 
    957     (when (and gitmodule-dir (file-exists-p (format "%s/.git" dir)))
    958       (with-temp-buffer
    959         (insert-file-contents modules-file)
    960         (search-forward-regexp module-search (point-max) t)))))
    961 
    962 (defun nerd-icons--read-candidates ()
    963   "Helper to build a list of candidates for all glyph sets."
    964   (cl-reduce 'append (mapcar (lambda (it) (nerd-icons--read-candidates-for-glyph-set it t)) nerd-icons-glyph-sets)))
    965 
    966 (defun nerd-icons--read-candidates-for-glyph-set (glyph-set &optional show-glyph-set)
    967   "Helper to build read candidates for GLYPH-SET.
    968 
    969 If SHOW-GLYPH-SET is non-nil, displays the icons glyph set in the candidate
    970 string."
    971   (let ((data   (funcall (nerd-icons--data-name glyph-set)))
    972         (icon-f (nerd-icons--function-name glyph-set)))
    973     (mapcar
    974      (lambda (it)
    975        (let* ((icon-name (car it))
    976 
    977               (icon-display (funcall icon-f icon-name))
    978               (icon-glyph-set (if show-glyph-set (format "\t[%s]" glyph-set) ""))
    979 
    980               (candidate-name (format "%s\t%s%s" icon-display icon-name icon-glyph-set))
    981               (candidate-icon (funcall (nerd-icons--function-name glyph-set) icon-name)))
    982          (cons candidate-name candidate-icon)))
    983      data)))
    984 
    985 ;;;###autoload
    986 (defun nerd-icons-install-fonts (&optional pfx)
    987   "Helper function to download and install the latests fonts based on OS.
    988 The provided Nerd Font is Symbols Nerd Font Mono.
    989 When PFX is non-nil, ignore the prompt and just install"
    990   (interactive "P")
    991   (when (or pfx (yes-or-no-p "This will download and install fonts, are you sure you want to do this?"))
    992     (let* ((url-format "https://raw.githubusercontent.com/rainstormstudio/nerd-icons.el/main/fonts/%s")
    993            (font-dest (cond
    994                        ;; Default Linux install directories
    995                        ((member system-type '(gnu gnu/linux gnu/kfreebsd))
    996                         (concat (or (getenv "XDG_DATA_HOME")
    997                                     (concat (getenv "HOME") "/.local/share"))
    998                                 "/fonts/"
    999                                 nerd-icons-fonts-subdirectory))
   1000                        ;; Default MacOS install directory
   1001                        ((eq system-type 'darwin)
   1002                         (concat (getenv "HOME")
   1003                                 "/Library/Fonts/"
   1004                                 nerd-icons-fonts-subdirectory))))
   1005            (known-dest? (stringp font-dest))
   1006            (font-dest (or font-dest (read-directory-name "Font installation directory: " "~/"))))
   1007 
   1008       (unless (file-directory-p font-dest) (mkdir font-dest t))
   1009 
   1010       (mapc (lambda (font)
   1011               (url-copy-file (format url-format font) (expand-file-name font font-dest) t))
   1012             nerd-icons-font-names)
   1013       (when known-dest?
   1014         (message "Fonts downloaded, updating font cache... <fc-cache -f -v> ")
   1015         (shell-command-to-string (format "fc-cache -f -v")))
   1016       (message "%s Successfully %s `nerd-icons' fonts to `%s'!"
   1017                (nerd-icons-wicon "nf-weather-stars" :v-adjust 0.0)
   1018                (if known-dest? "installed" "downloaded")
   1019                font-dest))))
   1020 
   1021 ;;;###autoload
   1022 (defun nerd-icons-insert (&optional arg glyph-set)
   1023   "Interactive icon insertion function.
   1024 When Prefix ARG is non-nil, insert the propertized icon.
   1025 When GLYPH-SET is non-nil, limit the candidates to the icon set matching it."
   1026   (interactive "P")
   1027   (let* ((standard-output (current-buffer))
   1028          (candidates (if glyph-set
   1029                          (nerd-icons--read-candidates-for-glyph-set glyph-set)
   1030                        (nerd-icons--read-candidates)))
   1031          (prompt     (if glyph-set
   1032                          (format "%s Icon: " (funcall (nerd-icons--glyph-set-name glyph-set)))
   1033                        "Icon : "))
   1034          (selection (completing-read prompt candidates nil t))
   1035          (result    (cdr (assoc selection candidates))))
   1036 
   1037     (if arg (prin1 result) (insert result))))
   1038 
   1039 ;;;###autoload
   1040 (defun nerd-icons-icon-for-dir (dir &rest arg-overrides)
   1041   "Get the formatted icon for DIR.
   1042 ARG-OVERRIDES should be a plist containining `:height',
   1043 `:v-adjust' or `:face' properties like in the normal icon
   1044 inserting functions."
   1045   (let* ((dir (or dir default-directory "/"))
   1046          (dirname (file-name-base (directory-file-name dir)))
   1047          (path (if (file-name-absolute-p dir) dir (expand-file-name dir)))
   1048          (icon (nerd-icons-match-to-alist dirname nerd-icons-dir-icon-alist))
   1049          (args (cdr icon)))
   1050     (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args))))
   1051     (cond
   1052      ((file-remote-p path)
   1053       (apply #'nerd-icons-codicon "nf-cod-remote" (cdr args)))
   1054      ((file-symlink-p path)
   1055       (apply #'nerd-icons-codicon "nf-cod-file_symlink_directory" (cdr args)))
   1056      ((nerd-icons-dir-is-submodule path)
   1057       (apply #'nerd-icons-codicon "nf-cod-file_submodule" (cdr args)))
   1058      ((file-exists-p (format "%s/.git" path))
   1059       (apply #'nerd-icons-octicon "nf-oct-repo" (cdr args)))
   1060      (t (apply (car icon) args)))))
   1061 
   1062 ;;;###autoload
   1063 (defun nerd-icons-icon-for-file (file &rest arg-overrides)
   1064   "Get the formatted icon for FILE.
   1065 ARG-OVERRIDES should be a plist containining `:height',
   1066 `:v-adjust' or `:face' properties like in the normal icon
   1067 inserting functions."
   1068   (let* ((name (file-name-nondirectory file))
   1069          (ext (file-name-extension name))
   1070          (icon (or (nerd-icons-match-to-alist name nerd-icons-regexp-icon-alist)
   1071                    (and ext
   1072                         (cdr (assoc (downcase ext)
   1073                                     nerd-icons-extension-icon-alist)))
   1074                    nerd-icons-default-file-icon))
   1075          (args (cdr icon)))
   1076     (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args))))
   1077     (apply (car icon) args)))
   1078 
   1079 ;;;###autoload
   1080 (defun nerd-icons-icon-for-extension (ext &rest arg-overrides)
   1081   "Get the formatted icon for EXT.
   1082 ARG-OVERRIDES should be a plist containining `:height',
   1083 `:v-adjust' or `:face' properties like in the normal icon
   1084 inserting functions."
   1085   (let* ((icon (or
   1086                 (and ext
   1087                      (cdr (assoc (downcase ext)
   1088                                  nerd-icons-extension-icon-alist)))
   1089                 nerd-icons-default-file-icon))
   1090          (args (cdr icon)))
   1091     (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args))))
   1092     (apply (car icon) args)))
   1093 
   1094 ;;;###autoload
   1095 (defun nerd-icons-icon-for-mode (mode &rest arg-overrides)
   1096   "Get the formatted icon for MODE.
   1097 ARG-OVERRIDES should be a plist containining `:height',
   1098 `:v-adjust' or `:face' properties like in the normal icon
   1099 inserting functions."
   1100   (let* ((icon (or (cdr (or (assoc mode nerd-icons-mode-icon-alist)
   1101                             (assoc (get mode 'derived-mode-parent) nerd-icons-mode-icon-alist)))
   1102                    nerd-icons-default-file-icon))
   1103          (args (cdr icon)))
   1104     (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args))))
   1105     (if icon (apply (car icon) args) mode)))
   1106 
   1107 ;;;###autoload
   1108 (defun nerd-icons-icon-for-url (url &rest arg-overrides)
   1109   "Get the formatted icon for URL.
   1110 If an icon for URL isn't found in `nerd-icons-url-alist', a globe is used.
   1111 ARG-OVERRIDES should be a plist containining `:height',
   1112 `:v-adjust' or `:face' properties like in the normal icon
   1113 inserting functions."
   1114   (let* ((icon (nerd-icons-match-to-alist url nerd-icons-url-alist))
   1115          (args (cdr icon)))
   1116     (unless icon
   1117       (setq icon '(nerd-icons-faicon "nf-fa-globe"))
   1118       (setq args (cdr icon)))
   1119     (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args))))
   1120     (apply (car icon) args)))
   1121 
   1122 ;;;###autoload
   1123 (defun nerd-icons-icon-for-buffer ()
   1124   "Get the formatted icon for the current buffer.
   1125 
   1126 This function prioritises the use of the buffers file extension to
   1127 discern the icon when its `major-mode' matches its auto mode,
   1128 otherwise it will use the buffers `major-mode' to decide its
   1129 icon."
   1130   (nerd-icons--icon-info-for-buffer))
   1131 
   1132 (defun nerd-icons-cache (func)
   1133   "Set a cache for FUNC.  Does not work on interactive functions."
   1134   (unless (get func 'nerd-icons--cached)
   1135     (let ((cache (make-hash-table :test #'equal
   1136                                   :size nerd-icons--cache-limit))
   1137           (orig-fn (symbol-function func)))
   1138       (fset func
   1139             (lambda (&rest args)
   1140               (or (gethash args cache)
   1141                   (progn
   1142                     (when (> (hash-table-count cache)
   1143                              nerd-icons--cache-limit)
   1144                       (clrhash cache))
   1145                     (puthash args (apply orig-fn args) cache)))))))
   1146 
   1147   (put func 'nerd-icons--cached t))
   1148 
   1149 (nerd-icons-cache #'nerd-icons-icon-for-dir)
   1150 (nerd-icons-cache #'nerd-icons-icon-for-file)
   1151 (nerd-icons-cache #'nerd-icons-icon-for-extension)
   1152 (nerd-icons-cache #'nerd-icons-icon-for-mode)
   1153 (nerd-icons-cache #'nerd-icons-icon-for-url)
   1154 
   1155 (defun nerd-icons--icon-info-for-buffer (&optional f)
   1156   "Get icon info for the current buffer.
   1157 When F is provided, the info function is calculated with the format
   1158 `nerd-icons-icon-%s-for-file' or `nerd-icons-icon-%s-for-mode'."
   1159   (let* ((base-f (concat "nerd-icons-icon" (when f (format "-%s" f))))
   1160          (file-f (intern (concat base-f "-for-file")))
   1161          (mode-f (intern (concat base-f "-for-mode"))))
   1162     (if (and (buffer-file-name)
   1163              (nerd-icons-auto-mode-match?))
   1164         (funcall file-f (file-name-nondirectory (buffer-file-name)))
   1165       (funcall mode-f major-mode))))
   1166 
   1167 ;; Weather icons
   1168 (defun nerd-icons-icon-for-weather (weather)
   1169   "Get an icon for a WEATHER status."
   1170   (let ((icon (nerd-icons-match-to-alist weather nerd-icons-weather-icon-alist)))
   1171     (if icon (apply (car icon) (cdr icon)) weather)))
   1172 
   1173 ;; For `web-mode'
   1174 (defun nerd-icons--web-mode-icon (&rest arg-overrides)
   1175   "Get icon for a `web-mode' buffer with ARG-OVERRIDES."
   1176   (nerd-icons--web-mode arg-overrides))
   1177 (defun nerd-icons--web-mode-icon-family ()
   1178   "Get icon family for a `web-mode' buffer."
   1179   (nerd-icons--web-mode t))
   1180 
   1181 (defvar web-mode-content-type)          ; external
   1182 (defun nerd-icons--web-mode (&optional arg-overrides)
   1183   "Return icon or FAMILY for `web-mode' based on `web-mode-content-type'.
   1184 Providing ARG-OVERRIDES will modify the creation of the icon."
   1185   (let ((non-nil-args (cl-reduce (lambda (acc it) (if it (append acc (list it)) acc))
   1186                                  arg-overrides :initial-value '())))
   1187     (cond
   1188      ((equal web-mode-content-type "jsx")
   1189       (apply 'nerd-icons-devicon (append '("javascript") non-nil-args)))
   1190      ((equal web-mode-content-type "javascript")
   1191       (apply 'nerd-icons-devicon (append '("javascript") non-nil-args)))
   1192      ((equal web-mode-content-type "json")
   1193       (apply 'nerd-icons-devicon (append '("nf-dev-less") non-nil-args)))
   1194      ((equal web-mode-content-type "xml")
   1195       (apply 'nerd-icons-faicon (append '("nf-fa-file_code_o") non-nil-args)))
   1196      ((equal web-mode-content-type "css")
   1197       (apply 'nerd-icons-devicon (append '("nf-dev-css3") non-nil-args)))
   1198      (t
   1199       (apply 'nerd-icons-devicon (append '("nf-dev-html5") non-nil-args))))))
   1200 
   1201 (eval-and-compile
   1202   (defun nerd-icons--function-name (name)
   1203     "Get the symbol for an icon function name for icon set NAME."
   1204     (intern (concat "nerd-icons-" (downcase (symbol-name name)))))
   1205 
   1206   (defun nerd-icons--family-name (name)
   1207     "Get the symbol for an icon family function for icon set NAME."
   1208     (intern (concat "nerd-icons-" (downcase (symbol-name name)) "-family")))
   1209 
   1210   (defun nerd-icons--glyph-set-name (name)
   1211     "Get the symbol for an icon glyph set function for icon set NAME."
   1212     (intern (concat "nerd-icons-" (downcase (symbol-name name)) "-glyph-set")))
   1213 
   1214   (defun nerd-icons--data-name (name)
   1215     "Get the symbol for an icon family function for icon set NAME."
   1216     (intern (concat "nerd-icons-" (downcase (symbol-name name)) "-data")))
   1217 
   1218   (defun nerd-icons--insert-function-name (name)
   1219     "Get the symbol for an icon insert function for icon set NAME."
   1220     (intern (concat "nerd-icons-insert-" (downcase (symbol-name name))))))
   1221 
   1222 (defun nerd-icons-insert-icons-for (family &optional height duration)
   1223   "Insert all of the available icons associated with FAMILY.
   1224 If a HEIGHT is provided it will render the icons at this height.
   1225 This is useful both to see the icons more clearly and to test
   1226 different height rendering.  If DURATION is provided, it will
   1227 pause for DURATION seconds between printing each character."
   1228   (let* ((data-f    (nerd-icons--data-name family))
   1229          (insert-f  (nerd-icons--function-name family))
   1230 
   1231          (height (or height 1.0))
   1232          (data (funcall data-f)))
   1233     (mapc
   1234      (lambda (it)
   1235        (insert (format "%s - %s\n" (funcall insert-f (car it) :height height) (car it)))
   1236        (when duration (sit-for duration)))
   1237      data)))
   1238 
   1239 (defun nerd-icons-set-font (&optional font-family frame)
   1240   "Modify nerd font charsets to use FONT-FAMILY for FRAME."
   1241   (let ((font-f (or font-family nerd-icons-font-family))
   1242         (charsets '((#xe5fa . #xe6b2)  ;; Seti-UI + Custom
   1243                     (#xe700 . #xe7c5)  ;; Devicons
   1244                     (#xf000 . #xf2e0)  ;; Font Awesome
   1245                     (#xe200 . #xe2a9)  ;; Font Awesome Extension
   1246                     (#xf500 . #xfd46) (#xf0001 . #xf1af0) ;; Material Design Icons
   1247                     (#xe300 . #xe3eb)  ;; Weather
   1248                     (#xf400 . #xf4a8) #x2665 #x26a1 #xf27c  ;; Octicons
   1249                     (#xe0a0 . #xe0a2) (#xe0b0 . #xe0b3)  ;; Powerline Symbols
   1250                     #xe0a3 (#xe0b4 . #xe0c8) (#xe0cc . #xe0d2) #xe0d4  ;; Powerline Extra Symbols
   1251                     (#x23fb . #x23fe) #x2b58  ;; IEC Power Symbols
   1252                     (#xf300 . #xf372)  ;; Font Logos
   1253                     (#xe000 . #xe00a)  ;; Pomicons
   1254                     (#xea60 . #xebeb))))  ;; Codicons
   1255     (cl-loop for charset in charsets do
   1256              (set-fontset-font
   1257               (frame-parameter nil 'font)
   1258               charset
   1259               (font-spec :family font-f
   1260                          :weight nil
   1261                          :size   nil)
   1262               frame
   1263               'prepend))))
   1264 
   1265 (defmacro nerd-icons-define-icon (name alist family glyph-set)
   1266   "Macro to generate functions for inserting icons for icon set NAME.
   1267 
   1268 NAME defines is the name of the iconset and will produce a
   1269 function of the for `nerd-icon-NAME'.
   1270 
   1271 ALIST is the alist containing maps between icon names and the
   1272 UniCode for the character.  All of these can be found in the data
   1273 directory of this package.
   1274 
   1275 FAMILY is the font family to use for the icons.
   1276 GLYPH-SET is the glyph set of the icon."
   1277   `(progn
   1278      (add-to-list 'nerd-icons-glyph-sets (quote ,name))
   1279      (defun ,(nerd-icons--family-name name) () ,family)
   1280      (defun ,(nerd-icons--glyph-set-name name) () ,glyph-set)
   1281      (defun ,(nerd-icons--data-name name) () ,alist)
   1282      (defun ,(nerd-icons--function-name name) (icon-name &rest args)
   1283        (let ((icon (cdr (assoc icon-name ,alist)))
   1284              (other-face (when nerd-icons-color-icons (plist-get args :face)))
   1285              (height (* nerd-icons-scale-factor (or (plist-get args :height) 1.0)))
   1286              (v-adjust (* nerd-icons-scale-factor (or (plist-get args :v-adjust) nerd-icons-default-adjust)))
   1287              (family ,family))
   1288          (unless icon
   1289            (error "Unable to find icon with name `%s' in icon set `%s'" icon-name (quote ,name)))
   1290          (let ((face (if other-face
   1291                          `(:family ,family :height ,height :inherit ,other-face)
   1292                        `(:family ,family :height ,height))))
   1293            (propertize icon
   1294                        'face face
   1295                        'font-lock-face face
   1296                        'display `(raise ,v-adjust)
   1297                        'rear-nonsticky t))))
   1298      (defun ,(nerd-icons--insert-function-name name) (&optional arg)
   1299        ,(format "Insert a %s icon at point." glyph-set)
   1300        (interactive "P")
   1301        (nerd-icons-insert arg (quote ,name)))))
   1302 
   1303 (nerd-icons-define-icon ipsicon nerd-icons/ipsicon-alist nerd-icons-font-family "IEC Power Symbols")
   1304 (nerd-icons-define-icon octicon nerd-icons/octicon-alist nerd-icons-font-family "Octicons")
   1305 (nerd-icons-define-icon pomicon nerd-icons/pomicon-alist nerd-icons-font-family "Pomicons")
   1306 (nerd-icons-define-icon powerline nerd-icons/powerline-alist nerd-icons-font-family "Powerline Symbols")
   1307 (nerd-icons-define-icon faicon nerd-icons/faicon-alist nerd-icons-font-family "Font Awesome")
   1308 (nerd-icons-define-icon wicon nerd-icons/wicon-alist nerd-icons-font-family "Weather")
   1309 (nerd-icons-define-icon sucicon nerd-icons/sucicon-alist nerd-icons-font-family "Seti-UI + Custom")
   1310 (nerd-icons-define-icon devicon nerd-icons/devicon-alist nerd-icons-font-family "Devicons")
   1311 (nerd-icons-define-icon codicon nerd-icons/codicon-alist nerd-icons-font-family "Codicons")
   1312 (nerd-icons-define-icon flicon nerd-icons/flicon-alist nerd-icons-font-family "Font Logos")
   1313 (nerd-icons-define-icon mdicon nerd-icons/mdicon-alist nerd-icons-font-family "Material Design Icons")
   1314 
   1315 (provide 'nerd-icons)
   1316 ;;; nerd-icons.el ends here