diff options
| author | Blendoit <blendoit@gmail.com> | 2020-08-01 15:24:03 -0700 |
|---|---|---|
| committer | Blendoit <blendoit@gmail.com> | 2020-08-01 15:24:03 -0700 |
| commit | e47650852b8aa4da6d0b0cea3b5421955795cc64 (patch) | |
| tree | 2535f7cc4fa4b5c25bbd46f9523da5944b76e201 /elpa/all-the-icons-20200730.1545/all-the-icons.el | |
| parent | 374ae3de24187512adddf01a56e5eb52c79db65f (diff) | |
Definitely /not/ including elpa/, that would be chaos.
Diffstat (limited to 'elpa/all-the-icons-20200730.1545/all-the-icons.el')
| -rw-r--r-- | elpa/all-the-icons-20200730.1545/all-the-icons.el | 1074 |
1 files changed, 0 insertions, 1074 deletions
diff --git a/elpa/all-the-icons-20200730.1545/all-the-icons.el b/elpa/all-the-icons-20200730.1545/all-the-icons.el deleted file mode 100644 index e99b658..0000000 --- a/elpa/all-the-icons-20200730.1545/all-the-icons.el +++ /dev/null @@ -1,1074 +0,0 @@ -;;; all-the-icons.el --- A library for inserting Developer icons - -;; Copyright (C) 2016 Dominic Charlesworth <dgc336@gmail.com> - -;; Author: Dominic Charlesworth <dgc336@gmail.com> -;; Version: 4.0.0 -;; Package-Requires: ((emacs "24.3") (memoize "1.0.1")) -;; URL: https://github.com/domtronn/all-the-icons.el -;; Keywords: convenient, lisp - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License -;; as published by the Free Software Foundation; either version 3 -;; of the License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; This package is a utility for using and formatting various Icon -;; fonts within Emacs. Icon Fonts allow you to propertize and format -;; icons the same way you would normal text. This enables things such -;; as better scaling of and anti aliasing of the icons. - -;; This package was inspired by - -;; - `mode-icons' for Emacs, found at https://github.com/ryuslash/mode-icons -;; - `file-icons' for Atom, found at https://atom.io/packages/file-icons - -;; Currently, this package provides an interface to the following Icon Fonts - -;; - Atom File Icons, found at https://atom.io/packages/file-icons -;; - FontAwesome Icons, found at http://fontawesome.io/ -;; - GitHub Octicons, found at http://octicons.github.com -;; - Material Design Icons, found at http://google.github.io/material-design-icons/ -;; - Weather Icons, found at https://erikflowers.github.io/weather-icons/ -;; - AllTheIcons, a custom Icon Font maintained as part of this package - -;; Requests for new icons will be accepted and added to the AllTheIcons Icon Font - -;;; Usage: - -;; The simplest usage for this package is to use the following functions; - -;; `all-the-icons-icon-for-buffer' -;; `all-the-icons-icon-for-dir' -;; `all-the-icons-icon-for-file' -;; `all-the-icons-icon-for-mode' -;; `all-the-icons-icon-for-url' - -;; Which can be used to get a formatted icon for the current buffer, a -;; file name, a major mode, or an URL respectively. e.g. - -;; (insert (all-the-icons-icon-for-file "foo.js")) - -;; Inserts a JavaScript icon formatted like this - -;; #("some-icon" 0 1 (display (raise -0.24) -;; face (:family "dev-icons" :height 1.08 :foreground "#FFD446"))) - -;; You can also insert icons directly using the individual icon family -;; functions - -;; `all-the-icons-alltheicon' // Custom font with fewest icons -;; `all-the-icons-devicon' // Developer Icons -;; `all-the-icons-faicon' // Font Awesome Icons -;; `all-the-icons-fileicon' // File Icons from the Atom File Icons package -;; `all-the-icons-octicon' // GitHub Octicons -;; `all-the-icons-material' // Material Design Icons -;; `all-the-icons-wicon' // Weather Icons - -;; You can call these functions with the icon name you want to insert, e.g. - -;; (all-the-icons-octicon "file-binary") // GitHub Octicon for Binary File -;; (all-the-icons-faicon "cogs") // FontAwesome icon for cogs -;; (all-the-icons-wicon "tornado") // Weather Icon for tornado - -;; A list of all the icon names for the different font families can be -;; found in the data directory, or by inspecting the alist variables. -;; All the alist variables are prefixed with `all-the-icons-data/' - -;;; Code: -(require 'memoize) -(require 'cl-lib) - -(require 'data-alltheicons "./data/data-alltheicons.el") -(require 'data-faicons "./data/data-faicons.el") -(require 'data-fileicons "./data/data-fileicons.el") -(require 'data-octicons "./data/data-octicons.el") -(require 'data-weathericons "./data/data-weathericons.el") -(require 'data-material "./data/data-material.el") - -(require 'all-the-icons-faces) - -;;; Custom Variables -(defgroup all-the-icons nil - "Manage how All The Icons formats icons." - :prefix "all-the-icons-" - :group 'appearance - :group 'convenience) - -(defcustom all-the-icons-color-icons t - "Whether or not to include a foreground colour when formatting the icon." - :group 'all-the-icons - :type 'boolean) - -(defcustom all-the-icons-scale-factor 1.2 - "The base Scale Factor for the `height' face property of an icon." - :group 'all-the-icons - :type 'number) - -(defcustom all-the-icons-default-adjust -0.2 - "The default adjustment to be made to the `raise' display property of an icon." - :group 'all-the-icons - :type 'number) - -(defvar all-the-icons-font-families '() "List of defined icon font families.") -(defvar all-the-icons-font-names '() "List of defined font file names this package was built with.") - -(defvar all-the-icons-icon-alist - '( - ;; Meta - ("\\.tags" all-the-icons-octicon "tag" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue) - ("^TAGS$" all-the-icons-octicon "tag" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue) - ("\\.log" all-the-icons-octicon "bug" :height 1.0 :v-adjust 0.0 :face all-the-icons-maroon) - - ;; - ("\\.key$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-lblue) - ("\\.pem$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-orange) - ("\\.p12$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-dorange) - ("\\.crt$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-lblue) - ("\\.pub$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-blue) - ("\\.gpg$" all-the-icons-octicon "key" :v-adjust 0.0 :face all-the-icons-lblue) - - ("^TODO$" all-the-icons-octicon "checklist" :v-adjust 0.0 :face all-the-icons-lyellow) - ("^LICENSE$" all-the-icons-octicon "book" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue) - ("^readme" all-the-icons-octicon "book" :height 1.0 :v-adjust 0.0 :face all-the-icons-lcyan) - - ("\\.fish" all-the-icons-alltheicon "terminal" :face all-the-icons-lpink) - ("\\.zsh" all-the-icons-alltheicon "terminal" :face all-the-icons-lcyan) - ("\\.sh" all-the-icons-alltheicon "terminal" :face all-the-icons-purple) - - ;; Config - ("\\.node" all-the-icons-alltheicon "nodejs" :height 1.0 :face all-the-icons-green) - ("\\.babelrc$" all-the-icons-fileicon "babel" :face all-the-icons-yellow) - ("\\.bashrc$" all-the-icons-alltheicon "script" :height 0.9 :face all-the-icons-dpink) - ("\\.bowerrc$" all-the-icons-alltheicon "bower" :height 1.0 :v-adjust 0.0 :face all-the-icons-silver) - ("^bower.json$" all-the-icons-alltheicon "bower" :height 1.0 :v-adjust 0.0 :face all-the-icons-lorange) - ("\\.ini$" all-the-icons-octicon "settings" :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.eslintignore" all-the-icons-fileicon "eslint" :height 0.9 :face all-the-icons-purple) - ("\\.eslint" all-the-icons-fileicon "eslint" :height 0.9 :face all-the-icons-lpurple) - ("\\.git" all-the-icons-alltheicon "git" :height 1.0 :face all-the-icons-lred) - ("nginx" all-the-icons-fileicon "nginx" :height 0.9 :face all-the-icons-dgreen) - ("apache" all-the-icons-alltheicon "apache" :height 0.9 :face all-the-icons-dgreen) - ("^Makefile$" all-the-icons-fileicon "gnu" :face all-the-icons-dorange) - ("\\.mk$" all-the-icons-fileicon "gnu" :face all-the-icons-dorange) - - ("\\.dockerignore$" all-the-icons-fileicon "dockerfile" :height 1.2 :face all-the-icons-dblue) - ("^\\.?Dockerfile" all-the-icons-fileicon "dockerfile" :face all-the-icons-blue) - ("^Brewfile$" all-the-icons-faicon "beer" :face all-the-icons-lsilver) - ("\\.npmignore" all-the-icons-fileicon "npm" :face all-the-icons-dred) - ("^package.json$" all-the-icons-fileicon "npm" :face all-the-icons-red) - ("^package.lock.json$" all-the-icons-fileicon "npm" :face all-the-icons-dred) - ("^yarn\\.lock" all-the-icons-fileicon "yarn" :face all-the-icons-blue-alt) - - ("\\.xml$" all-the-icons-faicon "file-code-o" :height 0.95 :face all-the-icons-lorange) - - ;; ;; AWS - ("^stack.*.json$" all-the-icons-alltheicon "aws" :face all-the-icons-orange) - - - ("^serverless\\.yml$" all-the-icons-faicon "bolt" :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.[jc]son$" all-the-icons-octicon "settings" :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.ya?ml$" all-the-icons-octicon "settings" :v-adjust 0.0 :face all-the-icons-dyellow) - - ("\\.pkg$" all-the-icons-octicon "package" :v-adjust 0.0 :face all-the-icons-dsilver) - ("\\.rpm$" all-the-icons-octicon "package" :v-adjust 0.0 :face all-the-icons-dsilver) - - ("\\.elc$" all-the-icons-octicon "file-binary" :v-adjust 0.0 :face all-the-icons-dsilver) - - ("\\.gz$" all-the-icons-octicon "file-binary" :v-adjust 0.0 :face all-the-icons-lmaroon) - ("\\.zip$" all-the-icons-octicon "file-zip" :v-adjust 0.0 :face all-the-icons-lmaroon) - ("\\.7z$" all-the-icons-octicon "file-zip" :v-adjust 0.0 :face all-the-icons-lmaroon) - - ("\\.dat$" all-the-icons-faicon "bar-chart" :face all-the-icons-cyan :height 0.9) - ;; lock files - ("~$" all-the-icons-octicon "lock" :v-adjust 0.0 :face all-the-icons-maroon) - - ("\\.dmg$" all-the-icons-octicon "tools" :v-adjust 0.0 :face all-the-icons-lsilver) - ("\\.dll$" all-the-icons-faicon "cogs" :face all-the-icons-silver) - ("\\.DS_STORE$" all-the-icons-faicon "cogs" :face all-the-icons-silver) - - ;; Source Codes - ("\\.scpt$" all-the-icons-fileicon "apple" :face all-the-icons-pink) - ("\\.aup$" all-the-icons-fileicon "audacity" :face all-the-icons-yellow) - - ("\\.elm" all-the-icons-fileicon "elm" :face all-the-icons-blue) - - ("\\.erl$" all-the-icons-alltheicon "erlang" :face all-the-icons-red :v-adjust -0.1 :height 0.9) - ("\\.hrl$" all-the-icons-alltheicon "erlang" :face all-the-icons-dred :v-adjust -0.1 :height 0.9) - - ("\\.eex$" all-the-icons-alltheicon "elixir" :face all-the-icons-lorange :v-adjust -0.1 :height 0.9) - ("\\.leex$" all-the-icons-alltheicon "elixir" :face all-the-icons-lorange :v-adjust -0.1 :height 0.9) - ("\\.ex$" all-the-icons-alltheicon "elixir" :face all-the-icons-lpurple :v-adjust -0.1 :height 0.9) - ("\\.exs$" all-the-icons-alltheicon "elixir" :face all-the-icons-lred :v-adjust -0.1 :height 0.9) - ("^mix.lock$" all-the-icons-alltheicon "elixir" :face all-the-icons-lyellow :v-adjust -0.1 :height 0.9) - - ("\\.java$" all-the-icons-alltheicon "java" :height 1.0 :face all-the-icons-purple) - - ("\\.go$" all-the-icons-alltheicon "go" :height 1.0 :face all-the-icons-blue) - - ("\\.mp3$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.wav$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.m4a$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.ogg$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.flac$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.opus$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.au$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - ("\\.aif[fc]?$" all-the-icons-faicon "volume-up" :face all-the-icons-dred) - - ("\\.jl$" all-the-icons-fileicon "julia" :v-adjust 0.0 :face all-the-icons-purple) - ("\\.matlab$" all-the-icons-fileicon "matlab" :face all-the-icons-orange) - - ("\\.nix$" all-the-icons-fileicon "nix" :face all-the-icons-blue) - - ("\\.p[ml]$" all-the-icons-alltheicon "perl" :face all-the-icons-lorange) - ("\\.pl6$" all-the-icons-fileicon "perl6" :face all-the-icons-cyan) - ("\\.pm6$" all-the-icons-fileicon "perl6" :face all-the-icons-pink) - ("\\.pod$" all-the-icons-alltheicon "perldocs" :height 1.2 :face all-the-icons-lgreen) - - ("\\.php$" all-the-icons-fileicon "php" :face all-the-icons-lsilver) - ("\\.pony$" all-the-icons-fileicon "pony" :face all-the-icons-maroon) - ("\\.ps1$" all-the-icons-fileicon "powershell" :face all-the-icons-blue) - ("\\.prol?o?g?$" all-the-icons-alltheicon "prolog" :height 1.1 :face all-the-icons-lmaroon) - ("\\.py$" all-the-icons-alltheicon "python" :height 1.0 :face all-the-icons-dblue) - - ("\\.rkt$" all-the-icons-fileicon "racket" :height 1.2 :face all-the-icons-red) - ("^Gemfile\\(\\.lock\\)?$" all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - ("\\.gem$" all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - ("_?test\\.rb$" all-the-icons-fileicon "test-ruby" :height 1.0 :v-adjust 0.0 :face all-the-icons-red) - ("_?test_helper\\.rb$" all-the-icons-fileicon "test-ruby" :height 1.0 :v-adjust 0.0 :face all-the-icons-dred) - ("_?spec\\.rb$" all-the-icons-fileicon "test-ruby" :height 1.0 :v-adjust 0.0 :face all-the-icons-red) - ("_?spec_helper\\.rb$" all-the-icons-fileicon "test-ruby" :height 1.0 :v-adjust 0.0 :face all-the-icons-dred) - ("\\.rb$" all-the-icons-octicon "ruby" :v-adjust 0.0 :face all-the-icons-lred) - ("\\.rs$" all-the-icons-alltheicon "rust" :height 1.2 :face all-the-icons-maroon) - ("\\.rlib$" all-the-icons-alltheicon "rust" :height 1.2 :face all-the-icons-dmaroon) - ("\\.r[ds]?x?$" all-the-icons-fileicon "R" :face all-the-icons-lblue) - - ("\\.sbt$" all-the-icons-fileicon "sbt" :face all-the-icons-red) - ("\\.scala$" all-the-icons-alltheicon "scala" :face all-the-icons-red) - ("\\.scm$" all-the-icons-fileicon "scheme" :height 1.2 :face all-the-icons-red) - ("\\.swift$" all-the-icons-alltheicon "swift" :height 1.0 :v-adjust -0.1 :face all-the-icons-green) - - ("-?spec\\.ts$" all-the-icons-fileicon "test-typescript" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue) - ("-?test\\.ts$" all-the-icons-fileicon "test-typescript" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue) - ("-?spec\\.js$" all-the-icons-fileicon "test-js" :height 1.0 :v-adjust 0.0 :face all-the-icons-lpurple) - ("-?test\\.js$" all-the-icons-fileicon "test-js" :height 1.0 :v-adjust 0.0 :face all-the-icons-lpurple) - ("-?spec\\.jsx$" all-the-icons-fileicon "test-react" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue-alt) - ("-?test\\.jsx$" all-the-icons-fileicon "test-react" :height 1.0 :v-adjust 0.0 :face all-the-icons-blue-alt) - - ("-?spec\\." all-the-icons-fileicon "test-generic" :height 1.0 :v-adjust 0.0 :face all-the-icons-dgreen) - ("-?test\\." all-the-icons-fileicon "test-generic" :height 1.0 :v-adjust 0.0 :face all-the-icons-dgreen) - - ("\\.tf\\(vars\\|state\\)?$" all-the-icons-fileicon "terraform" :height 1.0 :face all-the-icons-purple-alt) - - ;; Verilog(-AMS) and SystemVerilog(-AMS) - ("\\.v$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - ("\\.vams$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - ("\\.sv$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - ("\\.sva$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - ("\\.svh$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - ("\\.svams$" all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - - ;; VHDL(-AMS) - ("\\.vhd$" all-the-icons-fileicon "vhdl" :face all-the-icons-blue) - ("\\.vhdl$" all-the-icons-fileicon "vhdl" :face all-the-icons-blue) - ("\\.vhms$" all-the-icons-fileicon "vhdl" :face all-the-icons-blue) - - ;; Cabal - ("\\.cabal$" all-the-icons-fileicon "cabal" :face all-the-icons-lblue) - - ;; Kotlin - ("\\.kt$" all-the-icons-fileicon "kotlin" :face all-the-icons-orange) - ("\\.kts$" all-the-icons-fileicon "kotlin" :face all-the-icons-orange) - - ;; Nimrod - ("\\.nim$" all-the-icons-fileicon "nimrod" :face all-the-icons-yellow) - ("\\.nims$" all-the-icons-fileicon "nimrod" :face all-the-icons-yellow) - - ;; SQL - ("\\.sql$" all-the-icons-octicon "database" :face all-the-icons-silver) - - ;; Styles - ("\\.styles$" all-the-icons-material "style" :face all-the-icons-red) - - ;; Lua - ("\\.lua$" all-the-icons-fileicon "lua" :face all-the-icons-dblue) - - ;; ASCII doc - ("\\.adoc$" all-the-icons-fileicon "asciidoc" :face all-the-icons-lblue) - ("\\.asciidoc$" all-the-icons-fileicon "asciidoc" :face all-the-icons-lblue) - - ;; Puppet - ("\\.pp$" all-the-icons-fileicon "puppet" :face all-the-icons-yellow) - - ;; Jinja - ("\\.j2$" all-the-icons-fileicon "jinja" :face all-the-icons-silver) - ("\\.jinja2$" all-the-icons-fileicon "jinja" :face all-the-icons-silver) - - ;; Docker - ("\\.dockerfile$" all-the-icons-fileicon "dockerfile" :face all-the-icons-cyan) - - ;; Vagrant - ("\\.vagrantfile$" all-the-icons-fileicon "vagrant" :face all-the-icons-blue) - - ;; There seems to be a a bug with this font icon which does not - ;; let you propertise it without it reverting to being a lower - ;; case phi - ("\\.c$" all-the-icons-alltheicon "c-line" :face all-the-icons-blue) - ("\\.h$" all-the-icons-alltheicon "c-line" :face all-the-icons-purple) - ("\\.m$" all-the-icons-fileicon "apple" :v-adjust 0.0 :height 1.0) - ("\\.mm$" all-the-icons-fileicon "apple" :v-adjust 0.0 :height 1.0) - - ("\\.c\\(c\\|pp\\|xx\\)$" all-the-icons-alltheicon "cplusplus-line" :v-adjust -0.2 :face all-the-icons-blue) - ("\\.h\\(h\\|pp\\|xx\\)$" all-the-icons-alltheicon "cplusplus-line" :v-adjust -0.2 :face all-the-icons-purple) - - ("\\.csx?$" all-the-icons-alltheicon "csharp-line" :face all-the-icons-dblue) - - ("\\.cljc?$" all-the-icons-alltheicon "clojure-line" :height 1.0 :face all-the-icons-blue :v-adjust 0.0) - ("\\.cljs$" all-the-icons-fileicon "cljs" :height 1.0 :face all-the-icons-dblue :v-adjust 0.0) - - ("\\.coffee$" all-the-icons-alltheicon "coffeescript" :height 1.0 :face all-the-icons-maroon) - ("\\.iced$" all-the-icons-alltheicon "coffeescript" :height 1.0 :face all-the-icons-lmaroon) - - ("\\.dart$" all-the-icons-fileicon "dart" :height 1.0 :face all-the-icons-blue :v-adjust 0.0) - - ;; Git - ("^MERGE_" all-the-icons-octicon "git-merge" :v-adjust 0.0 :face all-the-icons-red) - ("^COMMIT_EDITMSG" all-the-icons-octicon "git-commit" :v-adjust 0.0 :face all-the-icons-red) - - ;; Lisps - ("\\.cl$" all-the-icons-fileicon "clisp" :face all-the-icons-lorange) - ("\\.l\\(isp\\)?$" all-the-icons-fileicon "lisp" :face all-the-icons-orange) - ("\\.el$" all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.2 :face all-the-icons-purple) - - ;; Stylesheeting - ("\\.css$" all-the-icons-alltheicon "css3" :face all-the-icons-yellow) - ("\\.scss$" all-the-icons-alltheicon "sass" :face all-the-icons-pink) - ("\\.sass$" all-the-icons-alltheicon "sass" :face all-the-icons-dpink) - ("\\.less$" all-the-icons-alltheicon "less" :height 0.8 :face all-the-icons-dyellow) - ("\\.postcss$" all-the-icons-fileicon "postcss" :face all-the-icons-dred) - ("\\.sss$" all-the-icons-fileicon "postcss" :face all-the-icons-dred) - ("\\.styl$" all-the-icons-alltheicon "stylus" :face all-the-icons-lgreen) - ("stylelint" all-the-icons-fileicon "stylelint" :face all-the-icons-lyellow) - ("\\.csv$" all-the-icons-octicon "graph" :v-adjust 0.0 :face all-the-icons-dblue) - - ("\\.hs$" all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - ("\\.chs$" all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - ("\\.lhs$" all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - ("\\.hsc$" all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - - ;; Web modes - ("\\.inky-haml$" all-the-icons-fileicon "haml" :face all-the-icons-lyellow) - ("\\.haml$" all-the-icons-fileicon "haml" :face all-the-icons-lyellow) - ("\\.html?$" all-the-icons-alltheicon "html5" :face all-the-icons-orange) - ("\\.inky-erb?$" all-the-icons-alltheicon "html5" :face all-the-icons-lred) - ("\\.erb$" all-the-icons-alltheicon "html5" :face all-the-icons-lred) - ("\\.hbs$" all-the-icons-fileicon "moustache" :face all-the-icons-green) - ("\\.inky-slim$" all-the-icons-octicon "dashboard" :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.slim$" all-the-icons-octicon "dashboard" :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.jade$" all-the-icons-fileicon "jade" :face all-the-icons-red) - ("\\.pug$" all-the-icons-fileicon "pug-alt" :face all-the-icons-red) - - ;; JavaScript - ("^gulpfile" all-the-icons-alltheicon "gulp" :height 1.0 :face all-the-icons-lred) - ("^gruntfile" all-the-icons-alltheicon "grunt" :height 1.0 :v-adjust -0.1 :face all-the-icons-lyellow) - ("^webpack" all-the-icons-fileicon "webpack" :face all-the-icons-lblue) - - ("\\.d3\\.?js" all-the-icons-alltheicon "d3" :height 0.8 :face all-the-icons-lgreen) - - ("\\.re$" all-the-icons-fileicon "reason" :height 1.0 :face all-the-icons-red-alt) - ("\\.rei$" all-the-icons-fileicon "reason" :height 1.0 :face all-the-icons-dred) - ("\\.ml$" all-the-icons-fileicon "ocaml" :height 1.0 :face all-the-icons-lpink) - ("\\.mli$" all-the-icons-fileicon "ocaml" :height 1.0 :face all-the-icons-dpink) - - ("\\.react" all-the-icons-alltheicon "react" :height 1.1 :face all-the-icons-lblue) - ("\\.d\\.ts$" all-the-icons-fileicon "typescript" :height 1.0 :v-adjust -0.1 :face all-the-icons-cyan-alt) - ("\\.ts$" all-the-icons-fileicon "typescript" :height 1.0 :v-adjust -0.1 :face all-the-icons-blue-alt) - ("\\.js$" all-the-icons-alltheicon "javascript" :height 1.0 :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.es[0-9]$" all-the-icons-alltheicon "javascript" :height 1.0 :v-adjust 0.0 :face all-the-icons-yellow) - ("\\.jsx$" all-the-icons-fileicon "jsx-2" :height 1.0 :v-adjust -0.1 :face all-the-icons-cyan-alt) - ("\\.njs$" all-the-icons-alltheicon "nodejs" :height 1.2 :face all-the-icons-lgreen) - ("\\.vue$" all-the-icons-fileicon "vue" :face all-the-icons-lgreen) - - ;; F# - ("\\.fs[ix]?$" all-the-icons-fileicon "fsharp" :face all-the-icons-blue-alt) - - ;; File Types - ("\\.ico$" all-the-icons-octicon "file-media" :v-adjust 0.0 :face all-the-icons-blue) - ("\\.png$" all-the-icons-octicon "file-media" :v-adjust 0.0 :face all-the-icons-orange) - ("\\.gif$" all-the-icons-octicon "file-media" :v-adjust 0.0 :face all-the-icons-green) - ("\\.jpe?g$" all-the-icons-octicon "file-media" :v-adjust 0.0 :face all-the-icons-dblue) - ("\\.svg$" all-the-icons-alltheicon "svg" :height 0.9 :face all-the-icons-lgreen) - - ;; Video - ("\\.mov" all-the-icons-faicon "film" :face all-the-icons-blue) - ("\\.mp4" all-the-icons-faicon "film" :face all-the-icons-blue) - ("\\.ogv" all-the-icons-faicon "film" :face all-the-icons-dblue) - ("\\.mkv" all-the-icons-faicon "film" :face all-the-icons-blue) - ("\\.webm" all-the-icons-faicon "film" :face all-the-icons-blue) - - ;; Fonts - ("\\.ttf$" all-the-icons-fileicon "font" :v-adjust 0.0 :face all-the-icons-dcyan) - ("\\.woff2?$" all-the-icons-fileicon "font" :v-adjust 0.0 :face all-the-icons-cyan) - - ;; Doc - ("\\.pdf" all-the-icons-octicon "file-pdf" :v-adjust 0.0 :face all-the-icons-dred) - ("\\.te?xt" all-the-icons-octicon "file-text" :v-adjust 0.0 :face all-the-icons-cyan) - ("\\.doc[xm]?$" all-the-icons-fileicon "word" :face all-the-icons-blue) - ("\\.texi?$" all-the-icons-fileicon "tex" :face all-the-icons-lred) - ("\\.md$" all-the-icons-octicon "markdown" :v-adjust 0.0 :face all-the-icons-lblue) - ("\\.bib$" all-the-icons-fileicon "bib" :face all-the-icons-maroon) - ("\\.org$" all-the-icons-fileicon "org" :face all-the-icons-lgreen) - - ("\\.pp[st]$" all-the-icons-fileicon "powerpoint" :face all-the-icons-orange) - ("\\.pp[st]x$" all-the-icons-fileicon "powerpoint" :face all-the-icons-red) - ("\\.knt$" all-the-icons-fileicon "powerpoint" :face all-the-icons-cyan) - - ("bookmark" all-the-icons-octicon "bookmark" :height 1.1 :v-adjust 0.0 :face all-the-icons-lpink) - ("\\.cache$" all-the-icons-octicon "database" :height 1.0 :v-adjust 0.0 :face all-the-icons-green) - - ("^\\*scratch\\*$" all-the-icons-faicon "sticky-note" :face all-the-icons-lyellow) - ("^\\*scratch.*" all-the-icons-faicon "sticky-note" :face all-the-icons-yellow) - ("^\\*new-tab\\*$" all-the-icons-material "star" :face all-the-icons-cyan) - - ("^\\." all-the-icons-octicon "gear" :v-adjust 0.0) - (".?" all-the-icons-faicon "file-o" :v-adjust 0.0 :face all-the-icons-dsilver))) - -(defvar all-the-icons-dir-icon-alist - '( - ("trash" all-the-icons-faicon "trash-o" :height 1.2 :v-adjust -0.1) - ("dropbox" all-the-icons-faicon "dropbox" :height 1.0 :v-adjust -0.1) - ("google[ _-]drive" all-the-icons-alltheicon "google-drive" :height 1.0 :v-adjust -0.1) - ("^atom$" all-the-icons-alltheicon "atom" :height 1.2 :v-adjust -0.1) - ("documents" all-the-icons-faicon "book" :height 1.0 :v-adjust -0.1) - ("download" all-the-icons-faicon "cloud-download" :height 0.9 :v-adjust -0.1) - ("desktop" all-the-icons-octicon "device-desktop" :height 1.0 :v-adjust -0.1) - ("pictures" all-the-icons-faicon "picture-o" :height 0.9 :v-adjust -0.2) - ("photos" all-the-icons-faicon "camera-retro" :height 1.0 :v-adjust -0.1) - ("music" all-the-icons-faicon "music" :height 1.0 :v-adjust -0.1) - ("movies" all-the-icons-faicon "film" :height 0.9 :v-adjust -0.1) - ("code" all-the-icons-octicon "code" :height 1.1 :v-adjust -0.1) - ("workspace" all-the-icons-octicon "code" :height 1.1 :v-adjust -0.1) - ("test" all-the-icons-fileicon "test-dir" :height 0.9) - ("\\.git" all-the-icons-alltheicon "git" :height 1.0) - (".?" all-the-icons-octicon "file-directory" :height 1.0 :v-adjust -0.1) - )) - -(defvar all-the-icons-weather-icon-alist - '( - ("tornado" all-the-icons-wicon "tornado") - ("hurricane" all-the-icons-wicon "hurricane") - ("thunderstorms" all-the-icons-wicon "thunderstorm") - ("sunny" all-the-icons-wicon "day-sunny") - ("rain.*snow" all-the-icons-wicon "rain-mix") - ("rain.*hail" all-the-icons-wicon "rain-mix") - ("sleet" all-the-icons-wicon "sleet") - ("hail" all-the-icons-wicon "hail") - ("drizzle" all-the-icons-wicon "sprinkle") - ("rain" all-the-icons-wicon "showers" :height 1.1 :v-adjust 0.0) - ("showers" all-the-icons-wicon "showers") - ("blowing.*snow" all-the-icons-wicon "snow-wind") - ("snow" all-the-icons-wicon "snow") - ("dust" all-the-icons-wicon "dust") - ("fog" all-the-icons-wicon "fog") - ("haze" all-the-icons-wicon "day-haze") - ("smoky" all-the-icons-wicon "smoke") - ("blustery" all-the-icons-wicon "cloudy-windy") - ("windy" all-the-icons-wicon "cloudy-gusts") - ("cold" all-the-icons-wicon "snowflake-cold") - ("partly.*cloudy.*night" all-the-icons-wicon "night-alt-partly-cloudy") - ("partly.*cloudy" all-the-icons-wicon "day-cloudy-high") - ("cloudy.*night" all-the-icons-wicon "night-alt-cloudy") - ("cxloudy.*day" all-the-icons-wicon "day-cloudy") - ("cloudy" all-the-icons-wicon "cloudy") - ("clear.*night" all-the-icons-wicon "night-clear") - ("fair.*night" all-the-icons-wicon "stars") - ("fair.*day" all-the-icons-wicon "horizon") - ("hot" all-the-icons-wicon "hot") - ("not.*available" all-the-icons-wicon "na") - )) - -(defvar all-the-icons-mode-icon-alist - '( - (emacs-lisp-mode all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.2 :face all-the-icons-purple) - (erc-mode all-the-icons-faicon "commenting-o" :height 1.0 :v-adjust 0.0) - (inferior-emacs-lisp-mode all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.2 :face all-the-icons-lblue) - (dired-mode all-the-icons-octicon "file-directory" :v-adjust 0.0) - (lisp-interaction-mode all-the-icons-fileicon "lisp" :v-adjust -0.1 :face all-the-icons-orange) - (sly-mrepl-mode all-the-icons-fileicon "clisp" :v-adjust -0.1 :face all-the-icons-orange) - (slime-repl-mode all-the-icons-fileicon "clisp" :v-adjust -0.1 :face all-the-icons-orange) - (org-mode all-the-icons-fileicon "org" :v-adjust 0.0 :face all-the-icons-lgreen) - (typescript-mode all-the-icons-fileicon "typescript" :v-adjust -0.1 :face all-the-icons-blue-alt) - (js-mode all-the-icons-alltheicon "javascript" :v-adjust -0.1 :face all-the-icons-yellow) - (js-jsx-mode all-the-icons-alltheicon "javascript" :v-adjust -0.1 :face all-the-icons-yellow) - (js2-mode all-the-icons-alltheicon "javascript" :v-adjust -0.1 :face all-the-icons-yellow) - (js3-mode all-the-icons-alltheicon "javascript" :v-adjust -0.1 :face all-the-icons-yellow) - (rjsx-mode all-the-icons-fileicon "jsx-2" :v-adjust -0.1 :face all-the-icons-cyan-alt) - (term-mode all-the-icons-octicon "terminal" :v-adjust 0.2) - (vterm-mode all-the-icons-octicon "terminal" :v-adjust 0.2) - (eshell-mode all-the-icons-octicon "terminal" :v-adjust 0.0 :face all-the-icons-purple) - (magit-refs-mode all-the-icons-octicon "git-branch" :v-adjust 0.0 :face all-the-icons-red) - (magit-process-mode all-the-icons-octicon "mark-github" :v-adjust 0.0) - (magit-diff-mode all-the-icons-octicon "git-compare" :v-adjust 0.0 :face all-the-icons-lblue) - (ediff-mode all-the-icons-octicon "git-compare" :v-adjust 0.0 :Face all-the-icons-red) - (comint-mode all-the-icons-faicon "terminal" :v-adjust 0.0 :face all-the-icons-lblue) - (eww-mode all-the-icons-faicon "firefox" :v-adjust -0.1 :face all-the-icons-red) - (org-agenda-mode all-the-icons-octicon "checklist" :v-adjust 0.0 :face all-the-icons-lgreen) - (cfw:calendar-mode all-the-icons-octicon "calendar" :v-adjust 0.0) - (ibuffer-mode all-the-icons-faicon "files-o" :v-adjust 0.0 :face all-the-icons-dsilver) - (messages-buffer-mode all-the-icons-faicon "stack-overflow" :v-adjust -0.1) - (help-mode all-the-icons-faicon "info" :v-adjust -0.1 :face all-the-icons-purple) - (benchmark-init/tree-mode all-the-icons-octicon "dashboard" :v-adjust 0.0) - (jenkins-mode all-the-icons-fileicon "jenkins" :face all-the-icons-blue) - (magit-popup-mode all-the-icons-alltheicon "git" :face all-the-icons-red) - (magit-status-mode all-the-icons-alltheicon "git" :face all-the-icons-lred) - (magit-log-mode all-the-icons-alltheicon "git" :face all-the-icons-green) - (mu4e-compose-mode all-the-icons-octicon "pencil" :v-adjust 0.0) - (mu4e-headers-mode all-the-icons-octicon "mail" :v-adjust 0.0) - (mu4e-main-mode all-the-icons-octicon "mail" :v-adjust 0.0) - (mu4e-view-mode all-the-icons-octicon "mail-read" :v-adjust 0.0) - (paradox-menu-mode all-the-icons-faicon "archive" :height 1.0 :v-adjust 0.0 :face all-the-icons-silver) - (Custom-mode all-the-icons-octicon "settings") - - ;; Special matcher for Web Mode based on the `web-mode-content-type' of the current buffer - (web-mode all-the-icons--web-mode-icon) - - (fundamental-mode all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.2 :face all-the-icons-dsilver) - (special-mode all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.2 :face all-the-icons-yellow) - (text-mode all-the-icons-octicon "file-text" :v-adjust 0.0 :face all-the-icons-cyan) - (enh-ruby-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-lred) - (ruby-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-lred) - (inf-ruby-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - (projectile-rails-compilation-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - (rspec-compilation-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - (rake-compilation-mode all-the-icons-alltheicon "ruby-alt" :face all-the-icons-red) - (sh-mode all-the-icons-alltheicon "terminal" :face all-the-icons-purple) - (shell-mode all-the-icons-alltheicon "terminal" :face all-the-icons-purple) - (fish-mode all-the-icons-alltheicon "terminal" :face all-the-icons-lpink) - (nginx-mode all-the-icons-fileicon "nginx" :height 0.9 :face all-the-icons-dgreen) - (apache-mode all-the-icons-alltheicon "apache" :height 0.9 :face all-the-icons-dgreen) - (makefile-mode all-the-icons-fileicon "gnu" :face all-the-icons-dorange) - (dockerfile-mode all-the-icons-fileicon "dockerfile" :face all-the-icons-blue) - (docker-compose-mode all-the-icons-fileicon "dockerfile" :face all-the-icons-lblue) - (nxml-mode all-the-icons-faicon "file-code-o" :height 0.95 :face all-the-icons-lorange) - (json-mode all-the-icons-octicon "settings" :face all-the-icons-yellow) - (yaml-mode all-the-icons-octicon "settings" :v-adjust 0.0 :face all-the-icons-dyellow) - (elisp-byte-code-mode all-the-icons-octicon "file-binary" :v-adjust 0.0 :face all-the-icons-dsilver) - (archive-mode all-the-icons-octicon "file-zip" :v-adjust 0.0 :face all-the-icons-lmaroon) - (elm-mode all-the-icons-fileicon "elm" :face all-the-icons-blue) - (erlang-mode all-the-icons-alltheicon "erlang" :face all-the-icons-red :v-adjust -0.1 :height 0.9) - (elixir-mode all-the-icons-alltheicon "elixir" :face all-the-icons-lorange :v-adjust -0.1 :height 0.9) - (java-mode all-the-icons-alltheicon "java" :height 1.0 :face all-the-icons-purple) - (go-mode all-the-icons-alltheicon "go" :height 1.0 :face all-the-icons-blue) - (matlab-mode all-the-icons-fileicon "matlab" :face all-the-icons-orange) - (perl-mode all-the-icons-alltheicon "perl" :face all-the-icons-lorange) - (cperl-mode all-the-icons-alltheicon "perl" :face all-the-icons-lorange) - (php-mode all-the-icons-fileicon "php" :face all-the-icons-lsilver) - (prolog-mode all-the-icons-alltheicon "prolog" :height 1.1 :face all-the-icons-lmaroon) - (python-mode all-the-icons-alltheicon "python" :height 1.0 :face all-the-icons-dblue) - (inferior-python-mode all-the-icons-alltheicon "python" :height 1.0 :face all-the-icons-dblue) - (racket-mode all-the-icons-fileicon "racket" :height 1.2 :face all-the-icons-red) - (rust-mode all-the-icons-alltheicon "rust" :height 1.2 :face all-the-icons-maroon) - (scala-mode all-the-icons-alltheicon "scala" :face all-the-icons-red) - (scheme-mode all-the-icons-fileicon "scheme" :height 1.2 :face all-the-icons-red) - (swift-mode all-the-icons-alltheicon "swift" :height 1.0 :v-adjust -0.1 :face all-the-icons-green) - (c-mode all-the-icons-alltheicon "c-line" :face all-the-icons-blue) - (c++-mode all-the-icons-alltheicon "cplusplus-line" :v-adjust -0.2 :face all-the-icons-blue) - (csharp-mode all-the-icons-alltheicon "csharp-line" :face all-the-icons-dblue) - (clojure-mode all-the-icons-alltheicon "clojure-line" :height 1.0 :face all-the-icons-blue) - (cider-repl-mode all-the-icons-alltheicon "clojure-line" :height 1.0 :face all-the-icons-dblue) - (clojurescript-mode all-the-icons-fileicon "cljs" :height 1.0 :face all-the-icons-dblue) - (coffee-mode all-the-icons-alltheicon "coffeescript" :height 1.0 :face all-the-icons-maroon) - (lisp-mode all-the-icons-fileicon "lisp" :face all-the-icons-orange) - (css-mode all-the-icons-alltheicon "css3" :face all-the-icons-yellow) - (scss-mode all-the-icons-alltheicon "sass" :face all-the-icons-pink) - (sass-mode all-the-icons-alltheicon "sass" :face all-the-icons-dpink) - (less-css-mode all-the-icons-alltheicon "less" :height 0.8 :face all-the-icons-dyellow) - (stylus-mode all-the-icons-alltheicon "stylus" :face all-the-icons-lgreen) - (csv-mode all-the-icons-octicon "graph" :v-adjust 0.0 :face all-the-icons-dblue) - (haskell-mode all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - (haskell-c2hs-mode all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - (literate-haskell-mode all-the-icons-alltheicon "haskell" :height 1.0 :face all-the-icons-red) - (haml-mode all-the-icons-fileicon "haml" :face all-the-icons-lyellow) - (html-mode all-the-icons-alltheicon "html5" :face all-the-icons-orange) - (rhtml-mode all-the-icons-alltheicon "html5" :face all-the-icons-lred) - (mustache-mode all-the-icons-fileicon "moustache" :face all-the-icons-green) - (slim-mode all-the-icons-octicon "dashboard" :v-adjust 0.0 :face all-the-icons-yellow) - (jade-mode all-the-icons-fileicon "jade" :face all-the-icons-red) - (pug-mode all-the-icons-fileicon "pug" :face all-the-icons-red) - (react-mode all-the-icons-alltheicon "react" :height 1.1 :face all-the-icons-lblue) - (image-mode all-the-icons-octicon "file-media" :v-adjust 0.0 :face all-the-icons-blue) - (texinfo-mode all-the-icons-fileicon "tex" :face all-the-icons-lred) - (markdown-mode all-the-icons-octicon "markdown" :v-adjust 0.0 :face all-the-icons-lblue) - (bibtex-mode all-the-icons-fileicon "bib" :face all-the-icons-maroon) - (org-mode all-the-icons-fileicon "org" :face all-the-icons-lgreen) - (compilation-mode all-the-icons-faicon "cogs" :v-adjust 0.0 :height 1.0) - (objc-mode all-the-icons-faicon "apple" :v-adjust 0.0 :height 1.0) - (tuareg-mode all-the-icons-fileicon "ocaml" :v-adjust 0.0 :height 1.0) - (purescript-mode all-the-icons-fileicon "purescript" :v-adjust 0.0 :height 1.0) - (verilog-mode all-the-icons-fileicon "verilog" :height 1.0 :v-adjust -0.2 :face all-the-icons-red) - (vhdl-mode all-the-icons-fileicon "vhdl" :face all-the-icons-blue) - (haskell-cabal-mode all-the-icons-fileicon "cabal" :face all-the-icons-lblue) - (kotlin-mode all-the-icons-fileicon "kotlin" :face all-the-icons-orange) - (nim-mode all-the-icons-fileicon "nimrod" :face all-the-icons-yellow) - (sql-mode all-the-icons-octicon "database" :face all-the-icons-silver) - (lua-mode all-the-icons-fileicon "lua" :face all-the-icons-dblue) - (adoc-mode all-the-icons-fileicon "asciidoc" :face all-the-icons-lblue) - (puppet-mode all-the-icons-fileicon "puppet" :face all-the-icons-yellow) - (jinja2-mode all-the-icons-fileicon "jinja" :face all-the-icons-silver) - (powershell-mode all-the-icons-fileicon "powershell" :face all-the-icons-blue) - (tex-mode all-the-icons-fileicon "tex" :face all-the-icons-lred) - (latex-mode all-the-icons-fileicon "tex" :face all-the-icons-lred) - (dart-mode all-the-icons-fileicon "dart" :height 1.0 :face all-the-icons-blue) - (fsharp-mode all-the-icons-fileicon "fsharp" :height 1.0 :face all-the-icons-blue) - )) - -(defvar all-the-icons-url-alist - '( - ;; Social media and communities - ("^\\(https?://\\)?\\(www\\.\\)?del\\.icio\\.us" all-the-icons-faicon "delicious") - ("^\\(https?://\\)?\\(www\\.\\)?behance\\.net" all-the-icons-faicon "behance") - ("^\\(https?://\\)?\\(www\\.\\)?dribbble\\.com" all-the-icons-faicon "dribbble") - ("^\\(https?://\\)?\\(www\\.\\)?facebook\\.com" all-the-icons-faicon "facebook-official") - ("^\\(https?://\\)?\\(www\\.\\)?glide\\.me" all-the-icons-faicon "glide-g") - ("^\\(https?://\\)?\\(www\\.\\)?plus\\.google\\.com" all-the-icons-faicon "google-plus") - ("linkedin\\.com" all-the-icons-faicon "linkedin") - ("^\\(https?://\\)?\\(www\\.\\)?ok\\.ru" all-the-icons-faicon "odnoklassniki") - ("^\\(https?://\\)?\\(www\\.\\)?reddit\\.com" all-the-icons-faicon "reddit-alien") - ("^\\(https?://\\)?\\(www\\.\\)?slack\\.com" all-the-icons-faicon "slack") - ("^\\(https?://\\)?\\(www\\.\\)?snapchat\\.com" all-the-icons-faicon "snapchat-ghost") - ("^\\(https?://\\)?\\(www\\.\\)?weibo\\.com" all-the-icons-faicon "weibo") - ("^\\(https?://\\)?\\(www\\.\\)?twitter\\.com" all-the-icons-faicon "twitter") - ;; Blogging - ("joomla\\.org" all-the-icons-faicon "joomla") - ("^\\(https?://\\)?\\(www\\.\\)?medium\\.com" all-the-icons-faicon "medium") - ("tumblr\\.com" all-the-icons-faicon "tumblr") - ("^wordpress\\.com" all-the-icons-faicon "wordpress") - ;; Programming - ("^\\(https?://\\)?\\(www\\.\\)?bitbucket\\.org" all-the-icons-octicon "bitbucket") - ("^\\(https?://\\)?\\(www\\.\\)?codepen\\.io" all-the-icons-faicon "codepen") - ("^\\(https?://\\)?\\(www\\.\\)?codiepie\\.com" all-the-icons-faicon "codiepie") - ("^\\(https?://\\)?\\(www\\.\\)?gist\\.github\\.com" all-the-icons-octicon "gist") - ("^\\(https?://\\)?\\(www\\.\\)?github\\.com" all-the-icons-octicon "mark-github") - ("^\\(https?://\\)?\\(www\\.\\)?gitlab\\.com" all-the-icons-faicon "gitlab") - ("^\\(https?://\\)?\\(www\\.\\)?news\\.ycombinator\\.com" all-the-icons-faicon "hacker-news") - ("^\\(https?://\\)?\\(www\\.\\)?jsfiddle\\.net" all-the-icons-faicon "jsfiddle") - ("^\\(https?://\\)?\\(www\\.\\)?maxcdn\\.com" all-the-icons-faicon "maxcdn") - ("^\\(https?://\\)?\\(www\\.\\)?stackoverflow\\.com" all-the-icons-faicon "stack-overflow") - ;; Video - ("^\\(https?://\\)?\\(www\\.\\)?twitch\\.tv" all-the-icons-faicon "twitch") - ("^\\(https?://\\)?\\(www\\.\\)?vimeo\\.com" all-the-icons-faicon "vimeo") - ("^\\(https?://\\)?\\(www\\.\\)?youtube\\.com" all-the-icons-faicon "youtube") - ("^\\(https?://\\)?\\(www\\.\\)?youtu\\.be" all-the-icons-faicon "youtube") - ("^\\(https?://\\)?\\(www\\.\\)?vine\\.co" all-the-icons-faicon "vine") - ;; Sound - ("^\\(https?://\\)?\\(www\\.\\)?last\\.fm" all-the-icons-faicon "lastfm") - ("^\\(https?://\\)?\\(www\\.\\)?mixcloud\\.com" all-the-icons-faicon "mixcloud") - ("^\\(https?://\\)?\\(www\\.\\)?soundcloud\\.com" all-the-icons-faicon "soundcloud") - ("spotify\\.com" all-the-icons-faicon "spotify") - ;; Shopping - ("^\\(https?://\\)?\\(www\\.\\)?amazon\\." all-the-icons-faicon "amazon") - ("^\\(https?://\\)?\\(www\\.\\)?opencart\\.com" all-the-icons-faicon "opencart") - ("^\\(https?://\\)?\\(www\\.\\)?paypal\\.com" all-the-icons-faicon "paypal") - ("^\\(https?://\\)?\\(www\\.\\)?shirtsinbulk\\.com" all-the-icons-faicon "shitsinbulk") - ;; Images - ("^\\(https?://\\)?\\(www\\.\\)?500px\\.com" all-the-icons-faicon "500px") - ("^\\(https?://\\)?\\(www\\.\\)?deviantart\\.com" all-the-icons-faicon "deviantart") - ("^\\(https?://\\)?\\(www\\.\\)?flickr\\.com" all-the-icons-faicon "flickr") - ("^\\(https?://\\)?\\(www\\.\\)?instagram\\.com" all-the-icons-faicon "instagram") - ("^\\(https?://\\)?\\(www\\.\\)?pinterest\\." all-the-icons-faicon "pinterest") - ;; Information and books - ("^\\(https?://\\)?\\(www\\.\\)?digg\\.com" all-the-icons-faicon "digg") - ("^\\(https?://\\)?\\(www\\.\\)?foursquare\\.com" all-the-icons-faicon "foursquare") - ("^\\(https?://\\)?\\(www\\.\\)?getpocket\\.com" all-the-icons-faicon "get-pocket") - ("^\\(https?://\\)?\\(www\\.\\)?scribd\\.com" all-the-icons-faicon "scribd") - ("^\\(https?://\\)?\\(www\\.\\)?slideshare\\.net" all-the-icons-faicon "slideshare") - ("stackexchange\\.com" all-the-icons-faicon "stack-exchange") - ("^\\(https?://\\)?\\(www\\.\\)?stumbleupon\\.com" all-the-icons-faicon "stumbleupon") - ("^\\(https?://\\)?\\(www\\.\\)?tripadvisor\\." all-the-icons-faicon "tripadvisor") - ("^\\(https?://\\)?\\(www\\.\\)?yelp\\." all-the-icons-faicon "yelp") - - ("wikipedia\\.org" all-the-icons-faicon "wikipedia-w") - ;; Various companies and tools - ("^\\(https?://\\)?\\(www\\.\\)?angel\\.co" all-the-icons-faicon "angellist") - ("^\\(https?://\\)?\\(www\\.\\)?apple\\.com" all-the-icons-faicon "apple") - ("^\\(https?://\\)?\\(www\\.\\)?buysellads\\.com" all-the-icons-faicon "buysellads") - ("^\\(https?://\\)?\\(www\\.\\)?connectdevelop\\.com" all-the-icons-faicon "connectdevelop") - ("^\\(https?://\\)?\\(www\\.\\)?dashcube\\.com" all-the-icons-faicon "dashcube") - ("^\\(https?://\\)?\\(www\\.\\)?dropbox\\.com" all-the-icons-faicon "dropbox") - ("^\\(https?://\\)?\\(www\\.\\)?enviragallery\\.com" all-the-icons-faicon "envira") - ("^\\(https?://\\)?\\(www\\.\\)?fortawesome\\.com" all-the-icons-faicon "fort-awesome") - ("^\\(https?://\\)?\\(www\\.\\)?forumbee\\.com" all-the-icons-faicon "forumbee") - ("^\\(https?://\\)?\\(www\\.\\)?gratipay\\.com" all-the-icons-faicon "gratipay") - ("^\\(https?://\\)?\\(www\\.\\)?modx\\.com" all-the-icons-faicon "modx") - ("^\\(https?://\\)?\\(www\\.\\)?pagelines\\.com" all-the-icons-faicon "pagelines") - ("^\\(https?://\\)?\\(www\\.\\)?producthunt\\.com" all-the-icons-faicon "product-hunt") - ("sellsy\\.com" all-the-icons-faicon "sellsy") - ("^\\(https?://\\)?\\(www\\.\\)?simplybuilt\\.com" all-the-icons-faicon "simplybuilt") - ("^\\(https?://\\)?\\(www\\.\\)?skyatlas\\.com" all-the-icons-faicon "skyatlas") - ("^\\(https?://\\)?\\(www\\.\\)?skype\\.com" all-the-icons-faicon "skype") - ("steampowered\\.com" all-the-icons-faicon "steam") - ("^\\(https?://\\)?\\(www\\.\\)?themeisle\\.com" all-the-icons-faicon "themeisle") - ("^\\(https?://\\)?\\(www\\.\\)?trello\\.com" all-the-icons-faicon "trello") - ("^\\(https?://\\)?\\(www\\.\\)?whatsapp\\.com" all-the-icons-faicon "whatsapp") - ("^\\(https?://\\)?\\(www\\.\\)?ycombinator\\.com" all-the-icons-faicon "y-combinator") - ("yahoo\\.com" all-the-icons-faicon "yahoo") - ("^\\(https?://\\)?\\(www\\.\\)?yoast\\.com" all-the-icons-faicon "yoast") - ;; Catch all - ("android" all-the-icons-faicon "android") - ("creativecommons" all-the-icons-faicon "creative-commons") - ("forums?" all-the-icons-octicon "comment-discussion") - ("\\.pdf$" all-the-icons-octicon "file-pdf" :v-adjust 0.0 :face all-the-icons-dred) - ("google" all-the-icons-faicon "google") - ("\\.rss" all-the-icons-faicon "rss") - )) - -;; ==================== -;; Functions Start -;; ==================== - -(defun all-the-icons-auto-mode-match? (&optional file) - "Whether or not FILE's `major-mode' match against its `auto-mode-alist'." - (let* ((file (or file (buffer-file-name) (buffer-name))) - (auto-mode (all-the-icons-match-to-alist file auto-mode-alist))) - (eq major-mode auto-mode))) - -(defun all-the-icons-match-to-alist (file alist) - "Match FILE against an entry in ALIST using `string-match'." - (cdr (cl-find-if (lambda (it) (string-match (car it) file)) alist))) - -(defun all-the-icons-dir-is-submodule (dir) - "Checker whether or not DIR is a git submodule." - (let* ((gitmodule-dir (locate-dominating-file dir ".gitmodules")) - (modules-file (expand-file-name (format "%s.gitmodules" gitmodule-dir))) - (module-search (format "submodule \".*?%s\"" (file-name-base dir)))) - - (when (and gitmodule-dir (file-exists-p (format "%s/.git" dir))) - (with-temp-buffer - (insert-file-contents modules-file) - (search-forward-regexp module-search (point-max) t))))) - -;; Icon functions -(defun all-the-icons-icon-for-dir-with-chevron (dir &optional chevron padding) - "Format an icon for DIR with CHEVRON similar to tree based directories. - -If PADDING is provided, it will prepend and separate the chevron -and directory with PADDING. - -Produces different symbols by inspecting DIR to distinguish -symlinks and git repositories which do not depend on the -directory contents" - (let ((icon (all-the-icons-icon-for-dir dir)) - (chevron (if chevron (all-the-icons-octicon (format "chevron-%s" chevron) :height 0.8 :v-adjust -0.1) "")) - (padding (or padding "\t"))) - (format "%s%s%s%s%s" padding chevron padding icon padding))) - -(defun all-the-icons-icon-for-buffer () - "Get the formatted icon for the current buffer. - -This function prioritises the use of the buffers file extension to -discern the icon when its `major-mode' matches its auto mode, -otherwise it will use the buffers `major-mode' to decide its -icon." - (all-the-icons--icon-info-for-buffer)) - -(defun all-the-icons-icon-family-for-buffer () - "Get the icon font family for the current buffer." - (all-the-icons--icon-info-for-buffer "family")) - -(defun all-the-icons--web-mode-icon (&rest arg-overrides) "Get icon for a `web-mode' buffer with ARG-OVERRIDES." (all-the-icons--web-mode nil arg-overrides)) -(defun all-the-icons--web-mode-icon-family () "Get icon family for a `web-mode' buffer." (all-the-icons--web-mode t)) -(defun all-the-icons--web-mode (&optional family arg-overrides) - "Return icon or FAMILY for `web-mode' based on `web-mode-content-type'. -Providing ARG-OVERRIDES will modify the creation of the icon." - (let ((non-nil-args (cl-reduce (lambda (acc it) (if it (append acc (list it)) acc)) arg-overrides :initial-value '()))) - (cond - ((equal web-mode-content-type "jsx") - (if family (all-the-icons-fileicon-family) (apply 'all-the-icons-fileicon (append '("jsx-2") non-nil-args)))) - ((equal web-mode-content-type "javascript") - (if family (all-the-icons-alltheicon-family) (apply 'all-the-icons-alltheicon (append '("javascript") non-nil-args)))) - ((equal web-mode-content-type "json") - (if family (all-the-icons-alltheicon-family) (apply 'all-the-icons-alltheicon (append '("less") non-nil-args)))) - ((equal web-mode-content-type "xml") - (if family (all-the-icons-faicon-family) (apply 'all-the-icons-faicon (append '("file-code-o") non-nil-args)))) - ((equal web-mode-content-type "css") - (if family (all-the-icons-alltheicon-family) (apply 'all-the-icons-alltheicon (append '("css3") non-nil-args)))) - (t - (if family (all-the-icons-alltheicon-family) (apply 'all-the-icons-alltheicon (append '("html5") non-nil-args))))))) - -;; Icon Functions - -;;;###autoload -(defun all-the-icons-icon-for-dir (dir &rest arg-overrides) - "Get the formatted icon for DIR. -ARG-OVERRIDES should be a plist containining `:height', -`:v-adjust' or `:face' properties like in the normal icon -inserting functions. - -Note: You want chevron, please use `all-the-icons-icon-for-dir-with-chevron'." - (let* ((dirname (file-name-base (directory-file-name dir))) - (path (expand-file-name dir)) - (icon (all-the-icons-match-to-alist dirname all-the-icons-dir-icon-alist)) - (args (cdr icon))) - (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args)))) - (cond - ((file-symlink-p path) - (apply #'all-the-icons-octicon "file-symlink-directory" (cdr args))) - ((all-the-icons-dir-is-submodule path) - (apply #'all-the-icons-octicon "file-submodule" (cdr args))) - ((file-exists-p (format "%s/.git" path)) - (apply #'all-the-icons-octicon "repo" (cdr args))) - (t (apply (car icon) args))))) - -;;;###autoload -(defun all-the-icons-icon-for-file (file &rest arg-overrides) - "Get the formatted icon for FILE. -ARG-OVERRIDES should be a plist containining `:height', -`:v-adjust' or `:face' properties like in the normal icon -inserting functions." - (let* ((icon (all-the-icons-match-to-alist file all-the-icons-icon-alist)) - (args (cdr icon))) - (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args)))) - (apply (car icon) args))) - -;;;###autoload -(defun all-the-icons-icon-for-mode (mode &rest arg-overrides) - "Get the formatted icon for MODE. -ARG-OVERRIDES should be a plist containining `:height', -`:v-adjust' or `:face' properties like in the normal icon -inserting functions." - (let* ((icon (cdr (or (assoc mode all-the-icons-mode-icon-alist) - (assoc (get mode 'derived-mode-parent) all-the-icons-mode-icon-alist)))) - (args (cdr icon))) - (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args)))) - (if icon (apply (car icon) args) mode))) - -;;;###autoload -(defun all-the-icons-icon-for-url (url &rest arg-overrides) - "Get the formatted icon for URL. -If an icon for URL isn't found in `all-the-icons-url-alist', a globe is used. -ARG-OVERRIDES should be a plist containining `:height', -`:v-adjust' or `:face' properties like in the normal icon -inserting functions." - (let* ((icon (all-the-icons-match-to-alist url all-the-icons-url-alist)) - (args (cdr icon))) - (unless icon - (setq icon '(all-the-icons-faicon "globe")) - (setq args (cdr icon))) - (when arg-overrides (setq args (append `(,(car args)) arg-overrides (cdr args)))) - (apply (car icon) args))) - -(memoize 'all-the-icons-icon-for-dir) -(memoize 'all-the-icons-icon-for-file) -(memoize 'all-the-icons-icon-for-mode) -(memoize 'all-the-icons-icon-for-url) - -;; Family Face Functions -(defun all-the-icons-icon-family-for-file (file) - "Get the icons font family for FILE." - (let ((icon (all-the-icons-match-to-alist file all-the-icons-icon-alist))) - (funcall (intern (format "%s-family" (car icon)))))) - -(defun all-the-icons-icon-family-for-mode (mode) - "Get the icons font family for MODE." - (let ((icon (cdr (assoc mode all-the-icons-mode-icon-alist)))) - (if icon (funcall (intern (format "%s-family" (car icon)))) nil))) - -(defun all-the-icons-icon-family (icon) - "Get a propertized ICON family programmatically." - (plist-get (get-text-property 0 'face icon) :family)) - -(memoize 'all-the-icons-icon-family-for-file) -(memoize 'all-the-icons-icon-family-for-mode) -(memoize 'all-the-icons-icon-family) - -(defun all-the-icons--icon-info-for-buffer (&optional f) - "Get icon info for the current buffer. - -When F is provided, the info function is calculated with the format -`all-the-icons-icon-%s-for-file' or `all-the-icons-icon-%s-for-mode'." - (let* ((base-f (concat "all-the-icons-icon" (when f (format "-%s" f)))) - (file-f (intern (concat base-f "-for-file"))) - (mode-f (intern (concat base-f "-for-mode")))) - (if (and (buffer-file-name) - (all-the-icons-auto-mode-match?)) - (funcall file-f (file-name-nondirectory (buffer-file-name))) - (funcall mode-f major-mode)))) - -;; Weather icons -(defun all-the-icons-icon-for-weather (weather) - "Get an icon for a WEATHER status." - (let ((icon (all-the-icons-match-to-alist weather all-the-icons-weather-icon-alist))) - (if icon (apply (car icon) (cdr icon)) weather))) - -;; Definitions - -(eval-and-compile - (defun all-the-icons--function-name (name) - "Get the symbol for an icon function name for icon set NAME." - (intern (concat "all-the-icons-" (downcase (symbol-name name))))) - - (defun all-the-icons--family-name (name) - "Get the symbol for an icon family function for icon set NAME." - (intern (concat "all-the-icons-" (downcase (symbol-name name)) "-family"))) - - (defun all-the-icons--data-name (name) - "Get the symbol for an icon family function for icon set NAME." - (intern (concat "all-the-icons-" (downcase (symbol-name name)) "-data"))) - - (defun all-the-icons--insert-function-name (name) - "Get the symbol for an icon insert function for icon set NAME." - (intern (concat "all-the-icons-insert-" (downcase (symbol-name name)))))) - -;; Icon insertion functions - -(defun all-the-icons--read-candidates () - "Helper to build a list of candidates for all families." - (cl-reduce 'append (mapcar (lambda (it) (all-the-icons--read-candidates-for-family it t)) all-the-icons-font-families))) - -(defun all-the-icons--read-candidates-for-family (family &optional show-family) - "Helper to build read candidates for FAMILY. -If SHOW-FAMILY is non-nil, displays the icons family in the candidate string." - (let ((data (funcall (all-the-icons--data-name family))) - (icon-f (all-the-icons--function-name family))) - (mapcar - (lambda (it) - (let* ((icon-name (car it)) - (icon-name-head (substring icon-name 0 1)) - (icon-name-tail (substring icon-name 1)) - - (icon-display (propertize icon-name-head 'display (format "%s\t%s" (funcall icon-f icon-name) icon-name-head))) - (icon-family (if show-family (format "\t[%s]" family) "")) - - (candidate-name (format "%s%s%s" icon-display icon-name-tail icon-family)) - (candidate-icon (funcall (all-the-icons--function-name family) icon-name))) - - (cons candidate-name candidate-icon))) - data))) - -;;;###autoload -(defun all-the-icons-install-fonts (&optional pfx) - "Helper function to download and install the latests fonts based on OS. -When PFX is non-nil, ignore the prompt and just install" - (interactive "P") - (when (or pfx (yes-or-no-p "This will download and install fonts, are you sure you want to do this?")) - (let* ((url-format "https://raw.githubusercontent.com/domtronn/all-the-icons.el/master/fonts/%s") - (font-dest (cl-case window-system - (x (concat (or (getenv "XDG_DATA_HOME") ;; Default Linux install directories - (concat (getenv "HOME") "/.local/share")) - "/fonts/")) - (mac (concat (getenv "HOME") "/Library/Fonts/" )) - (ns (concat (getenv "HOME") "/Library/Fonts/" )))) ;; Default MacOS install directory - (known-dest? (stringp font-dest)) - (font-dest (or font-dest (read-directory-name "Font installation directory: " "~/")))) - - (unless (file-directory-p font-dest) (mkdir font-dest t)) - - (mapc (lambda (font) - (url-copy-file (format url-format font) (expand-file-name font font-dest) t)) - all-the-icons-font-names) - (when known-dest? - (message "Fonts downloaded, updating font cache... <fc-cache -f -v> ") - (shell-command-to-string (format "fc-cache -f -v"))) - (message "%s Successfully %s `all-the-icons' fonts to `%s'!" - (all-the-icons-wicon "stars" :v-adjust 0.0) - (if known-dest? "installed" "downloaded") - font-dest)))) - -;;;###autoload -(defun all-the-icons-insert (&optional arg family) - "Interactive icon insertion function. -When Prefix ARG is non-nil, insert the propertized icon. -When FAMILY is non-nil, limit the candidates to the icon set matching it." - (interactive "P") - (let* ((standard-output (current-buffer)) - (candidates (if family - (all-the-icons--read-candidates-for-family family) - (all-the-icons--read-candidates))) - (prompt (if family - (format "%s Icon: " (funcall (all-the-icons--family-name family))) - "Icon : ")) - - (selection (completing-read prompt candidates nil t)) - (result (cdr (assoc selection candidates)))) - - (if arg (prin1 result) (insert result)))) - -;; Debug Helpers - -(defun all-the-icons-insert-icons-for (family &optional height duration) - "Insert all of the available icons associated with FAMILY. -If a HEIGHT is provided it will render the icons at this height. -This is useful both to see the icons more clearly and to test -different height rendering. If DURATION is provided, it will -pause for DURATION seconds between printing each character." - (let* ((data-f (all-the-icons--data-name family)) - (insert-f (all-the-icons--function-name family)) - - (height (or height 2.0)) - (data (funcall data-f))) - (mapc - (lambda (it) - (insert (format "%s - %s\n" (funcall insert-f (car it) :height height) (car it))) - (when duration (sit-for duration 0))) - data))) - -(defmacro all-the-icons-define-icon (name alist family &optional font-name) - "Macro to generate functions for inserting icons for icon set NAME. - -NAME defines is the name of the iconset and will produce a -function of the for `all-the-icons-NAME'. - -ALIST is the alist containing maps between icon names and the -UniCode for the character. All of these can be found in the data -directory of this package. - -FAMILY is the font family to use for the icons. -FONT-NAME is the name of the .ttf file providing the font, defaults to FAMILY." - `(progn - (add-to-list 'all-the-icons-font-families (quote ,name)) - (add-to-list 'all-the-icons-font-names (quote ,(downcase (format "%s.ttf" (or font-name family))))) - - (defun ,(all-the-icons--family-name name) () ,family) - (defun ,(all-the-icons--data-name name) () ,alist) - (defun ,(all-the-icons--function-name name) (icon-name &rest args) - (let ((icon (cdr (assoc icon-name ,alist))) - (other-face (when all-the-icons-color-icons (plist-get args :face))) - (height (* all-the-icons-scale-factor (or (plist-get args :height) 1.0))) - (v-adjust (* all-the-icons-scale-factor (or (plist-get args :v-adjust) all-the-icons-default-adjust))) - (family ,family)) - (unless icon - (error (format "Unable to find icon with name `%s' in icon set `%s'" icon-name (quote ,name)))) - (let ((face (if other-face - `(:family ,family :height ,height :inherit ,other-face) - `(:family ,family :height ,height)))) - (propertize icon - 'face face ;so that this works without `font-lock-mode' enabled - 'font-lock-face face ;so that `font-lock-mode' leaves this alone - 'display `(raise ,v-adjust) - 'rear-nonsticky t)))) - (defun ,(all-the-icons--insert-function-name name) (&optional arg) - ,(format "Insert a %s icon at point." family) - (interactive "P") - (all-the-icons-insert arg (quote ,name))))) - -(define-obsolete-function-alias 'define-icon 'all-the-icons-define-icon) - -(all-the-icons-define-icon alltheicon all-the-icons-data/alltheicons-alist "all-the-icons") -(all-the-icons-define-icon fileicon all-the-icons-data/file-icon-alist "file-icons") -(all-the-icons-define-icon faicon all-the-icons-data/fa-icon-alist "FontAwesome") -(all-the-icons-define-icon octicon all-the-icons-data/octicons-alist "github-octicons" "octicons") -(all-the-icons-define-icon wicon all-the-icons-data/weather-icons-alist "Weather Icons" "weathericons") -(all-the-icons-define-icon material all-the-icons-data/material-icons-alist "Material Icons" "material-design-icons") - -(provide 'all-the-icons) - -;;; all-the-icons.el ends here |