日本の伝統色

好きすぎて作ってしまいました。気分転換にどうぞ。

データはこちらのサイトから抽出しました。
和色大辞典

;;; jpncolor.el --- 日本の伝統色: Japanese Traditional Colors

;; Copyright (C) 2010 tequilasunset

;; Author: tequilasunset <tequilasunset.mac あっと じーめいる どっと こむ>

;; 参考:「和色大辞典」http://www.colordic.org/w/

;;; Usage:

;;   (require 'jpncolor)
;;   (set-jpncolor-foreground 'face "color")
;;   (set-jpncolor-background 'face "color")
;;
;;   リストを表示
;;
;;   M-x list-jpncolors-display

;;; Code:

(eval-when-compile (require 'cl))

(defconst jpncolor-default
  '(("sakurairo" "桜色さくらいろ" "#fef4f4")
    ("usuzakura" "薄桜うすざくら" "#fdeff2")
    ("sakuranezu" "桜鼠さくらねず" "#e9dfe5")
    ("tokinezu" "鴇鼠ときねず" "#e4d2d8")
    ("nijioro" "虹色にじいろ" "#f6bfbc")
    ("sangoiro" "珊瑚色さんごいろ" "#f5b1aa")
    ("ikkokuzome" "一斤染いっこんぞめ" "#f5b199")
    ("shishiiro" "宍色ししいろ" "#efab93")
    ("kobaiiro" "紅梅色こうばいいろ" "#f2a0a1")
    ("usubeni" "薄紅うすべに" "#f0908d")
    ("jinzamomi" "甚三紅じんざもみ" "#ee827c")
    ("momoiro" "桃色ももいろ" "#f09199")
    ("tokiiro" "鴇色ときいろ" "#f4b3c2")
    ("nadeshikoiro" "撫子色なでしこいろ" "#eebbcb")
    ("haiume" "灰梅はいうめ" "#e8d3c7")
    ("haizakura" "灰桜はいざくら" "#e8d3d1")
    ("awabenifuji" "淡紅藤あわべにふじ" "#e6cde3")
    ("sekichikuiro" "石竹色せきちくいろ" "#e5abbe")
    ("usukobai" "薄紅梅うすこうばい" "#e597b2")
    ("momohanairo" "桃花色ももはないろ" "#e198b4")
    ("mizugaki" "水柿みずがき" "#e4ab9b")
    ("tokigaracha" "ときがら茶ときがらちゃ" "#e09e87")
    ("arazome" "退紅あらぞめ" "#d69090")
    ("usugaki" "薄柿うすがき" "#d4acad")
    ("choshuniro" "長春色ちょうしゅんいろ" "#c97586")
    ("umenezu" "梅鼠うめねず" "#c099a0")
    ("tokiasagi" "鴇浅葱ときあさぎ" "#b88884")
    ("umezome" "梅染うめぞめ" "#b48a76")
    ("suoko" "蘇芳香すおうこう" "#a86965")
    ("asasuo" "浅蘇芳あさすおう" "#a25768")
    ("maso" "真朱まそお" "#ec6d71")
    ("akamurasaki" "赤紫あかむらさき" "#eb6ea5")
    ("tsutsujiiro" "躑躅色つつじいろ" "#e95295")
    ("botaniro" "牡丹色ぼたんいろ" "#e7609e")
    ("imayoiro" "今様色いまよういろ" "#d0576b")
    ("nakabeni" "中紅なかべに" "#c85179")
    ("barairo" "薔薇色ばらいろ" "#e9546b")
    ("karakurenai" "韓紅からくれない" "#e95464")
    ("ginshu" "銀朱ぎんしゅ" "#c85554")
    ("akabeni" "赤紅あかべに" "#c53d43")
    ("benihi" "紅緋べにひ" "#e83929")
    ("aka" "赤あか" "#e60033")
    ("shojohi" "猩々緋しょうじょうひ" "#e2041b")
    ("kurenai" "紅くれない" "#d7003a")
    ("kokihi" "深緋こきひ" "#c9171e")
    ("hiiro" "緋色ひいろ" "#d3381c")
    ("akani" "赤丹あかに" "#ce5242")
    ("beniaka" "紅赤べにあか" "#d9333f")
    ("enji" "臙脂えんじ" "#b94047")
    ("ake" "朱・緋あけ" "#ba2636")
    ("akaneiro" "茜色あかねいろ" "#b7282e")
    ("beniebicha" "紅海老茶べにえびちゃ" "#a73836")
    ("suo" "蘇芳すおう" "#9e3d3f")
    ("shinku" "真紅しんく" "#a22041")
    ("koikurenai" "濃紅こいくれない" "#a22041")
    ("zogeiro" "象牙色ぞうげいろ" "#f8f4e6")
    ("neriiro" "練色ねりいろ" "#ede4cd")
    ("kaihakushoku" "灰白色かいはくしょく" "#e9e4d4")
    ("mushiguriiro" "蒸栗色むしぐりいろ" "#ebe1a9")
    ("ominaeshi" "女郎花おみなえし" "#f2f2b0")
    ("karekusairo" "枯草色かれくさいろ" "#e4dc8a")
    ("tanko" "淡黄たんこう" "#f8e58c")
    ("shiracha" "白茶しらちゃ" "#ddbb99")
    ("akashirotsurubami" "赤白橡あかしろつるばみ" "#d7a98c")
    ("araigaki" "洗柿あらいがき" "#f2c9ac")
    ("torinokoiro" "鳥の子色とりのこいろ" "#fff1cf")
    ("hachimitsuiro" "蜂蜜色はちみついろ" "#fddea5")
    ("hadairo" "肌色はだいろ" "#fce2c4")
    ("usutamagoiro" "薄卵色うすたまごいろ" "#fde8d0")
    ("yuo" "雄黄ゆうおう" "#f9c89b")
    ("sharegaki" "洒落柿しゃれがき" "#f7bd8f")
    ("akako" "赤香あかこう" "#f6b894")
    ("tonokoiro" "砥粉色とのこいろ" "#f4dda5")
    ("nikuiro" "肉色にくいろ" "#f1bf99")
    ("hitoiro" "人色ひといろ" "#f1bf99")
    ("chojiiro" "丁子色ちょうじいろ" "#efcd9a")
    ("koiro" "香色こういろ" "#efcd9a")
    ("usuko" "薄香うすこう" "#f0cfa0")
    ("usuki" "浅黄うすき" "#edd3a1")
    ("kareiro" "枯色かれいろ" "#e0c38c")
    ("usuko" "淡香うすこう" "#f3bf88")
    ("anzuiro" "杏色あんずいろ" "#f7b977")
    ("shinonomeiro" "東雲色しののめいろ" "#f19072")
    ("akebonoiro" "曙色あけぼのいろ" "#f19072")
    ("sangoshuiro" "珊瑚朱色さんごしゅいろ" "#ee836f")
    ("kokikuchinashi" "深支子こきくちなし" "#eb9b6f")
    ("sohi" "&#32385;そひ" "#e0815e")
    ("usukihi" "浅緋うすきひ" "#df7163")
    ("masoho" "真赭まそほ" "#d57c6b")
    ("araishu" "洗朱あらいしゅ" "#d0826c")
    ("enshucha" "遠州茶えんしゅうちゃ" "#ca8269")
    ("benikabairo" "紅樺色べにかばいろ" "#bb5548")
    ("soho" "赭そほ" "#ab6953")
    ("azukiiro" "小豆色あずきいろ" "#96514d")
    ("karacha" "枯茶からちゃ" "#8d6449")
    ("ameiro" "飴色あめいろ" "#deb068")
    ("rakudairo" "駱駝色らくだいろ" "#bf794e")
    ("tsuchiiro" "土色つちいろ" "#bc763c")
    ("kigaracha" "黄唐茶きがらちゃ" "#b98c46")
    ("kuwazome" "桑染くわぞめ" "#b79b5b")
    ("hajiiro" "櫨色はじいろ" "#b77b57")
    ("kitsurubami" "黄橡きつるばみ" "#b68d4c")
    ("chojizome" "丁字染ちょうじぞめ" "#ad7d4c")
    ("kozome" "香染こうぞめ" "#ad7d4c")
    ("biwacha" "枇杷茶びわちゃ" "#ae7c4f")
    ("shikancha" "芝翫茶しかんちゃ" "#ad7e4e")
    ("kogareko" "焦香こがれこう" "#ae7c58")
    ("kurumiiro" "胡桃色くるみいろ" "#a86f4c")
    ("shibukamiiro" "渋紙色しぶかみいろ" "#946243")
    ("kuchibairo" "朽葉色くちばいろ" "#917347")
    ("kuwacha" "桑茶くわちゃ" "#956f29")
    ("rokocha" "路考茶ろこうちゃ" "#8c7042")
    ("kokuboshoku" "国防色こくぼうしょく" "#7b6c3e")
    ("kyarairo" "伽羅色きゃらいろ" "#d8a373")
    ("edocha" "江戸茶えどちゃ" "#cd8c5c")
    ("kabairo" "樺色かばいろ" "#cd5e3c")
    ("beniukon" "紅鬱金べにうこん" "#cb8347")
    ("kawarakeiro" "土器色かわらけいろ" "#c37854")
    ("kitsuneiro" "狐色きつねいろ" "#c38743")
    ("odoiro" "黄土色おうどいろ" "#c39143")
    ("kohakuiro" "琥珀色こはくいろ" "#bf783a")
    ("akacha" "赤茶あかちゃ" "#bb5535")
    ("taisha" "代赭たいしゃ" "#bb5520")
    ("rengairo" "煉瓦色れんがいろ" "#b55233")
    ("suzumecha" "雀茶すずめちゃ" "#aa4f37")
    ("danjurocha" "団十郎茶だんじゅうろうちゃ" "#9f563a")
    ("kakishibuiro" "柿渋色かきしぶいろ" "#9f563a")
    ("benitobi" "紅鳶べにとび" "#9a493f")
    ("haicha" "灰茶はいちゃ" "#98623c")
    ("chairo" "茶色ちゃいろ" "#965042")
    ("hiwadairo" "檜皮色ひわだいろ" "#965036")
    ("tobiiro" "鳶色とびいろ" "#95483f")
    ("kakicha" "柿茶かきちゃ" "#954e2a")
    ("bengarairo" "弁柄色べんがらいろ" "#8f2e14")
    ("akasabiiro" "赤錆色あかさびいろ" "#8a3319")
    ("kasshoku" "褐色かっしょく" "#8a3b00")
    ("kuriume" "栗梅くりうめ" "#852e19")
    ("benihihada" "紅檜皮べにひはだ" "#7b4741")
    ("ebicha" "海老茶えびちゃ" "#773c30")
    ("karacha" "唐茶からちゃ" "#783c1d")
    ("kuriiro" "栗色くりいろ" "#762f07")
    ("shakudoiro" "赤銅色しゃくどういろ" "#752100")
    ("sabiiro" "錆色さびいろ" "#6c3524")
    ("sekkasshoku" "赤褐色せっかっしょく" "#683f36")
    ("chakasshoku" "茶褐色ちゃかっしょく" "#664032")
    ("kurikawacha" "栗皮茶くりかわちゃ" "#6d3c32")
    ("kurocha" "黒茶くろちゃ" "#583822")
    ("ebicha" "葡萄茶えびちゃ" "#6c2c2f")
    ("ebiiro" "葡萄色えびいろ" "#640125")
    ("kanzoiro" "萱草色かんぞういろ" "#f8b862")
    ("kojiiro" "柑子色こうじいろ" "#f6ad49")
    ("kincha" "金茶きんちゃ" "#f39800")
    ("mikaniro" "蜜柑色みかんいろ" "#f08300")
    ("entaniro" "鉛丹色えんたんいろ" "#ec6d51")
    ("oni" "黄丹おうに" "#ee7948")
    ("kakiiro" "柿色かきいろ" "#ed6d3d")
    ("kiaka" "黄赤きあか" "#ec6800")
    ("ninjiniro" "人参色にんじんいろ" "#ec6800")
    ("daidaiiro" "橙色だいだいいろ" "#ee7800")
    ("terigaki" "照柿てりがき" "#eb6238")
    ("akadaidai" "赤橙あかだいだい" "#ea5506")
    ("kinaka" "金赤きんあか" "#ea5506")
    ("shuiro" "朱色しゅいろ" "#eb6101")
    ("komugiiro" "小麦色こむぎいろ" "#e49e61")
    ("niiro" "丹色にいろ" "#e45e32")
    ("kicha" "黄茶きちゃ" "#e17b34")
    ("nikkeiiro" "肉桂色にっけいいろ" "#dd7a56")
    ("akakuchibairo" "赤朽葉色あかくちばいろ" "#db8449")
    ("korozen" "黄櫨染こうろぜん" "#d66a35")
    ("tanpopoiro" "蒲公英色たんぽぽいろ" "#ffd900")
    ("kiiro" "黄色きいろ" "#ffd900")
    ("chuuki" "中黄ちゅうき" "#ffea00")
    ("nanohanairo" "菜の花色なのはないろ" "#ffec47")
    ("kihadairo" "黄檗色きはだいろ" "#fef263")
    ("tamagoiro" "卵色たまごいろ" "#fcd575")
    ("hanabairo" "花葉色はなばいろ" "#fbd26b")
    ("kariyasuiro" "刈安色かりやすいろ" "#f5e56b")
    ("tomorokoshiiro" "玉蜀黍色とうもろこしいろ" "#eec362")
    ("kanariairo" "金糸雀色かなりあいろ" "#ebd842")
    ("kikuchinashiiro" "黄支子色きくちなしいろ" "#ffdb4f")
    ("kuchinashiiro" "支子色くちなしいろ" "#fbca4d")
    ("himawariiro" "向日葵色ひまわりいろ" "#fcc800")
    ("yamabukiiro" "山吹色やまぶきいろ" "#f8b500")
    ("ukoniro" "鬱金色うこんいろ" "#fabf14")
    ("too" "藤黄とうおう" "#f7c114")
    ("konjiki" "金色こんじき" "#e6b422")
    ("kogane" "黄金こがね" "#e6b422")
    ("hajizome" "櫨染はじぞめ" "#d9a62e")
    ("kikuchibairo" "黄朽葉色きくちばいろ" "#d3a243")
    ("yamabukicha" "山吹茶やまぶきちゃ" "#c89932")
    ("karashiiro" "芥子色からしいろ" "#d0af4c")
    ("mamegaracha" "豆がら茶まめがらちゃ" "#8b968d")
    ("kikujin" "麹塵きくじん" "#6e7955")
    ("yamabatoiro" "山鳩色やまばといろ" "#767c6b")
    ("rikyunezumi" "利休鼠りきゅうねずみ" "#888e7e")
    ("mirucha" "海松茶みるちゃ" "#5a544b")
    ("aimirucha" "藍海松茶あいみるちゃ" "#56564b")
    ("aikobicha" "藍媚茶あいこびちゃ" "#555647")
    ("sensaicha" "千歳茶せんさいちゃ" "#494a41")
    ("iwaicha" "岩井茶いわいちゃ" "#6b6f59")
    ("sensaicha" "仙斎茶せんさいちゃ" "#474b42")
    ("kuromidori" "黒緑くろみどり" "#333631")
    ("yanagisusutake" "柳煤竹やなぎすすたけ" "#5b6356")
    ("kabachairo" "樺茶色かばちゃいろ" "#726250")
    ("utsubushiiro" "空五倍子色うつぶしいろ" "#9d896c")
    ("namakabeiro" "生壁色なまかべいろ" "#94846a")
    ("higosusutake" "肥後煤竹ひごすすたけ" "#897858")
    ("kobicha" "媚茶こびちゃ" "#716246")
    ("shirotsurubami" "白橡しろつるばみ" "#cbb994")
    ("amairo" "亜麻色あまいろ" "#d6c6af")
    ("hashibami" "榛色はしばみいろ" "#bfa46f")
    ("akuiro" "灰汁色あくいろ" "#9e9478")
    ("rikyucha" "利休茶りきゅうちゃ" "#a59564")
    ("uguisucha" "鶯茶うぐいすちゃ" "#715c1f")
    ("mokuranjiki" "木蘭色もくらんじき" "#c7b370")
    ("nasuiro" "砂色すないろ" "#dcd3b2")
    ("aburairo" "油色あぶらいろ" "#a19361")
    ("rikyuiro" "利休色りきゅういろ" "#8f8667")
    ("baikocha" "梅幸茶ばいこうちゃ" "#887938")
    ("rikancha" "璃寛茶りかんちゃ" "#6a5d21")
    ("kimirucha" "黄海松茶きみるちゃ" "#918754")
    ("nataneyuiro" "菜種油色なたねゆいろ" "#a69425")
    ("aokuchiba" "青朽葉あおくちば" "#ada250")
    ("negishiiro" "根岸色ねぎしいろ" "#938b4b")
    ("hiwacha" "鶸茶ひわちゃ" "#8c8861")
    ("yanagicha" "柳茶やなぎちゃ" "#a1a46d")
    ("miruiro" "海松色みるいろ" "#726d40")
    ("uguisuiro" "鶯色うぐいすいろ" "#928c36")
    ("ryokuoshoku" "緑黄色りょくおうしょく" "#dccb18")
    ("hiwairo" "鶸色ひわいろ" "#d7cf3a")
    ("macchairo" "抹茶色まっちゃいろ" "#c5c56a")
    ("wakakusairo" "若草色わかくさいろ" "#c3d825")
    ("kimidori" "黄緑きみどり" "#b8d200")
    ("wakameiro" "若芽色わかめいろ" "#e0ebaf")
    ("wakanairo" "若菜色わかないろ" "#d8e698")
    ("wakanaeiro" "若苗色わかなえいろ" "#c7dc68")
    ("aoni" "青丹あおに" "#99ab4e")
    ("kusairo" "草色くさいろ" "#7b8d42")
    ("kokeiro" "苔色こけいろ" "#69821b")
    ("moegi" "萌黄もえぎ" "#aacf53")
    ("naeiro" "苗色なえいろ" "#b0ca71")
    ("wakabairo" "若葉色わかばいろ" "#b9d08b")
    ("matsubairo" "松葉色まつばいろ" "#839b5c")
    ("natsumushiiro" "夏虫色なつむしいろ" "#cee4ae")
    ("hiwamoegi" "鶸萌黄ひわもえぎ" "#82ae46")
    ("yanagiiro" "柳色やなぎいろ" "#a8c97f")
    ("aoshirotsurubami" "青白橡あおしろつるばみ" "#9ba88d")
    ("yanaginezu" "柳鼠やなぎねず" "#c8d5bb")
    ("urahayanagi" "裏葉柳うらはやなぎ" "#c1d8ac")
    ("wasabiiro" "山葵色わさびいろ" "#a8bf93")
    ("oitakeiro" "老竹色おいたけいろ" "#769164")
    ("byakuroku" "白緑びゃくろく" "#d6e9ca")
    ("usumoegi" "淡萌黄うすもえぎ" "#93ca76")
    ("yanagizome" "柳染やなぎぞめ" "#93b881")
    ("usumoegi" "薄萌葱うすもえぎ" "#badcad")
    ("fukagawanezumi" "深川鼠ふかがわねずみ" "#97a791")
    ("wakamidori" "若緑わかみどり" "#98d98e")
    ("asamidori" "浅緑あさみどり" "#88cb7f")
    ("usumidori" "薄緑うすみどり" "#69b076")
    ("aonibi" "青鈍あおにび" "#6b7b6e")
    ("seijinezu" "青磁鼠せいじねず" "#bed2c3")
    ("usuao" "薄青うすあお" "#93b69c")
    ("sabiseiji" "錆青磁さびせいじ" "#a6c8b2")
    ("rokushoiro" "緑青色ろくしょういろ" "#47885e")
    ("chitosemidori" "千歳緑ちとせみどり" "#316745")
    ("wakatakeiro" "若竹色わかたけいろ" "#68be8d")
    ("midori" "緑みどり" "#3eb370")
    ("tokiwairo" "常磐色ときわいろ" "#007b43")
    ("chigusanezu" "千草鼠ちぐさねず" "#bed3ca")
    ("chigusairo" "千草色ちぐさいろ" "#92b5a9")
    ("seijiiro" "青磁色せいじいろ" "#7ebea5")
    ("aotakeiro" "青竹色あおたけいろ" "#7ebeab")
    ("tokiwamidori" "常磐緑ときわみどり" "#028760")
    ("tokusairo" "木賊色とくさいろ" "#3b7960")
    ("birodo" "天鵞絨びろうど" "#2f5d50")
    ("mushiao" "虫襖むしあお" "#3a5b52")
    ("kawairo" "革色かわいろ" "#475950")
    ("fukamidori" "深緑ふかみどり" "#00552e")
    ("tetsuiro" "鉄色てついろ" "#005243")
    ("moegiiro" "萌葱色もえぎいろ" "#006e54")
    ("hanarokusho" "花緑青はなろくしょう" "#00a381")
    ("hisuiiro" "翡翠色ひすいいろ" "#38b48b")
    ("aomidori" "青緑あおみどり" "#00a497")
    ("azuasagi" "水浅葱みずあさぎ" "#80aba9")
    ("sabiasagi" "錆浅葱さびあさぎ" "#5c9291")
    ("seiheki" "青碧せいへき" "#478384")
    ("omeshicha" "御召茶おめしちゃ" "#43676b")
    ("minatonezumi" "湊鼠みなとねずみ" "#80989b")
    ("korainando" "高麗納戸こうらいなんど" "#2c4f54")
    ("momoshiocha" "百入茶ももしおちゃ" "#1f3134")
    ("sabinezu" "錆鼠さびねず" "#47585c")
    ("sabitetsuonando" "錆鉄御納戸さびてつおなんど" "#485859")
    ("ainezu" "藍鼠あいねず" "#6c848d")
    ("sabionando" "錆御納戸さびおなんど" "#53727d")
    ("masuhanairo" "舛花色ますはないろ" "#5b7e91")
    ("noshimehanairo" "熨斗目花色のしめはないろ" "#426579")
    ("omeshionando" "御召御納戸おめしおなんど" "#4c6473")
    ("tetsuonando" "鉄御納戸てつおなんど" "#455765")
    ("konnezu" "紺鼠こんねず" "#44617b")
    ("aitetsu" "藍鉄あいてつ" "#393f4c")
    ("aokachi" "青褐あおかち" "#393e4f")
    ("kachikaeshi" "褐返かちかえし" "#203744")
    ("kachiiro" "褐色かちいろ" "#4d4c61")
    ("geppaku" "月白げっぱく" "#eaf4fc")
    ("shirosumireiro" "白菫色しろすみれいろ" "#eaedf7")
    ("shirahanairo" "白花色しらはないろ" "#e8ecef")
    ("aijiro" "藍白あいじろ" "#ebf6f7")
    ("shiraai" "白藍しらあい" "#c1e4e9")
    ("mizuiro" "水色みずいろ" "#bce2e8")
    ("kamenozoki" "瓶覗かめのぞき" "#a2d7dd")
    ("hisokuiro" "秘色色ひそくいろ" "#abced8")
    ("sorairo" "空色そらいろ" "#a0d8ef")
    ("wasurenagusairo" "勿忘草色わすれなぐさいろ" "#89c3eb")
    ("aofujiiro" "青藤色あおふじいろ" "#84a2d4")
    ("byakugun" "白群びゃくぐん" "#83ccd2")
    ("asahanada" "浅縹あさはなだ" "#84b9cb")
    ("usuhanairo" "薄花色うすはないろ" "#698aab")
    ("nandoiro" "納戸色なんどいろ" "#008899")
    ("asagiiro" "浅葱色あさぎいろ" "#00a3af")
    ("hanaasagi" "花浅葱はなあさぎ" "#2a83a2")
    ("shinbashiiro" "新橋色しんばしいろ" "#59b9c6")
    ("amairo" "天色あまいろ" "#2ca9e1")
    ("tsuyukusairo" "露草色つゆくさいろ" "#38a1db")
    ("ao" "青あお" "#0095d9")
    ("usuai" "薄藍うすあい" "#0094c8")
    ("hanadairo" "縹色はなだいろ" "#2792c3")
    ("konpeki" "紺碧こんぺき" "#007bbb")
    ("usugunjo" "薄群青うすぐんじょう" "#5383c3")
    ("usuhanazakura" "薄花桜うすはなざくら" "#5a79ba")
    ("gunjoiro" "群青色ぐんじょういろ" "#4c6cb3")
    ("kakitsubatairo" "杜若色かきつばたいろ" "#3e62ad")
    ("ruriiro" "瑠璃色るりいろ" "#1e50a2")
    ("usuhanada" "薄縹うすはなだ" "#507ea4")
    ("rurikon" "瑠璃紺るりこん" "#19448e")
    ("konruri" "紺瑠璃こんるり" "#164a84")
    ("aiiro" "藍色あいいろ" "#165e83")
    ("seiran" "青藍せいらん" "#274a78")
    ("kokihanada" "深縹こきはなだ" "#2a4073")
    ("koniro" "紺色こんいろ" "#223a70")
    ("konjo" "紺青こんじょう" "#192f60")
    ("tomekon" "留紺とめこん" "#1c305c")
    ("koiai" "濃藍こいあい" "#0f2350")
    ("tetsukon" "鉄紺てつこん" "#17184b")
    ("shikkoku" "漆黒しっこく" "#0d0015")
    ("awafujiiro" "淡藤色あわふじいろ" "#bbc8e6")
    ("fujiiro" "藤色ふじいろ" "#bbbcde")
    ("benikakesorairo" "紅掛空色べにかけそらいろ" "#8491c3")
    ("benimidori" "紅碧べにみどり" "#8491c3")
    ("konkikyo" "紺桔梗こんききょう" "#4d5aaf")
    ("hanairo" "花色はないろ" "#4d5aaf")
    ("konai" "紺藍こんあい" "#4a488e")
    ("benikikyo" "紅桔梗べにききょう" "#4d4398")
    ("kikyoiro" "桔梗色ききょういろ" "#5654a2")
    ("fujinanndo" "藤納戸ふじなんど" "#706caa")
    ("benikakehanairo" "紅掛花色べにかけはないろ" "#68699b")
    ("shioniro" "紫苑色しおんいろ" "#867ba9")
    ("shirafujiiro" "白藤色しらふじいろ" "#dbd0e6")
    ("fujimurasaki" "藤紫ふじむらさき" "#a59aca")
    ("sumireiro" "菫色すみれいろ" "#7058a3")
    ("aomurasaki" "青紫あおむらさき" "#674598")
    ("shobuiro" "菖蒲色しょうぶいろ" "#674196")
    ("rindoiro" "竜胆色りんどういろ" "#9079ad")
    ("edomurasaki" "江戸紫えどむらさき" "#745399")
    ("honmurasaki" "本紫ほんむらさき" "#65318e")
    ("budoiro" "葡萄色ぶどういろ" "#522f60")
    ("fukamurasaki" "深紫ふかむらさき" "#493759")
    ("shikoku" "紫黒しこく" "#2e2930")
    ("murasaki" "紫むらさき" "#884898")
    ("usubudo" "薄葡萄うすぶどう" "#c0a2c7")
    ("shikon" "紫紺しこん" "#460e44")
    ("ankoshoku" "暗紅色あんこうしょく" "#74325c")
    ("kuwanomiiro" "桑の実色くわのみいろ" "#55295b")
    ("kodaimurasaki" "古代紫こだいむらさき" "#895b8a")
    ("nasukon" "茄子紺なすこん" "#824880")
    ("futaai" "二藍ふたあい" "#915c8b")
    ("kyomurasaki" "京紫きょうむらさき" "#9d5b8b")
    ("ebizome" "蒲葡えびぞめ" "#7a4171")
    ("wakamurasaki" "若紫わかむらさき" "#bc64a4")
    ("benimurasaki" "紅紫べにむらさき" "#b44c97")
    ("umemurasaki" "梅紫うめむらさき" "#aa4c8f")
    ("ayameiro" "菖蒲色あやめいろ" "#cc7eb1")
    ("benifujiiro" "紅藤色べにふじいろ" "#cca6bf")
    ("asamurasaki" "浅紫あさむらさき" "#c4a3bf")
    ("murasakisuisho" "紫水晶むらさきすいしょう" "#e7e7eb")
    ("usuumenezu" "薄梅鼠うすうめねず" "#dcd6d9")
    ("akatsukinezu" "暁鼠あかつきねず" "#d3cfd9")
    ("botannezu" "牡丹鼠ぼたんねず" "#d3ccd6")
    ("kasumiiro" "霞色かすみいろ" "#c8c2c6")
    ("fujinezu" "藤鼠ふじねず" "#a6a5c4")
    ("hashitairo" "半色はしたいろ" "#a69abd")
    ("usuiro" "薄色うすいろ" "#a89dac")
    ("usunezu" "薄鼠うすねず" "#9790a4")
    ("hatobanezumi" "鳩羽鼠はとばねずみ" "#9e8b8e")
    ("hatobairo" "鳩羽色はとばいろ" "#95859c")
    ("kikyonezu" "桔梗鼠ききょうねず" "#95949a")
    ("murasakinezu" "紫鼠むらさきねず" "#71686c")
    ("budonezumi" "葡萄鼠ぶどうねずみ" "#705b67")
    ("kokiiro" "濃色こきいろ" "#634950")
    ("murasakitobi" "紫鳶むらさきとび" "#5f414b")
    ("koinezu" "濃鼠こいねず" "#4f455c")
    ("fujisusutake" "藤煤竹ふじすすたけ" "#5a5359")
    ("keshimurasaki" "滅紫けしむらさき" "#594255")
    ("benikeshinezumi" "紅消鼠べにけしねずみ" "#524748")
    ("nisemurasaki" "似せ紫にせむらさき" "#513743")
    ("haikimidori" "灰黄緑はいきみどり" "#e6eae3")
    ("sobakiriiro" "蕎麦切色そばきりいろ" "#d4dcd6")
    ("usukumonezu" "薄雲鼠うすくもねず" "#d4dcda")
    ("karenoiro" "枯野色かれのいろ" "#d3cbc6")
    ("urumiiro" "潤色うるみいろ" "#c8c2be")
    ("rikyushirocha" "利休白茶りきゅうしろちゃ" "#b3ada0")
    ("chanezumi" "茶鼠ちゃねずみ" "#a99e93")
    ("kurumizome" "胡桃染くるみぞめ" "#a58f86")
    ("edonezu" "江戸鼠えどねず" "#928178")
    ("susuiro" "煤色すすいろ" "#887f7a")
    ("chojicha" "丁子茶ちょうじちゃ" "#b4866b")
    ("fushizome" "柴染ふしぞめ" "#b28c6e")
    ("sodenkaracha" "宗伝唐茶そうでんからちゃ" "#a16d5d")
    ("tonocha" "砺茶とのちゃ" "#9f6f55")
    ("senchairo" "煎茶色せんちゃいろ" "#8c6450")
    ("ginsusudake" "銀煤竹ぎんすすだけ" "#856859")
    ("kigaracha" "黄枯茶きがらちゃ" "#765c47")
    ("susutakeiro" "煤竹色すすたけいろ" "#6f514c")
    ("kogecha" "焦茶こげちゃ" "#6f4b3e")
    ("kurotsurubami" "黒橡くろつるばみ" "#544a47")
    ("kenpoiro" "憲法色けんぽういろ" "#543f32")
    ("kuriiro" "涅色くりいろ" "#554738")
    ("binrojizome" "檳榔子染びんろうじぞめ" "#433d3c")
    ("kurotobi" "黒鳶くろとび" "#432f2f")
    ("akasumi" "赤墨あかすみ" "#3f312b")
    ("kurobeni" "黒紅くろべに" "#302833")
    ("shiro" "白しろ" "#ffffff")
    ("gofuniro" "胡粉色ごふんいろ" "#fffffc")
    ("unohanairo" "卯の花色うのはないろ" "#f7fcfe")
    ("hakuji" "白磁はくじ" "#f8fbf8")
    ("kinariiro" "生成り色きなりいろ" "#fbfaf5")
    ("nyuuhakushoku" "乳白色にゅうはくしょく" "#f3f3f3")
    ("shironeri" "白練しろねり" "#f3f3f2")
    ("soshoku" "素色そしょく" "#eae5e3")
    ("shiraumenezu" "白梅鼠しらうめねず" "#e5e4e6")
    ("shironezu" "白鼠しろねず" "#dcdddd")
    ("kinunezu" "絹鼠きぬねず" "#dddcd6")
    ("haiao" "灰青はいあお" "#c0c6c9")
    ("ginnezu" "銀鼠ぎんねず" "#afafb0")
    ("usunibi" "薄鈍うすにび" "#adadad")
    ("usuzumiiro" "薄墨色うすずみいろ" "#a3a3a2")
    ("suzuiro" "錫色すずいろ" "#9ea1a3")
    ("sunezumi" "素鼠すねずみ" "#9fa0a0")
    ("nezumiiro" "鼠色ねずみいろ" "#949495")
    ("genjinezu" "源氏鼠げんじねず" "#888084")
    ("haiiro" "灰色はいいろ" "#7d7d7d")
    ("namariiro" "鉛色なまりいろ" "#7b7c7d")
    ("nibiiro" "鈍色にびいろ" "#727171")
    ("sumi" "墨すみ" "#595857")
    ("dobunezumi" "丼鼠どぶねずみ" "#595455")
    ("keshizumiiro" "消炭色けしずみいろ" "#524e4d")
    ("aisumicha" "藍墨茶あいすみちゃ" "#474a4d")
    ("yokaniro" "羊羹色ようかんいろ" "#383c3c")
    ("roiro" "蝋色ろういろ" "#2b2b2b")
    ("kuro" "黒くろ" "#2b2b2b")
    ("karasubairo" "烏羽色からすばいろ" "#180614")
    ("tetsuguro" "鉄黒てつぐろ" "#281a14")
    ("nurebairo" "濡羽色ぬればいろ" "#000b00")
    ("kokutan" "黒檀こくたん" "#250d00")
    ("kenpokurocha" "憲法黒茶けんぽうくろちゃ" "#241a08")
    ("ankokushoku" "暗黒色あんこくしょく" "#16160e"))
  "(\"ローマ字(ヘボン式、長音無し)\" \"漢字 ひらがな(一部文字化け)\" \"HEX VALUE\")")

(defun set-jpncolor-foreground (face color &optional frame)
  "`set-face-foreground' と同じ要領で使う。"
  (let ((hex (nth 2 (assoc color jpncolor-default))))
    (set-face-attribute face frame :foreground (or hex 'unspecified))))

(defun set-jpncolor-background (face color &optional frame)
  "`set-face-background' と同じ要領で使う。"
  (let ((hex (nth 2 (assoc color jpncolor-default))))
    (set-face-attribute face frame :background (or hex 'unspecified))))

(defun list-jpncolors-display ()
  "`list-colors-display'のように表示。"
  (interactive)
  (with-output-to-temp-buffer "*Japanese Traditional Colors*"
    (save-excursion
      (set-buffer standard-output)
      (setq truncate-lines t)
      (if temp-buffer-show-function
          (list-jpncolors-print)
        (add-hook 'temp-buffer-show-hook
                  (lambda () (list-jpncolors-print)) nil t)))))

(defun list-jpncolors-print ()
  (insert "JAPANESE TRADITIONAL COLORS  日本の伝統色\n")
  (loop for (roman japanese hex) in jpncolor-default
        do
        (put-text-property (prog1 (point)
                             (insert japanese) ; or roman
                             (indent-to 40))   ; デフォルトは 22
                           (point)
                           'face
                           (list ':background hex))
        (put-text-property (prog1 (point)
                             (insert " " roman))
                           (point)
                           'face
                           (list ':foreground hex))
        (indent-to (max (- (window-width) 8) 44))
        (insert (apply 'format "#%02x%02x%02x"
                       (mapcar (lambda (c) (lsh c -8)) (color-values hex))))
        (insert "\n"))
  (goto-char (point-min)))

(provide 'jpncolor)
;;; jpncolor.el ends here

追記

  • 2010/05/05

コードをおいていたリポジトリを削除してしまったので、ここにコードを張っておきます。