color-theme-library.el 779 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988129891299012991129921299312994129951299612997129981299913000130011300213003130041300513006130071300813009130101301113012130131301413015130161301713018130191302013021130221302313024130251302613027130281302913030130311303213033130341303513036130371303813039130401304113042130431304413045130461304713048130491305013051130521305313054130551305613057130581305913060130611306213063130641306513066130671306813069130701307113072130731307413075130761307713078130791308013081130821308313084130851308613087130881308913090130911309213093130941309513096130971309813099131001310113102131031310413105131061310713108131091311013111131121311313114131151311613117131181311913120131211312213123131241312513126131271312813129131301313113132131331313413135131361313713138131391314013141131421314313144131451314613147131481314913150131511315213153131541315513156131571315813159131601316113162131631316413165131661316713168131691317013171131721317313174131751317613177131781317913180131811318213183131841318513186131871318813189131901319113192131931319413195131961319713198131991320013201132021320313204132051320613207132081320913210132111321213213132141321513216132171321813219132201322113222132231322413225132261322713228132291323013231132321323313234132351323613237132381323913240132411324213243132441324513246132471324813249132501325113252132531325413255132561325713258132591326013261132621326313264132651326613267132681326913270132711327213273132741327513276132771327813279132801328113282132831328413285132861328713288132891329013291132921329313294132951329613297132981329913300133011330213303133041330513306133071330813309133101331113312133131331413315133161331713318133191332013321133221332313324133251332613327133281332913330133311333213333133341333513336133371333813339133401334113342133431334413345133461334713348133491335013351133521335313354133551335613357133581335913360133611336213363133641336513366133671336813369133701337113372133731337413375133761337713378133791338013381133821338313384133851338613387133881338913390133911339213393133941339513396133971339813399134001340113402134031340413405134061340713408134091341013411134121341313414134151341613417134181341913420134211342213423134241342513426134271342813429134301343113432134331343413435134361343713438134391344013441134421344313444134451344613447134481344913450134511345213453134541345513456134571345813459134601346113462134631346413465134661346713468134691347013471134721347313474134751347613477134781347913480134811348213483134841348513486134871348813489134901349113492134931349413495134961349713498134991350013501135021350313504135051350613507135081350913510135111351213513135141351513516135171351813519135201352113522135231352413525135261352713528135291353013531135321353313534135351353613537135381353913540
  1. ;;; color-theme-library.el --- The real color theme functions
  2. ;; Copyright (C) 2005, 2006 Xavier Maillard <zedek@gnu.org>
  3. ;; Copyright (C) 2005, 2006 Brian Palmer <bpalmer@gmail.com>
  4. ;; Version: 0.0.9
  5. ;; Keywords: faces
  6. ;; Author: Brian Palmer, Xavier Maillard
  7. ;; Maintainer: Xavier Maillard <zedek@gnu.org>
  8. ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ColorTheme
  9. ;; This file is not (YET) part of GNU Emacs.
  10. ;; This is free software; you can redistribute it and/or modify it under
  11. ;; the terms of the GNU General Public License as published by the Free
  12. ;; Software Foundation; either version 2, or (at your option) any later
  13. ;; version.
  14. ;;
  15. ;; This is distributed in the hope that it will be useful, but WITHOUT
  16. ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  17. ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
  18. ;; for more details.
  19. ;;
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING. If not, write to the
  22. ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  23. ;; MA 02111-1307, USA.
  24. ;; Code:
  25. (eval-when-compile
  26. (require 'color-theme))
  27. (defun color-theme-gnome ()
  28. "Wheat on darkslategrey scheme.
  29. From one version of Emacs in RH6 and Gnome, modified by Jonadab."
  30. (interactive)
  31. (color-theme-install
  32. '(color-theme-gnome
  33. ((foreground-color . "wheat")
  34. (background-color . "darkslategrey")
  35. (background-mode . dark))
  36. (default ((t (nil))))
  37. (region ((t (:foreground "cyan" :background "dark cyan"))))
  38. (underline ((t (:foreground "yellow" :underline t))))
  39. (modeline ((t (:foreground "dark cyan" :background "wheat"))))
  40. (modeline-buffer-id ((t (:foreground "dark cyan" :background "wheat"))))
  41. (modeline-mousable ((t (:foreground "dark cyan" :background "wheat"))))
  42. (modeline-mousable-minor-mode ((t (:foreground "dark cyan" :background "wheat"))))
  43. (italic ((t (:foreground "dark red" :italic t))))
  44. (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
  45. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  46. (bold ((t (:bold)))))))
  47. (defun color-theme-blue-gnus ()
  48. "Color theme for gnus and message faces only.
  49. This is intended for other color themes to use (eg. `color-theme-gnome2'
  50. and `color-theme-blue-sea')."
  51. (interactive)
  52. (color-theme-install
  53. '(color-theme-blue-gnus
  54. nil
  55. (gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
  56. (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
  57. (gnus-cite-face-2 ((t (:foreground "Khaki"))))
  58. (gnus-cite-face-3 ((t (:foreground "Coral"))))
  59. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  60. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  61. (gnus-cite-face-6 ((t (:foreground "bisque"))))
  62. (gnus-cite-face-7 ((t (:foreground "peru"))))
  63. (gnus-cite-face-8 ((t (:foreground "light coral"))))
  64. (gnus-cite-face-9 ((t (:foreground "plum"))))
  65. (gnus-emphasis-bold ((t (:bold t))))
  66. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  67. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  68. (gnus-emphasis-italic ((t (:italic t))))
  69. (gnus-emphasis-underline ((t (:underline t))))
  70. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  71. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
  72. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  73. (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
  74. (gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
  75. (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
  76. (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
  77. (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
  78. (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
  79. (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
  80. (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
  81. (gnus-group-news-1-empty-face ((t (:foreground "White"))))
  82. (gnus-group-news-1-face ((t (:bold t :foreground "White"))))
  83. (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
  84. (gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
  85. (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
  86. (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
  87. (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
  88. (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
  89. (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
  90. (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
  91. (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
  92. (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
  93. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  94. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
  95. (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
  96. (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
  97. (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
  98. (gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
  99. (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
  100. (gnus-signature-face ((t (:foreground "Grey"))))
  101. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  102. (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
  103. (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
  104. (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
  105. (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
  106. (gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
  107. (gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
  108. (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
  109. (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
  110. (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
  111. (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
  112. (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
  113. (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
  114. (gnus-summary-normal-unread-face ((t (nil))))
  115. (gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
  116. (message-cited-text-face ((t (:foreground "LightSalmon"))))
  117. (message-header-cc-face ((t (:foreground "light cyan"))))
  118. (message-header-name-face ((t (:foreground "LightBlue"))))
  119. (message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
  120. (message-header-other-face ((t (:foreground "MediumAquamarine"))))
  121. (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
  122. (message-header-to-face ((t (:bold t :foreground "light cyan"))))
  123. (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
  124. (message-separator-face ((t (:foreground "chocolate")))))))
  125. (defun color-theme-dark-gnus ()
  126. "Color theme for gnus and message faces only.
  127. This is intended for other color themes to use
  128. \(eg. `color-theme-late-night')."
  129. (interactive)
  130. (color-theme-install
  131. '(color-theme-blue-gnus
  132. nil
  133. (gnus-cite-attribution-face ((t (:foreground "#bbb"))))
  134. (gnus-cite-face-1 ((t (:foreground "#aaa"))))
  135. (gnus-cite-face-2 ((t (:foreground "#aaa"))))
  136. (gnus-cite-face-3 ((t (:foreground "#aaa"))))
  137. (gnus-cite-face-4 ((t (:foreground "#aaa"))))
  138. (gnus-cite-face-5 ((t (:foreground "#aaa"))))
  139. (gnus-cite-face-6 ((t (:foreground "#aaa"))))
  140. (gnus-cite-face-7 ((t (:foreground "#aaa"))))
  141. (gnus-cite-face-8 ((t (:foreground "#aaa"))))
  142. (gnus-cite-face-9 ((t (:foreground "#aaa"))))
  143. (gnus-emphasis-bold ((t (:bold t))))
  144. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  145. (gnus-emphasis-highlight-words ((t (:foreground "#ccc"))))
  146. (gnus-emphasis-italic ((t (:italic t))))
  147. (gnus-emphasis-underline ((t (:underline t))))
  148. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  149. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
  150. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  151. (gnus-group-mail-1-empty-face ((t (:foreground "#999"))))
  152. (gnus-group-mail-1-face ((t (:bold t :foreground "#999"))))
  153. (gnus-group-mail-2-empty-face ((t (:foreground "#999"))))
  154. (gnus-group-mail-2-face ((t (:bold t :foreground "#999"))))
  155. (gnus-group-mail-3-empty-face ((t (:foreground "#888"))))
  156. (gnus-group-mail-3-face ((t (:bold t :foreground "#888"))))
  157. (gnus-group-mail-low-empty-face ((t (:foreground "#777"))))
  158. (gnus-group-mail-low-face ((t (:bold t :foreground "#777"))))
  159. (gnus-group-news-1-empty-face ((t (:foreground "#999"))))
  160. (gnus-group-news-1-face ((t (:bold t :foreground "#999"))))
  161. (gnus-group-news-2-empty-face ((t (:foreground "#888"))))
  162. (gnus-group-news-2-face ((t (:bold t :foreground "#888"))))
  163. (gnus-group-news-3-empty-face ((t (:foreground "#777"))))
  164. (gnus-group-news-3-face ((t (:bold t :foreground "#777"))))
  165. (gnus-group-news-4-empty-face ((t (:foreground "#666"))))
  166. (gnus-group-news-4-face ((t (:bold t :foreground "#666"))))
  167. (gnus-group-news-5-empty-face ((t (:foreground "#666"))))
  168. (gnus-group-news-5-face ((t (:bold t :foreground "#666"))))
  169. (gnus-group-news-6-empty-face ((t (:foreground "#666"))))
  170. (gnus-group-news-6-face ((t (:bold t :foreground "#666"))))
  171. (gnus-group-news-low-empty-face ((t (:foreground "#666"))))
  172. (gnus-group-news-low-face ((t (:bold t :foreground "#666"))))
  173. (gnus-header-content-face ((t (:foreground "#888"))))
  174. (gnus-header-from-face ((t (:bold t :foreground "#888"))))
  175. (gnus-header-name-face ((t (:bold t :foreground "#777"))))
  176. (gnus-header-newsgroups-face ((t (:bold t :foreground "#777"))))
  177. (gnus-header-subject-face ((t (:bold t :foreground "#999"))))
  178. (gnus-signature-face ((t (:foreground "#444"))))
  179. (gnus-splash-face ((t (:foreground "#ccc"))))
  180. (gnus-summary-cancelled-face ((t (:background "#555" :foreground "#000"))))
  181. (gnus-summary-high-ancient-face ((t (:bold t :foreground "#555"))))
  182. (gnus-summary-high-read-face ((t (:bold t :foreground "#666"))))
  183. (gnus-summary-high-ticked-face ((t (:bold t :foreground "#777"))))
  184. (gnus-summary-high-unread-face ((t (:bold t :foreground "#888"))))
  185. (gnus-summary-low-ancient-face ((t (:foreground "#444"))))
  186. (gnus-summary-low-read-face ((t (:foreground "#555"))))
  187. (gnus-summary-low-ticked-face ((t (:foreground "#666"))))
  188. (gnus-summary-low-unread-face ((t (:foreground "#777"))))
  189. (gnus-summary-normal-ancient-face ((t (:foreground "#555"))))
  190. (gnus-summary-normal-read-face ((t (:foreground "#666"))))
  191. (gnus-summary-normal-ticked-face ((t (:foreground "#777"))))
  192. (gnus-summary-normal-unread-face ((t (:foreground "#888"))))
  193. (gnus-summary-selected-face ((t (:background "#333"))))
  194. (message-cited-text-face ((t (:foreground "#aaa"))))
  195. (message-header-cc-face ((t (:foreground "#888"))))
  196. (message-header-name-face ((t (:bold t :foreground "#777"))))
  197. (message-header-newsgroups-face ((t (:bold t :foreground "#777"))))
  198. (message-header-other-face ((t (:foreground "#666"))))
  199. (message-header-subject-face ((t (:bold t :foreground "#999"))))
  200. (message-header-to-face ((t (:bold t :foreground "#777"))))
  201. (message-header-xheader-face ((t (:foreground "#666"))))
  202. (message-separator-face ((t (:foreground "#999")))))))
  203. (defun color-theme-blue-eshell ()
  204. "Color theme for eshell faces only.
  205. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  206. (interactive)
  207. (color-theme-install
  208. '(color-theme-blue-eshell
  209. nil
  210. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  211. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  212. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  213. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
  214. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  215. (eshell-ls-missing-face ((t (:foreground "black"))))
  216. (eshell-ls-picture-face ((t (:foreground "Violet")))) ; non-standard face
  217. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  218. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  219. (eshell-ls-special-face ((t (:foreground "Gold"))))
  220. (eshell-ls-symlink-face ((t (:foreground "White"))))
  221. (eshell-ls-text-face ((t (:foreground "medium aquamarine")))) ; non-standard face
  222. (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine")))) ; non-standard face
  223. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  224. (eshell-prompt-face ((t (:foreground "powder blue")))))))
  225. (defun color-theme-salmon-font-lock ()
  226. "Color theme for font-lock faces only.
  227. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  228. (interactive)
  229. (color-theme-install
  230. '(color-theme-salmon-font-lock
  231. nil
  232. (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
  233. (font-lock-comment-face ((t (:foreground "LightBlue"))))
  234. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  235. (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
  236. (font-lock-function-name-face ((t (:bold t :foreground "Aquamarine"))))
  237. (font-lock-keyword-face ((t (:foreground "Salmon"))))
  238. (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
  239. (font-lock-reference-face ((t (:foreground "pale green"))))
  240. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  241. (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
  242. (font-lock-variable-name-face ((t (:bold t :foreground "Aquamarine"))))
  243. (font-lock-warning-face ((t (:bold t :foreground "red")))))))
  244. (defun color-theme-dark-font-lock ()
  245. "Color theme for font-lock faces only.
  246. This is intended for other color themes to use (eg. `color-theme-late-night')."
  247. (interactive)
  248. (color-theme-install
  249. '(color-theme-dark-font-lock
  250. nil
  251. (font-lock-builtin-face ((t (:bold t :foreground "#777"))))
  252. (font-lock-comment-face ((t (:foreground "#555"))))
  253. (font-lock-constant-face ((t (:foreground "#777"))))
  254. (font-lock-doc-string-face ((t (:foreground "#777"))))
  255. (font-lock-doc-face ((t (:foreground "#777"))))
  256. (font-lock-function-name-face ((t (:bold t :foreground "#777"))))
  257. (font-lock-keyword-face ((t (:foreground "#777"))))
  258. (font-lock-preprocessor-face ((t (:foreground "#777"))))
  259. (font-lock-reference-face ((t (:foreground "#777"))))
  260. (font-lock-string-face ((t (:foreground "#777"))))
  261. (font-lock-type-face ((t (:bold t))))
  262. (font-lock-variable-name-face ((t (:bold t :foreground "#888"))))
  263. (font-lock-warning-face ((t (:bold t :foreground "#999")))))))
  264. (defun color-theme-dark-info ()
  265. "Color theme for info, help and apropos faces.
  266. This is intended for other color themes to use (eg. `color-theme-late-night')."
  267. (interactive)
  268. (color-theme-install
  269. '(color-theme-dark-info
  270. nil
  271. (info-header-node ((t (:foreground "#666"))))
  272. (info-header-xref ((t (:foreground "#666"))))
  273. (info-menu-5 ((t (:underline t))))
  274. (info-menu-header ((t (:bold t :foreground "#666"))))
  275. (info-node ((t (:bold t :foreground "#888"))))
  276. (info-xref ((t (:bold t :foreground "#777")))))))
  277. (defun color-theme-gnome2 ()
  278. "Wheat on darkslategrey scheme.
  279. `color-theme-gnome' started it all.
  280. This theme supports standard faces, font-lock, eshell, info, message,
  281. gnus, custom, widget, woman, diary, cperl, bbdb, and erc. This theme
  282. includes faces for Emacs and XEmacs.
  283. The theme does not support w3 faces because w3 faces can be controlled
  284. by your default style sheet.
  285. This is what you should put in your .Xdefaults file, if you want to
  286. change the colors of the menus in Emacs 20 as well:
  287. emacs*Background: DarkSlateGray
  288. emacs*Foreground: Wheat"
  289. (interactive)
  290. (color-theme-blue-gnus)
  291. (let ((color-theme-is-cumulative t))
  292. (color-theme-blue-erc)
  293. (color-theme-blue-eshell)
  294. (color-theme-salmon-font-lock)
  295. (color-theme-salmon-diff)
  296. (color-theme-install
  297. '(color-theme-gnome2
  298. ((foreground-color . "wheat")
  299. (background-color . "darkslategrey")
  300. (mouse-color . "Grey")
  301. (cursor-color . "LightGray")
  302. (border-color . "black")
  303. (background-mode . dark))
  304. ((apropos-keybinding-face . underline)
  305. (apropos-label-face . italic)
  306. (apropos-match-face . secondary-selection)
  307. (apropos-property-face . bold-italic)
  308. (apropos-symbol-face . info-xref)
  309. (goto-address-mail-face . message-header-to-face)
  310. (goto-address-mail-mouse-face . secondary-selection)
  311. (goto-address-url-face . info-xref)
  312. (goto-address-url-mouse-face . highlight)
  313. (list-matching-lines-face . bold)
  314. (view-highlight-face . highlight))
  315. (default ((t (nil))))
  316. (bbdb-company ((t (:foreground "pale green"))))
  317. (bbdb-name ((t (:bold t :foreground "pale green"))))
  318. (bbdb-field-name ((t (:foreground "medium sea green"))))
  319. (bbdb-field-value ((t (:foreground "dark sea green"))))
  320. (bold ((t (:bold t))))
  321. (bold-italic ((t (:italic t :bold t :foreground "beige"))))
  322. (calendar-today-face ((t (:underline t))))
  323. (comint-highlight-prompt ((t (:foreground "medium aquamarine"))))
  324. (cperl-array-face ((t (:foreground "Yellow"))))
  325. (cperl-hash-face ((t (:foreground "White"))))
  326. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  327. (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
  328. (custom-documentation-face ((t (:foreground "Grey"))))
  329. (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
  330. (custom-state-face ((t (:foreground "LightSalmon"))))
  331. (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
  332. (diary-face ((t (:foreground "IndianRed"))))
  333. (dired-face-directory ((t (:bold t :foreground "sky blue"))))
  334. (dired-face-permissions ((t (:foreground "aquamarine"))))
  335. (dired-face-flagged ((t (:foreground "tomato"))))
  336. (dired-face-marked ((t (:foreground "light salmon"))))
  337. (dired-face-executable ((t (:foreground "green yellow"))))
  338. (fringe ((t (:background "darkslategrey"))))
  339. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  340. (highline-face ((t (:background "SeaGreen"))))
  341. (holiday-face ((t (:background "DimGray"))))
  342. (hyper-apropos-hyperlink ((t (:bold t :foreground "DodgerBlue1"))))
  343. (hyper-apropos-documentation ((t (:foreground "LightSalmon"))))
  344. (info-header-xref ((t (:foreground "DodgerBlue1" :bold t))))
  345. (info-menu-5 ((t (:underline t))))
  346. (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
  347. (info-xref ((t (:bold t :foreground "DodgerBlue1"))))
  348. (isearch ((t (:background "sea green"))))
  349. (italic ((t (:italic t))))
  350. (menu ((t (:foreground "wheat" :background "darkslategrey"))))
  351. (modeline ((t (:background "dark olive green" :foreground "wheat"))))
  352. (modeline-buffer-id ((t (:background "dark olive green" :foreground "beige"))))
  353. (modeline-mousable ((t (:background "dark olive green" :foreground "yellow green"))))
  354. (modeline-mousable-minor-mode ((t (:background "dark olive green" :foreground "wheat"))))
  355. (region ((t (:background "dark cyan" :foreground "cyan"))))
  356. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  357. (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue"))))
  358. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  359. (underline ((t (:underline t))))
  360. (widget-field-face ((t (:foreground "LightBlue"))))
  361. (widget-inactive-face ((t (:foreground "DimGray"))))
  362. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  363. (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
  364. (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
  365. (w3m-header-line-location-title-face ((t (:foreground "beige" :background "dark olive green"))))
  366. (w3m-header-line-location-content-face ((t (:foreground "wheat" :background "dark olive green"))))
  367. (woman-bold-face ((t (:bold t))))
  368. (woman-italic-face ((t (:foreground "beige"))))
  369. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  370. (zmacs-region ((t (:background "dark cyan" :foreground "cyan"))))))))
  371. (defun color-theme-simple-1 ()
  372. "Black background.
  373. Doesn't mess with most faces, but does turn on dark background mode."
  374. (interactive)
  375. (color-theme-install
  376. '(color-theme-simple-1
  377. ((foreground-color . "white")
  378. (background-color . "black")
  379. (cursor-color . "indian red")
  380. (background-mode . dark))
  381. (default ((t (nil))))
  382. (modeline ((t (:foreground "black" :background "white"))))
  383. (modeline-buffer-id ((t (:foreground "black" :background "white"))))
  384. (modeline-mousable ((t (:foreground "black" :background "white"))))
  385. (modeline-mousable-minor-mode ((t (:foreground "black" :background "white"))))
  386. (underline ((t (:underline t))))
  387. (region ((t (:background "grey")))))))
  388. (defun color-theme-jonadabian ()
  389. "Dark blue background.
  390. Supports standard faces, font-lock, highlight-changes, widget and
  391. custom."
  392. (interactive)
  393. (color-theme-install
  394. '(color-theme-jonadabian
  395. ((foreground-color . "#CCBB77")
  396. (cursor-color . "medium turquoise")
  397. (background-color . "#000055")
  398. (background-mode . dark))
  399. (default ((t (nil))))
  400. (modeline ((t (:foreground "cyan" :background "#007080"))))
  401. (modeline-buffer-id ((t (:foreground "cyan" :background "#007080"))))
  402. (modeline-mousable ((t (:foreground "cyan" :background "#007080"))))
  403. (modeline-mousable-minor-mode ((t (:foreground "cyan" :background "#007080"))))
  404. (underline ((t (:underline t))))
  405. (region ((t (:background "#004080"))))
  406. (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
  407. (font-lock-comment-face ((t (:foreground "grey50" :bold t :italic t))))
  408. (font-lock-string-face ((t (:foreground "#10D010"))))
  409. (font-lock-constant-face ((t (:foreground "indian red"))))
  410. (highlight-changes-face ((t (:background "navy"))))
  411. (highlight-changes-delete-face ((t (:foreground "red" :background "navy"))))
  412. (widget-field-face ((t (:foreground "black" :background "grey35"))))
  413. (widget-inactive-face ((t (:foreground "gray"))))
  414. (custom-button-face ((t (:foreground "yellow" :background "dark blue"))))
  415. (custom-state-face ((t (:foreground "mediumaquamarine"))))
  416. (custom-face-tag-face ((t (:foreground "goldenrod" :underline t))))
  417. (custom-documentation-face ((t (:foreground "#10D010"))))
  418. (custom-set-face ((t (:foreground "#2020D0")))))))
  419. (defun color-theme-ryerson ()
  420. "White on midnightblue scheme.
  421. Used at Ryerson Polytechnic University in the Electronic Engineering department."
  422. (interactive)
  423. (color-theme-install
  424. '(color-theme-ryerson
  425. ((foreground-color . "white")
  426. (background-color . "midnightblue")
  427. (cursor-color . "red")
  428. (background-mode . dark))
  429. (default ((t (nil))))
  430. (modeline ((t (:foreground "black" :background "slategray3"))))
  431. (modeline-buffer-id ((t (:foreground "black" :background "slategray3"))))
  432. (modeline-mousable ((t (:foreground "black" :background "slategray3"))))
  433. (modeline-mousable-minor-mode ((t (:foreground "black" :background "slategray3"))))
  434. (underline ((t (:underline t))))
  435. (region ((t (:foreground "black" :background "slategray3")))))))
  436. (defun color-theme-wheat ()
  437. "Default colors on a wheat background.
  438. Calls the standard color theme function `color-theme-standard' in order
  439. to reset all faces."
  440. (interactive)
  441. (color-theme-standard)
  442. (let ((color-theme-is-cumulative t))
  443. (color-theme-install
  444. '(color-theme-wheat
  445. ((background-color . "Wheat"))))))
  446. (defun color-theme-standard ()
  447. "Emacs default colors.
  448. If you are missing standard faces in this theme, please notify the maintainer."
  449. (interactive)
  450. ;; Note that some of the things that make up a color theme are
  451. ;; actually variable settings!
  452. (color-theme-install
  453. '(color-theme-standard
  454. ((foreground-color . "black")
  455. (background-color . "white")
  456. (mouse-color . "black")
  457. (cursor-color . "black")
  458. (border-color . "black")
  459. (background-mode . light))
  460. ((Man-overstrike-face . bold)
  461. (Man-underline-face . underline)
  462. (apropos-keybinding-face . underline)
  463. (apropos-label-face . italic)
  464. (apropos-match-face . secondary-selection)
  465. (apropos-property-face . bold-italic)
  466. (apropos-symbol-face . bold)
  467. (goto-address-mail-face . italic)
  468. (goto-address-mail-mouse-face . secondary-selection)
  469. (goto-address-url-face . bold)
  470. (goto-address-url-mouse-face . highlight)
  471. (help-highlight-face . underline)
  472. (list-matching-lines-face . bold)
  473. (view-highlight-face . highlight))
  474. (default ((t (nil))))
  475. (bold ((t (:bold t))))
  476. (bold-italic ((t (:bold t :italic t))))
  477. (calendar-today-face ((t (:underline t))))
  478. (cperl-array-face ((t (:foreground "Blue" :background "lightyellow2" :bold t))))
  479. (cperl-hash-face ((t (:foreground "Red" :background "lightyellow2" :bold t :italic t))))
  480. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  481. (custom-button-face ((t (nil))))
  482. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  483. (custom-documentation-face ((t (nil))))
  484. (custom-face-tag-face ((t (:underline t))))
  485. (custom-group-tag-face ((t (:foreground "blue" :underline t))))
  486. (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
  487. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  488. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  489. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  490. (custom-saved-face ((t (:underline t))))
  491. (custom-set-face ((t (:foreground "blue" :background "white"))))
  492. (custom-state-face ((t (:foreground "dark green"))))
  493. (custom-variable-button-face ((t (:bold t :underline t))))
  494. (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
  495. (diary-face ((t (:foreground "red"))))
  496. (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
  497. (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
  498. (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
  499. (ediff-current-diff-face-C ((t (:foreground "Navy" :background "Pink"))))
  500. (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
  501. (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
  502. (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
  503. (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
  504. (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
  505. (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
  506. (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
  507. (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
  508. (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
  509. (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
  510. (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
  511. (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
  512. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  513. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  514. (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
  515. (eshell-ls-directory-face ((t (:foreground "Blue" :bold t))))
  516. (eshell-ls-executable-face ((t (:foreground "ForestGreen" :bold t))))
  517. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  518. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  519. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  520. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  521. (eshell-ls-symlink-face ((t (:foreground "DarkCyan" :bold t))))
  522. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  523. (eshell-prompt-face ((t (:foreground "Red" :bold t))))
  524. (eshell-test-failed-face ((t (:foreground "OrangeRed" :bold t))))
  525. (eshell-test-ok-face ((t (:foreground "Green" :bold t))))
  526. (excerpt ((t (:italic t))))
  527. (fixed ((t (:bold t))))
  528. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
  529. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  530. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  531. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  532. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  533. (font-lock-function-name-face ((t (:foreground "Blue"))))
  534. (font-lock-keyword-face ((t (:foreground "Purple"))))
  535. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  536. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  537. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  538. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  539. (fringe ((t (:background "grey95"))))
  540. (gnus-cite-attribution-face ((t (:italic t))))
  541. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  542. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  543. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  544. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  545. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  546. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  547. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  548. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  549. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  550. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  551. (gnus-cite-face-9 ((t (:foreground "violet"))))
  552. (gnus-emphasis-bold ((t (:bold t))))
  553. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  554. (gnus-emphasis-italic ((t (:italic t))))
  555. (gnus-emphasis-underline ((t (:underline t))))
  556. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  557. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  558. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  559. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  560. (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
  561. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  562. (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
  563. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  564. (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
  565. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  566. (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
  567. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  568. (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
  569. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  570. (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
  571. (gnus-group-news-3-empty-face ((t (nil))))
  572. (gnus-group-news-3-face ((t (:bold t))))
  573. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  574. (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
  575. (gnus-header-content-face ((t (:foreground "indianred4" :italic t))))
  576. (gnus-header-from-face ((t (:foreground "red3"))))
  577. (gnus-header-name-face ((t (:foreground "maroon"))))
  578. (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue" :italic t))))
  579. (gnus-header-subject-face ((t (:foreground "red4"))))
  580. (gnus-signature-face ((t (:italic t))))
  581. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  582. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  583. (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
  584. (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
  585. (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
  586. (gnus-summary-high-unread-face ((t (:bold t))))
  587. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
  588. (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
  589. (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
  590. (gnus-summary-low-unread-face ((t (:italic t))))
  591. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  592. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  593. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  594. (gnus-summary-normal-unread-face ((t (nil))))
  595. (gnus-summary-selected-face ((t (:underline t))))
  596. (highlight ((t (:background "darkseagreen2"))))
  597. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  598. (highlight-changes-face ((t (:foreground "red"))))
  599. (highline-face ((t (:background "paleturquoise"))))
  600. (holiday-face ((t (:background "pink"))))
  601. (info-menu-5 ((t (:underline t))))
  602. (info-node ((t (:bold t :italic t))))
  603. (info-xref ((t (:bold t))))
  604. (italic ((t (:italic t))))
  605. (makefile-space-face ((t (:background "hotpink"))))
  606. (message-cited-text-face ((t (:foreground "red"))))
  607. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  608. (message-header-name-face ((t (:foreground "cornflower blue"))))
  609. (message-header-newsgroups-face ((t (:foreground "blue4" :bold t :italic t))))
  610. (message-header-other-face ((t (:foreground "steel blue"))))
  611. (message-header-subject-face ((t (:foreground "navy blue" :bold t))))
  612. (message-header-to-face ((t (:foreground "MidnightBlue" :bold t))))
  613. (message-header-xheader-face ((t (:foreground "blue"))))
  614. (message-separator-face ((t (:foreground "brown"))))
  615. (modeline ((t (:foreground "white" :background "black"))))
  616. (modeline-buffer-id ((t (:foreground "white" :background "black"))))
  617. (modeline-mousable ((t (:foreground "white" :background "black"))))
  618. (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
  619. (region ((t (:background "gray"))))
  620. (secondary-selection ((t (:background "paleturquoise"))))
  621. (show-paren-match-face ((t (:background "turquoise"))))
  622. (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
  623. (speedbar-button-face ((t (:foreground "green4"))))
  624. (speedbar-directory-face ((t (:foreground "blue4"))))
  625. (speedbar-file-face ((t (:foreground "cyan4"))))
  626. (speedbar-highlight-face ((t (:background "green"))))
  627. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  628. (speedbar-tag-face ((t (:foreground "brown"))))
  629. (term-black ((t (:foreground "black"))))
  630. (term-blackbg ((t (:background "black"))))
  631. (term-blue ((t (:foreground "blue"))))
  632. (term-bluebg ((t (:background "blue"))))
  633. (term-bold ((t (:bold t))))
  634. (term-cyan ((t (:foreground "cyan"))))
  635. (term-cyanbg ((t (:background "cyan"))))
  636. (term-default-bg ((t (nil))))
  637. (term-default-bg-inv ((t (nil))))
  638. (term-default-fg ((t (nil))))
  639. (term-default-fg-inv ((t (nil))))
  640. (term-green ((t (:foreground "green"))))
  641. (term-greenbg ((t (:background "green"))))
  642. (term-invisible ((t (nil))))
  643. (term-invisible-inv ((t (nil))))
  644. (term-magenta ((t (:foreground "magenta"))))
  645. (term-magentabg ((t (:background "magenta"))))
  646. (term-red ((t (:foreground "red"))))
  647. (term-redbg ((t (:background "red"))))
  648. (term-underline ((t (:underline t))))
  649. (term-white ((t (:foreground "white"))))
  650. (term-whitebg ((t (:background "white"))))
  651. (term-yellow ((t (:foreground "yellow"))))
  652. (term-yellowbg ((t (:background "yellow"))))
  653. (underline ((t (:underline t))))
  654. (vcursor ((t (:foreground "blue" :background "cyan" :underline t))))
  655. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  656. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  657. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  658. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  659. (vhdl-font-lock-prompt-face ((t (:foreground "Red" :bold t))))
  660. (vhdl-font-lock-reserved-words-face ((t (:foreground "Orange" :bold t))))
  661. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  662. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  663. (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
  664. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  665. (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
  666. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  667. (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
  668. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  669. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
  670. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  671. (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
  672. (viper-minibuffer-emacs-face ((t (:foreground "Black" :background "darkseagreen2"))))
  673. (viper-minibuffer-insert-face ((t (:foreground "Black" :background "pink"))))
  674. (viper-minibuffer-vi-face ((t (:foreground "DarkGreen" :background "grey"))))
  675. (viper-replace-overlay-face ((t (:foreground "Black" :background "darkseagreen2"))))
  676. (viper-search-face ((t (:foreground "Black" :background "khaki"))))
  677. (widget-button-face ((t (:bold t))))
  678. (widget-button-pressed-face ((t (:foreground "red"))))
  679. (widget-documentation-face ((t (:foreground "dark green"))))
  680. (widget-field-face ((t (:background "gray85"))))
  681. (widget-inactive-face ((t (:foreground "dim gray"))))
  682. (widget-single-line-field-face ((t (:background "gray85")))))))
  683. (defun color-theme-fischmeister ()
  684. "The light colors on a grey blackground.
  685. Sebastian Fischmeister <sfischme@nexus.lzk.tuwien.ac.at>"
  686. (interactive)
  687. (color-theme-install
  688. '(color-theme-fischmeister
  689. ((foreground-color . "black")
  690. (background-color . "gray80")
  691. (mouse-color . "red")
  692. (cursor-color . "yellow")
  693. (border-color . "black")
  694. (background-mode . light))
  695. (default ((t (nil))))
  696. (modeline ((t (:foreground "gray80" :background "black"))))
  697. (modeline-buffer-id ((t (:foreground "gray80" :background "black"))))
  698. (modeline-mousable ((t (:foreground "gray80" :background "black"))))
  699. (modeline-mousable-minor-mode ((t (:foreground "gray80" :background "black"))))
  700. (highlight ((t (:background "darkseagreen2"))))
  701. (bold ((t (:bold t))))
  702. (italic ((t (:italic t))))
  703. (bold-italic ((t (:bold t :italic t))))
  704. (region ((t (:background "gray"))))
  705. (secondary-selection ((t (:background "paleturquoise"))))
  706. (underline ((t (:underline t))))
  707. (show-paren-match-face ((t (:foreground "yellow" :background "darkgreen"))))
  708. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  709. (font-lock-comment-face ((t (:foreground "FireBrick" :bold t :italic t))))
  710. (font-lock-string-face ((t (:foreground "DarkSlateBlue" :italic t))))
  711. (font-lock-keyword-face ((t (:foreground "navy"))))
  712. (font-lock-builtin-face ((t (:foreground "white"))))
  713. (font-lock-function-name-face ((t (:foreground "Blue"))))
  714. (font-lock-variable-name-face ((t (:foreground "Darkblue"))))
  715. (font-lock-type-face ((t (:foreground "darkgreen"))))
  716. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  717. (font-lock-warning-face ((t (:foreground "Orchid" :bold t))))
  718. (font-lock-reference-face ((t (:foreground "SteelBlue")))))))
  719. (defun color-theme-sitaramv-solaris ()
  720. "White on a midnight blue background. Lots of yellow and orange.
  721. Includes faces for font-lock, widget, custom, speedbar, message, gnus,
  722. eshell."
  723. (interactive)
  724. (color-theme-install
  725. '(color-theme-sitaramv-solaris
  726. ((foreground-color . "white")
  727. (background-color . "MidnightBlue")
  728. (mouse-color . "yellow")
  729. (cursor-color . "magenta2")
  730. (border-color . "black")
  731. (background-mode . dark))
  732. (default ((t (nil))))
  733. (modeline ((t (:foreground "black" :background "gold2"))))
  734. (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
  735. (modeline-mousable ((t (:foreground "black" :background "gold2"))))
  736. (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
  737. (highlight ((t (:foreground "black" :background "Aquamarine"))))
  738. (bold ((t (:bold t))))
  739. (italic ((t (:italic t))))
  740. (bold-italic ((t (:bold t :italic t))))
  741. (region ((t (:foreground "black" :background "snow3"))))
  742. (secondary-selection ((t (:foreground "black" :background "aquamarine"))))
  743. (underline ((t (:underline t))))
  744. (lazy-highlight-face ((t (:foreground "yellow"))))
  745. (font-lock-comment-face ((t (:foreground "orange" :italic t))))
  746. (font-lock-string-face ((t (:foreground "orange"))))
  747. (font-lock-keyword-face ((t (:foreground "green"))))
  748. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  749. (font-lock-function-name-face ((t (:foreground "cyan" :bold t))))
  750. (font-lock-variable-name-face ((t (:foreground "white"))))
  751. (font-lock-type-face ((t (:foreground "cyan"))))
  752. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  753. (font-lock-warning-face ((t (:foreground "Pink" :bold t))))
  754. (widget-documentation-face ((t (:foreground "lime green"))))
  755. (widget-button-face ((t (:bold t))))
  756. (widget-field-face ((t (:background "dim gray"))))
  757. (widget-single-line-field-face ((t (:background "dim gray"))))
  758. (widget-inactive-face ((t (:foreground "light gray"))))
  759. (widget-button-pressed-face ((t (:foreground "red"))))
  760. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  761. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  762. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  763. (custom-set-face ((t (:foreground "blue" :background "white"))))
  764. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  765. (custom-saved-face ((t (:underline t))))
  766. (custom-button-face ((t (nil))))
  767. (custom-documentation-face ((t (nil))))
  768. (custom-state-face ((t (:foreground "lime green"))))
  769. (custom-variable-tag-face ((t (:foreground "light blue" :underline t))))
  770. (custom-variable-button-face ((t (:bold t :underline t))))
  771. (custom-face-tag-face ((t (:underline t))))
  772. (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
  773. (custom-group-tag-face ((t (:foreground "light blue" :underline t))))
  774. (speedbar-button-face ((t (:foreground "green3"))))
  775. (speedbar-file-face ((t (:foreground "cyan"))))
  776. (speedbar-directory-face ((t (:foreground "light blue"))))
  777. (speedbar-tag-face ((t (:foreground "yellow"))))
  778. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  779. (speedbar-highlight-face ((t (:background "sea green"))))
  780. (font-lock-doc-string-face ((t (:foreground "Plum1" :bold t))))
  781. (font-lock-exit-face ((t (:foreground "green"))))
  782. (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
  783. (show-paren-match-face ((t (:background "red"))))
  784. (show-paren-mismatch-face ((t (:foreground "white" :background "purple"))))
  785. (message-header-to-face ((t (:foreground "green2" :bold t))))
  786. (message-header-cc-face ((t (:foreground "LightGoldenrod" :bold t))))
  787. (message-header-subject-face ((t (:foreground "green3"))))
  788. (message-header-newsgroups-face ((t (:foreground "yellow" :bold t :italic t))))
  789. (message-header-other-face ((t (:foreground "Salmon"))))
  790. (message-header-name-face ((t (:foreground "green3"))))
  791. (message-header-xheader-face ((t (:foreground "GreenYellow"))))
  792. (message-separator-face ((t (:foreground "Tan"))))
  793. (message-cited-text-face ((t (:foreground "Gold"))))
  794. (message-mml-face ((t (:foreground "ForestGreen"))))
  795. (gnus-group-news-1-face ((t (:foreground "PaleTurquoise" :bold t))))
  796. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  797. (gnus-group-news-2-face ((t (:foreground "turquoise" :bold t))))
  798. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  799. (gnus-group-news-3-face ((t (:bold t))))
  800. (gnus-group-news-3-empty-face ((t (nil))))
  801. (gnus-group-news-4-face ((t (:bold t))))
  802. (gnus-group-news-4-empty-face ((t (nil))))
  803. (gnus-group-news-5-face ((t (:bold t))))
  804. (gnus-group-news-5-empty-face ((t (nil))))
  805. (gnus-group-news-6-face ((t (:bold t))))
  806. (gnus-group-news-6-empty-face ((t (nil))))
  807. (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
  808. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  809. (gnus-group-mail-1-face ((t (:foreground "aquamarine1" :bold t))))
  810. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  811. (gnus-group-mail-2-face ((t (:foreground "aquamarine2" :bold t))))
  812. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  813. (gnus-group-mail-3-face ((t (:foreground "aquamarine3" :bold t))))
  814. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  815. (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
  816. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  817. (gnus-summary-selected-face ((t (:underline t))))
  818. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  819. (gnus-summary-high-ticked-face ((t (:foreground "pink" :bold t))))
  820. (gnus-summary-low-ticked-face ((t (:foreground "pink" :italic t))))
  821. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  822. (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
  823. (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
  824. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  825. (gnus-summary-high-unread-face ((t (:bold t))))
  826. (gnus-summary-low-unread-face ((t (:italic t))))
  827. (gnus-summary-normal-unread-face ((t (nil))))
  828. (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
  829. (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
  830. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  831. (gnus-splash-face ((t (:foreground "Brown"))))
  832. (eshell-ls-directory-face ((t (:foreground "SkyBlue" :bold t))))
  833. (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
  834. (eshell-ls-executable-face ((t (:foreground "Green" :bold t))))
  835. (eshell-ls-readonly-face ((t (:foreground "Pink"))))
  836. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  837. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  838. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  839. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  840. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  841. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  842. (eshell-ls-clutter-face ((t (:foreground "OrangeRed" :bold t))))
  843. (eshell-prompt-face ((t (:foreground "Pink" :bold t))))
  844. (term-default-fg ((t (nil))))
  845. (term-default-bg ((t (nil))))
  846. (term-default-fg-inv ((t (nil))))
  847. (term-default-bg-inv ((t (nil))))
  848. (term-bold ((t (:bold t))))
  849. (term-underline ((t (:underline t))))
  850. (term-invisible ((t (nil))))
  851. (term-invisible-inv ((t (nil))))
  852. (term-black ((t (:foreground "black"))))
  853. (term-red ((t (:foreground "red"))))
  854. (term-green ((t (:foreground "green"))))
  855. (term-yellow ((t (:foreground "yellow"))))
  856. (term-blue ((t (:foreground "blue"))))
  857. (term-magenta ((t (:foreground "magenta"))))
  858. (term-cyan ((t (:foreground "cyan"))))
  859. (term-white ((t (:foreground "white"))))
  860. (term-blackbg ((t (:background "black"))))
  861. (term-redbg ((t (:background "red"))))
  862. (term-greenbg ((t (:background "green"))))
  863. (term-yellowbg ((t (:background "yellow"))))
  864. (term-bluebg ((t (:background "blue"))))
  865. (term-magentabg ((t (:background "magenta"))))
  866. (term-cyanbg ((t (:background "cyan"))))
  867. (term-whitebg ((t (:background "white"))))
  868. (gnus-emphasis-bold ((t (:bold t))))
  869. (gnus-emphasis-italic ((t (:italic t))))
  870. (gnus-emphasis-underline ((t (:underline t))))
  871. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  872. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  873. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  874. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  875. (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
  876. (gnus-signature-face ((t (:italic t))))
  877. (gnus-header-from-face ((t (:foreground "spring green"))))
  878. (gnus-header-subject-face ((t (:foreground "yellow" :bold t))))
  879. (gnus-header-newsgroups-face ((t (:foreground "SeaGreen3" :bold t :italic t))))
  880. (gnus-header-name-face ((t (:foreground "pink"))))
  881. (gnus-header-content-face ((t (:foreground "lime green" :italic t))))
  882. (gnus-cite-attribution-face ((t (:italic t))))
  883. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  884. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  885. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  886. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  887. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  888. (gnus-cite-face-6 ((t (:foreground "beige"))))
  889. (gnus-cite-face-7 ((t (:foreground "orange"))))
  890. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  891. (gnus-cite-face-9 ((t (:foreground "violet"))))
  892. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  893. (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
  894. (defun color-theme-sitaramv-nt ()
  895. "Black foreground on white background.
  896. Includes faces for font-lock, widget, custom, speedbar."
  897. (interactive)
  898. (color-theme-install
  899. '(color-theme-sitaramv-nt
  900. ((foreground-color . "black")
  901. (background-color . "white")
  902. (mouse-color . "sienna3")
  903. (cursor-color . "HotPink")
  904. (border-color . "Blue")
  905. (background-mode . light))
  906. (default ((t (nil))))
  907. (modeline ((t (:foreground "black" :background "gold2"))))
  908. (modeline-buffer-id ((t (:foreground "black" :background "gold2"))))
  909. (modeline-mousable ((t (:foreground "black" :background "gold2"))))
  910. (modeline-mousable-minor-mode ((t (:foreground "black" :background "gold2"))))
  911. (highlight ((t (:foreground "black" :background "darkseagreen2"))))
  912. (bold ((t (:bold t))))
  913. (italic ((t (:italic t))))
  914. (bold-italic ((t (:bold t :italic t))))
  915. (region ((t (:foreground "black" :background "snow3"))))
  916. (secondary-selection ((t (:background "paleturquoise"))))
  917. (underline ((t (:underline t))))
  918. (lazy-highlight-face ((t (:foreground "dark magenta" :bold t))))
  919. (font-lock-comment-face ((t (:foreground "ForestGreen" :italic t))))
  920. (font-lock-string-face ((t (:foreground "red"))))
  921. (font-lock-keyword-face ((t (:foreground "blue" :bold t))))
  922. (font-lock-builtin-face ((t (:foreground "black"))))
  923. (font-lock-function-name-face ((t (:foreground "dark magenta" :bold t))))
  924. (font-lock-variable-name-face ((t (:foreground "black"))))
  925. (font-lock-type-face ((t (:foreground "blue"))))
  926. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  927. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  928. (widget-documentation-face ((t (:foreground "dark green"))))
  929. (widget-button-face ((t (:bold t))))
  930. (widget-field-face ((t (:background "gray85"))))
  931. (widget-single-line-field-face ((t (:background "gray85"))))
  932. (widget-inactive-face ((t (:foreground "dim gray"))))
  933. (widget-button-pressed-face ((t (:foreground "red"))))
  934. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  935. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  936. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  937. (custom-set-face ((t (:foreground "blue" :background "white"))))
  938. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  939. (custom-saved-face ((t (:underline t))))
  940. (custom-button-face ((t (nil))))
  941. (custom-documentation-face ((t (nil))))
  942. (custom-state-face ((t (:foreground "dark green"))))
  943. (custom-variable-tag-face ((t (:foreground "blue" :underline t))))
  944. (custom-variable-button-face ((t (:bold t :underline t))))
  945. (custom-face-tag-face ((t (:underline t))))
  946. (custom-group-tag-face-1 ((t (:foreground "red" :underline t))))
  947. (custom-group-tag-face ((t (:foreground "blue" :underline t))))
  948. (speedbar-button-face ((t (:foreground "green4"))))
  949. (speedbar-file-face ((t (:foreground "cyan4"))))
  950. (speedbar-directory-face ((t (:foreground "blue4"))))
  951. (speedbar-tag-face ((t (:foreground "brown"))))
  952. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  953. (speedbar-highlight-face ((t (:background "green"))))
  954. (ff-paths-non-existant-file-face ((t (:foreground "NavyBlue" :bold t))))
  955. (show-paren-match-face ((t (:background "light blue"))))
  956. (show-paren-mismatch-face ((t (:foreground "white" :background "purple")))))))
  957. (defun color-theme-billw ()
  958. "Cornsilk on black.
  959. Includes info, diary, font-lock, eshell, sgml, message, gnus,
  960. widget, custom, latex, ediff."
  961. (interactive)
  962. (color-theme-install
  963. '(color-theme-billw
  964. ((foreground-color . "cornsilk")
  965. (background-color . "black")
  966. (mouse-color . "black")
  967. (cursor-color . "white")
  968. (border-color . "black")
  969. (background-mode . dark))
  970. (default ((t (nil))))
  971. (modeline ((t (:foreground "black" :background "wheat"))))
  972. (modeline-buffer-id ((t (:foreground "black" :background "wheat"))))
  973. (modeline-mousable ((t (:foreground "black" :background "wheat"))))
  974. (modeline-mousable-minor-mode ((t (:foreground "black" :background "wheat"))))
  975. (highlight ((t (:foreground "wheat" :background "darkslategray"))))
  976. (bold ((t (:bold t))))
  977. (italic ((t (:italic t))))
  978. (bold-italic ((t (:bold t :italic t))))
  979. (region ((t (:background "dimgray"))))
  980. (secondary-selection ((t (:background "deepskyblue4"))))
  981. (underline ((t (:underline t))))
  982. (info-node ((t (:foreground "yellow" :bold t :italic t))))
  983. (info-menu-5 ((t (:underline t))))
  984. (info-xref ((t (:foreground "yellow" :bold t))))
  985. (diary-face ((t (:foreground "orange"))))
  986. (calendar-today-face ((t (:underline t))))
  987. (holiday-face ((t (:background "red"))))
  988. (show-paren-match-face ((t (:background "deepskyblue4"))))
  989. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  990. (font-lock-comment-face ((t (:foreground "gold"))))
  991. (font-lock-string-face ((t (:foreground "orange"))))
  992. (font-lock-keyword-face ((t (:foreground "cyan1"))))
  993. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  994. (font-lock-function-name-face ((t (:foreground "mediumspringgreen"))))
  995. (font-lock-variable-name-face ((t (:foreground "light salmon"))))
  996. (font-lock-type-face ((t (:foreground "yellow1"))))
  997. (font-lock-constant-face ((t (:foreground "salmon"))))
  998. (font-lock-warning-face ((t (:foreground "gold" :bold t))))
  999. (blank-space-face ((t (:background "LightGray"))))
  1000. (blank-tab-face ((t (:foreground "black" :background "cornsilk"))))
  1001. (highline-face ((t (:background "gray35"))))
  1002. (eshell-ls-directory-face ((t (:foreground "green" :bold t))))
  1003. (eshell-ls-symlink-face ((t (:foreground "Cyan" :bold t))))
  1004. (eshell-ls-executable-face ((t (:foreground "orange" :bold t))))
  1005. (eshell-ls-readonly-face ((t (:foreground "gray"))))
  1006. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  1007. (eshell-ls-special-face ((t (:foreground "Magenta" :bold t))))
  1008. (eshell-ls-missing-face ((t (:foreground "Red" :bold t))))
  1009. (eshell-ls-archive-face ((t (:foreground "Orchid" :bold t))))
  1010. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  1011. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  1012. (eshell-ls-clutter-face ((t (:foreground "blue" :bold t))))
  1013. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  1014. (custom-button-face ((t (:foreground "white"))))
  1015. (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
  1016. (sgml-doctype-face ((t (:foreground "orange"))))
  1017. (sgml-sgml-face ((t (:foreground "yellow"))))
  1018. (vc-annotate-face-0046FF ((t (:foreground "wheat" :background "black"))))
  1019. (custom-documentation-face ((t (:foreground "white"))))
  1020. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  1021. (linemenu-face ((t (:background "gray30"))))
  1022. (sgml-entity-face ((t (:foreground "gold"))))
  1023. (message-header-to-face ((t (:foreground "floral white" :bold t))))
  1024. (message-header-cc-face ((t (:foreground "ivory"))))
  1025. (message-header-subject-face ((t (:foreground "papaya whip" :bold t))))
  1026. (message-header-newsgroups-face ((t (:foreground "lavender blush" :bold t :italic t))))
  1027. (message-header-other-face ((t (:foreground "pale turquoise"))))
  1028. (message-header-name-face ((t (:foreground "light sky blue"))))
  1029. (message-header-xheader-face ((t (:foreground "blue"))))
  1030. (message-separator-face ((t (:foreground "sandy brown"))))
  1031. (message-cited-text-face ((t (:foreground "plum1"))))
  1032. (message-mml-face ((t (:foreground "ForestGreen"))))
  1033. (gnus-group-news-1-face ((t (:foreground "white" :bold t))))
  1034. (gnus-group-news-1-empty-face ((t (:foreground "white"))))
  1035. (gnus-group-news-2-face ((t (:foreground "lightcyan" :bold t))))
  1036. (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
  1037. (gnus-group-news-3-face ((t (:foreground "tan" :bold t))))
  1038. (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
  1039. (gnus-group-news-4-face ((t (:foreground "white" :bold t))))
  1040. (gnus-group-news-4-empty-face ((t (:foreground "white"))))
  1041. (gnus-group-news-5-face ((t (:foreground "wheat" :bold t))))
  1042. (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
  1043. (gnus-group-news-6-face ((t (:foreground "tan" :bold t))))
  1044. (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
  1045. (gnus-group-news-low-face ((t (:foreground "DarkTurquoise" :bold t))))
  1046. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  1047. (gnus-group-mail-1-face ((t (:foreground "white" :bold t))))
  1048. (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
  1049. (gnus-group-mail-2-face ((t (:foreground "lightcyan" :bold t))))
  1050. (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
  1051. (gnus-group-mail-3-face ((t (:foreground "tan" :bold t))))
  1052. (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
  1053. (gnus-group-mail-low-face ((t (:foreground "aquamarine4" :bold t))))
  1054. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  1055. (gnus-summary-selected-face ((t (:background "deepskyblue4" :underline t))))
  1056. (gnus-summary-cancelled-face ((t (:foreground "black" :background "gray"))))
  1057. (gnus-summary-high-ticked-face ((t (:foreground "gray70" :bold t))))
  1058. (gnus-summary-low-ticked-face ((t (:foreground "gray70" :bold t))))
  1059. (gnus-summary-normal-ticked-face ((t (:foreground "gray70" :bold t))))
  1060. (gnus-summary-high-ancient-face ((t (:foreground "SkyBlue" :bold t))))
  1061. (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue" :italic t))))
  1062. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1063. (gnus-summary-high-unread-face ((t (:bold t))))
  1064. (gnus-summary-low-unread-face ((t (:italic t))))
  1065. (gnus-summary-normal-unread-face ((t (nil))))
  1066. (gnus-summary-high-read-face ((t (:foreground "PaleGreen" :bold t))))
  1067. (gnus-summary-low-read-face ((t (:foreground "PaleGreen" :italic t))))
  1068. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1069. (gnus-splash-face ((t (:foreground "gold"))))
  1070. (font-latex-bold-face ((t (nil))))
  1071. (font-latex-italic-face ((t (nil))))
  1072. (font-latex-math-face ((t (nil))))
  1073. (font-latex-sedate-face ((t (:foreground "Gray85"))))
  1074. (font-latex-string-face ((t (:foreground "orange"))))
  1075. (font-latex-warning-face ((t (:foreground "gold"))))
  1076. (widget-documentation-face ((t (:foreground "lime green"))))
  1077. (widget-button-face ((t (:bold t))))
  1078. (widget-field-face ((t (:background "gray20"))))
  1079. (widget-single-line-field-face ((t (:background "gray20"))))
  1080. (widget-inactive-face ((t (:foreground "wheat"))))
  1081. (widget-button-pressed-face ((t (:foreground "red"))))
  1082. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  1083. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  1084. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  1085. (custom-set-face ((t (:foreground "blue"))))
  1086. (custom-changed-face ((t (:foreground "wheat" :background "skyblue"))))
  1087. (custom-saved-face ((t (:underline t))))
  1088. (custom-state-face ((t (:foreground "light green"))))
  1089. (custom-variable-tag-face ((t (:foreground "skyblue" :underline t))))
  1090. (custom-variable-button-face ((t (:bold t :underline t))))
  1091. (custom-face-tag-face ((t (:foreground "white" :underline t))))
  1092. (custom-group-tag-face-1 ((t (:foreground "pink" :underline t))))
  1093. (custom-group-tag-face ((t (:foreground "skyblue" :underline t))))
  1094. (swbuff-current-buffer-face ((t (:foreground "red" :bold t))))
  1095. (ediff-current-diff-face-A ((t (:foreground "firebrick" :background "pale green"))))
  1096. (ediff-current-diff-face-B ((t (:foreground "DarkOrchid" :background "Yellow"))))
  1097. (ediff-current-diff-face-C ((t (:foreground "white" :background "indianred"))))
  1098. (ediff-current-diff-face-Ancestor ((t (:foreground "Black" :background "VioletRed"))))
  1099. (ediff-fine-diff-face-A ((t (:foreground "Navy" :background "sky blue"))))
  1100. (ediff-fine-diff-face-B ((t (:foreground "Black" :background "cyan"))))
  1101. (ediff-fine-diff-face-C ((t (:foreground "Black" :background "Turquoise"))))
  1102. (ediff-fine-diff-face-Ancestor ((t (:foreground "Black" :background "Green"))))
  1103. (ediff-even-diff-face-A ((t (:foreground "Black" :background "light grey"))))
  1104. (ediff-even-diff-face-B ((t (:foreground "White" :background "Grey"))))
  1105. (ediff-even-diff-face-C ((t (:foreground "Black" :background "light grey"))))
  1106. (ediff-even-diff-face-Ancestor ((t (:foreground "White" :background "Grey"))))
  1107. (ediff-odd-diff-face-A ((t (:foreground "White" :background "Grey"))))
  1108. (ediff-odd-diff-face-B ((t (:foreground "Black" :background "light grey"))))
  1109. (ediff-odd-diff-face-C ((t (:foreground "White" :background "Grey"))))
  1110. (ediff-odd-diff-face-Ancestor ((t (:foreground "Black" :background "light grey"))))
  1111. (gnus-emphasis-bold ((t (:bold t))))
  1112. (gnus-emphasis-italic ((t (:italic t))))
  1113. (gnus-emphasis-underline ((t (:foreground "white" :background "goldenrod4"))))
  1114. (gnus-emphasis-underline-bold ((t (:foreground "black" :background "yellow" :bold t :underline t))))
  1115. (gnus-emphasis-underline-italic ((t (:foreground "black" :background "yellow" :italic t :underline t))))
  1116. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  1117. (gnus-emphasis-underline-bold-italic ((t (:foreground "black" :background "yellow" :bold t :italic t :underline t))))
  1118. (gnus-emphasis-highlight-words ((t (:foreground "yellow" :background "black"))))
  1119. (gnus-signature-face ((t (:italic t))))
  1120. (gnus-header-from-face ((t (:foreground "wheat"))))
  1121. (gnus-header-subject-face ((t (:foreground "wheat" :bold t))))
  1122. (gnus-header-newsgroups-face ((t (:foreground "wheat" :italic t))))
  1123. (gnus-header-name-face ((t (:foreground "white"))))
  1124. (gnus-header-content-face ((t (:foreground "tan" :italic t))))
  1125. (gnus-filterhist-face-1 ((t (nil))))
  1126. (gnus-splash ((t (:foreground "Brown"))))
  1127. (gnus-cite-attribution-face ((t (:italic t))))
  1128. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  1129. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  1130. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  1131. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  1132. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1133. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1134. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1135. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1136. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1137. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  1138. (gnus-cite-face-11 ((t (:foreground "turquoise")))))))
  1139. (defun color-theme-retro-green (&optional color func)
  1140. "Plain green on black faces for those longing for the good old days."
  1141. (interactive)
  1142. ;; Build a list of faces without parameters
  1143. (let ((old-faces (face-list))
  1144. (faces)
  1145. (face)
  1146. (foreground (or color "green")))
  1147. (dolist (face old-faces)
  1148. (cond ((memq face '(bold bold-italic))
  1149. (add-to-list 'faces `(,face (( t (:bold t))))))
  1150. ((memq face '(italic underline show-paren-mismatch-face))
  1151. (add-to-list 'faces `(,face (( t (:underline t))))))
  1152. ((memq face '(modeline modeline-buffer-id modeline-mousable
  1153. modeline-mousable-minor-mode highlight region
  1154. secondary-selection show-paren-match-face))
  1155. (add-to-list 'faces `(,face (( t (:foreground "black"
  1156. :background ,foreground
  1157. :inverse t))))))
  1158. (t
  1159. (add-to-list 'faces `(,face (( t (nil))))))))
  1160. (color-theme-install
  1161. (append
  1162. (list (or func 'color-theme-retro-green)
  1163. (list (cons 'foreground-color foreground)
  1164. (cons 'background-color "black")
  1165. (cons 'mouse-color foreground)
  1166. (cons 'cursor-color foreground)
  1167. (cons 'border-color foreground)
  1168. (cons 'background-mode 'dark)))
  1169. faces))))
  1170. (defun color-theme-retro-orange ()
  1171. "Plain orange on black faces for those longing for the good old days."
  1172. (interactive)
  1173. (color-theme-retro-green "orange" 'color-theme-retro-orange))
  1174. (defun color-theme-subtle-hacker ()
  1175. "Subtle Hacker Color Theme.
  1176. Based on gnome2, but uses white for important things like comments,
  1177. and less of the unreadable tomato. By Colin Walters <levanti@verbum.org>"
  1178. (interactive)
  1179. (color-theme-gnome2)
  1180. (let ((color-theme-is-cumulative t))
  1181. (color-theme-install
  1182. '(color-theme-subtle-hacker
  1183. nil
  1184. nil
  1185. (custom-state-face ((t (:foreground "Coral"))))
  1186. (diary-face ((t (:bold t :foreground "IndianRed"))))
  1187. (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray"))))
  1188. (eshell-ls-executable-face ((t (:bold t :foreground "Coral"))))
  1189. (eshell-ls-missing-face ((t (:bold t :foreground "black"))))
  1190. (eshell-ls-special-face ((t (:bold t :foreground "Gold"))))
  1191. (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
  1192. (font-lock-comment-face ((t (:foreground "White"))))
  1193. (font-lock-constant-face ((t (:bold t :foreground "Aquamarine"))))
  1194. (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue"))))
  1195. (font-lock-string-face ((t (:italic t :foreground "LightSalmon"))))
  1196. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine"))))
  1197. (gnus-cite-face-1 ((t (:foreground "dark khaki"))))
  1198. (gnus-cite-face-2 ((t (:foreground "chocolate"))))
  1199. (gnus-cite-face-3 ((t (:foreground "tomato"))))
  1200. (gnus-group-mail-1-empty-face ((t (:foreground "light cyan"))))
  1201. (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
  1202. (gnus-group-mail-2-empty-face ((t (:foreground "turquoise"))))
  1203. (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
  1204. (gnus-group-mail-3-empty-face ((t (:foreground "tomato"))))
  1205. (gnus-group-mail-3-face ((t (:bold t :foreground "tomato"))))
  1206. (gnus-group-mail-low-empty-face ((t (:foreground "dodger blue"))))
  1207. (gnus-group-mail-low-face ((t (:bold t :foreground "dodger blue"))))
  1208. (gnus-group-news-1-empty-face ((t (:foreground "green yellow"))))
  1209. (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
  1210. (gnus-group-news-2-empty-face ((t (:foreground "dark orange"))))
  1211. (gnus-group-news-2-face ((t (:bold t :foreground "dark orange"))))
  1212. (gnus-group-news-3-empty-face ((t (:foreground "tomato"))))
  1213. (gnus-group-news-3-face ((t (:bold t :foreground "tomato"))))
  1214. (gnus-group-news-low-empty-face ((t (:foreground "yellow green"))))
  1215. (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
  1216. (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1"))))
  1217. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  1218. (gnus-signature-face ((t (:foreground "salmon"))))
  1219. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1220. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  1221. (gnus-summary-high-read-face ((t (:bold t :foreground "forest green"))))
  1222. (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
  1223. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "cyan"))))
  1224. (gnus-summary-low-ancient-face ((t (:italic t :foreground "chocolate"))))
  1225. (gnus-summary-low-read-face ((t (:foreground "light sea green"))))
  1226. (gnus-summary-low-ticked-face ((t (:italic t :foreground "chocolate"))))
  1227. (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
  1228. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  1229. (gnus-summary-normal-read-face ((t (:foreground "khaki"))))
  1230. (gnus-summary-normal-ticked-face ((t (:foreground "sandy brown"))))
  1231. (gnus-summary-normal-unread-face ((t (:foreground "aquamarine"))))
  1232. (message-cited-text-face ((t (:foreground "White"))))
  1233. (message-header-name-face ((t (:foreground "DodgerBlue1"))))
  1234. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  1235. (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
  1236. (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))))))
  1237. (defun color-theme-pok-wog ()
  1238. "Low-contrast White-on-Gray by S.Pokrovsky.
  1239. The following might be a good addition to your .Xdefaults file:
  1240. Emacs.pane.menubar.background: darkGrey
  1241. Emacs.pane.menubar.foreground: black"
  1242. (interactive)
  1243. (color-theme-install
  1244. '(color-theme-pok-wog
  1245. ((foreground-color . "White")
  1246. (background-color . "DarkSlateGray")
  1247. (mouse-color . "gold")
  1248. (cursor-color . "Cyan")
  1249. (border-color . "black")
  1250. (background-mode . dark))
  1251. (default ((t (nil))))
  1252. (bold ((t (:bold t :foreground "Wheat"))))
  1253. (bold-italic ((t (:italic t :bold t :foreground "wheat"))))
  1254. (calendar-today-face ((t (:underline t :foreground "white"))))
  1255. (diary-face ((t (:foreground "red"))))
  1256. (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
  1257. (font-lock-comment-face ((t (:foreground "Gold"))))
  1258. (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
  1259. (font-lock-function-name-face ((t (:bold t :foreground "Yellow"))))
  1260. (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
  1261. (font-lock-string-face ((t (:foreground "Khaki"))))
  1262. (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
  1263. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  1264. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  1265. (gnus-cite-attribution-face ((t (:bold t :foreground "Wheat"))))
  1266. (gnus-cite-face-1 ((t (:foreground "wheat"))))
  1267. (gnus-cite-face-10 ((t (:foreground "wheat"))))
  1268. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1269. (gnus-cite-face-2 ((t (:foreground "cyan"))))
  1270. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  1271. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  1272. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1273. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1274. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1275. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1276. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1277. (gnus-emphasis-bold ((t (:bold t :foreground "wheat"))))
  1278. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  1279. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  1280. (gnus-emphasis-italic ((t (:italic t :foreground "white"))))
  1281. (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
  1282. (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "wheat"))))
  1283. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  1284. (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
  1285. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  1286. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  1287. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  1288. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  1289. (gnus-group-mail-3-empty-face ((t (:foreground "Salmon"))))
  1290. (gnus-group-mail-3-face ((t (:bold t :foreground "gold"))))
  1291. (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
  1292. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  1293. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  1294. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  1295. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  1296. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  1297. (gnus-group-news-3-empty-face ((t (nil))))
  1298. (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
  1299. (gnus-group-news-4-empty-face ((t (nil))))
  1300. (gnus-group-news-4-face ((t (:bold t))))
  1301. (gnus-group-news-5-empty-face ((t (nil))))
  1302. (gnus-group-news-5-face ((t (:bold t))))
  1303. (gnus-group-news-6-empty-face ((t (nil))))
  1304. (gnus-group-news-6-face ((t (:bold t))))
  1305. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  1306. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  1307. (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
  1308. (gnus-header-from-face ((t (:foreground "light yellow"))))
  1309. (gnus-header-name-face ((t (:foreground "cyan"))))
  1310. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
  1311. (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
  1312. (gnus-signature-face ((t (:italic t :foreground "wheat"))))
  1313. (gnus-splash-face ((t (:foreground "orange"))))
  1314. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1315. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  1316. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  1317. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  1318. (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
  1319. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  1320. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  1321. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  1322. (gnus-summary-low-unread-face ((t (:italic t))))
  1323. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1324. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1325. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  1326. (gnus-summary-normal-unread-face ((t (:foreground "wheat"))))
  1327. (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
  1328. (highlight ((t (:background "Blue" :foreground "white"))))
  1329. (highline-face ((t (:background "black" :foreground "white"))))
  1330. (holiday-face ((t (:background "pink" :foreground "white"))))
  1331. (info-menu-5 ((t (:underline t))))
  1332. (info-node ((t (:italic t :bold t :foreground "white"))))
  1333. (info-xref ((t (:bold t :foreground "wheat"))))
  1334. (italic ((t (:italic t :foreground "white"))))
  1335. (makefile-space-face ((t (:background "hotpink"))))
  1336. (message-cited-text-face ((t (:foreground "green"))))
  1337. (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
  1338. (message-header-name-face ((t (:foreground "Gold"))))
  1339. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  1340. (message-header-other-face ((t (:foreground "lightGray"))))
  1341. (message-header-subject-face ((t (:foreground "Yellow"))))
  1342. (message-header-to-face ((t (:bold t :foreground "green2"))))
  1343. (message-header-xheader-face ((t (:foreground "blue"))))
  1344. (message-mml-face ((t (:bold t :foreground "khaki"))))
  1345. (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
  1346. (modeline ((t (:background "DarkGray" :foreground "Black"))))
  1347. (modeline-buffer-id ((t (:background "DarkGray" :foreground "Black"))))
  1348. (modeline-mousable ((t (:background "DarkGray" :foreground "Black"))))
  1349. (modeline-mousable-minor-mode ((t (:background "DarkGray" :foreground "Black"))))
  1350. (paren-mismatch-face ((t (:background "DeepPink" :foreground "white"))))
  1351. (paren-no-match-face ((t (:background "yellow" :foreground "white"))))
  1352. (region ((t (:background "MediumSlateBlue" :foreground "white"))))
  1353. (secondary-selection ((t (:background "Sienna" :foreground "white"))))
  1354. (show-paren-match-face ((t (:background "turquoise" :foreground "white"))))
  1355. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1356. (speedbar-button-face ((t (:bold t :foreground "magenta"))))
  1357. (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
  1358. (speedbar-file-face ((t (:foreground "pink"))))
  1359. (speedbar-highlight-face ((t (:background "black"))))
  1360. (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
  1361. (speedbar-tag-face ((t (:foreground "yellow"))))
  1362. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  1363. (underline ((t (:underline t :foreground "white"))))
  1364. (widget-button-face ((t (:bold t :foreground "wheat"))))
  1365. (widget-button-pressed-face ((t (:foreground "red"))))
  1366. (widget-documentation-face ((t (:foreground "lime green"))))
  1367. (widget-field-face ((t (:background "dim gray" :foreground "white"))))
  1368. (widget-inactive-face ((t (:foreground "light gray"))))
  1369. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
  1370. (defun color-theme-pok-wob ()
  1371. "White-on-Black by S. Pokrovsky.
  1372. The following might be a good addition to your .Xdefaults file:
  1373. Emacs.pane.menubar.background: darkGrey
  1374. Emacs.pane.menubar.foreground: black"
  1375. (interactive)
  1376. ; (setq term-default-fg-color "white"
  1377. ; term-default-bg "black")
  1378. (color-theme-install
  1379. '(color-theme-pok-wob
  1380. ((foreground-color . "white")
  1381. (background-color . "black")
  1382. (mouse-color . "gold")
  1383. (cursor-color . "yellow")
  1384. (border-color . "black")
  1385. (background-mode . dark))
  1386. (default ((t (nil))))
  1387. (bold ((t (:bold t :foreground "light gray"))))
  1388. (bold-italic ((t (:italic t :bold t :foreground "cyan"))))
  1389. (calendar-today-face ((t (:underline t :foreground "white"))))
  1390. (custom-button-face ((t (nil))))
  1391. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1392. (custom-documentation-face ((t (nil))))
  1393. (custom-face-tag-face ((t (:underline t))))
  1394. (custom-group-tag-face ((t (:underline t))))
  1395. (custom-group-tag-face-1 ((t (:underline t))))
  1396. (custom-invalid-face ((t (:background "red" :foreground "white"))))
  1397. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1398. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1399. (custom-saved-face ((t (:underline t))))
  1400. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1401. (custom-state-face ((t (nil))))
  1402. (custom-variable-button-face ((t (:underline t :bold t))))
  1403. (custom-variable-tag-face ((t (:underline t))))
  1404. (diary-face ((t (:foreground "gold"))))
  1405. (font-lock-builtin-face ((t (:bold t :foreground "cyan"))))
  1406. (font-lock-comment-face ((t (:foreground "Gold"))))
  1407. (font-lock-constant-face ((t (:bold t :foreground "LightSteelBlue"))))
  1408. (font-lock-function-name-face ((t (:bold t :foreground "gold"))))
  1409. (font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
  1410. (font-lock-string-face ((t (:foreground "Khaki"))))
  1411. (font-lock-type-face ((t (:bold t :foreground "Cyan"))))
  1412. (font-lock-variable-name-face ((t (:italic t :foreground "gold"))))
  1413. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  1414. (gnus-cite-attribution-face ((t (:underline t :foreground "beige"))))
  1415. (gnus-cite-face-1 ((t (:foreground "gold"))))
  1416. (gnus-cite-face-10 ((t (:foreground "coral"))))
  1417. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1418. (gnus-cite-face-2 ((t (:foreground "wheat"))))
  1419. (gnus-cite-face-3 ((t (:foreground "light pink"))))
  1420. (gnus-cite-face-4 ((t (:foreground "khaki"))))
  1421. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  1422. (gnus-cite-face-6 ((t (:foreground "beige"))))
  1423. (gnus-cite-face-7 ((t (:foreground "orange"))))
  1424. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1425. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1426. (gnus-emphasis-bold ((t (:bold t :foreground "light gray"))))
  1427. (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan"))))
  1428. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "gold"))))
  1429. (gnus-emphasis-italic ((t (:italic t :foreground "cyan"))))
  1430. (gnus-emphasis-underline ((t (:underline t :foreground "white"))))
  1431. (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "white"))))
  1432. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "white"))))
  1433. (gnus-emphasis-underline-italic ((t (:underline t :italic t :foreground "white"))))
  1434. (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
  1435. (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta"))))
  1436. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  1437. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  1438. (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
  1439. (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan"))))
  1440. (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
  1441. (gnus-group-mail-low-face ((t (:foreground "aquamarine4"))))
  1442. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  1443. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  1444. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  1445. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  1446. (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
  1447. (gnus-group-news-3-face ((t (:bold t :foreground "Wheat"))))
  1448. (gnus-group-news-4-empty-face ((t (nil))))
  1449. (gnus-group-news-4-face ((t (:bold t))))
  1450. (gnus-group-news-5-empty-face ((t (nil))))
  1451. (gnus-group-news-5-face ((t (:bold t))))
  1452. (gnus-group-news-6-empty-face ((t (nil))))
  1453. (gnus-group-news-6-face ((t (:bold t))))
  1454. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  1455. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
  1456. (gnus-header-content-face ((t (:italic t :foreground "Wheat"))))
  1457. (gnus-header-from-face ((t (:foreground "light yellow"))))
  1458. (gnus-header-name-face ((t (:foreground "Wheat"))))
  1459. (gnus-header-newsgroups-face ((t (:italic t :foreground "gold"))))
  1460. (gnus-header-subject-face ((t (:bold t :foreground "Gold"))))
  1461. (gnus-signature-face ((t (:italic t :foreground "white"))))
  1462. (gnus-splash-face ((t (:foreground "orange"))))
  1463. (gnus-summary-cancelled-face ((t (:background "black" :foreground "orange"))))
  1464. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  1465. (gnus-summary-high-read-face ((t (:bold t :foreground "red"))))
  1466. (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral"))))
  1467. (gnus-summary-high-unread-face ((t (:bold t :foreground "gold"))))
  1468. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  1469. (gnus-summary-low-read-face ((t (:italic t :foreground "red"))))
  1470. (gnus-summary-low-ticked-face ((t (:italic t :foreground "coral"))))
  1471. (gnus-summary-low-unread-face ((t (:italic t :foreground "white"))))
  1472. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  1473. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  1474. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  1475. (gnus-summary-normal-unread-face ((t (:foreground "white"))))
  1476. (gnus-summary-selected-face ((t (:underline t :foreground "white"))))
  1477. (highlight ((t (:background "Blue" :foreground "white"))))
  1478. (highline-face ((t (:background "dark slate gray" :foreground "white"))))
  1479. (holiday-face ((t (:background "red" :foreground "white"))))
  1480. (info-menu-5 ((t (:underline t))))
  1481. (info-node ((t (:italic t :bold t :foreground "white"))))
  1482. (info-xref ((t (:bold t :foreground "light gray"))))
  1483. (italic ((t (:italic t :foreground "cyan"))))
  1484. (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
  1485. (message-cited-text-face ((t (:foreground "green"))))
  1486. (message-header-cc-face ((t (:bold t :foreground "Aquamarine"))))
  1487. (message-header-name-face ((t (:foreground "Gold"))))
  1488. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
  1489. (message-header-other-face ((t (:foreground "lightGray"))))
  1490. (message-header-subject-face ((t (:foreground "Yellow"))))
  1491. (message-header-to-face ((t (:bold t :foreground "green2"))))
  1492. (message-header-xheader-face ((t (:foreground "sky blue"))))
  1493. (message-mml-face ((t (:bold t :foreground "khaki"))))
  1494. (message-separator-face ((t (:background "aquamarine" :foreground "black"))))
  1495. (modeline ((t (:background "dark gray" :foreground "black"))))
  1496. (modeline-buffer-id ((t (:background "dark gray" :foreground "black"))))
  1497. (modeline-mousable ((t (:background "dark gray" :foreground "black"))))
  1498. (modeline-mousable-minor-mode ((t (:background "dark gray" :foreground "black"))))
  1499. (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  1500. (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
  1501. (region ((t (:background "MediumSlateBlue" :foreground "white"))))
  1502. (secondary-selection ((t (:background "Sienna" :foreground "white"))))
  1503. (show-paren-match-face ((t (:background "purple" :foreground "white"))))
  1504. (show-paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  1505. (speedbar-button-face ((t (nil))))
  1506. (speedbar-directory-face ((t (nil))))
  1507. (speedbar-file-face ((t (:bold t))))
  1508. (speedbar-highlight-face ((t (nil))))
  1509. (speedbar-selected-face ((t (:underline t))))
  1510. (speedbar-tag-face ((t (nil))))
  1511. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  1512. (underline ((t (:underline t :foreground "white"))))
  1513. (widget-button-face ((t (:bold t :foreground "coral"))))
  1514. (widget-button-pressed-face ((t (:foreground "red"))))
  1515. (widget-documentation-face ((t (:foreground "lime green"))))
  1516. (widget-field-face ((t (:background "dim gray" :foreground "white"))))
  1517. (widget-inactive-face ((t (:foreground "light gray"))))
  1518. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white")))))))
  1519. (defun color-theme-blue-sea ()
  1520. "The grey on midnight blue theme.
  1521. Includes faces for apropos, font-lock (Emacs and XEmacs), speedbar,
  1522. custom, widget, info, flyspell, gnus, message, man, woman, dired.
  1523. This is what you should put in your .Xdefaults file, if you want to
  1524. change the colors of the menus:
  1525. emacs*Background: DarkSlateGray
  1526. emacs*Foreground: Wheat"
  1527. (interactive)
  1528. (color-theme-blue-gnus)
  1529. (let ((color-theme-is-cumulative t))
  1530. (color-theme-blue-erc)
  1531. (color-theme-install
  1532. '(color-theme-blue-sea
  1533. ((background-color . "MidnightBlue")
  1534. (background-mode . dark)
  1535. (border-color . "Grey")
  1536. (cursor-color . "Grey")
  1537. (foreground-color . "Grey")
  1538. (mouse-color . "Grey"))
  1539. ((Man-overstrike-face . woman-bold-face)
  1540. (Man-underline-face . woman-italic-face))
  1541. (default ((t (nil))))
  1542. (bold ((t (:bold t))))
  1543. (bold-italic ((t (:bold t :foreground "beige"))))
  1544. (calendar-today-face ((t (:underline t))))
  1545. (cperl-array-face ((t (:foreground "light salmon" :bold t))))
  1546. (cperl-hash-face ((t (:foreground "beige" :bold t :italic t))))
  1547. (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
  1548. (custom-button-face ((t (:foreground "gainsboro"))))
  1549. (custom-changed-face ((t (:foreground "white" :background "blue"))))
  1550. (custom-documentation-face ((t (:foreground "light blue"))))
  1551. (custom-face-tag-face ((t (:underline t))))
  1552. (custom-group-tag-face ((t (:foreground "pale turquoise" :bold t))))
  1553. (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
  1554. (custom-invalid-face ((t (:foreground "yellow" :background "red"))))
  1555. (custom-modified-face ((t (:foreground "white" :background "blue"))))
  1556. (custom-rogue-face ((t (:foreground "pink" :background "black"))))
  1557. (custom-saved-face ((t (:underline t))))
  1558. (custom-set-face ((t (:foreground "blue" :background "white"))))
  1559. (custom-state-face ((t (:foreground "light salmon"))))
  1560. (custom-variable-button-face ((t (:bold t :underline t))))
  1561. (custom-variable-tag-face ((t (:foreground "turquoise" :bold t))))
  1562. (diary-face ((t (:foreground "red"))))
  1563. (dired-face-directory ((t (:bold t :foreground "sky blue"))))
  1564. (dired-face-permissions ((t (:foreground "aquamarine"))))
  1565. (dired-face-flagged ((t (:foreground "tomato"))))
  1566. (dired-face-marked ((t (:foreground "light salmon"))))
  1567. (dired-face-executable ((t (:foreground "green yellow"))))
  1568. (eshell-ls-archive-face ((t (:bold t :foreground "medium purple"))))
  1569. (eshell-ls-backup-face ((t (:foreground "dim gray"))))
  1570. (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
  1571. (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue"))))
  1572. (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine"))))
  1573. (eshell-ls-missing-face ((t (:foreground "black"))))
  1574. (eshell-ls-picture-face ((t (:foreground "violet"))))
  1575. (eshell-ls-product-face ((t (:foreground "light steel blue"))))
  1576. (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
  1577. (eshell-ls-special-face ((t (:foreground "gold"))))
  1578. (eshell-ls-symlink-face ((t (:foreground "white"))))
  1579. (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
  1580. (eshell-prompt-face ((t (:foreground "light sky blue" :bold t))))
  1581. (excerpt ((t (:italic t))))
  1582. (fixed ((t (:bold t))))
  1583. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t))))
  1584. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  1585. (font-lock-builtin-face ((t (:foreground "aquamarine"))))
  1586. (font-lock-comment-face ((t (:foreground "light blue"))))
  1587. (font-lock-constant-face ((t (:foreground "pale green"))))
  1588. (font-lock-doc-string-face ((t (:foreground "sky blue"))))
  1589. (font-lock-function-name-face ((t (:bold t :foreground "aquamarine"))))
  1590. (font-lock-keyword-face ((t (:foreground "pale turquoise" :bold t))))
  1591. (font-lock-reference-face ((t (:foreground "pale green"))))
  1592. (font-lock-string-face ((t (:foreground "light sky blue"))))
  1593. (font-lock-type-face ((t (:foreground "sky blue" :bold t))))
  1594. (font-lock-variable-name-face ((t (:foreground "turquoise" :bold t))))
  1595. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  1596. (fringe ((t (:background "MidnightBlue"))))
  1597. (header-line ((t (:background "#002" :foreground "cornflower blue"))))
  1598. (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
  1599. (highline-face ((t (:background "DeepSkyBlue4"))))
  1600. (holiday-face ((t (:background "pink"))))
  1601. (info-menu-5 ((t (:underline t))))
  1602. (info-node ((t (:bold t))))
  1603. (info-xref ((t (:bold t :foreground "sky blue"))))
  1604. (isearch ((t (:background "slate blue"))))
  1605. (italic ((t (:foreground "sky blue"))))
  1606. (makefile-space-face ((t (:background "hotpink"))))
  1607. (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
  1608. (modeline ((t (:foreground "wheat" :background "slate blue"))))
  1609. (mode-line-inactive ((t (:background "dark slate blue" :foreground "wheat"))))
  1610. (modeline-buffer-id ((t (:foreground "beige" :background "slate blue"))))
  1611. (modeline-mousable ((t (:foreground "light cyan" :background "slate blue"))))
  1612. (modeline-mousable-minor-mode ((t (:foreground "wheat" :background "slate blue"))))
  1613. (region ((t (:background "DarkSlateBlue"))))
  1614. (secondary-selection ((t (:background "steel blue"))))
  1615. (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
  1616. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  1617. (speedbar-button-face ((t (:foreground "seashell2"))))
  1618. (speedbar-directory-face ((t (:foreground "seashell3"))))
  1619. (speedbar-file-face ((t (:foreground "seashell4"))))
  1620. (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
  1621. (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
  1622. (speedbar-tag-face ((t (:foreground "antique white"))))
  1623. (tool-bar ((t (:background "MidnightBlue" :foreground "Grey" :box (:line-width 1 :style released-button)))))
  1624. (underline ((t (:underline t))))
  1625. (widget-button-face ((t (:bold t))))
  1626. (widget-button-pressed-face ((t (:foreground "red"))))
  1627. (widget-documentation-face ((t (:foreground "light blue"))))
  1628. (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
  1629. (widget-inactive-face ((t (:foreground "dim gray"))))
  1630. (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
  1631. (woman-bold-face ((t (:foreground "sky blue" :bold t))))
  1632. (woman-italic-face ((t (:foreground "deep sky blue"))))
  1633. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  1634. (zmacs-region ((t (:background "DarkSlateBlue"))))))))
  1635. (defun color-theme-rotor ()
  1636. "Black on Beige color theme by Jinwei Shen, created 2000-06-08.
  1637. Supports default faces, font-lock, custom, widget, message, man,
  1638. show-paren, viper."
  1639. (interactive)
  1640. (color-theme-install
  1641. '(color-theme-rotor
  1642. ((background-color . "Beige")
  1643. (background-mode . light)
  1644. (border-color . "black")
  1645. (cursor-color . "Maroon")
  1646. (foreground-color . "Black")
  1647. (mouse-color . "Black"))
  1648. ((Man-overstrike-face . font-lock-function-name-face)
  1649. (Man-underline-face . font-lock-type-face)
  1650. (list-matching-lines-face . bold)
  1651. (rmail-highlight-face . font-lock-function-name-face)
  1652. (watson-attribution-face . italic)
  1653. (watson-url-face . bold)
  1654. (watson-url-mouse-face . highlight))
  1655. (default ((t (nil))))
  1656. (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
  1657. (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
  1658. (custom-button-face ((t (nil))))
  1659. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1660. (custom-documentation-face ((t (nil))))
  1661. (custom-face-tag-face ((t (:underline t))))
  1662. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1663. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1664. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1665. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1666. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1667. (custom-saved-face ((t (:underline t))))
  1668. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1669. (custom-state-face ((t (:foreground "dark green"))))
  1670. (custom-variable-button-face ((t (:underline t :bold t))))
  1671. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1672. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1673. (font-lock-comment-face ((t (:foreground "MediumBlue"))))
  1674. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  1675. (font-lock-function-name-face ((t (:foreground "MediumSlateBlue"))))
  1676. (font-lock-keyword-face ((t (:foreground "#80a0ff"))))
  1677. (font-lock-string-face ((t (:foreground "red"))))
  1678. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  1679. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  1680. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1681. (highlight ((t (:background "PaleGreen" :foreground "black"))))
  1682. (italic ((t (:italic t :foreground "yellow3"))))
  1683. (message-cited-text-face ((t (:foreground "red"))))
  1684. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  1685. (message-header-name-face ((t (:foreground "cornflower blue"))))
  1686. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  1687. (message-header-other-face ((t (:foreground "steel blue"))))
  1688. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  1689. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  1690. (message-header-xheader-face ((t (:foreground "blue"))))
  1691. (message-separator-face ((t (:foreground "brown"))))
  1692. (modeline ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1693. (modeline-buffer-id ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1694. (modeline-mousable ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1695. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "DarkOliveGreen"))))
  1696. (nil ((t (nil))))
  1697. (region ((t (:background "dark cyan" :foreground "cyan"))))
  1698. (secondary-selection ((t (:background "Turquoise" :foreground "black"))))
  1699. (show-paren-match-face ((t (:background "turquoise"))))
  1700. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1701. (underline ((t (:underline t))))
  1702. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  1703. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  1704. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  1705. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  1706. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  1707. (widget-button-face ((t (:bold t))))
  1708. (widget-button-pressed-face ((t (:foreground "red"))))
  1709. (widget-documentation-face ((t (:foreground "dark green"))))
  1710. (widget-field-face ((t (:background "gray85"))))
  1711. (widget-inactive-face ((t (:foreground "dim gray"))))
  1712. (widget-single-line-field-face ((t (:background "gray85")))))))
  1713. (defun color-theme-pierson ()
  1714. "Black on White color theme by Dan L. Pierson, created 2000-06-08.
  1715. Supports default faces, font-lock, show-paren."
  1716. (interactive)
  1717. (color-theme-install
  1718. '(color-theme-pierson
  1719. ((background-color . "AntiqueWhite")
  1720. (background-mode . light)
  1721. (border-color . "black")
  1722. (cursor-color . "Orchid")
  1723. (foreground-color . "black")
  1724. (mouse-color . "Orchid"))
  1725. ((list-matching-lines-face . bold))
  1726. (default ((t (nil))))
  1727. (bold ((t (:bold t))))
  1728. (bold-italic ((t (:italic t :bold t))))
  1729. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1730. (font-lock-comment-face ((t (:foreground "ForestGreen"))))
  1731. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  1732. (font-lock-function-name-face ((t (:foreground "blue3"))))
  1733. (font-lock-keyword-face ((t (:foreground "Blue"))))
  1734. (font-lock-string-face ((t (:foreground "Firebrick"))))
  1735. (font-lock-type-face ((t (:foreground "Purple"))))
  1736. (font-lock-variable-name-face ((t (:foreground "blue3"))))
  1737. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1738. (highlight ((t (:background "darkseagreen2"))))
  1739. (italic ((t (:italic t))))
  1740. (modeline ((t (:foreground "antiquewhite" :background "black"))))
  1741. (modeline-mousable-minor-mode ((t (:foreground "antiquewhite" :background "black"))))
  1742. (modeline-mousable ((t (:foreground "antiquewhite" :background "black"))))
  1743. (modeline-buffer-id ((t (:foreground "antiquewhite" :background "black"))))
  1744. (region ((t (:background "gray"))))
  1745. (secondary-selection ((t (:background "paleturquoise"))))
  1746. (show-paren-match-face ((t (:background "turquoise"))))
  1747. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  1748. (underline ((t (:underline t)))))))
  1749. (defun color-theme-xemacs ()
  1750. "XEmacs standard colors.
  1751. If you are missing standard faces in this theme, please notify the maintainer.
  1752. Currently, this theme includes the standard faces and font-lock faces, including
  1753. some faces used in Emacs only but which are needed to recreate the look of the
  1754. XEmacs color theme."
  1755. (interactive)
  1756. (color-theme-install
  1757. '(color-theme-xemacs
  1758. ((background-color . "gray80")
  1759. (background-mode . light)
  1760. (background-toolbar-color . "#cf3ccf3ccf3c")
  1761. (border-color . "#000000000000")
  1762. (bottom-toolbar-shadow-color . "#79e77df779e7")
  1763. (cursor-color . "Red3")
  1764. (foreground-color . "black")
  1765. (top-toolbar-shadow-color . "#fffffbeeffff"))
  1766. (default ((t (nil))))
  1767. (blue ((t (:foreground "blue"))))
  1768. (bold ((t (:bold t))))
  1769. (bold-italic ((t (:italic t :bold t))))
  1770. (border-glyph ((t (nil))))
  1771. (custom-button-face ((t (:bold t))))
  1772. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1773. (custom-documentation-face ((t (nil))))
  1774. (custom-face-tag-face ((t (:underline t))))
  1775. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1776. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1777. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1778. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1779. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1780. (custom-saved-face ((t (:underline t))))
  1781. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1782. (custom-state-face ((t (:foreground "dark green"))))
  1783. (custom-variable-button-face ((t (:underline t :bold t))))
  1784. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1785. (dired-face-boring ((t (:foreground "Gray65"))))
  1786. (dired-face-directory ((t (:bold t))))
  1787. (dired-face-executable ((t (:foreground "SeaGreen"))))
  1788. (dired-face-flagged ((t (:background "LightSlateGray"))))
  1789. (dired-face-marked ((t (:background "PaleVioletRed"))))
  1790. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  1791. (dired-face-setuid ((t (:foreground "Red"))))
  1792. (dired-face-socket ((t (:foreground "magenta"))))
  1793. (dired-face-symlink ((t (:foreground "cyan"))))
  1794. (font-lock-builtin-face ((t (:foreground "red3"))))
  1795. (font-lock-comment-face ((t (:foreground "blue4"))))
  1796. (font-lock-constant-face ((t (:foreground "red3"))))
  1797. (font-lock-doc-string-face ((t (:foreground "green4"))))
  1798. (font-lock-function-name-face ((t (:foreground "brown4"))))
  1799. (font-lock-keyword-face ((t (:foreground "red4"))))
  1800. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  1801. (font-lock-reference-face ((t (:foreground "red3"))))
  1802. (font-lock-string-face ((t (:foreground "green4"))))
  1803. (font-lock-type-face ((t (:foreground "steelblue"))))
  1804. (font-lock-variable-name-face ((t (:foreground "magenta4"))))
  1805. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1806. (green ((t (:foreground "green"))))
  1807. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  1808. (gui-element ((t (:background "Gray80"))))
  1809. (highlight ((t (:background "darkseagreen2"))))
  1810. (info-node ((t (:italic t :bold t))))
  1811. (info-xref ((t (:bold t))))
  1812. (isearch ((t (:background "paleturquoise"))))
  1813. (italic ((t (:italic t))))
  1814. (left-margin ((t (nil))))
  1815. (list-mode-item-selected ((t (:background "gray68"))))
  1816. (modeline ((t (:background "Gray80"))))
  1817. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  1818. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  1819. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  1820. (paren-blink-off ((t (:foreground "gray80"))))
  1821. (paren-match ((t (:background "darkseagreen2"))))
  1822. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  1823. (pointer ((t (nil))))
  1824. (primary-selection ((t (:background "gray65"))))
  1825. (red ((t (:foreground "red"))))
  1826. (region ((t (:background "gray65"))))
  1827. (right-margin ((t (nil))))
  1828. (secondary-selection ((t (:background "paleturquoise"))))
  1829. (text-cursor ((t (:background "Red3" :foreground "gray80"))))
  1830. (toolbar ((t (:background "Gray80"))))
  1831. (underline ((t (:underline t))))
  1832. (vertical-divider ((t (:background "Gray80"))))
  1833. (widget-button-face ((t (:bold t))))
  1834. (widget-button-pressed-face ((t (:foreground "red"))))
  1835. (widget-documentation-face ((t (:foreground "dark green"))))
  1836. (widget-field-face ((t (:background "gray85"))))
  1837. (widget-inactive-face ((t (:foreground "dim gray"))))
  1838. (yellow ((t (:foreground "yellow"))))
  1839. (zmacs-region ((t (:background "gray65")))))))
  1840. (defun color-theme-jsc-light ()
  1841. "Color theme by John S Cooper, created 2000-06-08."
  1842. (interactive)
  1843. (color-theme-install
  1844. '(color-theme-jsc-light
  1845. ((background-color . "white")
  1846. (background-mode . light)
  1847. (border-color . "black")
  1848. (cursor-color . "Red")
  1849. (foreground-color . "black")
  1850. (mouse-color . "black"))
  1851. ((gnus-mouse-face . highlight)
  1852. (list-matching-lines-face . bold)
  1853. (view-highlight-face . highlight))
  1854. (default ((t (nil))))
  1855. (bold ((t (:bold t :foreground "red3"))))
  1856. (bold-italic ((t (:italic t :bold t :foreground "red"))))
  1857. (custom-button-face ((t (nil))))
  1858. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  1859. (custom-documentation-face ((t (nil))))
  1860. (custom-face-tag-face ((t (:underline t))))
  1861. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  1862. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  1863. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  1864. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  1865. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  1866. (custom-saved-face ((t (:underline t))))
  1867. (custom-set-face ((t (:background "white" :foreground "blue"))))
  1868. (custom-state-face ((t (:foreground "dark green"))))
  1869. (custom-variable-button-face ((t (:underline t :bold t))))
  1870. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  1871. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  1872. (font-lock-comment-face ((t (:italic t :bold t :foreground "Red3"))))
  1873. (font-lock-constant-face ((t (:foreground "navy"))))
  1874. (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
  1875. (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
  1876. (font-lock-string-face ((t (:foreground "Green4"))))
  1877. (font-lock-type-face ((t (:foreground "Navy"))))
  1878. (font-lock-variable-name-face ((t (:foreground "Tan4"))))
  1879. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  1880. (gnus-cite-attribution-face ((t (:italic t))))
  1881. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  1882. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  1883. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  1884. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  1885. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  1886. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  1887. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  1888. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  1889. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  1890. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  1891. (gnus-cite-face-9 ((t (:foreground "violet"))))
  1892. (gnus-emphasis-bold ((t (:bold t))))
  1893. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  1894. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  1895. (gnus-emphasis-italic ((t (:italic t))))
  1896. (gnus-emphasis-underline ((t (:underline t))))
  1897. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  1898. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  1899. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  1900. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  1901. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  1902. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  1903. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  1904. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  1905. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  1906. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  1907. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  1908. (gnus-group-news-1-empty-face ((t (:foreground "blue2"))))
  1909. (gnus-group-news-1-face ((t (:bold t :foreground "blue2"))))
  1910. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  1911. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  1912. (gnus-group-news-3-empty-face ((t (nil))))
  1913. (gnus-group-news-3-face ((t (:bold t))))
  1914. (gnus-group-news-4-empty-face ((t (nil))))
  1915. (gnus-group-news-4-face ((t (:bold t))))
  1916. (gnus-group-news-5-empty-face ((t (nil))))
  1917. (gnus-group-news-5-face ((t (:bold t))))
  1918. (gnus-group-news-6-empty-face ((t (nil))))
  1919. (gnus-group-news-6-face ((t (:bold t))))
  1920. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  1921. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  1922. (gnus-header-content-face ((t (:italic t :foreground "blue"))))
  1923. (gnus-header-from-face ((t (:foreground "red3"))))
  1924. (gnus-header-name-face ((t (:foreground "red3"))))
  1925. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  1926. (gnus-header-subject-face ((t (:bold t :foreground "red"))))
  1927. (gnus-signature-face ((t (:foreground "pink"))))
  1928. (gnus-splash-face ((t (:foreground "Brown"))))
  1929. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  1930. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  1931. (gnus-summary-high-read-face ((t (:bold t :foreground "navy"))))
  1932. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  1933. (gnus-summary-high-unread-face ((t (:bold t :foreground "blue"))))
  1934. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  1935. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  1936. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  1937. (gnus-summary-low-unread-face ((t (:italic t))))
  1938. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  1939. (gnus-summary-normal-read-face ((t (:foreground "red3"))))
  1940. (gnus-summary-normal-ticked-face ((t (:foreground "black"))))
  1941. (gnus-summary-normal-unread-face ((t (:bold t :foreground "red3"))))
  1942. (gnus-summary-selected-face ((t (:underline t))))
  1943. (highlight ((t (:background "antiquewhite" :foreground "blue"))))
  1944. (italic ((t (:italic t))))
  1945. (makefile-space-face ((t (:background "hotpink"))))
  1946. (message-cited-text-face ((t (:foreground "red"))))
  1947. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  1948. (message-header-name-face ((t (:foreground "cornflower blue"))))
  1949. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  1950. (message-header-other-face ((t (:foreground "steel blue"))))
  1951. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  1952. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  1953. (message-header-xheader-face ((t (:foreground "blue"))))
  1954. (message-mml-face ((t (:foreground "ForestGreen"))))
  1955. (message-separator-face ((t (:foreground "brown"))))
  1956. (modeline ((t (:background "plum" :foreground "black"))))
  1957. (modeline-buffer-id ((t (:background "plum" :foreground "black"))))
  1958. (modeline-mousable ((t (:background "plum" :foreground "black"))))
  1959. (modeline-mousable-minor-mode ((t (:background "plum" :foreground "black"))))
  1960. (region ((t (:background "plum"))))
  1961. (secondary-selection ((t (:background "palegreen"))))
  1962. (show-paren-match-face ((t (:background "plum"))))
  1963. (show-paren-mismatch-face ((t (:background "navy" :foreground "white"))))
  1964. (speedbar-button-face ((t (:foreground "green4"))))
  1965. (speedbar-directory-face ((t (:foreground "blue4"))))
  1966. (speedbar-file-face ((t (:foreground "cyan4"))))
  1967. (speedbar-highlight-face ((t (:background "green"))))
  1968. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  1969. (speedbar-tag-face ((t (:foreground "brown"))))
  1970. (underline ((t (:underline t))))
  1971. (widget-button-face ((t (:bold t))))
  1972. (widget-button-pressed-face ((t (:foreground "red"))))
  1973. (widget-documentation-face ((t (:foreground "dark green"))))
  1974. (widget-field-face ((t (:background "gray85"))))
  1975. (widget-inactive-face ((t (:foreground "dim gray"))))
  1976. (widget-single-line-field-face ((t (:background "gray85")))))))
  1977. (defun color-theme-jsc-dark ()
  1978. "Color theme by John S Cooper, created 2000-06-11."
  1979. (interactive)
  1980. (color-theme-install
  1981. '(color-theme-jsc-dark
  1982. ((background-color . "black")
  1983. (background-mode . dark)
  1984. (border-color . "black")
  1985. (cursor-color . "white")
  1986. (foreground-color . "cornsilk")
  1987. (mouse-color . "black"))
  1988. ((gnus-mouse-face . highlight)
  1989. (goto-address-mail-face . italic)
  1990. (goto-address-mail-mouse-face . secondary-selection)
  1991. (goto-address-url-face . bold)
  1992. (goto-address-url-mouse-face . highlight)
  1993. (list-matching-lines-face . bold)
  1994. (view-highlight-face . highlight))
  1995. (blank-space-face ((t (:background "LightGray"))))
  1996. (blank-tab-face ((t (:background "cornsilk" :foreground "black"))))
  1997. (default ((t (nil))))
  1998. (bold ((t (:bold t :foreground "white"))))
  1999. (bold-italic ((t (:italic t :bold t))))
  2000. (calendar-today-face ((t (:underline t))))
  2001. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  2002. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  2003. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  2004. (custom-button-face ((t (:foreground "white"))))
  2005. (custom-changed-face ((t (:background "skyblue" :foreground "wheat"))))
  2006. (custom-documentation-face ((t (:foreground "white"))))
  2007. (custom-face-tag-face ((t (:underline t :foreground "white"))))
  2008. (custom-group-tag-face ((t (:underline t :foreground "skyblue"))))
  2009. (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
  2010. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2011. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2012. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2013. (custom-saved-face ((t (:underline t))))
  2014. (custom-set-face ((t (:foreground "blue"))))
  2015. (custom-state-face ((t (:foreground "light green"))))
  2016. (custom-variable-button-face ((t (:underline t :bold t))))
  2017. (custom-variable-tag-face ((t (:underline t :foreground "skyblue"))))
  2018. (diary-face ((t (:bold t :foreground "orange"))))
  2019. (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue"))))
  2020. (font-lock-comment-face ((t (:italic t :foreground "red"))))
  2021. (font-lock-constant-face ((t (:bold t :foreground "salmon"))))
  2022. (font-lock-function-name-face ((t (:bold t :foreground "orange"))))
  2023. (font-lock-keyword-face ((t (:bold t :foreground "gold"))))
  2024. (font-lock-string-face ((t (:italic t :foreground "orange"))))
  2025. (font-lock-type-face ((t (:bold t :foreground "gold"))))
  2026. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "light salmon"))))
  2027. (font-lock-warning-face ((t (:bold t :foreground "gold"))))
  2028. (gnus-cite-attribution-face ((t (:italic t))))
  2029. (gnus-cite-face-1 ((t (:foreground "light cyan"))))
  2030. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  2031. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  2032. (gnus-cite-face-2 ((t (:foreground "light blue"))))
  2033. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  2034. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  2035. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  2036. (gnus-cite-face-6 ((t (:foreground "beige"))))
  2037. (gnus-cite-face-7 ((t (:foreground "orange"))))
  2038. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  2039. (gnus-cite-face-9 ((t (:foreground "violet"))))
  2040. (gnus-emphasis-bold ((t (:bold t))))
  2041. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  2042. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  2043. (gnus-emphasis-italic ((t (:italic t))))
  2044. (gnus-emphasis-underline ((t (:background "goldenrod4" :foreground "white"))))
  2045. (gnus-emphasis-underline-bold ((t (:underline t :bold t :background "yellow" :foreground "black"))))
  2046. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :background "yellow" :foreground "black"))))
  2047. (gnus-emphasis-underline-italic ((t (:underline t :italic t :background "yellow" :foreground "black"))))
  2048. (gnus-filterhist-face-1 ((t (nil))))
  2049. (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
  2050. (gnus-group-mail-1-face ((t (:bold t :foreground "white"))))
  2051. (gnus-group-mail-2-empty-face ((t (:foreground "lightcyan"))))
  2052. (gnus-group-mail-2-face ((t (:bold t :foreground "lightcyan"))))
  2053. (gnus-group-mail-3-empty-face ((t (:foreground "tan"))))
  2054. (gnus-group-mail-3-face ((t (:bold t :foreground "tan"))))
  2055. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  2056. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  2057. (gnus-group-news-1-empty-face ((t (:foreground "white"))))
  2058. (gnus-group-news-1-face ((t (:bold t :foreground "white"))))
  2059. (gnus-group-news-2-empty-face ((t (:foreground "lightcyan"))))
  2060. (gnus-group-news-2-face ((t (:bold t :foreground "lightcyan"))))
  2061. (gnus-group-news-3-empty-face ((t (:foreground "tan"))))
  2062. (gnus-group-news-3-face ((t (:bold t :foreground "tan"))))
  2063. (gnus-group-news-4-empty-face ((t (:foreground "white"))))
  2064. (gnus-group-news-4-face ((t (:bold t :foreground "white"))))
  2065. (gnus-group-news-5-empty-face ((t (:foreground "wheat"))))
  2066. (gnus-group-news-5-face ((t (:bold t :foreground "wheat"))))
  2067. (gnus-group-news-6-empty-face ((t (:foreground "tan"))))
  2068. (gnus-group-news-6-face ((t (:bold t :foreground "tan"))))
  2069. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  2070. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  2071. (gnus-header-content-face ((t (:italic t :foreground "plum1"))))
  2072. (gnus-header-from-face ((t (:bold t :foreground "wheat"))))
  2073. (gnus-header-name-face ((t (:bold t :foreground "gold"))))
  2074. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "wheat"))))
  2075. (gnus-header-subject-face ((t (:bold t :foreground "red"))))
  2076. (gnus-signature-face ((t (:italic t :foreground "maroon"))))
  2077. (gnus-splash ((t (:foreground "Brown"))))
  2078. (gnus-splash-face ((t (:foreground "gold"))))
  2079. (gnus-summary-cancelled-face ((t (:background "gray" :foreground "black"))))
  2080. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  2081. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  2082. (gnus-summary-high-ticked-face ((t (:bold t :foreground "gray70"))))
  2083. (gnus-summary-high-unread-face ((t (:italic t :bold t))))
  2084. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  2085. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  2086. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "gray70"))))
  2087. (gnus-summary-low-unread-face ((t (:italic t))))
  2088. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  2089. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  2090. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "gray70"))))
  2091. (gnus-summary-normal-unread-face ((t (:bold t))))
  2092. (gnus-summary-selected-face ((t (:underline t :background "deepskyblue4"))))
  2093. (highlight ((t (:background "darkslategray" :foreground "wheat"))))
  2094. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  2095. (highlight-changes-face ((t (:foreground "red"))))
  2096. (highline-face ((t (:background "gray35"))))
  2097. (holiday-face ((t (:background "red"))))
  2098. (info-menu-5 ((t (:underline t))))
  2099. (info-node ((t (:italic t :bold t :foreground "yellow"))))
  2100. (info-xref ((t (:bold t :foreground "plum"))))
  2101. (italic ((t (:italic t))))
  2102. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  2103. (linemenu-face ((t (:background "gray30"))))
  2104. (makefile-space-face ((t (:background "hotpink"))))
  2105. (message-cited-text-face ((t (:foreground "plum1"))))
  2106. (message-header-cc-face ((t (:bold t :foreground "ivory"))))
  2107. (message-header-name-face ((t (:foreground "light sky blue"))))
  2108. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "lavender blush"))))
  2109. (message-header-other-face ((t (:foreground "pale turquoise"))))
  2110. (message-header-subject-face ((t (:bold t :foreground "papaya whip"))))
  2111. (message-header-to-face ((t (:bold t :foreground "floral white"))))
  2112. (message-header-xheader-face ((t (:foreground "blue"))))
  2113. (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
  2114. (message-separator-face ((t (:foreground "sandy brown"))))
  2115. (modeline ((t (:background "tan" :foreground "black"))))
  2116. (modeline-buffer-id ((t (:background "tan" :foreground "black"))))
  2117. (modeline-mousable ((t (:background "tan" :foreground "black"))))
  2118. (modeline-mousable-minor-mode ((t (:background "tan" :foreground "black"))))
  2119. (paren-mismatch-face ((t (:bold t :background "white" :foreground "red"))))
  2120. (paren-no-match-face ((t (:bold t :background "white" :foreground "red"))))
  2121. (region ((t (:background "slategrey"))))
  2122. (secondary-selection ((t (:background "deepskyblue4"))))
  2123. (sgml-doctype-face ((t (:foreground "orange"))))
  2124. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  2125. (sgml-entity-face ((t (:foreground "gold"))))
  2126. (sgml-ignored-face ((t (:background "gray60" :foreground "gray20"))))
  2127. (sgml-sgml-face ((t (:foreground "yellow"))))
  2128. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  2129. (show-paren-match-face ((t (:background "deepskyblue4"))))
  2130. (show-paren-mismatch-face ((t (:bold t :background "red" :foreground "white"))))
  2131. (speedbar-button-face ((t (:foreground "green4"))))
  2132. (speedbar-directory-face ((t (:foreground "blue4"))))
  2133. (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
  2134. (speedbar-highlight-face ((t (:background "green"))))
  2135. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2136. (speedbar-tag-face ((t (:foreground "brown"))))
  2137. (underline ((t (:underline t))))
  2138. (widget-button-face ((t (:bold t))))
  2139. (widget-button-pressed-face ((t (:foreground "red"))))
  2140. (widget-documentation-face ((t (:foreground "lime green"))))
  2141. (widget-field-face ((t (:background "gray20"))))
  2142. (widget-inactive-face ((t (:foreground "wheat"))))
  2143. (widget-single-line-field-face ((t (:background "gray20"))))
  2144. (woman-bold-face ((t (:bold t))))
  2145. (woman-italic-face ((t (:foreground "beige"))))
  2146. (woman-unknown-face ((t (:foreground "LightSalmon")))))))
  2147. (defun color-theme-greiner ()
  2148. "Color theme by Kevin Greiner, created 2000-06-13.
  2149. Black on Beige, supports default, font-lock, speedbar, custom, widget
  2150. faces. Designed to be easy on the eyes, particularly on Win32
  2151. computers which commonly have white window backgrounds."
  2152. (interactive)
  2153. (color-theme-install
  2154. '(color-theme-greiner
  2155. ((background-color . "beige")
  2156. (background-mode . light)
  2157. (border-color . "black")
  2158. (cursor-color . "black")
  2159. (foreground-color . "black")
  2160. (mouse-color . "black"))
  2161. ((list-matching-lines-face . bold))
  2162. (default ((t (nil))))
  2163. (bold ((t (:bold t))))
  2164. (bold-italic ((t (:italic t :bold t))))
  2165. (custom-button-face ((t (nil))))
  2166. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2167. (custom-documentation-face ((t (nil))))
  2168. (custom-face-tag-face ((t (:underline t))))
  2169. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  2170. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2171. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2172. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2173. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2174. (custom-saved-face ((t (:underline t))))
  2175. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2176. (custom-state-face ((t (:foreground "dark green"))))
  2177. (custom-variable-button-face ((t (:underline t :bold t))))
  2178. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  2179. (font-lock-builtin-face ((t (:foreground "blue4"))))
  2180. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  2181. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  2182. (font-lock-function-name-face ((t (:foreground "Blue"))))
  2183. (font-lock-keyword-face ((t (:foreground "royal blue"))))
  2184. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  2185. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  2186. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  2187. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  2188. (highlight ((t (:background "darkseagreen2"))))
  2189. (info-menu-5 ((t (:underline t))))
  2190. (info-node ((t (:italic t :bold t))))
  2191. (info-xref ((t (:bold t))))
  2192. (italic ((t (:italic t))))
  2193. (modeline ((t (:background "black" :foreground "white"))))
  2194. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  2195. (modeline-mousable ((t (:background "black" :foreground "white"))))
  2196. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  2197. (region ((t (:background "gray"))))
  2198. (secondary-selection ((t (:background "paleturquoise"))))
  2199. (show-paren-match-face ((t (:background "turquoise"))))
  2200. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  2201. (speedbar-button-face ((t (:foreground "green4"))))
  2202. (speedbar-directory-face ((t (:foreground "blue4"))))
  2203. (speedbar-file-face ((t (:foreground "cyan4"))))
  2204. (speedbar-highlight-face ((t (:background "green"))))
  2205. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2206. (speedbar-tag-face ((t (:foreground "brown"))))
  2207. (underline ((t (:underline t))))
  2208. (widget-button-face ((t (:bold t))))
  2209. (widget-button-pressed-face ((t (:foreground "red"))))
  2210. (widget-documentation-face ((t (:foreground "dark green"))))
  2211. (widget-field-face ((t (:background "gray85"))))
  2212. (widget-inactive-face ((t (:foreground "dim gray"))))
  2213. (widget-single-line-field-face ((t (:background "gray85")))))))
  2214. (defun color-theme-jb-simple ()
  2215. "Color theme by jeff, created 2000-06-14.
  2216. Uses white background and bold for many things"
  2217. (interactive)
  2218. (color-theme-install
  2219. '(color-theme-jb-simple
  2220. ((background-color . "white")
  2221. (background-mode . light)
  2222. (background-toolbar-color . "#cf3ccf3ccf3c")
  2223. (border-color . "black")
  2224. (bottom-toolbar-shadow-color . "#79e77df779e7")
  2225. (cursor-color . "black")
  2226. (foreground-color . "black")
  2227. (mouse-color . "black")
  2228. (top-toolbar-shadow-color . "#fffffbeeffff"))
  2229. ((gnus-mouse-face . highlight)
  2230. (list-matching-lines-face . bold)
  2231. (rmail-highlight-face . font-lock-function-name-face)
  2232. (view-highlight-face . highlight))
  2233. (default ((t (nil))))
  2234. (blank-space-face ((t (nil))))
  2235. (blank-tab-face ((t (nil))))
  2236. (blue ((t (nil))))
  2237. (bold ((t (:bold t))))
  2238. (bold-italic ((t (:italic t :bold t))))
  2239. (border-glyph ((t (nil))))
  2240. (calendar-today-face ((t (:underline t))))
  2241. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  2242. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  2243. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  2244. (custom-button-face ((t (:bold t))))
  2245. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2246. (custom-documentation-face ((t (nil))))
  2247. (custom-face-tag-face ((t (:underline t))))
  2248. (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
  2249. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2250. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2251. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2252. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2253. (custom-saved-face ((t (:underline t))))
  2254. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2255. (custom-state-face ((t (:foreground "dark green"))))
  2256. (custom-variable-button-face ((t (:underline t :bold t))))
  2257. (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
  2258. (diary-face ((t (:bold t :foreground "red"))))
  2259. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  2260. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  2261. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  2262. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  2263. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  2264. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  2265. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  2266. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  2267. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  2268. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  2269. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  2270. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  2271. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  2272. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  2273. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  2274. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  2275. (erc-action-face ((t (:bold t))))
  2276. (erc-bold-face ((t (:bold t))))
  2277. (erc-default-face ((t (nil))))
  2278. (erc-direct-msg-face ((t (nil))))
  2279. (erc-error-face ((t (:bold t))))
  2280. (erc-input-face ((t (nil))))
  2281. (erc-inverse-face ((t (nil))))
  2282. (erc-notice-face ((t (nil))))
  2283. (erc-pal-face ((t (nil))))
  2284. (erc-prompt-face ((t (nil))))
  2285. (erc-underline-face ((t (nil))))
  2286. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  2287. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  2288. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  2289. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  2290. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  2291. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  2292. (eshell-ls-picture-face ((t (nil))))
  2293. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  2294. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  2295. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  2296. (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
  2297. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  2298. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  2299. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  2300. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  2301. (excerpt ((t (:italic t))))
  2302. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  2303. (fixed ((t (:bold t))))
  2304. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  2305. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  2306. (font-latex-bold-face ((t (nil))))
  2307. (font-latex-italic-face ((t (nil))))
  2308. (font-latex-math-face ((t (nil))))
  2309. (font-latex-sedate-face ((t (nil))))
  2310. (font-latex-string-face ((t (nil))))
  2311. (font-latex-warning-face ((t (nil))))
  2312. (font-lock-builtin-face ((t (:bold t :foreground "Orchid"))))
  2313. (font-lock-comment-face ((t (:italic t :bold t :foreground "blue4"))))
  2314. (font-lock-constant-face ((t (:bold t :foreground "CadetBlue"))))
  2315. (font-lock-doc-string-face ((t (:italic t :bold t :foreground "blue4"))))
  2316. (font-lock-exit-face ((t (nil))))
  2317. (font-lock-function-name-face ((t (:bold t :foreground "brown4"))))
  2318. (font-lock-keyword-face ((t (:bold t :foreground "black"))))
  2319. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  2320. (font-lock-reference-face ((t (:foreground "red3"))))
  2321. (font-lock-string-face ((t (:italic t :bold t :foreground "green4"))))
  2322. (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
  2323. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "magenta4"))))
  2324. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  2325. (gnus-cite-attribution-face ((t (:italic t :bold t))))
  2326. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  2327. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  2328. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  2329. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  2330. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  2331. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  2332. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  2333. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  2334. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  2335. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  2336. (gnus-cite-face-9 ((t (:foreground "violet"))))
  2337. (gnus-emphasis-bold ((t (:bold t))))
  2338. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  2339. (gnus-emphasis-highlight-words ((t (nil))))
  2340. (gnus-emphasis-italic ((t (:italic t))))
  2341. (gnus-emphasis-underline ((t (:underline t))))
  2342. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  2343. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  2344. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  2345. (gnus-filterhist-face-1 ((t (nil))))
  2346. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  2347. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  2348. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  2349. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  2350. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  2351. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  2352. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  2353. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  2354. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  2355. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  2356. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  2357. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  2358. (gnus-group-news-3-empty-face ((t (nil))))
  2359. (gnus-group-news-3-face ((t (:bold t))))
  2360. (gnus-group-news-4-empty-face ((t (nil))))
  2361. (gnus-group-news-4-face ((t (:bold t))))
  2362. (gnus-group-news-5-empty-face ((t (nil))))
  2363. (gnus-group-news-5-face ((t (:bold t))))
  2364. (gnus-group-news-6-empty-face ((t (nil))))
  2365. (gnus-group-news-6-face ((t (:bold t))))
  2366. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  2367. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  2368. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  2369. (gnus-header-from-face ((t (:bold t :foreground "red3"))))
  2370. (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
  2371. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
  2372. (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
  2373. (gnus-signature-face ((t (:italic t))))
  2374. (gnus-splash ((t (nil))))
  2375. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  2376. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2377. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  2378. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  2379. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  2380. (gnus-summary-high-unread-face ((t (:italic t :bold t))))
  2381. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  2382. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  2383. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
  2384. (gnus-summary-low-unread-face ((t (:italic t))))
  2385. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  2386. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  2387. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
  2388. (gnus-summary-normal-unread-face ((t (:bold t))))
  2389. (gnus-summary-selected-face ((t (:underline t))))
  2390. (green ((t (nil))))
  2391. (gui-button-face ((t (:background "grey75"))))
  2392. (gui-element ((t (:background "Gray80"))))
  2393. (highlight ((t (:background "darkseagreen2"))))
  2394. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  2395. (highlight-changes-face ((t (:foreground "red"))))
  2396. (highline-face ((t (:background "paleturquoise"))))
  2397. (holiday-face ((t (:background "pink"))))
  2398. (html-helper-italic-face ((t (:italic t))))
  2399. (info-menu-5 ((t (:underline t))))
  2400. (info-node ((t (:italic t :bold t))))
  2401. (info-xref ((t (:bold t))))
  2402. (isearch ((t (nil))))
  2403. (italic ((t (:italic t))))
  2404. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  2405. (left-margin ((t (nil))))
  2406. (linemenu-face ((t (nil))))
  2407. (list-mode-item-selected ((t (nil))))
  2408. (makefile-space-face ((t (:background "hotpink"))))
  2409. (message-cited-text-face ((t (:foreground "red"))))
  2410. (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
  2411. (message-header-name-face ((t (:foreground "cornflower blue"))))
  2412. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  2413. (message-header-other-face ((t (:foreground "steel blue"))))
  2414. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  2415. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  2416. (message-header-xheader-face ((t (:foreground "blue"))))
  2417. (message-mml-face ((t (:bold t))))
  2418. (message-separator-face ((t (:foreground "brown"))))
  2419. (modeline ((t (:background "darkblue" :foreground "yellow"))))
  2420. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  2421. (modeline-mousable ((t (:background "black" :foreground "white"))))
  2422. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  2423. (nil ((t (nil))))
  2424. (paren-mismatch-face ((t (:bold t))))
  2425. (paren-no-match-face ((t (:bold t))))
  2426. (pointer ((t (nil))))
  2427. (primary-selection ((t (nil))))
  2428. (red ((t (nil))))
  2429. (region ((t (:background "gray"))))
  2430. (right-margin ((t (nil))))
  2431. (secondary-selection ((t (:background "paleturquoise"))))
  2432. (sgml-doctype-face ((t (nil))))
  2433. (sgml-end-tag-face ((t (nil))))
  2434. (sgml-entity-face ((t (nil))))
  2435. (sgml-ignored-face ((t (nil))))
  2436. (sgml-sgml-face ((t (nil))))
  2437. (sgml-start-tag-face ((t (nil))))
  2438. (show-paren-match-face ((t (:background "turquoise"))))
  2439. (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
  2440. (speedbar-button-face ((t (:bold t :foreground "green4"))))
  2441. (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
  2442. (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
  2443. (speedbar-highlight-face ((t (:background "green"))))
  2444. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  2445. (speedbar-tag-face ((t (:foreground "brown"))))
  2446. (swbuff-current-buffer-face ((t (:bold t))))
  2447. (term-black ((t (:foreground "black"))))
  2448. (term-blackbg ((t (:background "black"))))
  2449. (term-blue ((t (:foreground "blue"))))
  2450. (term-bluebg ((t (:background "blue"))))
  2451. (term-bold ((t (:bold t))))
  2452. (term-cyan ((t (:foreground "cyan"))))
  2453. (term-cyanbg ((t (:background "cyan"))))
  2454. (term-default-bg ((t (nil))))
  2455. (term-default-bg-inv ((t (nil))))
  2456. (term-default-fg ((t (nil))))
  2457. (term-default-fg-inv ((t (nil))))
  2458. (term-green ((t (:foreground "green"))))
  2459. (term-greenbg ((t (:background "green"))))
  2460. (term-invisible ((t (nil))))
  2461. (term-invisible-inv ((t (nil))))
  2462. (term-magenta ((t (:foreground "magenta"))))
  2463. (term-magentabg ((t (:background "magenta"))))
  2464. (term-red ((t (:foreground "red"))))
  2465. (term-redbg ((t (:background "red"))))
  2466. (term-underline ((t (:underline t))))
  2467. (term-white ((t (:foreground "white"))))
  2468. (term-whitebg ((t (:background "white"))))
  2469. (term-yellow ((t (:foreground "yellow"))))
  2470. (term-yellowbg ((t (:background "yellow"))))
  2471. (text-cursor ((t (nil))))
  2472. (toolbar ((t (nil))))
  2473. (underline ((t (:underline t))))
  2474. (vc-annotate-face-0046FF ((t (nil))))
  2475. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  2476. (vertical-divider ((t (nil))))
  2477. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  2478. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  2479. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  2480. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  2481. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  2482. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  2483. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  2484. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  2485. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  2486. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  2487. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  2488. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  2489. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  2490. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  2491. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  2492. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  2493. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  2494. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  2495. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  2496. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  2497. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  2498. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  2499. (widget-button-face ((t (:bold t))))
  2500. (widget-button-pressed-face ((t (:foreground "red"))))
  2501. (widget-documentation-face ((t (:foreground "dark green"))))
  2502. (widget-field-face ((t (:background "gray85"))))
  2503. (widget-inactive-face ((t (:foreground "dim gray"))))
  2504. (widget-single-line-field-face ((t (:background "gray85"))))
  2505. (woman-bold-face ((t (:bold t))))
  2506. (woman-italic-face ((t (nil))))
  2507. (woman-unknown-face ((t (nil))))
  2508. (yellow ((t (nil))))
  2509. (zmacs-region ((t (nil)))))))
  2510. (defun color-theme-beige-diff ()
  2511. "Brownish faces for diff and change-log modes.
  2512. This is intended for other color themes to use (eg. `color-theme-gnome2'
  2513. and `color-theme-blue-sea')."
  2514. (color-theme-install
  2515. '(color-theme-beige-diff
  2516. nil
  2517. (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
  2518. (change-log-conditionals-face ((t (:foreground "khaki" :background "sienna"))))
  2519. (change-log-date-face ((t (:foreground "gold"))))
  2520. (change-log-email-face ((t (:foreground "khaki" :underline t))))
  2521. (change-log-file-face ((t (:bold t :foreground "lemon chiffon"))))
  2522. (change-log-function-face ((t (:foreground "khaki" :background "sienna"))))
  2523. (change-log-list-face ((t (:foreground "wheat"))))
  2524. (change-log-name-face ((t (:bold t :foreground "light goldenrod"))))
  2525. (diff-added-face ((t (nil))))
  2526. (diff-changed-face ((t (nil))))
  2527. (diff-context-face ((t (:foreground "grey50"))))
  2528. (diff-file-header-face ((t (:bold t :foreground "lemon chiffon"))))
  2529. (diff-function-face ((t (:foreground "grey50"))))
  2530. (diff-header-face ((t (:foreground "lemon chiffon"))))
  2531. (diff-hunk-header-face ((t (:foreground "light goldenrod"))))
  2532. (diff-index-face ((t (:bold t :underline t))))
  2533. (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
  2534. (diff-removed-face ((t (nil))))
  2535. (log-view-message-face ((t (:foreground "lemon chiffon")))))))
  2536. (defun color-theme-standard-ediff ()
  2537. "Standard colors for ediff faces.
  2538. This is intended for other color themes to use
  2539. \(eg. `color-theme-goldenrod')."
  2540. (color-theme-install
  2541. '(color-theme-beige-diff
  2542. nil
  2543. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  2544. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  2545. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  2546. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  2547. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  2548. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  2549. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  2550. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  2551. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  2552. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  2553. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  2554. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  2555. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  2556. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  2557. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  2558. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White")))))))
  2559. (defun color-theme-beige-eshell ()
  2560. "Brownish colors for eshell faces only.
  2561. This is intended for other color themes to use (eg. `color-theme-goldenrod')."
  2562. (color-theme-install
  2563. '(color-theme-beige-eshell
  2564. nil
  2565. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  2566. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  2567. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  2568. (eshell-ls-directory-face ((t (:bold t :foreground "dark khaki"))))
  2569. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  2570. (eshell-ls-missing-face ((t (:foreground "black"))))
  2571. (eshell-ls-picture-face ((t (:foreground "gold")))) ; non-standard face
  2572. (eshell-ls-product-face ((t (:foreground "dark sea green"))))
  2573. (eshell-ls-readonly-face ((t (:foreground "light steel blue"))))
  2574. (eshell-ls-special-face ((t (:foreground "gold"))))
  2575. (eshell-ls-symlink-face ((t (:foreground "peach puff"))))
  2576. (eshell-ls-text-face ((t (:foreground "moccasin")))) ; non-standard face
  2577. (eshell-ls-todo-face ((t (:bold t :foreground "yellow green")))) ; non-standard face
  2578. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  2579. (eshell-prompt-face ((t (:foreground "lemon chiffon")))))))
  2580. (defun color-theme-goldenrod ()
  2581. "Brown color theme. Very different from the others.
  2582. Supports standard, font-lock and info faces, and it uses
  2583. `color-theme-blue-gnus', `color-theme-blue-erc' , and
  2584. `color-theme-beige-diff'."
  2585. (interactive)
  2586. (color-theme-blue-gnus)
  2587. (let ((color-theme-is-cumulative t))
  2588. (color-theme-blue-erc)
  2589. (color-theme-beige-diff)
  2590. (color-theme-beige-eshell)
  2591. (color-theme-install
  2592. '(color-theme-goldenrod
  2593. ((background-color . "black")
  2594. (background-mode . dark)
  2595. (border-color . "black")
  2596. (cursor-color . "light goldenrod")
  2597. (foreground-color . "goldenrod")
  2598. (mouse-color . "goldenrod"))
  2599. ((goto-address-mail-face . info-xref)
  2600. (list-matching-lines-face . bold)
  2601. (view-highlight-face . highlight))
  2602. (default ((t (nil))))
  2603. (bold ((t (:bold t))))
  2604. (bold-italic ((t (:italic t :bold t :foreground "lavender"))))
  2605. (font-lock-builtin-face ((t (:foreground "pale goldenrod"))))
  2606. (font-lock-comment-face ((t (:foreground "indian red"))))
  2607. (font-lock-constant-face ((t (:foreground "pale green"))))
  2608. (font-lock-function-name-face ((t (:bold t :foreground "lemon chiffon"))))
  2609. (font-lock-keyword-face ((t (:foreground "wheat"))))
  2610. (font-lock-string-face ((t (:foreground "gold"))))
  2611. (font-lock-type-face ((t (:foreground "dark khaki" :bold t))))
  2612. (font-lock-variable-name-face ((t (:bold t :foreground "khaki"))))
  2613. (font-lock-warning-face ((t (:bold t :foreground "orange red"))))
  2614. (fringe ((t (:background "gray25"))))
  2615. (header-line ((t (:background "gray20" :foreground "gray70"))))
  2616. (highlight ((t (:background "dark slate blue"))))
  2617. (info-menu-5 ((t (:underline t))))
  2618. (info-node ((t (:bold t))))
  2619. (info-xref ((t (:bold t :foreground "pale goldenrod"))))
  2620. (isearch ((t (:background "SeaGreen4"))))
  2621. (isearch-lazy-highlight-face ((t (:background "DarkOliveGreen4"))))
  2622. (italic ((t (:italic t :foreground "lavender"))))
  2623. (menu ((t (:background "gray25" :foreground "lemon chiffon"))))
  2624. (modeline ((t (:background "gray40" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2625. (modeline-buffer-id ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
  2626. (modeline-mousable ((t (:background "AntiqueWhite4" :foreground "lemon chiffon"))))
  2627. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "lemon chiffon"))))
  2628. (mode-line-inactive ((t (:background "gray20" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2629. (region ((t (:background "dark olive green"))))
  2630. (secondary-selection ((t (:background "dark green"))))
  2631. (tool-bar ((t (:background "gray25" :foreground "lemon chiffon" :box (:line-width 1 :style released-button)))))
  2632. (underline ((t (:underline t))))))))
  2633. (defun color-theme-ramangalahy ()
  2634. "Color theme by Solofo Ramangalahy, created 2000-10-18.
  2635. Black on light grey, includes faces for vm, ispell, gnus,
  2636. dired, display-time, cperl, font-lock, widget, x-symbol."
  2637. (interactive)
  2638. (color-theme-install
  2639. '(color-theme-ramangalahy
  2640. ((background-color . "lightgrey")
  2641. (background-mode . light)
  2642. (background-toolbar-color . "#bfbfbfbfbfbf")
  2643. (border-color . "#000000000000")
  2644. (bottom-toolbar-shadow-color . "#737373737373")
  2645. (cursor-color . "blue")
  2646. (foreground-color . "black")
  2647. (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
  2648. ((gnus-mouse-face . highlight)
  2649. (goto-address-mail-face . info-xref)
  2650. (ispell-highlight-face . highlight)
  2651. (notes-bold-face . notes-bold-face)
  2652. (setnu-line-number-face . bold)
  2653. (tinyreplace-:face . highlight)
  2654. (vm-highlight-url-face . bold-italic)
  2655. (vm-highlighted-header-face . bold)
  2656. (vm-mime-button-face . gui-button-face)
  2657. (vm-summary-highlight-face . bold))
  2658. (default ((t (nil))))
  2659. (bbdb-company ((t (nil))))
  2660. (blue ((t (:foreground "blue"))))
  2661. (bold ((t (:bold t))))
  2662. (bold-italic ((t (:italic t :bold t))))
  2663. (border-glyph ((t (nil))))
  2664. (cperl-here-face ((t (:foreground "green4"))))
  2665. (cperl-pod-face ((t (:foreground "brown4"))))
  2666. (cperl-pod-head-face ((t (:foreground "steelblue"))))
  2667. (custom-button-face ((t (:bold t))))
  2668. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  2669. (custom-documentation-face ((t (nil))))
  2670. (custom-face-tag-face ((t (:underline t))))
  2671. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  2672. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  2673. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  2674. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  2675. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  2676. (custom-saved-face ((t (:underline t))))
  2677. (custom-set-face ((t (:background "white" :foreground "blue"))))
  2678. (custom-state-face ((t (:foreground "dark green"))))
  2679. (custom-variable-button-face ((t (:underline t :bold t))))
  2680. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  2681. (dired-face-boring ((t (:foreground "Gray65"))))
  2682. (dired-face-directory ((t (:bold t))))
  2683. (dired-face-executable ((t (:foreground "SeaGreen"))))
  2684. (dired-face-flagged ((t (:background "LightSlateGray"))))
  2685. (dired-face-marked ((t (:background "PaleVioletRed"))))
  2686. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  2687. (dired-face-setuid ((t (:foreground "Red"))))
  2688. (dired-face-socket ((t (:foreground "magenta"))))
  2689. (dired-face-symlink ((t (:foreground "blue"))))
  2690. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  2691. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  2692. (display-time-time-balloon-face ((t (:foreground "red"))))
  2693. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  2694. (font-lock-comment-face ((t (:bold t :foreground "purple"))))
  2695. (font-lock-doc-string-face ((t (:bold t :foreground "slateblue"))))
  2696. (font-lock-emphasized-face ((t (:bold t :background "lightyellow2"))))
  2697. (font-lock-function-name-face ((t (:bold t :foreground "blue"))))
  2698. (font-lock-keyword-face ((t (:bold t :foreground "violetred"))))
  2699. (font-lock-other-emphasized-face ((t (:italic t :bold t :background "lightyellow2"))))
  2700. (font-lock-other-type-face ((t (:bold t :foreground "orange3"))))
  2701. (font-lock-preprocessor-face ((t (:bold t :foreground "mediumblue"))))
  2702. (font-lock-reference-face ((t (:foreground "red3"))))
  2703. (font-lock-string-face ((t (:foreground "green4"))))
  2704. (font-lock-type-face ((t (:bold t :foreground "steelblue"))))
  2705. (font-lock-variable-name-face ((t (:foreground "magenta4"))))
  2706. (font-lock-warning-face ((t (:bold t :background "yellow" :foreground "Red"))))
  2707. (gnus-emphasis-bold ((t (:bold t))))
  2708. (gnus-emphasis-bold-italic ((t (nil))))
  2709. (gnus-emphasis-italic ((t (nil))))
  2710. (gnus-emphasis-underline ((t (:underline t))))
  2711. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  2712. (gnus-emphasis-underline-bold-italic ((t (:underline t))))
  2713. (gnus-emphasis-underline-italic ((t (:underline t))))
  2714. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  2715. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  2716. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  2717. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  2718. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  2719. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  2720. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  2721. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  2722. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  2723. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  2724. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  2725. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  2726. (gnus-group-news-3-empty-face ((t (:foreground "DeepPink4"))))
  2727. (gnus-group-news-3-face ((t (:bold t :foreground "DeepPink4"))))
  2728. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  2729. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  2730. (gnus-header-content-face ((t (:foreground "indianred4"))))
  2731. (gnus-header-from-face ((t (:foreground "red3"))))
  2732. (gnus-header-name-face ((t (:foreground "maroon"))))
  2733. (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
  2734. (gnus-header-subject-face ((t (:foreground "red4"))))
  2735. (gnus-signature-face ((t (:bold t))))
  2736. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  2737. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2738. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  2739. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  2740. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  2741. (gnus-summary-high-unread-face ((t (:bold t))))
  2742. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
  2743. (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
  2744. (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
  2745. (gnus-summary-low-unread-face ((t (nil))))
  2746. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  2747. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  2748. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  2749. (gnus-summary-normal-unread-face ((t (nil))))
  2750. (gnus-summary-selected-face ((t (:underline t))))
  2751. (gnus-x-face ((t (:background "lightgrey" :foreground "black"))))
  2752. (green ((t (:foreground "green"))))
  2753. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  2754. (gui-element ((t (:background "lightgrey"))))
  2755. (highlight ((t (:background "darkseagreen2"))))
  2756. (info-node ((t (:underline t :bold t :foreground "mediumpurple"))))
  2757. (info-xref ((t (:underline t :bold t :foreground "#0000ee"))))
  2758. (isearch ((t (:background "paleturquoise"))))
  2759. (italic ((t (:italic t))))
  2760. (left-margin ((t (nil))))
  2761. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  2762. (message-cited-text ((t (:foreground "slategrey"))))
  2763. (message-cited-text-face ((t (:foreground "red"))))
  2764. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  2765. (message-header-contents ((t (:italic t))))
  2766. (message-header-name-face ((t (:foreground "cornflower blue"))))
  2767. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  2768. (message-header-other-face ((t (:foreground "steel blue"))))
  2769. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  2770. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  2771. (message-header-xheader-face ((t (:foreground "blue"))))
  2772. (message-headers ((t (:bold t))))
  2773. (message-highlighted-header-contents ((t (:bold t))))
  2774. (message-separator-face ((t (:foreground "brown"))))
  2775. (message-url ((t (:bold t))))
  2776. (modeline ((t (:bold t :background "Gray75" :foreground "Black"))))
  2777. (modeline-buffer-id ((t (:bold t :background "Gray75" :foreground "blue4"))))
  2778. (modeline-mousable ((t (:bold t :background "Gray75" :foreground "firebrick"))))
  2779. (modeline-mousable-minor-mode ((t (:bold t :background "Gray75" :foreground "green4"))))
  2780. (paren-blink-off ((t (:foreground "lightgrey"))))
  2781. (paren-match ((t (:background "darkseagreen2"))))
  2782. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  2783. (pointer ((t (:foreground "blue"))))
  2784. (primary-selection ((t (:background "gray65"))))
  2785. (red ((t (:foreground "red"))))
  2786. (region ((t (:background "black" :foreground "white"))))
  2787. (right-margin ((t (nil))))
  2788. (searchm-buffer ((t (:bold t :background "white" :foreground "red"))))
  2789. (searchm-button ((t (:bold t :background "CadetBlue" :foreground "white"))))
  2790. (searchm-field ((t (:background "grey89"))))
  2791. (searchm-field-label ((t (:bold t))))
  2792. (searchm-highlight ((t (:bold t :background "darkseagreen2" :foreground "black"))))
  2793. (secondary-selection ((t (:background "paleturquoise"))))
  2794. (template-message-face ((t (:bold t))))
  2795. (text-cursor ((t (:background "blue" :foreground "lightgrey"))))
  2796. (toolbar ((t (nil))))
  2797. (underline ((t (:underline t))))
  2798. (vertical-divider ((t (nil))))
  2799. (widget-button-face ((t (:bold t))))
  2800. (widget-button-pressed-face ((t (:foreground "red"))))
  2801. (widget-documentation-face ((t (:foreground "dark green"))))
  2802. (widget-field-face ((t (:background "gray85"))))
  2803. (widget-inactive-face ((t (:foreground "dim gray"))))
  2804. (x-face ((t (:background "white" :foreground "black"))))
  2805. (x-symbol-adobe-fontspecific-face ((t (nil))))
  2806. (x-symbol-face ((t (nil))))
  2807. (x-symbol-heading-face ((t (:underline t :bold t :foreground "green4"))))
  2808. (x-symbol-info-face ((t (:foreground "green4"))))
  2809. (x-symbol-invisible-face ((t (nil))))
  2810. (x-symbol-revealed-face ((t (:background "pink"))))
  2811. (yellow ((t (:foreground "yellow"))))
  2812. (zmacs-region ((t (:background "yellow")))))))
  2813. (defun color-theme-raspopovic ()
  2814. "Color theme by Pedja Raspopovic, created 2000-10-19.
  2815. Includes faces for dired, font-lock, info, paren."
  2816. (interactive)
  2817. (color-theme-install
  2818. '(color-theme-raspopovic
  2819. ((background-color . "darkblue")
  2820. (background-mode . light)
  2821. (background-toolbar-color . "#bfbfbfbfbfbf")
  2822. (border-color . "#000000000000")
  2823. (bottom-toolbar-shadow-color . "#737373737373")
  2824. (cursor-color . "Red3")
  2825. (foreground-color . "yellow")
  2826. (top-toolbar-shadow-color . "#e6e6e6e6e6e6"))
  2827. ((setnu-line-number-face . bold)
  2828. (goto-address-mail-face . info-xref))
  2829. (default ((t (nil))))
  2830. (blue ((t (:background "darkblue" :foreground "blue"))))
  2831. (bold ((t (:bold t :background "darkblue" :foreground "yellow"))))
  2832. (bold-italic ((t (:bold t :background "darkblue" :foreground "red3"))))
  2833. (comint-input-face ((t (:foreground "deepskyblue"))))
  2834. (dired-face-boring ((t (:foreground "Gray65"))))
  2835. (dired-face-directory ((t (:foreground "lightgreen"))))
  2836. (dired-face-executable ((t (:foreground "indianred"))))
  2837. (dired-face-flagged ((t (:background "LightSlateGray"))))
  2838. (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
  2839. (dired-face-permissions ((t (:background "darkblue" :foreground "white"))))
  2840. (dired-face-setuid ((t (:foreground "Red"))))
  2841. (dired-face-socket ((t (:foreground "magenta"))))
  2842. (dired-face-symlink ((t (:foreground "grey95"))))
  2843. (font-lock-comment-face ((t (:background "darkblue" :foreground "lightgreen"))))
  2844. (font-lock-doc-string-face ((t (:background "darkblue" :foreground "darkseagreen"))))
  2845. (font-lock-function-name-face ((t (:bold t :background "darkblue" :foreground "indianred"))))
  2846. (font-lock-keyword-face ((t (:background "darkblue" :foreground "skyblue"))))
  2847. (font-lock-preprocessor-face ((t (:background "darkblue" :foreground "orange"))))
  2848. (font-lock-reference-face ((t (:background "darkblue" :foreground "deepskyblue"))))
  2849. (font-lock-string-face ((t (:background "darkblue" :foreground "lightgrey"))))
  2850. (font-lock-type-face ((t (:background "darkblue" :foreground "orange"))))
  2851. (font-lock-variable-name-face ((t (:background "darkblue" :foreground "white"))))
  2852. (green ((t (:background "darkblue" :foreground "green"))))
  2853. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  2854. (highlight ((t (:background "yellow" :foreground "darkblue"))))
  2855. (info-node ((t (:bold t :background "darkblue" :foreground "red3"))))
  2856. (info-xref ((t (:bold t :background "darkblue" :foreground "yellow"))))
  2857. (isearch ((t (:background "yellow" :foreground "darkblue"))))
  2858. (isearch-secondary ((t (:foreground "red3"))))
  2859. (italic ((t (:background "darkblue" :foreground "red3"))))
  2860. (left-margin ((t (:background "darkblue" :foreground "yellow"))))
  2861. (list-mode-item-selected ((t (:background "gray68" :foreground "yellow"))))
  2862. (makefile-space-face ((t (:background "hotpink"))))
  2863. (modeline ((t (:background "Gray75" :foreground "Black"))))
  2864. (modeline-buffer-id ((t (:background "Gray75" :foreground "blue"))))
  2865. (modeline-mousable ((t (:background "Gray75" :foreground "red"))))
  2866. (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
  2867. (paren-blink-off ((t (:foreground "darkblue"))))
  2868. (paren-match ((t (:background "yellow" :foreground "darkblue"))))
  2869. (paren-mismatch ((t (:background "DeepPink" :foreground "yellow"))))
  2870. (pointer ((t (:background "darkblue" :foreground "red3"))))
  2871. (primary-selection ((t (:background "yellow" :foreground "darkblue"))))
  2872. (red ((t (:background "darkblue" :foreground "red"))))
  2873. (right-margin ((t (:background "darkblue" :foreground "yellow"))))
  2874. (secondary-selection ((t (:background "darkblue" :foreground "yellow"))))
  2875. (shell-option-face ((t (:background "darkblue" :foreground "cyan2"))))
  2876. (shell-output-2-face ((t (:background "darkblue" :foreground "darkseagreen"))))
  2877. (shell-output-3-face ((t (:background "darkblue" :foreground "lightgrey"))))
  2878. (shell-output-face ((t (:background "darkblue" :foreground "white"))))
  2879. (shell-prompt-face ((t (:background "darkblue" :foreground "red"))))
  2880. (text-cursor ((t (:background "Red3" :foreground "white"))))
  2881. (underline ((t (:underline t :background "darkblue" :foreground "yellow"))))
  2882. (vvb-face ((t (:background "pink" :foreground "black"))))
  2883. (yellow ((t (:background "darkblue" :foreground "yellow"))))
  2884. (zmacs-region ((t (:background "gray" :foreground "black")))))))
  2885. (defun color-theme-taylor ()
  2886. "Color theme by Art Taylor, created 2000-10-20.
  2887. Wheat on black. Includes faces for font-lock, gnus, paren."
  2888. (interactive)
  2889. (color-theme-install
  2890. '(color-theme-taylor
  2891. ((background-color . "black")
  2892. (background-mode . dark)
  2893. (border-color . "black")
  2894. (cursor-color . "red")
  2895. (foreground-color . "wheat")
  2896. (mouse-color . "black"))
  2897. ((gnus-mouse-face . highlight)
  2898. (list-matching-lines-face . bold)
  2899. (view-highlight-face . highlight))
  2900. (default ((t (nil))))
  2901. (bold ((t (:bold t :background "grey40" :foreground "yellow"))))
  2902. (bold-italic ((t (:italic t :bold t :foreground "yellow green"))))
  2903. (fl-comment-face ((t (:foreground "medium purple"))))
  2904. (fl-function-name-face ((t (:foreground "green"))))
  2905. (fl-keyword-face ((t (:foreground "LightGreen"))))
  2906. (fl-string-face ((t (:foreground "light coral"))))
  2907. (fl-type-face ((t (:foreground "cyan"))))
  2908. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  2909. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  2910. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  2911. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  2912. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  2913. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  2914. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  2915. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  2916. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  2917. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  2918. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  2919. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  2920. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  2921. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  2922. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  2923. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  2924. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  2925. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  2926. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  2927. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  2928. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  2929. (gnus-group-news-3-empty-face ((t (nil))))
  2930. (gnus-group-news-3-face ((t (:bold t))))
  2931. (gnus-group-news-4-empty-face ((t (nil))))
  2932. (gnus-group-news-4-face ((t (:bold t))))
  2933. (gnus-group-news-5-empty-face ((t (nil))))
  2934. (gnus-group-news-5-face ((t (:bold t))))
  2935. (gnus-group-news-6-empty-face ((t (nil))))
  2936. (gnus-group-news-6-face ((t (:bold t))))
  2937. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  2938. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  2939. (gnus-splash-face ((t (:foreground "Brown"))))
  2940. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  2941. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  2942. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  2943. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  2944. (gnus-summary-high-unread-face ((t (:bold t))))
  2945. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  2946. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  2947. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  2948. (gnus-summary-low-unread-face ((t (:italic t))))
  2949. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  2950. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  2951. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  2952. (gnus-summary-normal-unread-face ((t (nil))))
  2953. (gnus-summary-selected-face ((t (:underline t))))
  2954. (highlight ((t (:background "black" :foreground "black"))))
  2955. (italic ((t (:italic t :foreground "yellow3"))))
  2956. (message-cited-text-face ((t (:foreground "red"))))
  2957. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  2958. (message-header-name-face ((t (:foreground "DarkGreen"))))
  2959. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  2960. (message-header-other-face ((t (:foreground "#b00000"))))
  2961. (message-header-subject-face ((t (:foreground "green3"))))
  2962. (message-header-to-face ((t (:bold t :foreground "green2"))))
  2963. (message-header-xheader-face ((t (:foreground "blue"))))
  2964. (message-mml-face ((t (:foreground "ForestGreen"))))
  2965. (message-separator-face ((t (:foreground "blue3"))))
  2966. (modeline ((t (:background "wheat" :foreground "black"))))
  2967. (modeline-buffer-id ((t (:background "wheat" :foreground "black"))))
  2968. (modeline-mousable ((t (:background "wheat" :foreground "black"))))
  2969. (modeline-mousable-minor-mode ((t (:background "wheat" :foreground "black"))))
  2970. (region ((t (:background "blue"))))
  2971. (secondary-selection ((t (:background "darkslateblue" :foreground "black"))))
  2972. (show-paren-match-face ((t (:background "turquoise"))))
  2973. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  2974. (underline ((t (:underline t))))
  2975. (xref-keyword-face ((t (:foreground "blue"))))
  2976. (xref-list-default-face ((t (nil))))
  2977. (xref-list-pilot-face ((t (:foreground "navy"))))
  2978. (xref-list-symbol-face ((t (:foreground "navy")))))))
  2979. (defun color-theme-marquardt ()
  2980. "Color theme by Colin Marquardt, created 2000-10-25.
  2981. Black on bisque, a light color. Based on some settings from Robin S. Socha.
  2982. Features some color changes to programming languages, especially vhdl-mode.
  2983. You might also want to put something like
  2984. Emacs*Foreground: Black
  2985. Emacs*Background: bisque2
  2986. in your ~/.Xdefaults."
  2987. (interactive)
  2988. (color-theme-install
  2989. '(color-theme-marquardt
  2990. ((background-color . "bisque")
  2991. (background-mode . light)
  2992. (background-toolbar-color . "bisque")
  2993. (border-color . "#000000000000")
  2994. (bottom-toolbar-shadow-color . "#909099999999")
  2995. (cursor-color . "Red3")
  2996. (foreground-color . "black")
  2997. (top-toolbar-shadow-color . "#ffffffffffff"))
  2998. (default ((t (nil))))
  2999. (blue ((t (:foreground "blue"))))
  3000. (bold ((t (:bold t))))
  3001. (bold-italic ((t (:bold t))))
  3002. (border-glyph ((t (nil))))
  3003. (calendar-today-face ((t (:underline t))))
  3004. (diary-face ((t (:foreground "red"))))
  3005. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  3006. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  3007. (display-time-time-balloon-face ((t (:foreground "red"))))
  3008. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  3009. (font-lock-comment-face ((t (:foreground "gray50"))))
  3010. (font-lock-doc-string-face ((t (:foreground "green4"))))
  3011. (font-lock-function-name-face ((t (:foreground "darkorange"))))
  3012. (font-lock-keyword-face ((t (:foreground "blue3"))))
  3013. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  3014. (font-lock-reference-face ((t (:foreground "red3"))))
  3015. (font-lock-special-comment-face ((t (:foreground "blue4"))))
  3016. (font-lock-special-keyword-face ((t (:foreground "red4"))))
  3017. (font-lock-string-face ((t (:foreground "green4"))))
  3018. (font-lock-type-face ((t (:foreground "steelblue"))))
  3019. (font-lock-variable-name-face ((t (:foreground "black"))))
  3020. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3021. (green ((t (:foreground "green"))))
  3022. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  3023. (gui-element ((t (:background "azure1" :foreground "Black"))))
  3024. (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
  3025. (holiday-face ((t (:background "pink" :foreground "black"))))
  3026. (info-node ((t (:bold t))))
  3027. (info-xref ((t (:bold t))))
  3028. (isearch ((t (:background "yellow" :foreground "red"))))
  3029. (italic ((t (:bold t))))
  3030. (left-margin ((t (nil))))
  3031. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  3032. (message-cited-text-face ((t (:foreground "red"))))
  3033. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3034. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3035. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  3036. (message-header-other-face ((t (:foreground "steel blue"))))
  3037. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3038. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3039. (message-header-xheader-face ((t (:foreground "blue"))))
  3040. (message-mml-face ((t (:foreground "ForestGreen"))))
  3041. (message-separator-face ((t (:foreground "brown"))))
  3042. (modeline ((t (:background "bisque2" :foreground "steelblue4"))))
  3043. (modeline-buffer-id ((t (:background "bisque2" :foreground "blue4"))))
  3044. (modeline-mousable ((t (:background "bisque2" :foreground "firebrick"))))
  3045. (modeline-mousable-minor-mode ((t (:background "bisque2" :foreground "green4"))))
  3046. (paren-blink-off ((t (:foreground "azure1"))))
  3047. (paren-face ((t (:background "lightgoldenrod"))))
  3048. (paren-match ((t (:background "bisque2"))))
  3049. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  3050. (paren-mismatch-face ((t (:background "DeepPink"))))
  3051. (paren-no-match-face ((t (:background "yellow"))))
  3052. (pointer ((t (:background "white" :foreground "blue"))))
  3053. (primary-selection ((t (:background "gray65"))))
  3054. (red ((t (:foreground "red"))))
  3055. (right-margin ((t (nil))))
  3056. (secondary-selection ((t (:background "paleturquoise"))))
  3057. (shell-option-face ((t (:foreground "gray50"))))
  3058. (shell-output-2-face ((t (:foreground "green4"))))
  3059. (shell-output-3-face ((t (:foreground "green4"))))
  3060. (shell-output-face ((t (:bold t))))
  3061. (shell-prompt-face ((t (:foreground "blue3"))))
  3062. (speedbar-button-face ((t (:foreground "green4"))))
  3063. (speedbar-directory-face ((t (:foreground "blue4"))))
  3064. (speedbar-file-face ((t (:foreground "cyan4"))))
  3065. (speedbar-highlight-face ((t (:background "green"))))
  3066. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  3067. (speedbar-tag-face ((t (:foreground "brown"))))
  3068. (text-cursor ((t (:background "Red3" :foreground "bisque"))))
  3069. (toolbar ((t (:background "Gray80"))))
  3070. (underline ((t (:underline t))))
  3071. (vertical-divider ((t (nil))))
  3072. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  3073. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  3074. (vhdl-font-lock-enumvalue-face ((t (:foreground "SaddleBrown"))))
  3075. (vhdl-font-lock-function-face ((t (:foreground "DarkCyan"))))
  3076. (vhdl-font-lock-generic-/constant-face ((t (:foreground "Gold3"))))
  3077. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  3078. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  3079. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  3080. (vhdl-font-lock-type-face ((t (:foreground "ForestGreen"))))
  3081. (vhdl-font-lock-variable-face ((t (:foreground "Grey50"))))
  3082. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  3083. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  3084. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  3085. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  3086. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  3087. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  3088. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  3089. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  3090. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  3091. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  3092. (vhdl-speedbar-subprogram-face ((t (:foreground "Orchid4"))))
  3093. (widget-button-face ((t (:bold t))))
  3094. (widget-button-pressed-face ((t (:foreground "red"))))
  3095. (widget-documentation-face ((t (:foreground "dark green"))))
  3096. (widget-field-face ((t (:background "gray85"))))
  3097. (widget-inactive-face ((t (:foreground "dim gray"))))
  3098. (yellow ((t (:foreground "yellow"))))
  3099. (zmacs-region ((t (:background "steelblue" :foreground "yellow")))))))
  3100. (defun color-theme-parus ()
  3101. "Color theme by Jon K Hellan, created 2000-11-01.
  3102. White on dark blue color theme.
  3103. There is some redundancy in the X resources, but I do not have time to
  3104. find out which should go or which should stay:
  3105. Emacs*dialog*Background: midnightblue
  3106. Emacs*dialog*Foreground: white
  3107. Emacs*popup*Background: midnightblue
  3108. Emacs*popup*Foreground: white
  3109. emacs*background: #00005a
  3110. emacs*cursorColor: gray90
  3111. emacs*foreground: White
  3112. emacs.dialog*.background: midnightblue
  3113. emacs.menu*.background: midnightblue
  3114. emacs.pane.menubar.background: midnightblue"
  3115. (interactive)
  3116. (color-theme-install
  3117. '(color-theme-parus
  3118. ((background-color . "#00005a")
  3119. (background-mode . dark)
  3120. (border-color . "black")
  3121. (cursor-color . "yellow")
  3122. (foreground-color . "White")
  3123. (mouse-color . "yellow"))
  3124. ((gnus-mouse-face . highlight)
  3125. (list-matching-lines-face . bold)
  3126. (paren-face . bold)
  3127. (paren-mismatch-face . paren-mismatch-face)
  3128. (paren-no-match-face . paren-no-match-face)
  3129. (view-highlight-face . highlight))
  3130. (default ((t (nil))))
  3131. (bold ((t (:bold t))))
  3132. (bold-italic ((t (:italic t :bold t))))
  3133. (font-latex-bold-face ((t (:bold t :foreground "OliveDrab"))))
  3134. (font-latex-italic-face ((t (:italic t :foreground "OliveDrab"))))
  3135. (font-latex-math-face ((t (:foreground "burlywood"))))
  3136. (font-latex-sedate-face ((t (:foreground "LightGray"))))
  3137. (font-latex-string-face ((t (:foreground "LightSalmon"))))
  3138. (font-latex-warning-face ((t (:foreground "Pink"))))
  3139. (font-lock-builtin-face ((t (:foreground "#e0e0ff"))))
  3140. (font-lock-reference-face ((t (:foreground "#e0e0ff"))))
  3141. (font-lock-comment-face ((t (:foreground "#FFd1d1"))))
  3142. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  3143. (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
  3144. (font-lock-function-name-face ((t (:foreground "#b2e4ff"))))
  3145. (font-lock-keyword-face ((t (:foreground "#a0ffff"))))
  3146. (font-lock-string-face ((t (:foreground "#efca10"))))
  3147. (font-lock-doc-string-face ((t (:foreground "#efca10"))))
  3148. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  3149. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  3150. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3151. (gnus-cite-attribution-face ((t (:italic t))))
  3152. (gnus-cite-face-1 ((t (:foreground "#dfdfff"))))
  3153. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  3154. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  3155. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  3156. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  3157. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  3158. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  3159. (gnus-cite-face-6 ((t (:foreground "beige"))))
  3160. (gnus-cite-face-7 ((t (:foreground "orange"))))
  3161. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  3162. (gnus-cite-face-9 ((t (:foreground "violet"))))
  3163. (gnus-emphasis-bold ((t (:bold t))))
  3164. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  3165. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3166. (gnus-emphasis-italic ((t (:italic t))))
  3167. (gnus-emphasis-underline ((t (:underline t))))
  3168. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3169. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  3170. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3171. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  3172. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  3173. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  3174. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  3175. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  3176. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  3177. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  3178. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  3179. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  3180. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  3181. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  3182. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  3183. (gnus-group-news-3-empty-face ((t (nil))))
  3184. (gnus-group-news-3-face ((t (:bold t))))
  3185. (gnus-group-news-4-empty-face ((t (nil))))
  3186. (gnus-group-news-4-face ((t (:bold t))))
  3187. (gnus-group-news-5-empty-face ((t (nil))))
  3188. (gnus-group-news-5-face ((t (:bold t))))
  3189. (gnus-group-news-6-empty-face ((t (nil))))
  3190. (gnus-group-news-6-face ((t (:bold t))))
  3191. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  3192. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  3193. (gnus-header-content-face ((t (:italic t :foreground "#90f490"))))
  3194. (gnus-header-from-face ((t (:foreground "#aaffaa"))))
  3195. (gnus-header-name-face ((t (:foreground "#c7e3c7"))))
  3196. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow"))))
  3197. (gnus-header-subject-face ((t (:foreground "#a0f0a0"))))
  3198. (gnus-signature-face ((t (:italic t))))
  3199. (gnus-splash-face ((t (:foreground "Brown"))))
  3200. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3201. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  3202. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  3203. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  3204. (gnus-summary-high-unread-face ((t (:bold t))))
  3205. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  3206. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  3207. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  3208. (gnus-summary-low-unread-face ((t (:italic t))))
  3209. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  3210. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  3211. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  3212. (gnus-summary-normal-unread-face ((t (nil))))
  3213. (gnus-summary-selected-face ((t (:underline t))))
  3214. (highlight ((t (:background "darkolivegreen"))))
  3215. (italic ((t (:italic t))))
  3216. (message-cited-text-face ((t (:foreground "#dfdfff"))))
  3217. (message-header-cc-face ((t (:bold t :foreground "#a0f0a0"))))
  3218. (message-header-name-face ((t (:foreground "#c7e3c7"))))
  3219. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  3220. (message-header-other-face ((t (:foreground "#db9b9b"))))
  3221. (message-header-subject-face ((t (:foreground "#a0f0a0"))))
  3222. (message-header-to-face ((t (:bold t :foreground "#aaffaa"))))
  3223. (message-header-xheader-face ((t (:foreground "#e2e2ff"))))
  3224. (message-mml-face ((t (:foreground "#abdbab"))))
  3225. (message-separator-face ((t (:foreground "#dfdfff"))))
  3226. (modeline ((t (:background "White" :foreground "#00005a"))))
  3227. (modeline-buffer-id ((t (:background "White" :foreground "#00005a"))))
  3228. (modeline-mousable ((t (:background "White" :foreground "#00005a"))))
  3229. (modeline-mousable-minor-mode ((t (:background "White" :foreground "#00005a"))))
  3230. (paren-mismatch-face ((t (:background "DeepPink"))))
  3231. (paren-no-match-face ((t (:background "yellow"))))
  3232. (region ((t (:background "blue"))))
  3233. (primary-selection ((t (:background "blue"))))
  3234. (isearch ((t (:background "blue"))))
  3235. (secondary-selection ((t (:background "darkslateblue"))))
  3236. (underline ((t (:underline t))))
  3237. (widget-button-face ((t (:bold t))))
  3238. (widget-button-pressed-face ((t (:foreground "red"))))
  3239. (widget-documentation-face ((t (:foreground "lime green"))))
  3240. (widget-field-face ((t (:background "dim gray"))))
  3241. (widget-inactive-face ((t (:foreground "light gray"))))
  3242. (widget-single-line-field-face ((t (:background "dim gray")))))))
  3243. (defun color-theme-high-contrast ()
  3244. "High contrast color theme, maybe for the visually impaired.
  3245. Watch out! This will set a very large font-size!
  3246. If you want to modify the font as well, you should customize variable
  3247. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3248. The default setting will prevent color themes from installing specific
  3249. fonts."
  3250. (interactive)
  3251. (color-theme-standard)
  3252. (let ((color-theme-is-cumulative t))
  3253. (color-theme-install
  3254. '(color-theme-high-contrast
  3255. ((cursor-color . "red")
  3256. (width . 60)
  3257. (height . 25)
  3258. (background . dark))
  3259. (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 240 :width normal :family "adobe-courier"))))
  3260. (bold ((t (:bold t :underline t))))
  3261. (bold-italic ((t (:bold t :underline t))))
  3262. (font-lock-builtin-face ((t (:bold t :foreground "Red"))))
  3263. (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
  3264. (font-lock-constant-face ((t (:bold t :underline t :foreground "Blue"))))
  3265. (font-lock-function-name-face ((t (:bold t :foreground "Blue"))))
  3266. (font-lock-keyword-face ((t (:bold t :foreground "Purple"))))
  3267. (font-lock-string-face ((t (:bold t :foreground "DarkGreen"))))
  3268. (font-lock-type-face ((t (:bold t :foreground "ForestGreen"))))
  3269. (font-lock-variable-name-face ((t (:bold t :foreground "DarkGoldenrod"))))
  3270. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3271. (highlight ((t (:background "black" :foreground "white" :bold 1))))
  3272. (info-menu-5 ((t (:underline t :bold t))))
  3273. (info-node ((t (:bold t))))
  3274. (info-xref ((t (:bold t ))))
  3275. (italic ((t (:bold t :underline t))))
  3276. (modeline ((t (:background "black" :foreground "white" :bold 1))))
  3277. (modeline-buffer-id ((t (:background "black" :foreground "white" :bold 1))))
  3278. (modeline-mousable ((t (:background "black" :foreground "white" :bold 1))))
  3279. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white" :bold 1))))
  3280. (region ((t (:background "black" :foreground "white" :bold 1))))
  3281. (secondary-selection ((t (:background "black" :foreground "white" :bold 1))))
  3282. (underline ((t (:bold t :underline t))))))))
  3283. (defun color-theme-infodoc ()
  3284. "Color theme by Frederic Giroud, created 2001-01-18.
  3285. Black on wheat scheme. Based on infodoc (xemacs variant distribution),
  3286. with my favorit fontlock color."
  3287. (interactive)
  3288. (color-theme-install
  3289. '(color-theme-infodoc
  3290. ((background-color . "wheat")
  3291. (background-mode . light)
  3292. (background-toolbar-color . "#000000000000")
  3293. (border-color . "#000000000000")
  3294. (bottom-toolbar-shadow-color . "#000000000000")
  3295. (cursor-color . "red")
  3296. (foreground-color . "black")
  3297. (top-toolbar-shadow-color . "#ffffffffffff"))
  3298. nil
  3299. (default ((t (:bold t))))
  3300. (blue ((t (:bold t :foreground "blue"))))
  3301. (bold ((t (:background "wheat" :foreground "black"))))
  3302. (bold-italic ((t (:bold t :background "wheat" :foreground "black"))))
  3303. (border-glyph ((t (:bold t))))
  3304. (calendar-today-face ((t (:underline t :bold t))))
  3305. (custom-button-face ((t (nil))))
  3306. (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
  3307. (custom-documentation-face ((t (:bold t :background "wheat" :foreground "purple4"))))
  3308. (custom-face-tag-face ((t (:underline t :bold t))))
  3309. (custom-group-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
  3310. (custom-group-tag-face-1 ((t (:underline t :bold t :background "wheat" :foreground "red"))))
  3311. (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
  3312. (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
  3313. (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
  3314. (custom-saved-face ((t (:underline t :bold t))))
  3315. (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
  3316. (custom-state-face ((t (:bold t :background "wheat" :foreground "dark green"))))
  3317. (custom-variable-button-face ((t (:underline t))))
  3318. (custom-variable-tag-face ((t (:underline t :bold t :background "wheat" :foreground "blue"))))
  3319. (diary-face ((t (:bold t :foreground "red"))))
  3320. (display-time-mail-balloon-enhance-face ((t (:bold t :background "wheat" :foreground "black"))))
  3321. (display-time-mail-balloon-gnus-group-face ((t (:bold t :background "wheat" :foreground "blue"))))
  3322. (display-time-time-balloon-face ((t (:bold t :background "light salmon" :foreground "dark green"))))
  3323. (font-lock-comment-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
  3324. (font-lock-doc-string-face ((t (:bold t :background "wheat" :foreground "purple4"))))
  3325. (font-lock-function-name-face ((t (:bold t :background "wheat" :foreground "blue4"))))
  3326. (font-lock-keyword-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
  3327. (font-lock-preprocessor-face ((t (:bold t :background "wheat" :foreground "orchid4"))))
  3328. (font-lock-reference-face ((t (:bold t :background "wheat" :foreground "red3"))))
  3329. (font-lock-string-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3330. (font-lock-type-face ((t (:bold t :background "wheat" :foreground "brown"))))
  3331. (font-lock-variable-name-face ((t (:bold t :background "wheat" :foreground "chocolate"))))
  3332. (font-lock-warning-face ((t (:bold t :background "wheat" :foreground "black"))))
  3333. (gdb-arrow-face ((t (:bold t :background "LightGreen" :foreground "black"))))
  3334. (green ((t (:bold t :foreground "green"))))
  3335. (gui-button-face ((t (:bold t :background "wheat" :foreground "red"))))
  3336. (gui-element ((t (:bold t :background "wheat" :foreground "black"))))
  3337. (highlight ((t (:bold t :background "darkseagreen2" :foreground "dark green"))))
  3338. (holiday-face ((t (:bold t :background "pink" :foreground "black"))))
  3339. (hproperty:but-face ((t (:bold t :background "wheat" :foreground "medium violet red"))))
  3340. (hproperty:flash-face ((t (:bold t :background "wheat" :foreground "gray80"))))
  3341. (hproperty:highlight-face ((t (:bold t :background "wheat" :foreground "red"))))
  3342. (hproperty:item-face ((t (:bold t))))
  3343. (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
  3344. (italic ((t (:bold t :background "wheat" :foreground "black"))))
  3345. (left-margin ((t (:bold t :background "wheat" :foreground "black"))))
  3346. (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "black"))))
  3347. (message-cited-text ((t (:bold t :background "wheat" :foreground "brown"))))
  3348. (message-header-contents ((t (:bold t :background "wheat" :foreground "black"))))
  3349. (message-headers ((t (:bold t :background "wheat" :foreground "black"))))
  3350. (message-highlighted-header-contents ((t (:bold t :background "wheat" :foreground "blue"))))
  3351. (message-url ((t (nil))))
  3352. (modeline ((t (:bold t :background "light salmon" :foreground "dark green"))))
  3353. (modeline-buffer-id ((t (:bold t :background "light salmon" :foreground "blue4"))))
  3354. (modeline-mousable ((t (:bold t :background "light salmon" :foreground "firebrick"))))
  3355. (modeline-mousable-minor-mode ((t (:bold t :background "light salmon" :foreground "green4"))))
  3356. (pointer ((t (:bold t :background "wheat" :foreground "red"))))
  3357. (primary-selection ((t (:bold t :background "medium sea green"))))
  3358. (red ((t (:bold t :foreground "red"))))
  3359. (right-margin ((t (:bold t :background "wheat" :foreground "black"))))
  3360. (secondary-selection ((t (:bold t :background "paleturquoise" :foreground "black"))))
  3361. (shell-input-face ((t (:bold t :background "wheat" :foreground "blue"))))
  3362. (shell-option-face ((t (:bold t :background "wheat" :foreground "turquoise4"))))
  3363. (shell-output-2-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3364. (shell-output-3-face ((t (:bold t :background "wheat" :foreground "dark goldenrod"))))
  3365. (shell-output-face ((t (:bold t :background "wheat" :foreground "black"))))
  3366. (shell-prompt-face ((t (:bold t :background "wheat" :foreground "dark orchid"))))
  3367. (text-cursor ((t (:bold t :background "red" :foreground "wheat"))))
  3368. (toolbar ((t (:bold t :background "wheat" :foreground "black"))))
  3369. (underline ((t (:underline t :bold t :background "wheat" :foreground "black"))))
  3370. (vertical-divider ((t (:bold t))))
  3371. (widget-button-face ((t (nil))))
  3372. (widget-button-pressed-face ((t (:bold t :background "wheat" :foreground "red"))))
  3373. (widget-documentation-face ((t (:bold t :background "wheat" :foreground "dark green"))))
  3374. (widget-field-face ((t (:bold t :background "gray85"))))
  3375. (widget-inactive-face ((t (:bold t :background "wheat" :foreground "dim gray"))))
  3376. (x-face ((t (:bold t :background "wheat" :foreground "black"))))
  3377. (yellow ((t (:bold t :foreground "yellow"))))
  3378. (zmacs-region ((t (:bold t :background "lightyellow" :foreground "darkgreen")))))))
  3379. (defun color-theme-classic ()
  3380. "Color theme by Frederic Giroud, created 2001-01-18.
  3381. AntiqueWhite on darkslategrey scheme. Based on Gnome 2, with my favorit
  3382. color foreground-color and fontlock color."
  3383. (interactive)
  3384. (color-theme-blue-gnus)
  3385. (let ((color-theme-is-cumulative t))
  3386. (color-theme-install
  3387. '(color-theme-classic
  3388. ((foreground-color . "AntiqueWhite")
  3389. (background-color . "darkslategrey")
  3390. (mouse-color . "Grey")
  3391. (cursor-color . "Red")
  3392. (border-color . "black")
  3393. (background-mode . dark))
  3394. ((apropos-keybinding-face . underline)
  3395. (apropos-label-face . italic)
  3396. (apropos-match-face . secondary-selection)
  3397. (apropos-property-face . bold-italic)
  3398. (apropos-symbol-face . info-xref)
  3399. (goto-address-mail-face . message-header-to-face)
  3400. (goto-address-mail-mouse-face . secondary-selection)
  3401. (goto-address-url-face . info-xref)
  3402. (goto-address-url-mouse-face . highlight)
  3403. (list-matching-lines-face . bold)
  3404. (view-highlight-face . highlight))
  3405. (default ((t (nil))))
  3406. (bold ((t (:bold t))))
  3407. (bold-italic ((t (:italic t :bold t :foreground "beige"))))
  3408. (calendar-today-face ((t (:underline t))))
  3409. (cperl-array-face ((t (:foreground "Yellow"))))
  3410. (cperl-hash-face ((t (:foreground "White"))))
  3411. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  3412. (custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
  3413. (custom-documentation-face ((t (:foreground "Grey"))))
  3414. (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
  3415. (custom-state-face ((t (:foreground "LightSalmon"))))
  3416. (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
  3417. (diary-face ((t (:foreground "IndianRed"))))
  3418. (erc-action-face ((t (:bold t))))
  3419. (erc-bold-face ((t (:bold t))))
  3420. (erc-default-face ((t (nil))))
  3421. (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
  3422. (erc-error-face ((t (:bold t :foreground "IndianRed"))))
  3423. (erc-input-face ((t (:foreground "Beige"))))
  3424. (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
  3425. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  3426. (erc-pal-face ((t (:foreground "pale green"))))
  3427. (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
  3428. (erc-underline-face ((t (:underline t))))
  3429. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  3430. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  3431. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  3432. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
  3433. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  3434. (eshell-ls-missing-face ((t (:foreground "black"))))
  3435. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  3436. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  3437. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  3438. (eshell-ls-special-face ((t (:foreground "Gold"))))
  3439. (eshell-ls-symlink-face ((t (:foreground "White"))))
  3440. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  3441. (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
  3442. (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
  3443. (font-lock-comment-face ((t (:foreground "tomato3"))))
  3444. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  3445. (font-lock-doc-string-face ((t (:foreground "LightSalmon3"))))
  3446. (font-lock-function-name-face ((t (:foreground "SteelBlue1"))))
  3447. (font-lock-keyword-face ((t (:foreground "cyan1"))))
  3448. (font-lock-reference-face ((t (:foreground "LightSalmon2"))))
  3449. (font-lock-string-face ((t (:foreground "LightSalmon3"))))
  3450. (font-lock-type-face ((t (:foreground "PaleGreen3"))))
  3451. (font-lock-variable-name-face ((t (:foreground "khaki1"))))
  3452. (font-lock-warning-face ((t (:bold t :foreground "IndianRed"))))
  3453. (font-lock-preprocessor-face ((t (:foreground "SkyBlue3"))))
  3454. (widget-field-face ((t (:background "DarkCyan"))))
  3455. (custom-group-tag-face ((t(:foreground "brown" :underline t))))
  3456. (custom-state-face ((t (:foreground "khaki"))))
  3457. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  3458. (highline-face ((t (:background "SeaGreen"))))
  3459. (holiday-face ((t (:background "DimGray"))))
  3460. (info-menu-5 ((t (:underline t))))
  3461. (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
  3462. (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
  3463. (isearch ((t (:foreground "red" :background "CornflowerBlue"))))
  3464. (italic ((t (:italic t))))
  3465. (modeline ((t (:background "LightSlateGray" :foreground "AntiqueWhite"))))
  3466. (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue"))))
  3467. (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
  3468. (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat"))))
  3469. (region ((t (:background "dark cyan" :foreground "cyan"))))
  3470. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  3471. (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  3472. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  3473. (underline ((t (:underline t))))
  3474. (widget-field-face ((t (:foreground "LightBlue"))))
  3475. (widget-inactive-face ((t (:foreground "DimGray"))))
  3476. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  3477. (woman-bold-face ((t (:bold t))))
  3478. (woman-italic-face ((t (:foreground "beige"))))
  3479. (woman-unknown-face ((t (:foreground "LightSalmon"))))))))
  3480. (defun color-theme-scintilla ()
  3481. "Color theme by Gordon Messmer, created 2001-02-07.
  3482. Based on the Scintilla editor.
  3483. If you want to modify the font as well, you should customize variable
  3484. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3485. The default setting will prevent color themes from installing specific
  3486. fonts."
  3487. (interactive)
  3488. (color-theme-install
  3489. ;; The light editor style doesn't seem to look right with
  3490. ;; the same font that works in the dark editor style.
  3491. ;; Dark letters on light background just isn't as visible.
  3492. '(color-theme-scintilla
  3493. ((font . "-monotype-courier new-bold-r-normal-*-*-140-*-*-m-*-iso8859-1")
  3494. (width . 95)
  3495. (height . 40)
  3496. (background-color . "white")
  3497. (foreground-color . "black")
  3498. (background-mode . light)
  3499. (mouse-color . "grey15")
  3500. (cursor-color . "grey15"))
  3501. (default ((t nil)))
  3502. (font-lock-comment-face ((t (:italic t :foreground "ForestGreen"))))
  3503. (font-lock-string-face ((t (:foreground "DarkMagenta"))))
  3504. (font-lock-keyword-face ((t (:foreground "NavyBlue"))))
  3505. (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
  3506. (font-lock-constant-face ((t (:foreground "Blue"))))
  3507. (font-lock-type-face ((t (:foreground "NavyBlue"))))
  3508. (font-lock-variable-name-face ((t (:foreground "DarkCyan"))))
  3509. (font-lock-function-name-face ((t (:foreground "DarkCyan"))))
  3510. (font-lock-builtin-face ((t (:foreground "NavyBlue"))))
  3511. (highline-face ((t (:background "Grey95"))))
  3512. (show-paren-match-face ((t (:background "Grey80"))))
  3513. (region ((t (:background "Grey80"))))
  3514. (highlight ((t (:foreground "ForestGreen"))))
  3515. (secondary-selection ((t (:background "NavyBlue" :foreground "white"))))
  3516. (widget-field-face ((t (:background "NavyBlue"))))
  3517. (widget-single-line-field-face ((t (:background "RoyalBlue")))))) )
  3518. (defun color-theme-gtk-ide ()
  3519. "Color theme by Gordon Messmer, created 2001-02-07.
  3520. Inspired by a GTK IDE whose name I've forgotten.
  3521. If you want to modify the font as well, you should customize variable
  3522. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3523. The default setting will prevent color themes from installing specific
  3524. fonts."
  3525. ;; The light editor style doesn't seem to look right with
  3526. ;; the same font that works in the dark editor style.
  3527. ;; Dark letters on light background just isn't as visible.
  3528. (interactive)
  3529. (color-theme-install
  3530. '(color-theme-gtk-ide
  3531. ((font . "-monotype-courier new-medium-r-normal-*-*-120-*-*-m-*-iso8859-15")
  3532. (width . 95)
  3533. (height . 45)
  3534. (background-color . "white")
  3535. (foreground-color . "black")
  3536. (background-mode . light)
  3537. (mouse-color . "grey15")
  3538. (cursor-color . "grey15"))
  3539. (default ((t nil)))
  3540. (font-lock-comment-face ((t (:italic t :foreground "grey55"))))
  3541. (font-lock-string-face ((t (:foreground "DarkRed"))))
  3542. (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
  3543. (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
  3544. (font-lock-constant-face ((t (:foreground "OliveDrab"))))
  3545. (font-lock-type-face ((t (:foreground "SteelBlue4"))))
  3546. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3547. (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
  3548. (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
  3549. (highline-face ((t (:background "grey95"))))
  3550. (show-paren-match-face ((t (:background "grey80"))))
  3551. (region ((t (:background "grey80"))))
  3552. (highlight ((t (:background "LightSkyBlue"))))
  3553. (secondary-selection ((t (:background "grey55"))))
  3554. (widget-field-face ((t (:background "navy"))))
  3555. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3556. (defun color-theme-midnight ()
  3557. "Color theme by Gordon Messmer, created 2001-02-07.
  3558. A color theme inspired by a certain IDE for Windows. It's all from memory,
  3559. since I only used that software in college.
  3560. If you want to modify the font as well, you should customize variable
  3561. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3562. The default setting will prevent color themes from installing specific
  3563. fonts."
  3564. (interactive)
  3565. (color-theme-install
  3566. '(color-theme-midnight
  3567. ((font . "fixed")
  3568. (width . 130)
  3569. (height . 50)
  3570. (background-color . "black")
  3571. (foreground-color . "grey85")
  3572. (background-mode . dark)
  3573. (mouse-color . "grey85")
  3574. (cursor-color . "grey85"))
  3575. (default ((t (nil))))
  3576. (font-lock-comment-face ((t (:italic t :foreground "grey60"))))
  3577. (font-lock-string-face ((t (:foreground "Magenta"))))
  3578. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  3579. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3580. (font-lock-constant-face ((t (:foreground "OliveDrab"))))
  3581. (font-lock-type-face ((t (:foreground "DarkCyan"))))
  3582. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3583. (font-lock-function-name-face ((t (:foreground "SlateBlue"))))
  3584. (font-lock-builtin-face ((t (:foreground "SkyBlue"))))
  3585. (highline-face ((t (:background "grey12"))))
  3586. (setnu-line-number-face ((t (:background "Grey15" :foreground "White" :bold t))))
  3587. (show-paren-match-face ((t (:background "grey30"))))
  3588. (region ((t (:background "grey15"))))
  3589. (highlight ((t (:background "blue"))))
  3590. (secondary-selection ((t (:background "navy"))))
  3591. (widget-field-face ((t (:background "navy"))))
  3592. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3593. (defun color-theme-jedit-grey ()
  3594. "Color theme by Gordon Messmer, created 2001-02-07.
  3595. Based on a screenshot of jedit.
  3596. If you want to modify the font as well, you should customize variable
  3597. `color-theme-legal-frame-parameters' to \"\\(color\\|mode\\|font\\|height\\|width\\)$\".
  3598. The default setting will prevent color themes from installing specific
  3599. fonts."
  3600. (interactive)
  3601. (color-theme-install
  3602. '(color-theme-jedit-grey
  3603. ((font . "fixed")
  3604. (width . 130)
  3605. (height . 50)
  3606. (background-color . "grey77")
  3607. (foreground-color . "black")
  3608. (background-mode . light)
  3609. (mouse-color . "black")
  3610. (cursor-color . "black"))
  3611. (default ((t (nil))))
  3612. (font-lock-comment-face ((t (:italic t :foreground "RoyalBlue4"))))
  3613. (font-lock-string-face ((t (:foreground "Gold4"))))
  3614. (font-lock-keyword-face ((t (:bold t :foreground "DarkRed"))))
  3615. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  3616. (font-lock-constant-face ((t (:foreground "DarkCyan"))))
  3617. (font-lock-type-face ((t (:foreground "DarkRed"))))
  3618. (font-lock-function-name-face ((t (:foreground "Green4"))))
  3619. (font-lock-builtin-face ((t (:bold t :foreground "DarkRed"))))
  3620. (highline-face ((t (:background "grey84"))))
  3621. (setnu-line-number-face ((t (:background "White" :foreground "MediumPurple3" :italic t))))
  3622. (show-paren-match-face ((t (:background "grey60"))))
  3623. (region ((t (:background "grey70"))))
  3624. (highlight ((t (:background "grey90"))))
  3625. (secondary-selection ((t (:background "white"))))
  3626. (widget-field-face ((t (:background "royalblue"))))
  3627. (widget-single-line-field-face ((t (:background "royalblue")))))) )
  3628. (defun color-theme-snow ()
  3629. "Color theme by Nicolas Rist, created 2001-03-08.
  3630. Black on gainsboro. In Emacs, the text background is a shade darker
  3631. than the frame background: Gainsboro instead of snow. This makes the
  3632. structure of the text clearer without being too agressive on the eyes.
  3633. On XEmacs, this doesn't really work as the frame and the default face
  3634. allways use the same foreground and background colors.
  3635. The color theme includes gnus, message, font-lock, sgml, and speedbar."
  3636. (interactive)
  3637. (color-theme-install
  3638. '(color-theme-snow
  3639. ((background-color . "snow2")
  3640. (background-mode . light)
  3641. (border-color . "black")
  3642. (cursor-color . "RoyalBlue2")
  3643. (foreground-color . "black")
  3644. (mouse-color . "black"))
  3645. ((gnus-mouse-face . highlight)
  3646. (list-matching-lines-face . bold)
  3647. (view-highlight-face . highlight))
  3648. (default ((t (:background "gainsboro" :foreground "dark slate gray"))))
  3649. (bold ((t (:bold t))))
  3650. (bold-italic ((t (:italic t :bold t))))
  3651. (calendar-today-face ((t (:underline t))))
  3652. (custom-button-face ((t (:background "gainsboro" :foreground "dark cyan"))))
  3653. (custom-documentation-face ((t (:background "gainsboro"))))
  3654. (diary-face ((t (:foreground "red"))))
  3655. (fg:black ((t (:foreground "black"))))
  3656. (font-lock-builtin-face ((t (:background "gainsboro" :foreground "medium orchid"))))
  3657. (font-lock-comment-face ((t (:background "gainsboro" :foreground "SteelBlue3"))))
  3658. (font-lock-constant-face ((t (:background "gainsboro" :foreground "orange3"))))
  3659. (font-lock-function-name-face ((t (:background "gainsboro" :foreground "blue3"))))
  3660. (font-lock-keyword-face ((t (:background "gainsboro" :foreground "red3"))))
  3661. (font-lock-string-face ((t (:background "gainsboro" :foreground "SpringGreen3"))))
  3662. (font-lock-type-face ((t (:background "gainsboro" :foreground "dark cyan"))))
  3663. (font-lock-variable-name-face ((t (:background "gainsboro" :foreground "purple2"))))
  3664. (font-lock-warning-face ((t (:bold t :background "gainsboro" :foreground "red"))))
  3665. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3666. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3667. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3668. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3669. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3670. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3671. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3672. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3673. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3674. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3675. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3676. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3677. (gnus-group-news-3-empty-face ((t (nil))))
  3678. (gnus-group-news-3-face ((t (:bold t))))
  3679. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3680. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3681. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  3682. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3683. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3684. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3685. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3686. (gnus-summary-high-unread-face ((t (:bold t))))
  3687. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3688. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3689. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3690. (gnus-summary-low-unread-face ((t (:italic t))))
  3691. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3692. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3693. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3694. (gnus-summary-normal-unread-face ((t (nil))))
  3695. (gnus-summary-selected-face ((t (:underline t))))
  3696. (gui-button-face ((t (:foreground "light grey"))))
  3697. (highlight ((t (:background "LightSteelBlue1"))))
  3698. (holiday-face ((t (:background "pink"))))
  3699. (ibuffer-marked-face ((t (:foreground "red"))))
  3700. (italic ((t (:italic t))))
  3701. (message-cited-text-face ((t (:foreground "red"))))
  3702. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3703. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3704. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  3705. (message-header-other-face ((t (:foreground "steel blue"))))
  3706. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3707. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3708. (message-header-xheader-face ((t (:foreground "blue"))))
  3709. (message-separator-face ((t (:foreground "brown"))))
  3710. (modeline ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3711. (modeline-buffer-id ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3712. (modeline-mousable ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3713. (modeline-mousable-minor-mode ((t (:background "dark slate gray" :foreground "gainsboro"))))
  3714. (region ((t (:background "lavender"))))
  3715. (secondary-selection ((t (:background "paleturquoise"))))
  3716. (sgml-comment-face ((t (:foreground "dark green"))))
  3717. (sgml-doctype-face ((t (:foreground "maroon"))))
  3718. (sgml-end-tag-face ((t (:foreground "blue2"))))
  3719. (sgml-entity-face ((t (:foreground "red2"))))
  3720. (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
  3721. (sgml-ms-end-face ((t (:foreground "maroon"))))
  3722. (sgml-ms-start-face ((t (:foreground "maroon"))))
  3723. (sgml-pi-face ((t (:foreground "maroon"))))
  3724. (sgml-sgml-face ((t (:foreground "maroon"))))
  3725. (sgml-short-ref-face ((t (:foreground "goldenrod"))))
  3726. (sgml-start-tag-face ((t (:foreground "blue2"))))
  3727. (show-paren-match-face ((t (:background "SlateGray1"))))
  3728. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  3729. (speedbar-button-face ((t (:foreground "green4"))))
  3730. (speedbar-directory-face ((t (:foreground "blue4"))))
  3731. (speedbar-file-face ((t (:foreground "cyan4"))))
  3732. (speedbar-highlight-face ((t (:background "dark turquoise" :foreground "white"))))
  3733. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  3734. (speedbar-tag-face ((t (:foreground "brown"))))
  3735. (underline ((t (:underline t)))))))
  3736. (defun color-theme-montz ()
  3737. "Color theme by Brady Montz, created 2001-03-08.
  3738. Black on Gray.
  3739. Includes dired, bbdb, font-lock, gnus, message, viper, and widget."
  3740. (interactive)
  3741. (color-theme-install
  3742. '(color-theme-montz
  3743. ((background-color . "gray80")
  3744. (background-mode . light)
  3745. (background-toolbar-color . "#cccccccccccc")
  3746. (border-color . "#000000000000")
  3747. (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
  3748. (cursor-color . "Red3")
  3749. (foreground-color . "black")
  3750. (top-toolbar-shadow-color . "#f5f5f5f5f5f5")
  3751. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  3752. ((gnus-mouse-face . highlight)
  3753. (paren-match-face . paren-face-match)
  3754. (paren-mismatch-face . paren-face-mismatch)
  3755. (paren-no-match-face . paren-face-no-match)
  3756. (smiley-mouse-face . highlight))
  3757. (default ((t (nil))))
  3758. (bbdb-company ((t (:italic t))))
  3759. (bbdb-field-name ((t (:bold t))))
  3760. (bbdb-field-value ((t (nil))))
  3761. (bbdb-name ((t (:underline t))))
  3762. (blue ((t (:foreground "blue"))))
  3763. (bold ((t (:bold t))))
  3764. (bold-italic ((t (:italic t :bold t))))
  3765. (border-glyph ((t (nil))))
  3766. (dired-face-boring ((t (:foreground "Gray65"))))
  3767. (dired-face-directory ((t (:bold t))))
  3768. (dired-face-executable ((t (:foreground "SeaGreen"))))
  3769. (dired-face-flagged ((t (:background "LightSlateGray"))))
  3770. (dired-face-marked ((t (:background "PaleVioletRed"))))
  3771. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  3772. (dired-face-setuid ((t (:foreground "Red"))))
  3773. (dired-face-socket ((t (:foreground "magenta"))))
  3774. (dired-face-symlink ((t (:foreground "cyan"))))
  3775. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  3776. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  3777. (display-time-time-balloon-face ((t (:foreground "red"))))
  3778. (font-lock-builtin-face ((t (:foreground "red3"))))
  3779. (font-lock-comment-face ((t (:foreground "blue"))))
  3780. (font-lock-constant-face ((t (:foreground "red3"))))
  3781. (font-lock-doc-string-face ((t (:foreground "mediumvioletred"))))
  3782. (font-lock-function-name-face ((t (:foreground "firebrick"))))
  3783. (font-lock-keyword-face ((t (:bold t :foreground "black"))))
  3784. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  3785. (font-lock-reference-face ((t (:foreground "red3"))))
  3786. (font-lock-string-face ((t (:foreground "mediumvioletred"))))
  3787. (font-lock-type-face ((t (:foreground "darkgreen"))))
  3788. (font-lock-variable-name-face ((t (:foreground "black"))))
  3789. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3790. (gnus-cite-attribution-face ((t (:italic t))))
  3791. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  3792. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  3793. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  3794. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  3795. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  3796. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  3797. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  3798. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  3799. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  3800. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  3801. (gnus-cite-face-9 ((t (:foreground "violet"))))
  3802. (gnus-emphasis-bold ((t (:bold t))))
  3803. (gnus-emphasis-bold-italic ((t (:bold t))))
  3804. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3805. (gnus-emphasis-italic ((t (:italic t))))
  3806. (gnus-emphasis-underline ((t (:underline t))))
  3807. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3808. (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
  3809. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3810. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3811. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3812. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3813. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3814. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3815. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3816. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3817. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3818. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3819. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3820. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3821. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3822. (gnus-group-news-3-empty-face ((t (nil))))
  3823. (gnus-group-news-3-face ((t (:bold t))))
  3824. (gnus-group-news-4-empty-face ((t (nil))))
  3825. (gnus-group-news-4-face ((t (:bold t))))
  3826. (gnus-group-news-5-empty-face ((t (nil))))
  3827. (gnus-group-news-5-face ((t (:bold t))))
  3828. (gnus-group-news-6-empty-face ((t (nil))))
  3829. (gnus-group-news-6-face ((t (:bold t))))
  3830. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3831. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3832. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  3833. (gnus-header-from-face ((t (:foreground "red3"))))
  3834. (gnus-header-name-face ((t (:foreground "maroon"))))
  3835. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  3836. (gnus-header-subject-face ((t (:foreground "red4"))))
  3837. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  3838. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  3839. (gnus-signature-face ((t (:italic t))))
  3840. (gnus-splash-face ((t (:foreground "Brown"))))
  3841. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3842. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3843. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3844. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3845. (gnus-summary-high-unread-face ((t (:bold t))))
  3846. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3847. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3848. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3849. (gnus-summary-low-unread-face ((t (:italic t))))
  3850. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3851. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3852. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3853. (gnus-summary-normal-unread-face ((t (nil))))
  3854. (gnus-summary-selected-face ((t (:underline t))))
  3855. (gnus-x-face ((t (:background "white" :foreground "black"))))
  3856. (green ((t (:foreground "green"))))
  3857. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  3858. (gui-element ((t (nil))))
  3859. (highlight ((t (:background "darkseagreen2"))))
  3860. (info-node ((t (:bold t))))
  3861. (info-xref ((t (:bold t))))
  3862. (isearch ((t (:background "paleturquoise"))))
  3863. (italic ((t (:italic t))))
  3864. (left-margin ((t (nil))))
  3865. (list-mode-item-selected ((t (:background "gray68" :foreground "black"))))
  3866. (message-cited-text-face ((t (:foreground "red"))))
  3867. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  3868. (message-header-name-face ((t (:foreground "cornflower blue"))))
  3869. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  3870. (message-header-other-face ((t (:foreground "steel blue"))))
  3871. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  3872. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  3873. (message-header-xheader-face ((t (:foreground "blue"))))
  3874. (message-mml-face ((t (:foreground "ForestGreen"))))
  3875. (message-separator-face ((t (:foreground "brown"))))
  3876. (modeline ((t (nil))))
  3877. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  3878. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  3879. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  3880. (paren-face-match ((t (:background "turquoise"))))
  3881. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  3882. (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
  3883. (pointer ((t (nil))))
  3884. (primary-selection ((t (:background "gray65"))))
  3885. (red ((t (:foreground "red"))))
  3886. (right-margin ((t (nil))))
  3887. (secondary-selection ((t (:background "paleturquoise"))))
  3888. (text-cursor ((t (:background "Red3" :foreground "gray80"))))
  3889. (toolbar ((t (nil))))
  3890. (underline ((t (:underline t))))
  3891. (vertical-divider ((t (nil))))
  3892. (viper-minibuffer-emacs-face ((t (:background "gray80" :foreground "black"))))
  3893. (viper-minibuffer-insert-face ((t (:background "gray80" :foreground "black"))))
  3894. (viper-minibuffer-vi-face ((t (:background "gray80" :foreground "black"))))
  3895. (viper-replace-overlay-face ((t (:background "black" :foreground "white"))))
  3896. (viper-search-face ((t (:background "black" :foreground "white"))))
  3897. (widget-button-face ((t (:bold t))))
  3898. (widget-button-pressed-face ((t (:foreground "red"))))
  3899. (widget-documentation-face ((t (:foreground "dark green"))))
  3900. (widget-field-face ((t (:background "gray85"))))
  3901. (widget-inactive-face ((t (:foreground "dim gray"))))
  3902. (yellow ((t (:foreground "yellow"))))
  3903. (zmacs-region ((t (:background "black" :foreground "white")))))))
  3904. (defun color-theme-aalto-light ()
  3905. "Color theme by Jari Aalto, created 2001-03-08.
  3906. Black on light yellow.
  3907. Used for Win32 on a Nokia446Xpro monitor.
  3908. Includes cvs, font-lock, gnus, message, sgml, widget"
  3909. (interactive)
  3910. (color-theme-install
  3911. '(color-theme-aalto-light
  3912. ((background-color . "#FFFFE0")
  3913. (background-mode . light)
  3914. (border-color . "black")
  3915. (cursor-color . "black")
  3916. (foreground-color . "black")
  3917. (mouse-color . "LawnGreen"))
  3918. ((gnus-mouse-face . highlight)
  3919. (list-matching-lines-face . bold)
  3920. (tinyreplace-:face . highlight)
  3921. (view-highlight-face . highlight))
  3922. (default ((t (nil))))
  3923. (bold ((t (:bold t))))
  3924. (bold-italic ((t (:italic t :bold t))))
  3925. (calendar-today-face ((t (:underline t))))
  3926. (cvs-filename-face ((t (:foreground "blue4"))))
  3927. (cvs-handled-face ((t (:foreground "pink"))))
  3928. (cvs-header-face ((t (:bold t :foreground "blue4"))))
  3929. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  3930. (cvs-msg-face ((t (:italic t))))
  3931. (cvs-need-action-face ((t (:foreground "orange"))))
  3932. (cvs-unknown-face ((t (:foreground "red"))))
  3933. (diary-face ((t (:foreground "red"))))
  3934. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  3935. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  3936. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  3937. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  3938. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  3939. (font-lock-function-name-face ((t (:foreground "Blue"))))
  3940. (font-lock-keyword-face ((t (:foreground "Purple"))))
  3941. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  3942. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  3943. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  3944. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  3945. (gnus-emphasis-bold ((t (:bold t))))
  3946. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  3947. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  3948. (gnus-emphasis-italic ((t (:italic t))))
  3949. (gnus-emphasis-underline ((t (:underline t))))
  3950. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  3951. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  3952. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  3953. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  3954. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  3955. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  3956. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  3957. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  3958. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  3959. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  3960. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  3961. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  3962. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  3963. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  3964. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  3965. (gnus-group-news-3-empty-face ((t (nil))))
  3966. (gnus-group-news-3-face ((t (:bold t))))
  3967. (gnus-group-news-4-empty-face ((t (nil))))
  3968. (gnus-group-news-4-face ((t (:bold t))))
  3969. (gnus-group-news-5-empty-face ((t (nil))))
  3970. (gnus-group-news-5-face ((t (:bold t))))
  3971. (gnus-group-news-6-empty-face ((t (nil))))
  3972. (gnus-group-news-6-face ((t (:bold t))))
  3973. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  3974. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  3975. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  3976. (gnus-header-from-face ((t (:foreground "red3"))))
  3977. (gnus-header-name-face ((t (:foreground "maroon"))))
  3978. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  3979. (gnus-header-subject-face ((t (:foreground "red4"))))
  3980. (gnus-signature-face ((t (:italic t))))
  3981. (gnus-splash-face ((t (:foreground "Brown"))))
  3982. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  3983. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  3984. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  3985. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  3986. (gnus-summary-high-unread-face ((t (:bold t))))
  3987. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  3988. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  3989. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  3990. (gnus-summary-low-unread-face ((t (:italic t))))
  3991. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  3992. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  3993. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  3994. (gnus-summary-normal-unread-face ((t (nil))))
  3995. (gnus-summary-selected-face ((t (:underline t))))
  3996. (highlight ((t (:background "darkseagreen2"))))
  3997. (holiday-face ((t (:background "pink"))))
  3998. (info-menu-5 ((t (:underline t))))
  3999. (info-node ((t (:italic t :bold t))))
  4000. (info-xref ((t (:bold t))))
  4001. (italic ((t (:italic t))))
  4002. (message-cited-text-face ((t (:foreground "red"))))
  4003. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  4004. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4005. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  4006. (message-header-other-face ((t (:foreground "steel blue"))))
  4007. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4008. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4009. (message-header-xheader-face ((t (:foreground "blue"))))
  4010. (message-mml-face ((t (:foreground "ForestGreen"))))
  4011. (message-separator-face ((t (:foreground "brown"))))
  4012. (modeline ((t (:background "black" :foreground "white"))))
  4013. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  4014. (modeline-mousable ((t (:background "black" :foreground "white"))))
  4015. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  4016. (region ((t (:background "gray"))))
  4017. (secondary-selection ((t (:background "paleturquoise"))))
  4018. (sgml-comment-face ((t (:foreground "dark turquoise"))))
  4019. (sgml-doctype-face ((t (:foreground "red"))))
  4020. (sgml-end-tag-face ((t (:foreground "blue"))))
  4021. (sgml-entity-face ((t (:foreground "magenta"))))
  4022. (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
  4023. (sgml-ms-end-face ((t (:foreground "green"))))
  4024. (sgml-ms-start-face ((t (:foreground "green"))))
  4025. (sgml-pi-face ((t (:foreground "lime green"))))
  4026. (sgml-sgml-face ((t (:foreground "brown"))))
  4027. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  4028. (sgml-start-tag-face ((t (:foreground "blue"))))
  4029. (show-paren-match-face ((t (:background "turquoise"))))
  4030. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4031. (underline ((t (:underline t))))
  4032. (widget-button-face ((t (:bold t))))
  4033. (widget-button-pressed-face ((t (:foreground "red"))))
  4034. (widget-documentation-face ((t (:foreground "dark green"))))
  4035. (widget-field-face ((t (:background "gray85"))))
  4036. (widget-inactive-face ((t (:foreground "dim gray"))))
  4037. (widget-single-line-field-face ((t (:background "gray85")))))))
  4038. (defun color-theme-aalto-dark ()
  4039. "Color theme by Jari Aalto, created 2001-03-08.
  4040. White on Deep Sky Blue 3.
  4041. Used for Unix Exceed on a Nokia446Xpro monitor.
  4042. Includes font-lock, info, and message."
  4043. (interactive)
  4044. (color-theme-install
  4045. '(color-theme-aalto-dark
  4046. ((background-color . "DeepSkyBlue3")
  4047. (background-mode . dark)
  4048. (border-color . "black")
  4049. (cursor-color . "yellow")
  4050. (foreground-color . "white")
  4051. (mouse-color . "black"))
  4052. ((ispell-highlight-face . highlight)
  4053. (list-matching-lines-face . bold)
  4054. (tinyreplace-:face . highlight)
  4055. (view-highlight-face . highlight))
  4056. (default ((t (nil))))
  4057. (bold ((t (:bold t :background "blue3" :foreground "white"))))
  4058. (bold-italic ((t (:italic t :bold t :foreground "blue3"))))
  4059. (calendar-today-face ((t (:underline t))))
  4060. (diary-face ((t (:foreground "red"))))
  4061. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  4062. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  4063. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  4064. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  4065. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  4066. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  4067. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  4068. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  4069. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  4070. (highlight ((t (:background "blue3" :foreground "white"))))
  4071. (holiday-face ((t (:background "pink"))))
  4072. (info-menu-5 ((t (:underline t))))
  4073. (info-node ((t (:italic t :bold t))))
  4074. (info-xref ((t (:bold t))))
  4075. (italic ((t (:italic t :background "gray"))))
  4076. (message-cited-text-face ((t (:foreground "red"))))
  4077. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  4078. (message-header-name-face ((t (:foreground "DarkGreen"))))
  4079. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  4080. (message-header-other-face ((t (:foreground "#b00000"))))
  4081. (message-header-subject-face ((t (:foreground "green3"))))
  4082. (message-header-to-face ((t (:bold t :foreground "green2"))))
  4083. (message-header-xheader-face ((t (:foreground "blue"))))
  4084. (message-mml-face ((t (:foreground "ForestGreen"))))
  4085. (message-separator-face ((t (:foreground "blue3"))))
  4086. (modeline ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4087. (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4088. (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4089. (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
  4090. (region ((t (:background "gray"))))
  4091. (secondary-selection ((t (:background "darkslateblue"))))
  4092. (show-paren-match-face ((t (:background "turquoise"))))
  4093. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4094. (underline ((t (:underline t)))))))
  4095. (defun color-theme-blippblopp ()
  4096. "Color theme by Thomas Sicheritz-Ponten, created 2001-03-12.
  4097. Used by researchers at Uppsala University and the Center for Biological
  4098. Sequence Analysis at the Technical University of Denmark. (As some of my
  4099. swedish friends couldn't pronounce Sicheritz - they choose to transform
  4100. it to something more \"swedish\": Blippblopp :-)
  4101. Includes font-lock and message."
  4102. (interactive)
  4103. (color-theme-install
  4104. '(color-theme-blippblopp
  4105. ((background-color . "white")
  4106. (background-mode . light)
  4107. (background-toolbar-color . "#cf3ccf3ccf3c")
  4108. (border-color . "#000000000000")
  4109. (bottom-toolbar-shadow-color . "#79e77df779e7")
  4110. (cursor-color . "Red3")
  4111. (foreground-color . "black")
  4112. (mouse-color . "black")
  4113. (top-toolbar-shadow-color . "#fffffbeeffff")
  4114. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  4115. ((ispell-highlight-face . highlight))
  4116. (default ((t (nil))))
  4117. (blue ((t (:foreground "blue"))))
  4118. (bold ((t (:bold t))))
  4119. (bold-italic ((t (:italic t :bold t))))
  4120. (excerpt ((t (:italic t))))
  4121. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  4122. (fg:black ((t (:foreground "black"))))
  4123. (fixed ((t (:bold t))))
  4124. (font-lock-builtin-face ((t (:foreground "red3"))))
  4125. (font-lock-comment-face ((t (:foreground "orange"))))
  4126. (font-lock-constant-face ((t (:foreground "red3"))))
  4127. (font-lock-doc-string-face ((t (:foreground "darkgreen"))))
  4128. (font-lock-exit-face ((t (:foreground "green"))))
  4129. (font-lock-function-name-face ((t (:bold t :foreground "red"))))
  4130. (font-lock-keyword-face ((t (:bold t :foreground "steelblue"))))
  4131. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  4132. (font-lock-reference-face ((t (:foreground "red3"))))
  4133. (font-lock-string-face ((t (:foreground "green4"))))
  4134. (font-lock-type-face ((t (:bold t :foreground "blue"))))
  4135. (font-lock-variable-name-face ((t (:foreground "black"))))
  4136. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  4137. (green ((t (:foreground "green"))))
  4138. (message-cited-text-face ((t (:foreground "red"))))
  4139. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  4140. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4141. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  4142. (message-header-other-face ((t (:foreground "steel blue"))))
  4143. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4144. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4145. (message-header-xheader-face ((t (:foreground "blue"))))
  4146. (message-mml-face ((t (:foreground "ForestGreen"))))
  4147. (message-separator-face ((t (:foreground "brown"))))
  4148. (modeline ((t (:background "dimgray" :foreground "lemonchiffon"))))
  4149. (modeline-buffer-id ((t (:background "dimgray" :foreground "green3"))))
  4150. (modeline-mousable ((t (:background "dimgray" :foreground "orange"))))
  4151. (modeline-mousable-minor-mode ((t (:background "dimgray" :foreground "blue4"))))
  4152. (primary-selection ((t (:background "gray65"))))
  4153. (red ((t (:foreground "red"))))
  4154. (region ((t (:background "gray65"))))
  4155. (secondary-selection ((t (:background "paleturquoise"))))
  4156. (show-paren-match-face ((t (:background "turquoise"))))
  4157. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4158. (text-cursor ((t (:background "Red3" :foreground "white"))))
  4159. (toolbar ((t (:background "Gray80"))))
  4160. (underline ((t (:underline t))))
  4161. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  4162. (vertical-divider ((t (:background "Gray80"))))
  4163. (xref-keyword-face ((t (:foreground "blue"))))
  4164. (xref-list-pilot-face ((t (:foreground "navy"))))
  4165. (xref-list-symbol-face ((t (:foreground "navy"))))
  4166. (yellow ((t (:foreground "yellow"))))
  4167. (zmacs-region ((t (:background "gray65")))))))
  4168. (defun color-theme-hober (&optional preview)
  4169. "Does all sorts of crazy stuff.
  4170. Originally based on color-theme-standard, so I probably still have some
  4171. setting that I haven't changed. I also liberally copied settings from
  4172. the other themes in this package. The end result isn't much like the
  4173. other ones; I hope you like it."
  4174. (interactive)
  4175. (color-theme-install
  4176. '(color-theme-hober
  4177. ((foreground-color . "#c0c0c0")
  4178. (background-color . "black")
  4179. (mouse-color . "black")
  4180. (cursor-color . "medium turquoise")
  4181. (border-color . "black")
  4182. (background-mode . dark))
  4183. (default ((t (nil))))
  4184. (modeline ((t (:foreground "white" :background "darkslateblue"))))
  4185. (modeline-buffer-id ((t (:foreground "white" :background "darkslateblue"))))
  4186. (modeline-mousable ((t (:foreground "white" :background "darkslateblue"))))
  4187. (modeline-mousable-minor-mode ((t (:foreground "white" :background "darkslateblue"))))
  4188. (highlight ((t (:foreground "black" :background "#c0c0c0"))))
  4189. (bold ((t (:bold t))))
  4190. (italic ((t (:italic t))))
  4191. (bold-italic ((t (:bold t :italic t))))
  4192. (region ((t (:foreground "white" :background "darkslateblue"))))
  4193. (zmacs-region ((t (:foreground "white" :background "darkslateblue"))))
  4194. (secondary-selection ((t (:background "paleturquoise"))))
  4195. (underline ((t (:underline t))))
  4196. (diary-face ((t (:foreground "red"))))
  4197. (calendar-today-face ((t (:underline t))))
  4198. (holiday-face ((t (:background "pink"))))
  4199. (widget-documentation-face ((t (:foreground "dark green" :background "white"))))
  4200. (widget-button-face ((t (:bold t))))
  4201. (widget-button-pressed-face ((t (:foreground "red" :background "black"))))
  4202. (widget-field-face ((t (:background "gray85" :foreground "black"))))
  4203. (widget-single-line-field-face ((t (:background "gray85" :foreground "black"))))
  4204. (widget-inactive-face ((t (:foreground "dim gray" :background "red"))))
  4205. (fixed ((t (:bold t))))
  4206. (excerpt ((t (:italic t))))
  4207. (term-default-fg ((t (nil))))
  4208. (term-default-bg ((t (nil))))
  4209. (term-default-fg-inv ((t (nil))))
  4210. (term-default-bg-inv ((t (nil))))
  4211. (term-bold ((t (:bold t))))
  4212. (term-underline ((t (:underline t))))
  4213. (term-invisible ((t (nil))))
  4214. (term-invisible-inv ((t (nil))))
  4215. (term-white ((t (:foreground "#c0c0c0"))))
  4216. (term-whitebg ((t (:background "#c0c0c0"))))
  4217. (term-black ((t (:foreground "black"))))
  4218. (term-blackbg ((t (:background "black"))))
  4219. (term-red ((t (:foreground "#ef8171"))))
  4220. (term-redbg ((t (:background "#ef8171"))))
  4221. (term-green ((t (:foreground "#e5f779"))))
  4222. (term-greenbg ((t (:background "#e5f779"))))
  4223. (term-yellow ((t (:foreground "#fff796"))))
  4224. (term-yellowbg ((t (:background "#fff796"))))
  4225. (term-blue ((t (:foreground "#4186be"))))
  4226. (term-bluebg ((t (:background "#4186be"))))
  4227. (term-magenta ((t (:foreground "#ef9ebe"))))
  4228. (term-magentabg ((t (:background "#ef9ebe"))))
  4229. (term-cyan ((t (:foreground "#71bebe"))))
  4230. (term-cyanbg ((t (:background "#71bebe"))))
  4231. (font-lock-keyword-face ((t (:foreground "#00ffff"))))
  4232. (font-lock-comment-face ((t (:foreground "Red"))))
  4233. (font-lock-string-face ((t (:foreground "#ffff00"))))
  4234. (font-lock-constant-face ((t (:foreground "#00ff00"))))
  4235. (font-lock-builtin-face ((t (:foreground "#ffaa00"))))
  4236. (font-lock-type-face ((t (:foreground "Coral"))))
  4237. (font-lock-warning-face ((t (:foreground "Red" :bold t))))
  4238. (font-lock-function-name-face ((t (:foreground "#4186be"))))
  4239. (font-lock-variable-name-face ((t (:foreground "white" :bold t))))
  4240. (message-header-to-face ((t (:foreground "#4186be" :bold t))))
  4241. (message-header-cc-face ((t (:foreground "#4186be"))))
  4242. (message-header-subject-face ((t (:foreground "#4186be" :bold t))))
  4243. (message-header-newsgroups-face ((t (:foreground "Coral" :bold t))))
  4244. (message-header-other-face ((t (:foreground "steel blue"))))
  4245. (message-header-name-face ((t (:foreground "white"))))
  4246. (message-header-xheader-face ((t (:foreground "blue"))))
  4247. (message-separator-face ((t (:foreground "brown"))))
  4248. (message-cited-text-face ((t (:foreground "white"))))
  4249. (gnus-header-from-face ((t (:foreground "Coral"))))
  4250. (gnus-header-subject-face ((t (:foreground "#4186be"))))
  4251. (gnus-header-newsgroups-face ((t (:foreground "#4186be" :italic t))))
  4252. (gnus-header-name-face ((t (:foreground "white"))))
  4253. (gnus-header-content-face ((t (:foreground "#4186be" :italic t))))
  4254. (gnus-cite-attribution-face ((t (:italic t))))
  4255. (gnus-cite-face-list ((t (:bold nil :foreground "red"))))
  4256. (gnus-group-news-1-face ((t (:foreground "ForestGreen" :bold t))))
  4257. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  4258. (gnus-group-news-2-face ((t (:foreground "CadetBlue4" :bold t))))
  4259. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  4260. (gnus-group-news-3-face ((t (:bold t))))
  4261. (gnus-group-news-3-empty-face ((t (nil))))
  4262. (gnus-group-news-low-face ((t (:foreground "DarkGreen" :bold t))))
  4263. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  4264. (gnus-group-mail-1-face ((t (:foreground "DeepPink3" :bold t))))
  4265. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  4266. (gnus-group-mail-2-face ((t (:foreground "HotPink3" :bold t))))
  4267. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  4268. (gnus-group-mail-3-face ((t (:foreground "magenta4" :bold t))))
  4269. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  4270. (gnus-group-mail-low-face ((t (:foreground "DeepPink4" :bold t))))
  4271. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  4272. (gnus-summary-selected-face ((t (:underline t))))
  4273. (gnus-summary-cancelled-face ((t (:foreground "yellow" :background "black"))))
  4274. (gnus-summary-high-ticked-face ((t (:foreground "firebrick" :bold t))))
  4275. (gnus-summary-low-ticked-face ((t (:foreground "firebrick" :italic t))))
  4276. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  4277. (gnus-summary-high-ancient-face ((t (:foreground "RoyalBlue" :bold t))))
  4278. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue" :italic t))))
  4279. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  4280. (gnus-summary-high-unread-face ((t (:bold t))))
  4281. (gnus-summary-low-unread-face ((t (:italic t))))
  4282. (gnus-summary-normal-unread-face ((t (nil))))
  4283. (gnus-summary-high-read-face ((t (:foreground "DarkGreen" :bold t))))
  4284. (gnus-summary-low-read-face ((t (:foreground "DarkGreen" :italic t))))
  4285. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  4286. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  4287. (gnus-emphasis-bold ((t (:bold t))))
  4288. (gnus-emphasis-italic ((t (:italic t))))
  4289. (gnus-emphasis-underline ((t (:underline t))))
  4290. (gnus-emphasis-underline-bold ((t (:bold t :underline t))))
  4291. (gnus-emphasis-underline-italic ((t (:italic t :underline t))))
  4292. (gnus-emphasis-bold-italic ((t (:bold t :italic t))))
  4293. (gnus-emphasis-underline-bold-italic ((t (:bold t :italic t :underline t))))
  4294. (gnus-signature-face ((t (:foreground "white"))))
  4295. (gnus-cite-face-1 ((t (:foreground "Khaki"))))
  4296. (gnus-cite-face-2 ((t (:foreground "Coral"))))
  4297. (gnus-cite-face-3 ((t (:foreground "#4186be"))))
  4298. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  4299. (gnus-cite-face-5 ((t (:foreground "IndianRed"))))
  4300. (highlight-changes-face ((t (:foreground "red"))))
  4301. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  4302. (show-paren-match-face ((t (:foreground "white" :background "purple"))))
  4303. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  4304. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  4305. (cperl-array-face ((t (:foreground "Blue" :bold t :background "lightyellow2"))))
  4306. (cperl-hash-face ((t (:foreground "Red" :bold t :italic t :background "lightyellow2"))))
  4307. (makefile-space-face ((t (:background "hotpink"))))
  4308. (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
  4309. (sgml-ignored-face ((t (:foreground "gray20" :background "gray60"))))
  4310. (sgml-doctype-face ((t (:foreground "orange"))))
  4311. (sgml-sgml-face ((t (:foreground "yellow"))))
  4312. (sgml-end-tag-face ((t (:foreground "greenyellow"))))
  4313. (sgml-entity-face ((t (:foreground "gold"))))
  4314. (flyspell-incorrect-face ((t (:foreground "OrangeRed" :bold t :underline t))))
  4315. (flyspell-duplicate-face ((t (:foreground "Gold3" :bold t :underline t)))))))
  4316. (defun color-theme-bharadwaj ()
  4317. "Color theme by Girish Bharadwaj, created 2001-03-28.
  4318. Black on gainsboro. Includes BBDB, custom, cperl, cvs, dired, ediff,
  4319. erc, eshell, font-latex, font-lock, gnus, info, message, paren, sgml,
  4320. shell, speedbar, term, vhdl, viper, widget, woman, xref. Wow!"
  4321. (interactive)
  4322. (color-theme-install
  4323. '(color-theme-bharadwaj
  4324. ((background-color . "gainsboro")
  4325. (background-mode . light)
  4326. (background-toolbar-color . "#cf3ccf3ccf3c")
  4327. (border-color . "black")
  4328. (bottom-toolbar-shadow-color . "#79e77df779e7")
  4329. (cursor-color . "grey15")
  4330. (foreground-color . "black")
  4331. (mouse-color . "grey15")
  4332. (top-toolbar-shadow-color . "#fffffbeeffff")
  4333. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  4334. ((gnus-mouse-face . highlight)
  4335. (smiley-mouse-face . highlight))
  4336. (default ((t (nil))))
  4337. (bbdb-company ((t (nil))))
  4338. (bbdb-field-name ((t (:bold t))))
  4339. (bbdb-field-value ((t (nil))))
  4340. (bbdb-name ((t (:underline t))))
  4341. (blank-space-face ((t (nil))))
  4342. (blank-tab-face ((t (nil))))
  4343. (blue ((t (nil))))
  4344. (bold ((t (:bold t))))
  4345. (bold-italic ((t (:bold t))))
  4346. (border-glyph ((t (nil))))
  4347. (calendar-today-face ((t (:underline t))))
  4348. (comint-input-face ((t (:foreground "deepskyblue"))))
  4349. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  4350. (cperl-hash-face ((t (:bold t :background "lightyellow2" :foreground "Red"))))
  4351. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  4352. (custom-button-face ((t (:bold t))))
  4353. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  4354. (custom-documentation-face ((t (nil))))
  4355. (custom-face-tag-face ((t (:underline t))))
  4356. (custom-group-tag-face ((t (:underline t :bold t :foreground "blue"))))
  4357. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  4358. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  4359. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  4360. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  4361. (custom-saved-face ((t (:underline t))))
  4362. (custom-set-face ((t (:background "white" :foreground "blue"))))
  4363. (custom-state-face ((t (:foreground "dark green"))))
  4364. (custom-variable-button-face ((t (:underline t :bold t))))
  4365. (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
  4366. (cvs-filename-face ((t (:foreground "blue4"))))
  4367. (cvs-handled-face ((t (:foreground "pink"))))
  4368. (cvs-header-face ((t (:bold t :foreground "blue4"))))
  4369. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  4370. (cvs-msg-face ((t (nil))))
  4371. (cvs-need-action-face ((t (:foreground "orange"))))
  4372. (cvs-unknown-face ((t (:foreground "red"))))
  4373. (diary-face ((t (:bold t :foreground "red"))))
  4374. (dired-face-boring ((t (:foreground "Gray65"))))
  4375. (dired-face-directory ((t (:bold t :foreground "forestgreen"))))
  4376. (dired-face-executable ((t (:foreground "indianred"))))
  4377. (dired-face-flagged ((t (:background "SlateGray"))))
  4378. (dired-face-marked ((t (:background "darkblue" :foreground "deepskyblue"))))
  4379. (dired-face-permissions ((t (nil))))
  4380. (dired-face-setuid ((t (:foreground "Red"))))
  4381. (dired-face-socket ((t (:foreground "magenta"))))
  4382. (dired-face-symlink ((t (:foreground "grey95"))))
  4383. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  4384. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  4385. (display-time-time-balloon-face ((t (:foreground "red"))))
  4386. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  4387. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  4388. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  4389. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  4390. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  4391. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  4392. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  4393. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  4394. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  4395. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  4396. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  4397. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  4398. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  4399. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  4400. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  4401. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  4402. (erc-action-face ((t (:bold t))))
  4403. (erc-bold-face ((t (:bold t))))
  4404. (erc-default-face ((t (nil))))
  4405. (erc-direct-msg-face ((t (nil))))
  4406. (erc-error-face ((t (:bold t))))
  4407. (erc-input-face ((t (nil))))
  4408. (erc-inverse-face ((t (nil))))
  4409. (erc-notice-face ((t (nil))))
  4410. (erc-pal-face ((t (nil))))
  4411. (erc-prompt-face ((t (nil))))
  4412. (erc-underline-face ((t (nil))))
  4413. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  4414. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  4415. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  4416. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  4417. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  4418. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  4419. (eshell-ls-picture-face ((t (nil))))
  4420. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  4421. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  4422. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  4423. (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
  4424. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  4425. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  4426. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  4427. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  4428. (excerpt ((t (nil))))
  4429. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  4430. (fg:black ((t (:foreground "black"))))
  4431. (fixed ((t (:bold t))))
  4432. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  4433. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  4434. (font-latex-bold-face ((t (nil))))
  4435. (font-latex-italic-face ((t (nil))))
  4436. (font-latex-math-face ((t (nil))))
  4437. (font-latex-sedate-face ((t (nil))))
  4438. (font-latex-string-face ((t (nil))))
  4439. (font-latex-warning-face ((t (nil))))
  4440. (font-lock-builtin-face ((t (:foreground "ForestGreen"))))
  4441. (font-lock-comment-face ((t (:foreground "grey55"))))
  4442. (font-lock-constant-face ((t (:foreground "OliveDrab"))))
  4443. (font-lock-doc-string-face ((t (:bold t :foreground "blue4"))))
  4444. (font-lock-exit-face ((t (nil))))
  4445. (font-lock-function-name-face ((t (:italic t :bold t :foreground "SlateBlue"))))
  4446. (font-lock-keyword-face ((t (:foreground "DarkBlue"))))
  4447. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  4448. (font-lock-reference-face ((t (:foreground "red3"))))
  4449. (font-lock-string-face ((t (:foreground "DarkRed"))))
  4450. (font-lock-type-face ((t (:foreground "SteelBlue4"))))
  4451. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  4452. (font-lock-warning-face ((t (:bold t :foreground "VioletRed"))))
  4453. (fringe ((t (:background "grey95"))))
  4454. (gnus-cite-attribution-face ((t (:bold t))))
  4455. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  4456. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  4457. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  4458. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  4459. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  4460. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  4461. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  4462. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  4463. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  4464. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  4465. (gnus-cite-face-9 ((t (:foreground "violet"))))
  4466. (gnus-emphasis-bold ((t (:bold t))))
  4467. (gnus-emphasis-bold-italic ((t (:bold t))))
  4468. (gnus-emphasis-highlight-words ((t (nil))))
  4469. (gnus-emphasis-italic ((t (nil))))
  4470. (gnus-emphasis-underline ((t (:underline t))))
  4471. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  4472. (gnus-emphasis-underline-bold-italic ((t (:underline t :bold t))))
  4473. (gnus-emphasis-underline-italic ((t (:underline t))))
  4474. (gnus-filterhist-face-1 ((t (nil))))
  4475. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  4476. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  4477. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  4478. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  4479. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  4480. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  4481. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  4482. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  4483. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  4484. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  4485. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  4486. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  4487. (gnus-group-news-3-empty-face ((t (nil))))
  4488. (gnus-group-news-3-face ((t (:bold t))))
  4489. (gnus-group-news-4-empty-face ((t (nil))))
  4490. (gnus-group-news-4-face ((t (:bold t))))
  4491. (gnus-group-news-5-empty-face ((t (nil))))
  4492. (gnus-group-news-5-face ((t (:bold t))))
  4493. (gnus-group-news-6-empty-face ((t (nil))))
  4494. (gnus-group-news-6-face ((t (:bold t))))
  4495. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  4496. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  4497. (gnus-header-content-face ((t (:foreground "indianred4"))))
  4498. (gnus-header-from-face ((t (:bold t :foreground "red3"))))
  4499. (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
  4500. (gnus-header-newsgroups-face ((t (:bold t :foreground "MidnightBlue"))))
  4501. (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
  4502. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  4503. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  4504. (gnus-signature-face ((t (nil))))
  4505. (gnus-splash ((t (nil))))
  4506. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  4507. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  4508. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  4509. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  4510. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  4511. (gnus-summary-high-unread-face ((t (:bold t))))
  4512. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
  4513. (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
  4514. (gnus-summary-low-ticked-face ((t (:bold t :foreground "firebrick"))))
  4515. (gnus-summary-low-unread-face ((t (nil))))
  4516. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  4517. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  4518. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
  4519. (gnus-summary-normal-unread-face ((t (:bold t))))
  4520. (gnus-summary-selected-face ((t (:underline t))))
  4521. (gnus-x-face ((t (:background "white" :foreground "black"))))
  4522. (green ((t (nil))))
  4523. (gui-button-face ((t (:background "grey75"))))
  4524. (gui-element ((t (:background "Gray80"))))
  4525. (highlight ((t (:background "LightSkyBlue"))))
  4526. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  4527. (highlight-changes-face ((t (:foreground "red"))))
  4528. (highline-face ((t (:background "grey95"))))
  4529. (holiday-face ((t (:background "pink"))))
  4530. (html-helper-italic-face ((t (nil))))
  4531. (info-menu-5 ((t (:underline t))))
  4532. (info-node ((t (:bold t))))
  4533. (info-xref ((t (:bold t))))
  4534. (isearch ((t (:background "yellow"))))
  4535. (isearch-secondary ((t (:foreground "red3"))))
  4536. (italic ((t (nil))))
  4537. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  4538. (left-margin ((t (nil))))
  4539. (linemenu-face ((t (nil))))
  4540. (list-mode-item-selected ((t (nil))))
  4541. (makefile-space-face ((t (:background "hotpink"))))
  4542. (message-cited-text-face ((t (:foreground "red"))))
  4543. (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
  4544. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4545. (message-header-newsgroups-face ((t (:bold t :foreground "blue4"))))
  4546. (message-header-other-face ((t (:foreground "steel blue"))))
  4547. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4548. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4549. (message-header-xheader-face ((t (:foreground "blue"))))
  4550. (message-mml-face ((t (:bold t))))
  4551. (message-separator-face ((t (:foreground "brown"))))
  4552. (modeline ((t (:background "white" :foreground "black"))))
  4553. (modeline-buffer-id ((t (:background "white" :foreground "black"))))
  4554. (modeline-mousable ((t (:background "white" :foreground "black"))))
  4555. (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
  4556. (paren-blink-off ((t (:foreground "gray80"))))
  4557. (paren-face-match ((t (:background "turquoise"))))
  4558. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  4559. (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
  4560. (paren-match ((t (:background "darkseagreen2"))))
  4561. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  4562. (paren-mismatch-face ((t (:bold t))))
  4563. (paren-no-match-face ((t (:bold t))))
  4564. (pointer ((t (nil))))
  4565. (primary-selection ((t (nil))))
  4566. (red ((t (nil))))
  4567. (region ((t (:background "grey80"))))
  4568. (right-margin ((t (nil))))
  4569. (secondary-selection ((t (:background "grey55"))))
  4570. (sgml-comment-face ((t (:foreground "dark turquoise"))))
  4571. (sgml-doctype-face ((t (nil))))
  4572. (sgml-end-tag-face ((t (nil))))
  4573. (sgml-entity-face ((t (nil))))
  4574. (sgml-ignored-face ((t (nil))))
  4575. (sgml-ms-end-face ((t (:foreground "green"))))
  4576. (sgml-ms-start-face ((t (:foreground "green"))))
  4577. (sgml-pi-face ((t (:foreground "lime green"))))
  4578. (sgml-sgml-face ((t (nil))))
  4579. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  4580. (sgml-start-tag-face ((t (nil))))
  4581. (shell-option-face ((t (:foreground "blue"))))
  4582. (shell-output-2-face ((t (:foreground "darkseagreen"))))
  4583. (shell-output-3-face ((t (:foreground "slategrey"))))
  4584. (shell-output-face ((t (:foreground "palegreen"))))
  4585. (shell-prompt-face ((t (:foreground "red"))))
  4586. (show-paren-match-face ((t (:background "grey80"))))
  4587. (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
  4588. (speedbar-button-face ((t (:bold t :foreground "green4"))))
  4589. (speedbar-directory-face ((t (:bold t :foreground "blue4"))))
  4590. (speedbar-file-face ((t (:bold t :foreground "cyan4"))))
  4591. (speedbar-highlight-face ((t (:background "green"))))
  4592. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  4593. (speedbar-tag-face ((t (:foreground "brown"))))
  4594. (swbuff-current-buffer-face ((t (:bold t))))
  4595. (template-message-face ((t (:bold t))))
  4596. (term-black ((t (:foreground "black"))))
  4597. (term-blackbg ((t (:background "black"))))
  4598. (term-blue ((t (:foreground "blue"))))
  4599. (term-bluebg ((t (:background "blue"))))
  4600. (term-bold ((t (:bold t))))
  4601. (term-cyan ((t (:foreground "cyan"))))
  4602. (term-cyanbg ((t (:background "cyan"))))
  4603. (term-default-bg ((t (nil))))
  4604. (term-default-bg-inv ((t (nil))))
  4605. (term-default-fg ((t (nil))))
  4606. (term-default-fg-inv ((t (nil))))
  4607. (term-green ((t (:foreground "green"))))
  4608. (term-greenbg ((t (:background "green"))))
  4609. (term-invisible ((t (nil))))
  4610. (term-invisible-inv ((t (nil))))
  4611. (term-magenta ((t (:foreground "magenta"))))
  4612. (term-magentabg ((t (:background "magenta"))))
  4613. (term-red ((t (:foreground "red"))))
  4614. (term-redbg ((t (:background "red"))))
  4615. (term-underline ((t (:underline t))))
  4616. (term-white ((t (:foreground "white"))))
  4617. (term-whitebg ((t (:background "white"))))
  4618. (term-yellow ((t (:foreground "yellow"))))
  4619. (term-yellowbg ((t (:background "yellow"))))
  4620. (text-cursor ((t (:background "grey15" :foreground "gainsboro"))))
  4621. (toolbar ((t (nil))))
  4622. (underline ((t (:underline t))))
  4623. (vc-annotate-face-0046FF ((t (nil))))
  4624. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  4625. (vertical-divider ((t (nil))))
  4626. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  4627. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  4628. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  4629. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  4630. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  4631. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  4632. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  4633. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  4634. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  4635. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  4636. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  4637. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  4638. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  4639. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  4640. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  4641. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  4642. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  4643. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  4644. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  4645. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  4646. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  4647. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  4648. (vvb-face ((t (:background "pink" :foreground "black"))))
  4649. (widget-button-face ((t (:bold t))))
  4650. (widget-button-pressed-face ((t (:foreground "red"))))
  4651. (widget-documentation-face ((t (:foreground "dark green"))))
  4652. (widget-field-face ((t (:background "navy" :foreground "white"))))
  4653. (widget-inactive-face ((t (:foreground "dim gray"))))
  4654. (widget-single-line-field-face ((t (:background "royalblue" :foreground "white"))))
  4655. (woman-bold-face ((t (:bold t))))
  4656. (woman-italic-face ((t (nil))))
  4657. (woman-unknown-face ((t (nil))))
  4658. (xref-keyword-face ((t (:foreground "blue"))))
  4659. (xref-list-pilot-face ((t (:foreground "navy"))))
  4660. (xref-list-symbol-face ((t (:foreground "navy"))))
  4661. (yellow ((t (nil))))
  4662. (zmacs-region ((t (:background "royalblue")))))))
  4663. (defun color-theme-oswald ()
  4664. "Color theme by Tom Oswald, created 2001-04-18.
  4665. Green on black, includes font-lock, show-paren, and ediff."
  4666. (interactive)
  4667. (color-theme-install
  4668. '(color-theme-oswald
  4669. ((background-color . "black")
  4670. (background-mode . dark)
  4671. (border-color . "black")
  4672. (cursor-color . "black")
  4673. (foreground-color . "green")
  4674. (mouse-color . "black"))
  4675. ((blank-space-face . blank-space-face)
  4676. (blank-tab-face . blank-tab-face)
  4677. (list-matching-lines-face . bold)
  4678. (view-highlight-face . highlight))
  4679. (default ((t (nil))))
  4680. (blank-space-face ((t (:background "LightGray"))))
  4681. (blank-tab-face ((t (:background "green" :foreground "black"))))
  4682. (bold ((t (:bold t))))
  4683. (bold-italic ((t (:italic t :bold t))))
  4684. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  4685. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  4686. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  4687. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  4688. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  4689. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  4690. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  4691. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  4692. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  4693. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  4694. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  4695. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  4696. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  4697. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  4698. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  4699. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  4700. (font-lock-builtin-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
  4701. (font-lock-comment-face ((t (:italic t :foreground "LightGoldenrod4"))))
  4702. (font-lock-constant-face ((t (:italic t :foreground "HotPink"))))
  4703. (font-lock-doc-string-face ((t (:italic t :foreground "orange"))))
  4704. (font-lock-function-name-face ((t (:italic t :bold t :foreground "red"))))
  4705. (font-lock-keyword-face ((t (:foreground "red"))))
  4706. (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink"))))
  4707. (font-lock-string-face ((t (:italic t :foreground "orange"))))
  4708. (font-lock-reference-face ((t (:italic t :bold t :foreground "LightSteelBlue"))))
  4709. (font-lock-type-face ((t (:italic t :foreground "LightSlateBlue"))))
  4710. (font-lock-variable-name-face ((t (:underline t :foreground "LightGoldenrod"))))
  4711. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  4712. (highlight ((t (:background "yellow" :foreground "red"))))
  4713. (isearch ((t (:background "dim gray" :foreground "aquamarine"))))
  4714. (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow"))))
  4715. (italic ((t (:italic t))))
  4716. (modeline ((t (:background "green" :foreground "black"))))
  4717. (modeline-buffer-id ((t (:background "green" :foreground "black"))))
  4718. (modeline-mousable ((t (:background "green" :foreground "black"))))
  4719. (modeline-mousable-minor-mode ((t (:background "green" :foreground "black"))))
  4720. (region ((t (:background "dim gray" :foreground "aquamarine"))))
  4721. (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod"))))
  4722. (show-paren-match-face ((t (:background "turquoise" :foreground "black"))))
  4723. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  4724. (underline ((t (:underline t))))
  4725. (zmacs-region ((t (:background "dim gray" :foreground "aquamarine")))))))
  4726. (defun color-theme-salmon-diff ()
  4727. "Salmon and aquamarine faces for diff and change-log modes.
  4728. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  4729. (color-theme-install
  4730. '(color-theme-salmon-diff
  4731. nil
  4732. (change-log-acknowledgement-face ((t (:foreground "LightBlue"))))
  4733. (change-log-conditionals-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
  4734. (change-log-date-face ((t (:foreground "LightSalmon"))))
  4735. (change-log-email-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
  4736. (change-log-file-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
  4737. (change-log-function-face ((t (:bold t :weight bold :foreground "Aquamarine"))))
  4738. (change-log-list-face ((t (:foreground "Salmon"))))
  4739. (change-log-name-face ((t (:foreground "Aquamarine"))))
  4740. (diff-added-face ((t (nil))))
  4741. (diff-changed-face ((t (nil))))
  4742. (diff-context-face ((t (:foreground "grey70"))))
  4743. (diff-file-header-face ((t (:bold t))))
  4744. (diff-function-face ((t (:foreground "grey70"))))
  4745. (diff-header-face ((t (:foreground "light salmon"))))
  4746. (diff-hunk-header-face ((t (:foreground "light salmon"))))
  4747. (diff-index-face ((t (:bold t))))
  4748. (diff-nonexistent-face ((t (:bold t))))
  4749. (diff-removed-face ((t (nil))))
  4750. (log-view-message-face ((t (:foreground "light salmon")))))))
  4751. (defun color-theme-robin-hood ()
  4752. "`color-theme-gnome2' with navajo white on green.
  4753. This theme tries to avoid underlined and italic faces, because
  4754. the fonts either look ugly, or do not exist. The author himself
  4755. uses neep, for example."
  4756. (interactive)
  4757. (color-theme-gnome2)
  4758. (let ((color-theme-is-cumulative t))
  4759. (color-theme-install
  4760. '(color-theme-robin-hood
  4761. ((foreground-color . "navajo white")
  4762. (background-color . "#304020"))
  4763. ((CUA-mode-read-only-cursor-color . "white")
  4764. (help-highlight-face . info-xref)
  4765. (list-matching-lines-buffer-name-face . bold))
  4766. (default ((t (nil))))
  4767. (button ((t (:bold t))))
  4768. (calendar-today-face ((t (:foreground "lemon chiffon"))))
  4769. (custom-button-face ((t (:bold t :foreground "DodgerBlue1"))))
  4770. (diary-face ((t (:bold t :foreground "yellow"))))
  4771. (fringe ((t (:background "#003700"))))
  4772. (header-line ((t (:background "#030" :foreground "#AA7"))))
  4773. (holiday-face ((t (:bold t :foreground "peru"))))
  4774. (ido-subdir-face ((t (:foreground "MediumSlateBlue"))))
  4775. (isearch ((t (:foreground "pink" :background "red"))))
  4776. (isearch-lazy-highlight-face ((t (:foreground "red"))))
  4777. (menu ((t (:background "#304020" :foreground "navajo white"))))
  4778. (minibuffer-prompt ((t (:foreground "pale green"))))
  4779. (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button)))))
  4780. (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button)))))
  4781. (semantic-dirty-token-face ((t (:background "grey22"))))
  4782. (tool-bar ((t (:background "#304020" :foreground "wheat" :box (:line-width 1 :style released-button)))))
  4783. (tooltip ((t (:background "lemon chiffon" :foreground "black"))))))))
  4784. (defun color-theme-snowish ()
  4785. "Color theme by Girish Bharadwaj, created 2001-05-17.
  4786. Dark slate gray on snow2, lots of blue colors.
  4787. Includes custom, eshell, font-lock, gnus, html-helper,
  4788. hyper-apropos, jde, message, paren, semantic, speedbar,
  4789. term, widget."
  4790. (interactive)
  4791. (color-theme-install
  4792. '(color-theme-snowish
  4793. ((background-color . "snow2")
  4794. (background-mode . light)
  4795. (cursor-color . "Red3")
  4796. (foreground-color . "darkslategray"))
  4797. ((buffers-tab-face . buffers-tab)
  4798. (gnus-mouse-face . highlight)
  4799. (sgml-set-face . t)
  4800. (smiley-mouse-face . highlight))
  4801. (default ((t (nil))))
  4802. (blue ((t (:foreground "blue"))))
  4803. (bold ((t (:bold t :foreground "peru"))))
  4804. (bold-italic ((t (:italic t :bold t))))
  4805. (border-glyph ((t (nil))))
  4806. (buffers-tab ((t (:background "snow2" :foreground "darkslategray"))))
  4807. (custom-button-face ((t (:bold t))))
  4808. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  4809. (custom-comment-face ((t (:background "gray85"))))
  4810. (custom-comment-tag-face ((t (:foreground "blue4"))))
  4811. (custom-documentation-face ((t (nil))))
  4812. (custom-face-tag-face ((t (:underline t))))
  4813. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  4814. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  4815. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  4816. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  4817. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  4818. (custom-saved-face ((t (:underline t))))
  4819. (custom-set-face ((t (:background "white" :foreground "blue"))))
  4820. (custom-state-face ((t (:foreground "dark green"))))
  4821. (custom-variable-button-face ((t (:underline t :bold t))))
  4822. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  4823. (cyan ((t (:foreground "cyan"))))
  4824. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  4825. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  4826. (display-time-time-balloon-face ((t (:foreground "red"))))
  4827. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  4828. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  4829. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  4830. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  4831. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  4832. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  4833. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  4834. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  4835. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  4836. (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan"))))
  4837. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  4838. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  4839. (font-lock-builtin-face ((t (:underline t :foreground "blue"))))
  4840. (font-lock-comment-face ((t (:foreground "snow4"))))
  4841. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  4842. (font-lock-doc-string-face ((t (:foreground "mediumblue"))))
  4843. (font-lock-function-name-face ((t (:bold t :foreground "darkblue"))))
  4844. (font-lock-keyword-face ((t (:bold t :foreground "dodgerblue"))))
  4845. (font-lock-preprocessor-face ((t (:underline t :foreground "blue3"))))
  4846. (font-lock-reference-face ((t (:foreground "red3"))))
  4847. (font-lock-string-face ((t (:foreground "darkviolet"))))
  4848. (font-lock-type-face ((t (:foreground "goldenrod"))))
  4849. (font-lock-variable-name-face ((t (:foreground "tomato"))))
  4850. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  4851. (gnus-cite-attribution-face ((t (nil))))
  4852. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  4853. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  4854. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  4855. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  4856. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  4857. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  4858. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  4859. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  4860. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  4861. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  4862. (gnus-cite-face-9 ((t (:foreground "violet"))))
  4863. (gnus-emphasis-bold ((t (:bold t))))
  4864. (gnus-emphasis-bold-italic ((t (nil))))
  4865. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  4866. (gnus-emphasis-italic ((t (nil))))
  4867. (gnus-emphasis-underline ((t (:underline t))))
  4868. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  4869. (gnus-emphasis-underline-bold-italic ((t (:underline t))))
  4870. (gnus-emphasis-underline-italic ((t (:underline t))))
  4871. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  4872. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  4873. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  4874. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  4875. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  4876. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  4877. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  4878. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  4879. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  4880. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  4881. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  4882. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  4883. (gnus-group-news-3-empty-face ((t (nil))))
  4884. (gnus-group-news-3-face ((t (:bold t))))
  4885. (gnus-group-news-4-empty-face ((t (nil))))
  4886. (gnus-group-news-4-face ((t (:bold t))))
  4887. (gnus-group-news-5-empty-face ((t (nil))))
  4888. (gnus-group-news-5-face ((t (:bold t))))
  4889. (gnus-group-news-6-empty-face ((t (nil))))
  4890. (gnus-group-news-6-face ((t (:bold t))))
  4891. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  4892. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  4893. (gnus-header-content-face ((t (:foreground "indianred4"))))
  4894. (gnus-header-from-face ((t (:foreground "red3"))))
  4895. (gnus-header-name-face ((t (:foreground "maroon"))))
  4896. (gnus-header-newsgroups-face ((t (:foreground "MidnightBlue"))))
  4897. (gnus-header-subject-face ((t (:foreground "red4"))))
  4898. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  4899. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  4900. (gnus-signature-face ((t (nil))))
  4901. (gnus-splash-face ((t (:foreground "Brown"))))
  4902. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  4903. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  4904. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  4905. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  4906. (gnus-summary-high-unread-face ((t (:bold t))))
  4907. (gnus-summary-low-ancient-face ((t (:foreground "RoyalBlue"))))
  4908. (gnus-summary-low-read-face ((t (:foreground "DarkGreen"))))
  4909. (gnus-summary-low-ticked-face ((t (:foreground "firebrick"))))
  4910. (gnus-summary-low-unread-face ((t (nil))))
  4911. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  4912. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  4913. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  4914. (gnus-summary-normal-unread-face ((t (nil))))
  4915. (gnus-summary-selected-face ((t (:underline t))))
  4916. (gnus-x-face ((t (:background "white" :foreground "black"))))
  4917. (green ((t (:foreground "green"))))
  4918. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  4919. (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
  4920. (highlight ((t (:background "darkseagreen2"))))
  4921. (html-helper-bold-face ((t (:bold t))))
  4922. (html-helper-bold-italic-face ((t (nil))))
  4923. (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
  4924. (html-helper-italic-face ((t (:foreground "medium sea green"))))
  4925. (html-helper-underline-face ((t (:underline t))))
  4926. (html-tag-face ((t (:bold t))))
  4927. (hyper-apropos-documentation ((t (:foreground "darkred"))))
  4928. (hyper-apropos-heading ((t (:bold t))))
  4929. (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
  4930. (hyper-apropos-major-heading ((t (:bold t))))
  4931. (hyper-apropos-section-heading ((t (nil))))
  4932. (hyper-apropos-warning ((t (:bold t :foreground "red"))))
  4933. (info-menu-6 ((t (nil))))
  4934. (isearch ((t (:background "paleturquoise"))))
  4935. (isearch-secondary ((t (:foreground "red3"))))
  4936. (italic ((t (nil))))
  4937. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  4938. (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
  4939. (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
  4940. (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
  4941. (left-margin ((t (nil))))
  4942. (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
  4943. (magenta ((t (:foreground "magenta"))))
  4944. (message-cited-text-face ((t (:foreground "red"))))
  4945. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  4946. (message-header-name-face ((t (:foreground "cornflower blue"))))
  4947. (message-header-newsgroups-face ((t (:foreground "blue4"))))
  4948. (message-header-other-face ((t (:foreground "steel blue"))))
  4949. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  4950. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  4951. (message-header-xheader-face ((t (:foreground "blue"))))
  4952. (message-mml-face ((t (:foreground "ForestGreen"))))
  4953. (message-separator-face ((t (:foreground "brown"))))
  4954. (modeline ((t (nil))))
  4955. (modeline-buffer-id ((t (:background "#D4D0C8" :foreground "blue4"))))
  4956. (modeline-mousable ((t (:background "#D4D0C8" :foreground "firebrick"))))
  4957. (modeline-mousable-minor-mode ((t (:background "#D4D0C8" :foreground "green4"))))
  4958. (paren-blink-off ((t (:foreground "snow2"))))
  4959. (paren-match ((t (:background "darkseagreen2"))))
  4960. (paren-mismatch ((t (:background "snow2" :foreground "darkslategray"))))
  4961. (pointer ((t (nil))))
  4962. (primary-selection ((t (:background "gray65"))))
  4963. (red ((t (:foreground "red"))))
  4964. (right-margin ((t (nil))))
  4965. (secondary-selection ((t (:background "paleturquoise"))))
  4966. (semantic-intangible-face ((t (:foreground "gray25"))))
  4967. (semantic-read-only-face ((t (:background "gray25"))))
  4968. (senator-momentary-highlight-face ((t (:background "gray70"))))
  4969. (speedbar-button-face ((t (:foreground "green4"))))
  4970. (speedbar-directory-face ((t (:foreground "blue4"))))
  4971. (speedbar-file-face ((t (:foreground "cyan4"))))
  4972. (speedbar-highlight-face ((t (:background "green"))))
  4973. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  4974. (speedbar-tag-face ((t (:foreground "brown"))))
  4975. (template-message-face ((t (:bold t))))
  4976. (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
  4977. (term-blue-face ((t (:foreground "blue"))))
  4978. (term-blue-inv-face ((t (:background "blue"))))
  4979. (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
  4980. (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
  4981. (term-cyan-face ((t (:foreground "cyan"))))
  4982. (term-cyan-inv-face ((t (:background "cyan"))))
  4983. (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
  4984. (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
  4985. (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
  4986. (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
  4987. (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
  4988. (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
  4989. (term-green-face ((t (:foreground "green"))))
  4990. (term-green-inv-face ((t (:background "green"))))
  4991. (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
  4992. (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
  4993. (term-magenta-face ((t (:foreground "magenta"))))
  4994. (term-magenta-inv-face ((t (:background "magenta"))))
  4995. (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
  4996. (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
  4997. (term-red-face ((t (:foreground "red"))))
  4998. (term-red-inv-face ((t (:background "red"))))
  4999. (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
  5000. (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
  5001. (term-white-face ((t (:foreground "white"))))
  5002. (term-white-inv-face ((t (:background "snow2"))))
  5003. (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
  5004. (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
  5005. (term-yellow-face ((t (:foreground "yellow"))))
  5006. (term-yellow-inv-face ((t (:background "yellow"))))
  5007. (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
  5008. (text-cursor ((t (:background "Red3" :foreground "snow2"))))
  5009. (toolbar ((t (nil))))
  5010. (underline ((t (:underline t))))
  5011. (vertical-divider ((t (nil))))
  5012. (white ((t (:foreground "white"))))
  5013. (widget ((t (nil))))
  5014. (widget-button-face ((t (:bold t))))
  5015. (widget-button-pressed-face ((t (:foreground "red"))))
  5016. (widget-documentation-face ((t (:foreground "dark green"))))
  5017. (widget-field-face ((t (:background "gray85"))))
  5018. (widget-inactive-face ((t (:foreground "dim gray"))))
  5019. (yellow ((t (:foreground "yellow"))))
  5020. (zmacs-region ((t (:background "gray65")))))))
  5021. (defun color-theme-dark-laptop ()
  5022. "Color theme by Laurent Michel, created 2001-05-24.
  5023. Includes custom, fl, font-lock, gnus, message, widget."
  5024. (interactive)
  5025. (color-theme-install
  5026. '(color-theme-dark-laptop
  5027. ((background-color . "black")
  5028. (background-mode . dark)
  5029. (border-color . "black")
  5030. (cursor-color . "yellow")
  5031. (foreground-color . "white")
  5032. (mouse-color . "sienna1"))
  5033. ((gnus-mouse-face . highlight)
  5034. (list-matching-lines-face . bold)
  5035. (view-highlight-face . highlight))
  5036. (default ((t (nil))))
  5037. (bold ((t (:bold t))))
  5038. (bold-italic ((t (:italic t :bold t))))
  5039. (custom-button-face ((t (nil))))
  5040. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  5041. (custom-documentation-face ((t (nil))))
  5042. (custom-face-tag-face ((t (:underline t))))
  5043. (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
  5044. (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
  5045. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  5046. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  5047. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  5048. (custom-saved-face ((t (:underline t))))
  5049. (custom-set-face ((t (:background "white" :foreground "blue"))))
  5050. (custom-state-face ((t (:foreground "lime green"))))
  5051. (custom-variable-button-face ((t (:underline t :bold t))))
  5052. (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
  5053. (fl-comment-face ((t (:foreground "pink"))))
  5054. (fl-doc-string-face ((t (:foreground "purple"))))
  5055. (fl-function-name-face ((t (:foreground "red"))))
  5056. (fl-keyword-face ((t (:foreground "cyan"))))
  5057. (fl-string-face ((t (:foreground "green"))))
  5058. (fl-type-face ((t (:foreground "yellow"))))
  5059. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  5060. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  5061. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  5062. (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
  5063. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  5064. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  5065. (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
  5066. (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
  5067. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  5068. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  5069. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  5070. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  5071. (gnus-cite-attribution-face ((t (:italic t))))
  5072. (gnus-cite-face-1 ((t (:bold t :foreground "deep sky blue"))))
  5073. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  5074. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  5075. (gnus-cite-face-2 ((t (:bold t :foreground "cyan"))))
  5076. (gnus-cite-face-3 ((t (:bold t :foreground "gold"))))
  5077. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  5078. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  5079. (gnus-cite-face-6 ((t (:bold t :foreground "chocolate"))))
  5080. (gnus-cite-face-7 ((t (:foreground "orange"))))
  5081. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  5082. (gnus-cite-face-9 ((t (:foreground "violet"))))
  5083. (gnus-emphasis-bold ((t (:bold t))))
  5084. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  5085. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  5086. (gnus-emphasis-italic ((t (:italic t))))
  5087. (gnus-emphasis-underline ((t (:underline t))))
  5088. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  5089. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  5090. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  5091. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  5092. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  5093. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  5094. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  5095. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  5096. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  5097. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  5098. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  5099. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  5100. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  5101. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  5102. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  5103. (gnus-group-news-3-empty-face ((t (nil))))
  5104. (gnus-group-news-3-face ((t (:bold t))))
  5105. (gnus-group-news-4-empty-face ((t (nil))))
  5106. (gnus-group-news-4-face ((t (:bold t))))
  5107. (gnus-group-news-5-empty-face ((t (nil))))
  5108. (gnus-group-news-5-face ((t (:bold t))))
  5109. (gnus-group-news-6-empty-face ((t (nil))))
  5110. (gnus-group-news-6-face ((t (:bold t))))
  5111. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  5112. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  5113. (gnus-header-content-face ((t (:italic t :foreground "forest green"))))
  5114. (gnus-header-from-face ((t (:bold t :foreground "spring green"))))
  5115. (gnus-header-name-face ((t (:foreground "deep sky blue"))))
  5116. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "purple"))))
  5117. (gnus-header-subject-face ((t (:bold t :foreground "orange"))))
  5118. (gnus-signature-face ((t (:bold t :foreground "khaki"))))
  5119. (gnus-splash-face ((t (:foreground "Brown"))))
  5120. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  5121. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue"))))
  5122. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen"))))
  5123. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink"))))
  5124. (gnus-summary-high-unread-face ((t (:bold t))))
  5125. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue"))))
  5126. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen"))))
  5127. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink"))))
  5128. (gnus-summary-low-unread-face ((t (:italic t))))
  5129. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  5130. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  5131. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  5132. (gnus-summary-normal-unread-face ((t (nil))))
  5133. (gnus-summary-selected-face ((t (:underline t))))
  5134. (highlight ((t (:background "darkolivegreen"))))
  5135. (italic ((t (:italic t))))
  5136. (message-cited-text-face ((t (:bold t :foreground "red"))))
  5137. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  5138. (message-header-name-face ((t (:bold t :foreground "orange"))))
  5139. (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
  5140. (message-header-other-face ((t (:bold t :foreground "chocolate"))))
  5141. (message-header-subject-face ((t (:bold t :foreground "yellow"))))
  5142. (message-header-to-face ((t (:bold t :foreground "cyan"))))
  5143. (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
  5144. (message-mml-face ((t (:bold t :background "Green3"))))
  5145. (message-separator-face ((t (:foreground "blue3"))))
  5146. (modeline ((t (:background "white" :foreground "black"))))
  5147. (modeline-buffer-id ((t (:background "white" :foreground "black"))))
  5148. (modeline-mousable ((t (:background "white" :foreground "black"))))
  5149. (modeline-mousable-minor-mode ((t (:background "white" :foreground "black"))))
  5150. (region ((t (:background "blue"))))
  5151. (primary-selection ((t (:background "blue"))))
  5152. (isearch ((t (:background "blue"))))
  5153. (zmacs-region ((t (:background "blue"))))
  5154. (secondary-selection ((t (:background "darkslateblue"))))
  5155. (underline ((t (:underline t))))
  5156. (widget-button-face ((t (:bold t))))
  5157. (widget-button-pressed-face ((t (:foreground "red"))))
  5158. (widget-documentation-face ((t (:foreground "lime green"))))
  5159. (widget-field-face ((t (:background "dim gray"))))
  5160. (widget-inactive-face ((t (:foreground "light gray"))))
  5161. (widget-single-line-field-face ((t (:background "dim gray")))))))
  5162. (defun color-theme-taming-mr-arneson ()
  5163. "Color theme by Erik Arneson, created 2001-06-12.
  5164. Light sky blue on black. Includes bbdb, cperl, custom, cvs, diff,
  5165. dired, font-lock, html-helper, hyper-apropos, info, isearch, man,
  5166. message, paren, shell, and widget."
  5167. (interactive)
  5168. (color-theme-install
  5169. '(color-theme-taming-mr-arneson
  5170. ((background-color . "black")
  5171. (background-mode . light)
  5172. (background-toolbar-color . "#cf3ccf3ccf3c")
  5173. (border-color . "#000000000000")
  5174. (bottom-toolbar-shadow-color . "#79e77df779e7")
  5175. (cursor-color . "Red3")
  5176. (foreground-color . "LightSkyBlue")
  5177. (top-toolbar-shadow-color . "#fffffbeeffff"))
  5178. ((buffers-tab-face . buffers-tab)
  5179. (cperl-here-face . font-lock-string-face)
  5180. (cperl-invalid-face quote default)
  5181. (cperl-pod-face . font-lock-comment-face)
  5182. (cperl-pod-head-face . font-lock-variable-name-face)
  5183. (ispell-highlight-face . highlight)
  5184. (vc-mode-face . highlight)
  5185. (vm-highlight-url-face . bold-italic)
  5186. (vm-highlighted-header-face . bold)
  5187. (vm-mime-button-face . gui-button-face)
  5188. (vm-summary-highlight-face . bold))
  5189. (default ((t (nil))))
  5190. (bbdb-company ((t (nil))))
  5191. (bbdb-field-name ((t (:bold t))))
  5192. (bbdb-field-value ((t (nil))))
  5193. (bbdb-name ((t (:underline t))))
  5194. (blue ((t (:foreground "blue"))))
  5195. (bold ((t (:bold t))))
  5196. (bold-italic ((t (:bold t :foreground "yellow"))))
  5197. (border-glyph ((t (nil))))
  5198. (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
  5199. (cperl-array-face ((t (:bold t :foreground "SkyBlue2"))))
  5200. (cperl-hash-face ((t (:foreground "LightBlue2"))))
  5201. (cperl-invalid-face ((t (:foreground "white"))))
  5202. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  5203. (custom-button-face ((t (:bold t))))
  5204. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  5205. (custom-comment-face ((t (:foreground "white"))))
  5206. (custom-comment-tag-face ((t (:foreground "white"))))
  5207. (custom-documentation-face ((t (nil))))
  5208. (custom-face-tag-face ((t (:underline t))))
  5209. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  5210. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  5211. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  5212. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  5213. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  5214. (custom-saved-face ((t (:underline t))))
  5215. (custom-set-face ((t (:background "white" :foreground "blue"))))
  5216. (custom-state-face ((t (:foreground "white"))))
  5217. (custom-variable-button-face ((t (:underline t :bold t))))
  5218. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  5219. (cvs-filename-face ((t (:foreground "white"))))
  5220. (cvs-handled-face ((t (:foreground "pink"))))
  5221. (cvs-header-face ((t (:foreground "green"))))
  5222. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  5223. (cvs-msg-face ((t (:foreground "red"))))
  5224. (cvs-need-action-face ((t (:foreground "yellow"))))
  5225. (cvs-unknown-face ((t (:foreground "grey"))))
  5226. (diff-added-face ((t (nil))))
  5227. (diff-changed-face ((t (nil))))
  5228. (diff-file-header-face ((t (:bold t :background "grey70"))))
  5229. (diff-hunk-header-face ((t (:background "grey85"))))
  5230. (diff-index-face ((t (:bold t :background "grey70"))))
  5231. (diff-removed-face ((t (nil))))
  5232. (dired-face-boring ((t (:foreground "Gray65"))))
  5233. (dired-face-directory ((t (:bold t :foreground "SkyBlue2"))))
  5234. (dired-face-executable ((t (:foreground "Green"))))
  5235. (dired-face-flagged ((t (:background "LightSlateGray"))))
  5236. (dired-face-header ((t (:background "grey75" :foreground "black"))))
  5237. (dired-face-marked ((t (:background "PaleVioletRed"))))
  5238. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  5239. (dired-face-setuid ((t (:foreground "Red"))))
  5240. (dired-face-socket ((t (:foreground "magenta"))))
  5241. (dired-face-symlink ((t (:foreground "cyan"))))
  5242. (excerpt ((t (nil))))
  5243. (fixed ((t (:bold t))))
  5244. (font-lock-builtin-face ((t (:foreground "red3"))))
  5245. (font-lock-comment-face ((t (:foreground "red"))))
  5246. (font-lock-constant-face ((t (nil))))
  5247. (font-lock-doc-string-face ((t (:foreground "turquoise"))))
  5248. (font-lock-function-name-face ((t (:foreground "white"))))
  5249. (font-lock-keyword-face ((t (:foreground "green"))))
  5250. (font-lock-preprocessor-face ((t (:foreground "green3"))))
  5251. (font-lock-reference-face ((t (:foreground "red3"))))
  5252. (font-lock-string-face ((t (:foreground "turquoise"))))
  5253. (font-lock-type-face ((t (:foreground "steelblue"))))
  5254. (font-lock-variable-name-face ((t (:foreground "magenta2"))))
  5255. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  5256. (green ((t (:foreground "green"))))
  5257. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  5258. (gui-element ((t (nil))))
  5259. (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
  5260. (html-helper-bold-face ((t (:bold t))))
  5261. (html-helper-italic-face ((t (:bold t :foreground "yellow"))))
  5262. (html-helper-underline-face ((t (:underline t))))
  5263. (hyper-apropos-documentation ((t (:foreground "white"))))
  5264. (hyper-apropos-heading ((t (:bold t))))
  5265. (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
  5266. (hyper-apropos-major-heading ((t (:bold t))))
  5267. (hyper-apropos-section-heading ((t (:bold t))))
  5268. (hyper-apropos-warning ((t (:bold t :foreground "red"))))
  5269. (info-node ((t (:bold t :foreground "yellow"))))
  5270. (info-xref ((t (:bold t))))
  5271. (isearch ((t (:background "paleturquoise" :foreground "dark red"))))
  5272. (isearch-secondary ((t (:foreground "red3"))))
  5273. (italic ((t (:bold t :foreground "yellow"))))
  5274. (left-margin ((t (nil))))
  5275. (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
  5276. (man-bold ((t (:bold t))))
  5277. (man-heading ((t (:bold t))))
  5278. (man-italic ((t (:foreground "yellow"))))
  5279. (man-xref ((t (:underline t))))
  5280. (message-cited-text ((t (:foreground "orange"))))
  5281. (message-header-contents ((t (:foreground "white"))))
  5282. (message-headers ((t (:bold t :foreground "orange"))))
  5283. (message-highlighted-header-contents ((t (:bold t))))
  5284. (message-url ((t (:bold t :foreground "pink"))))
  5285. (mmm-face ((t (:background "black" :foreground "green"))))
  5286. (modeline ((t (nil))))
  5287. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  5288. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  5289. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  5290. (paren-blink-off ((t (:foreground "gray80"))))
  5291. (paren-match ((t (:background "dark blue"))))
  5292. (paren-mismatch ((t (:background "DeepPink" :foreground "LightSkyBlue"))))
  5293. (pointer ((t (nil))))
  5294. (primary-selection ((t (:background "gray65" :foreground "DarkBlue"))))
  5295. (red ((t (:foreground "red"))))
  5296. (region ((t (:background "gray65" :foreground "DarkBlue"))))
  5297. (right-margin ((t (nil))))
  5298. (secondary-selection ((t (:background "paleturquoise" :foreground "black"))))
  5299. (shell-option-face ((t (:foreground "blue4"))))
  5300. (shell-output-2-face ((t (:foreground "green4"))))
  5301. (shell-output-3-face ((t (:foreground "green4"))))
  5302. (shell-output-face ((t (:bold t))))
  5303. (shell-prompt-face ((t (:foreground "red4"))))
  5304. (text-cursor ((t (:background "Red3" :foreground "black"))))
  5305. (toolbar ((t (:background "Gray80" :foreground "black"))))
  5306. (underline ((t (:underline t))))
  5307. (vertical-divider ((t (nil))))
  5308. (vm-xface ((t (:background "white" :foreground "black"))))
  5309. (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
  5310. (vmpc-sig-face ((t (:foreground "steelblue"))))
  5311. (widget ((t (nil))))
  5312. (widget-button-face ((t (:bold t))))
  5313. (widget-button-pressed-face ((t (:foreground "red"))))
  5314. (widget-documentation-face ((t (:foreground "dark green"))))
  5315. (widget-field-face ((t (:background "gray85" :foreground "black"))))
  5316. (widget-inactive-face ((t (:foreground "dim gray"))))
  5317. (x-face ((t (:background "white" :foreground "black"))))
  5318. (xrdb-option-name-face ((t (:foreground "red"))))
  5319. (yellow ((t (:foreground "yellow"))))
  5320. (zmacs-region ((t (:background "gray65")))))))
  5321. (defun color-theme-digital-ofs1 ()
  5322. "Color theme by Gareth Owen, created 2001-06-13.
  5323. This works well on an old, beat-up Digital Unix box with its 256 colour
  5324. display, on which other color themes hog too much of the palette.
  5325. Black on some shade of dark peach. Includes bbdb, cperl, custom,
  5326. cvs, diff, dired, ediff, erc, eshell, font-latex, font-lock, gnus,
  5327. highlight, hproperty, html-helper, hyper-apropos, info, jde, man,
  5328. message, paren, searchm, semantic, sgml, shell, speedbar, term,
  5329. vhdl, viper, w3m, widget, woman, x-symbol, xref."
  5330. (interactive)
  5331. (color-theme-install
  5332. '(color-theme-digital-ofs1
  5333. ((background-color . "#CA94AA469193")
  5334. (background-mode . light)
  5335. (background-toolbar-color . "#cf3ccf3ccf3c")
  5336. (border-color . "black")
  5337. (bottom-toolbar-shadow-color . "#79e77df779e7")
  5338. (cursor-color . "Black")
  5339. (foreground-color . "Black")
  5340. (mouse-color . "Black")
  5341. (top-toolbar-shadow-color . "#fffffbeeffff")
  5342. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  5343. ((Man-overstrike-face . bold)
  5344. (Man-underline-face . underline)
  5345. (gnus-mouse-face . highlight)
  5346. (goto-address-mail-face . italic)
  5347. (goto-address-mail-mouse-face . secondary-selection)
  5348. (goto-address-url-face . bold)
  5349. (goto-address-url-mouse-face . highlight)
  5350. (ispell-highlight-face . highlight)
  5351. (list-matching-lines-face . bold)
  5352. (rmail-highlight-face . font-lock-function-name-face)
  5353. (view-highlight-face . highlight))
  5354. (default ((t (:bold t))))
  5355. (bbdb-company ((t (:italic t))))
  5356. (bbdb-field-name ((t (:bold t))))
  5357. (bbdb-field-value ((t (nil))))
  5358. (bbdb-name ((t (:underline t))))
  5359. (blank-space-face ((t (nil))))
  5360. (blank-tab-face ((t (nil))))
  5361. (blue ((t (:bold t :foreground "blue"))))
  5362. (bold ((t (:bold t))))
  5363. (bold-italic ((t (:italic t :bold t))))
  5364. (border-glyph ((t (:bold t))))
  5365. (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
  5366. (calendar-today-face ((t (:underline t :bold t :foreground "white"))))
  5367. (comint-input-face ((t (nil))))
  5368. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  5369. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  5370. (cperl-here-face ((t (nil))))
  5371. (cperl-invalid-face ((t (:foreground "white"))))
  5372. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  5373. (cperl-pod-face ((t (nil))))
  5374. (cperl-pod-head-face ((t (nil))))
  5375. (custom-button-face ((t (:bold t))))
  5376. (custom-changed-face ((t (:bold t :background "blue" :foreground "white"))))
  5377. (custom-comment-face ((t (:foreground "white"))))
  5378. (custom-comment-tag-face ((t (:foreground "white"))))
  5379. (custom-documentation-face ((t (:bold t))))
  5380. (custom-face-tag-face ((t (:underline t :bold t))))
  5381. (custom-group-tag-face ((t (:underline t :bold t :foreground "DarkBlue"))))
  5382. (custom-group-tag-face-1 ((t (:underline t :bold t :foreground "red"))))
  5383. (custom-invalid-face ((t (:bold t :background "red" :foreground "yellow"))))
  5384. (custom-modified-face ((t (:bold t :background "blue" :foreground "white"))))
  5385. (custom-rogue-face ((t (:bold t :background "black" :foreground "pink"))))
  5386. (custom-saved-face ((t (:underline t :bold t))))
  5387. (custom-set-face ((t (:bold t :background "white" :foreground "blue"))))
  5388. (custom-state-face ((t (:bold t :foreground "dark green"))))
  5389. (custom-variable-button-face ((t (:underline t :bold t))))
  5390. (custom-variable-tag-face ((t (:underline t :bold t :foreground "blue"))))
  5391. (cvs-filename-face ((t (:foreground "white"))))
  5392. (cvs-handled-face ((t (:foreground "pink"))))
  5393. (cvs-header-face ((t (:bold t :foreground "green"))))
  5394. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  5395. (cvs-msg-face ((t (:italic t :foreground "red"))))
  5396. (cvs-need-action-face ((t (:foreground "yellow"))))
  5397. (cvs-unknown-face ((t (:foreground "grey"))))
  5398. (cyan ((t (:foreground "cyan"))))
  5399. (diary-face ((t (:bold t :foreground "red"))))
  5400. (diff-added-face ((t (nil))))
  5401. (diff-changed-face ((t (nil))))
  5402. (diff-file-header-face ((t (:bold t :background "grey70"))))
  5403. (diff-hunk-header-face ((t (:background "grey85"))))
  5404. (diff-index-face ((t (:bold t :background "grey70"))))
  5405. (diff-removed-face ((t (nil))))
  5406. (dired-face-boring ((t (:foreground "Gray65"))))
  5407. (dired-face-directory ((t (:bold t))))
  5408. (dired-face-executable ((t (:foreground "SeaGreen"))))
  5409. (dired-face-flagged ((t (:background "LightSlateGray"))))
  5410. (dired-face-header ((t (:background "grey75" :foreground "black"))))
  5411. (dired-face-marked ((t (:background "PaleVioletRed"))))
  5412. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  5413. (dired-face-setuid ((t (:foreground "Red"))))
  5414. (dired-face-socket ((t (:foreground "magenta"))))
  5415. (dired-face-symlink ((t (:foreground "cyan"))))
  5416. (display-time-mail-balloon-enhance-face ((t (:bold t :background "orange"))))
  5417. (display-time-mail-balloon-gnus-group-face ((t (:bold t :foreground "blue"))))
  5418. (display-time-time-balloon-face ((t (:bold t :foreground "red"))))
  5419. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  5420. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  5421. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  5422. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  5423. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  5424. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  5425. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  5426. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  5427. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  5428. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  5429. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  5430. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  5431. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  5432. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  5433. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  5434. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  5435. (erc-action-face ((t (:bold t))))
  5436. (erc-bold-face ((t (:bold t))))
  5437. (erc-default-face ((t (nil))))
  5438. (erc-direct-msg-face ((t (nil))))
  5439. (erc-error-face ((t (:bold t))))
  5440. (erc-input-face ((t (nil))))
  5441. (erc-inverse-face ((t (nil))))
  5442. (erc-notice-face ((t (nil))))
  5443. (erc-pal-face ((t (nil))))
  5444. (erc-prompt-face ((t (nil))))
  5445. (erc-underline-face ((t (nil))))
  5446. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  5447. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  5448. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  5449. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  5450. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  5451. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  5452. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  5453. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  5454. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  5455. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  5456. (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
  5457. (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
  5458. (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine"))))
  5459. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  5460. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  5461. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  5462. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  5463. (excerpt ((t (:italic t))))
  5464. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  5465. (fg:black ((t (:foreground "black"))))
  5466. (fixed ((t (:bold t))))
  5467. (fl-comment-face ((t (:foreground "medium purple"))))
  5468. (fl-doc-string-face ((t (nil))))
  5469. (fl-function-name-face ((t (:foreground "green"))))
  5470. (fl-keyword-face ((t (:foreground "LightGreen"))))
  5471. (fl-string-face ((t (:foreground "light coral"))))
  5472. (fl-type-face ((t (:foreground "cyan"))))
  5473. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  5474. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  5475. (font-latex-bold-face ((t (:bold t))))
  5476. (font-latex-italic-face ((t (:italic t))))
  5477. (font-latex-math-face ((t (nil))))
  5478. (font-latex-sedate-face ((t (nil))))
  5479. (font-latex-string-face ((t (nil))))
  5480. (font-latex-warning-face ((t (nil))))
  5481. (font-lock-builtin-face ((t (:italic t :bold t :foreground "Orchid"))))
  5482. (font-lock-comment-face ((t (:bold t :foreground "Firebrick"))))
  5483. (font-lock-constant-face ((t (:italic t :bold t :foreground "CadetBlue"))))
  5484. (font-lock-doc-string-face ((t (:italic t :bold t :foreground "green4"))))
  5485. (font-lock-emphasized-face ((t (:bold t))))
  5486. (font-lock-exit-face ((t (:foreground "green"))))
  5487. (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
  5488. (font-lock-keyword-face ((t (:bold t :foreground "dark olive green"))))
  5489. (font-lock-other-emphasized-face ((t (:italic t :bold t))))
  5490. (font-lock-other-type-face ((t (:bold t :foreground "DarkBlue"))))
  5491. (font-lock-preprocessor-face ((t (:italic t :bold t :foreground "blue3"))))
  5492. (font-lock-reference-face ((t (:italic t :bold t :foreground "red3"))))
  5493. (font-lock-special-comment-face ((t (nil))))
  5494. (font-lock-special-keyword-face ((t (nil))))
  5495. (font-lock-string-face ((t (:italic t :bold t :foreground "DarkBlue"))))
  5496. (font-lock-type-face ((t (:italic t :bold t :foreground "DarkGreen"))))
  5497. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "darkgreen"))))
  5498. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  5499. (fringe ((t (:background "grey95"))))
  5500. (gdb-arrow-face ((t (:bold t))))
  5501. (gnus-cite-attribution-face ((t (:italic t :bold t))))
  5502. (gnus-cite-face-1 ((t (:bold t :foreground "MidnightBlue"))))
  5503. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  5504. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  5505. (gnus-cite-face-2 ((t (:bold t :foreground "firebrick"))))
  5506. (gnus-cite-face-3 ((t (:bold t :foreground "dark green"))))
  5507. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  5508. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  5509. (gnus-cite-face-6 ((t (:bold t :foreground "dark violet"))))
  5510. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  5511. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  5512. (gnus-cite-face-9 ((t (:foreground "violet"))))
  5513. (gnus-cite-face-list ((t (nil))))
  5514. (gnus-emphasis-bold ((t (:bold t))))
  5515. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  5516. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  5517. (gnus-emphasis-italic ((t (:italic t))))
  5518. (gnus-emphasis-underline ((t (:underline t))))
  5519. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  5520. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  5521. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  5522. (gnus-filterhist-face-1 ((t (nil))))
  5523. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  5524. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  5525. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  5526. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  5527. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  5528. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  5529. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  5530. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  5531. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  5532. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  5533. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  5534. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  5535. (gnus-group-news-3-empty-face ((t (nil))))
  5536. (gnus-group-news-3-face ((t (:bold t))))
  5537. (gnus-group-news-4-empty-face ((t (nil))))
  5538. (gnus-group-news-4-face ((t (:bold t))))
  5539. (gnus-group-news-5-empty-face ((t (nil))))
  5540. (gnus-group-news-5-face ((t (:bold t))))
  5541. (gnus-group-news-6-empty-face ((t (nil))))
  5542. (gnus-group-news-6-face ((t (:bold t))))
  5543. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  5544. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  5545. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  5546. (gnus-header-from-face ((t (:bold t :foreground "red3"))))
  5547. (gnus-header-name-face ((t (:bold t :foreground "maroon"))))
  5548. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
  5549. (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
  5550. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  5551. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  5552. (gnus-signature-face ((t (:italic t :bold t))))
  5553. (gnus-splash ((t (nil))))
  5554. (gnus-splash-face ((t (:foreground "Brown"))))
  5555. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  5556. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  5557. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  5558. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  5559. (gnus-summary-high-unread-face ((t (:italic t :bold t))))
  5560. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  5561. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  5562. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "firebrick"))))
  5563. (gnus-summary-low-unread-face ((t (:italic t))))
  5564. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  5565. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  5566. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick"))))
  5567. (gnus-summary-normal-unread-face ((t (:bold t))))
  5568. (gnus-summary-selected-face ((t (:underline t))))
  5569. (gnus-x-face ((t (:background "white" :foreground "black"))))
  5570. (green ((t (:bold t :foreground "green"))))
  5571. (gui-button-face ((t (:bold t :background "grey75" :foreground "black"))))
  5572. (gui-element ((t (:bold t :background "Gray80"))))
  5573. (highlight ((t (:bold t :background "darkseagreen2"))))
  5574. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  5575. (highlight-changes-face ((t (:foreground "red"))))
  5576. (highline-face ((t (:background "black" :foreground "white"))))
  5577. (holiday-face ((t (:bold t :background "pink" :foreground "white"))))
  5578. (hproperty:but-face ((t (:bold t))))
  5579. (hproperty:flash-face ((t (:bold t))))
  5580. (hproperty:highlight-face ((t (:bold t))))
  5581. (hproperty:item-face ((t (:bold t))))
  5582. (html-helper-bold-face ((t (:bold t))))
  5583. (html-helper-bold-italic-face ((t (nil))))
  5584. (html-helper-builtin-face ((t (:underline t :foreground "blue3"))))
  5585. (html-helper-italic-face ((t (:italic t :bold t :foreground "yellow"))))
  5586. (html-helper-underline-face ((t (:underline t))))
  5587. (html-tag-face ((t (:bold t))))
  5588. (hyper-apropos-documentation ((t (:foreground "white"))))
  5589. (hyper-apropos-heading ((t (:bold t))))
  5590. (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
  5591. (hyper-apropos-major-heading ((t (:bold t))))
  5592. (hyper-apropos-section-heading ((t (:bold t))))
  5593. (hyper-apropos-warning ((t (:bold t :foreground "red"))))
  5594. (ibuffer-marked-face ((t (:foreground "red"))))
  5595. (info-menu-5 ((t (:underline t :bold t))))
  5596. (info-menu-6 ((t (nil))))
  5597. (info-node ((t (:italic t :bold t))))
  5598. (info-xref ((t (:bold t))))
  5599. (isearch ((t (:bold t :background "paleturquoise"))))
  5600. (isearch-secondary ((t (:foreground "red3"))))
  5601. (ispell-face ((t (:bold t))))
  5602. (italic ((t (:italic t :bold t))))
  5603. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  5604. (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
  5605. (jde-java-font-lock-link-face ((t (:underline t :foreground "blue"))))
  5606. (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
  5607. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  5608. (left-margin ((t (:bold t))))
  5609. (linemenu-face ((t (nil))))
  5610. (list-mode-item-selected ((t (:bold t :background "gray68"))))
  5611. (magenta ((t (:foreground "magenta"))))
  5612. (makefile-space-face ((t (:background "hotpink"))))
  5613. (man-bold ((t (:bold t))))
  5614. (man-heading ((t (:bold t))))
  5615. (man-italic ((t (:foreground "yellow"))))
  5616. (man-xref ((t (:underline t))))
  5617. (message-cited-text ((t (:bold t :foreground "orange"))))
  5618. (message-cited-text-face ((t (:bold t :foreground "red"))))
  5619. (message-header-cc-face ((t (:bold t :foreground "MidnightBlue"))))
  5620. (message-header-contents ((t (:italic t :bold t :foreground "white"))))
  5621. (message-header-name-face ((t (:bold t :foreground "cornflower blue"))))
  5622. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  5623. (message-header-other-face ((t (:bold t :foreground "steel blue"))))
  5624. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  5625. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  5626. (message-header-xheader-face ((t (:bold t :foreground "blue"))))
  5627. (message-headers ((t (:bold t :foreground "orange"))))
  5628. (message-highlighted-header-contents ((t (:bold t))))
  5629. (message-mml-face ((t (:bold t :foreground "ForestGreen"))))
  5630. (message-separator-face ((t (:foreground "brown"))))
  5631. (message-url ((t (:bold t :foreground "pink"))))
  5632. (mmm-face ((t (:background "black" :foreground "green"))))
  5633. (modeline ((t (:bold t :background "Black" :foreground "#CA94AA469193"))))
  5634. (modeline-buffer-id ((t (:bold t :background "Gray80" :foreground "blue4"))))
  5635. (modeline-mousable ((t (:bold t :background "Gray80" :foreground "firebrick"))))
  5636. (modeline-mousable-minor-mode ((t (:bold t :background "Gray80" :foreground "green4"))))
  5637. (my-tab-face ((t (nil))))
  5638. (nil ((t (nil))))
  5639. (p4-diff-del-face ((t (:bold t))))
  5640. (paren-blink-off ((t (:foreground "gray80"))))
  5641. (paren-face ((t (nil))))
  5642. (paren-face-match ((t (nil))))
  5643. (paren-face-mismatch ((t (nil))))
  5644. (paren-face-no-match ((t (nil))))
  5645. (paren-match ((t (:background "darkseagreen2"))))
  5646. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  5647. (paren-mismatch-face ((t (:bold t :background "DeepPink" :foreground "white"))))
  5648. (paren-no-match-face ((t (:bold t :background "yellow" :foreground "white"))))
  5649. (pointer ((t (:bold t))))
  5650. (primary-selection ((t (:bold t :background "gray65"))))
  5651. (red ((t (:bold t :foreground "red"))))
  5652. (region ((t (:bold t :background "gray"))))
  5653. (right-margin ((t (:bold t))))
  5654. (searchm-buffer ((t (:bold t))))
  5655. (searchm-button ((t (:bold t))))
  5656. (searchm-field ((t (nil))))
  5657. (searchm-field-label ((t (:bold t))))
  5658. (searchm-highlight ((t (:bold t))))
  5659. (secondary-selection ((t (:bold t :background "paleturquoise"))))
  5660. (semantic-intangible-face ((t (:foreground "gray25"))))
  5661. (semantic-read-only-face ((t (:background "gray25"))))
  5662. (senator-momentary-highlight-face ((t (:background "gray70"))))
  5663. (setnu-line-number-face ((t (:italic t :bold t))))
  5664. (sgml-comment-face ((t (:foreground "dark green"))))
  5665. (sgml-doctype-face ((t (:foreground "maroon"))))
  5666. (sgml-end-tag-face ((t (:foreground "blue2"))))
  5667. (sgml-entity-face ((t (:foreground "red2"))))
  5668. (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
  5669. (sgml-ms-end-face ((t (:foreground "maroon"))))
  5670. (sgml-ms-start-face ((t (:foreground "maroon"))))
  5671. (sgml-pi-face ((t (:foreground "maroon"))))
  5672. (sgml-sgml-face ((t (:foreground "maroon"))))
  5673. (sgml-short-ref-face ((t (:foreground "goldenrod"))))
  5674. (sgml-start-tag-face ((t (:foreground "blue2"))))
  5675. (shell-input-face ((t (:bold t))))
  5676. (shell-option-face ((t (:bold t :foreground "blue4"))))
  5677. (shell-output-2-face ((t (:bold t :foreground "green4"))))
  5678. (shell-output-3-face ((t (:bold t :foreground "green4"))))
  5679. (shell-output-face ((t (:bold t))))
  5680. (shell-prompt-face ((t (:bold t :foreground "red4"))))
  5681. (show-paren-match-face ((t (:bold t :background "turquoise"))))
  5682. (show-paren-mismatch-face ((t (:bold t :background "purple" :foreground "white"))))
  5683. (speedbar-button-face ((t (:bold t :foreground "magenta"))))
  5684. (speedbar-directory-face ((t (:bold t :foreground "orchid"))))
  5685. (speedbar-file-face ((t (:bold t :foreground "pink"))))
  5686. (speedbar-highlight-face ((t (:background "black"))))
  5687. (speedbar-selected-face ((t (:underline t :foreground "cyan"))))
  5688. (speedbar-tag-face ((t (:foreground "yellow"))))
  5689. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  5690. (template-message-face ((t (:bold t))))
  5691. (term-black ((t (:foreground "black"))))
  5692. (term-blackbg ((t (:background "black"))))
  5693. (term-blue ((t (:foreground "blue"))))
  5694. (term-blue-bold-face ((t (:bold t :background "snow2" :foreground "blue"))))
  5695. (term-blue-face ((t (:foreground "blue"))))
  5696. (term-blue-inv-face ((t (:background "blue"))))
  5697. (term-blue-ul-face ((t (:underline t :background "snow2" :foreground "blue"))))
  5698. (term-bluebg ((t (:background "blue"))))
  5699. (term-bold ((t (:bold t))))
  5700. (term-cyan ((t (:foreground "cyan"))))
  5701. (term-cyan-bold-face ((t (:bold t :background "snow2" :foreground "cyan"))))
  5702. (term-cyan-face ((t (:foreground "cyan"))))
  5703. (term-cyan-inv-face ((t (:background "cyan"))))
  5704. (term-cyan-ul-face ((t (:underline t :background "snow2" :foreground "cyan"))))
  5705. (term-cyanbg ((t (:background "cyan"))))
  5706. (term-default-bg ((t (nil))))
  5707. (term-default-bg-inv ((t (nil))))
  5708. (term-default-bold-face ((t (:bold t :background "snow2" :foreground "darkslategray"))))
  5709. (term-default-face ((t (:background "snow2" :foreground "darkslategray"))))
  5710. (term-default-fg ((t (nil))))
  5711. (term-default-fg-inv ((t (nil))))
  5712. (term-default-inv-face ((t (:background "darkslategray" :foreground "snow2"))))
  5713. (term-default-ul-face ((t (:underline t :background "snow2" :foreground "darkslategray"))))
  5714. (term-green ((t (:foreground "green"))))
  5715. (term-green-bold-face ((t (:bold t :background "snow2" :foreground "green"))))
  5716. (term-green-face ((t (:foreground "green"))))
  5717. (term-green-inv-face ((t (:background "green"))))
  5718. (term-green-ul-face ((t (:underline t :background "snow2" :foreground "green"))))
  5719. (term-greenbg ((t (:background "green"))))
  5720. (term-invisible ((t (nil))))
  5721. (term-invisible-inv ((t (nil))))
  5722. (term-magenta ((t (:foreground "magenta"))))
  5723. (term-magenta-bold-face ((t (:bold t :background "snow2" :foreground "magenta"))))
  5724. (term-magenta-face ((t (:foreground "magenta"))))
  5725. (term-magenta-inv-face ((t (:background "magenta"))))
  5726. (term-magenta-ul-face ((t (:underline t :background "snow2" :foreground "magenta"))))
  5727. (term-magentabg ((t (:background "magenta"))))
  5728. (term-red ((t (:foreground "red"))))
  5729. (term-red-bold-face ((t (:bold t :background "snow2" :foreground "red"))))
  5730. (term-red-face ((t (:foreground "red"))))
  5731. (term-red-inv-face ((t (:background "red"))))
  5732. (term-red-ul-face ((t (:underline t :background "snow2" :foreground "red"))))
  5733. (term-redbg ((t (:background "red"))))
  5734. (term-underline ((t (:underline t))))
  5735. (term-white ((t (:foreground "white"))))
  5736. (term-white-bold-face ((t (:bold t :background "snow2" :foreground "white"))))
  5737. (term-white-face ((t (:foreground "white"))))
  5738. (term-white-inv-face ((t (:background "snow2"))))
  5739. (term-white-ul-face ((t (:underline t :background "snow2" :foreground "white"))))
  5740. (term-whitebg ((t (:background "white"))))
  5741. (term-yellow ((t (:foreground "yellow"))))
  5742. (term-yellow-bold-face ((t (:bold t :background "snow2" :foreground "yellow"))))
  5743. (term-yellow-face ((t (:foreground "yellow"))))
  5744. (term-yellow-inv-face ((t (:background "yellow"))))
  5745. (term-yellow-ul-face ((t (:underline t :background "snow2" :foreground "yellow"))))
  5746. (term-yellowbg ((t (:background "yellow"))))
  5747. (text-cursor ((t (:bold t :background "Red3" :foreground "gray80"))))
  5748. (toolbar ((t (:bold t :background "Gray80"))))
  5749. (underline ((t (:underline t :bold t))))
  5750. (vc-annotate-face-0046FF ((t (nil))))
  5751. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  5752. (vertical-divider ((t (:bold t :background "Gray80"))))
  5753. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  5754. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  5755. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  5756. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  5757. (vhdl-font-lock-generic-/constant-face ((t (nil))))
  5758. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  5759. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  5760. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  5761. (vhdl-font-lock-type-face ((t (nil))))
  5762. (vhdl-font-lock-variable-face ((t (nil))))
  5763. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  5764. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  5765. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  5766. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  5767. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  5768. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  5769. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  5770. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  5771. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  5772. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  5773. (vhdl-speedbar-subprogram-face ((t (nil))))
  5774. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  5775. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  5776. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  5777. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  5778. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  5779. (vm-xface ((t (:background "white" :foreground "black"))))
  5780. (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
  5781. (vmpc-sig-face ((t (:foreground "steelblue"))))
  5782. (vvb-face ((t (nil))))
  5783. (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1"))))
  5784. (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3"))))
  5785. (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
  5786. (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
  5787. (white ((t (:foreground "white"))))
  5788. (widget ((t (nil))))
  5789. (widget-button-face ((t (:bold t))))
  5790. (widget-button-pressed-face ((t (:bold t :foreground "red"))))
  5791. (widget-documentation-face ((t (:bold t :foreground "dark green"))))
  5792. (widget-field-face ((t (:bold t :background "gray85"))))
  5793. (widget-inactive-face ((t (:bold t :foreground "dim gray"))))
  5794. (widget-single-line-field-face ((t (:background "gray85"))))
  5795. (woman-bold-face ((t (:bold t))))
  5796. (woman-italic-face ((t (:foreground "beige"))))
  5797. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  5798. (x-face ((t (:bold t :background "white" :foreground "black"))))
  5799. (x-symbol-adobe-fontspecific-face ((t (nil))))
  5800. (x-symbol-face ((t (nil))))
  5801. (x-symbol-heading-face ((t (:bold t))))
  5802. (x-symbol-info-face ((t (nil))))
  5803. (x-symbol-invisible-face ((t (nil))))
  5804. (x-symbol-revealed-face ((t (nil))))
  5805. (xrdb-option-name-face ((t (:foreground "red"))))
  5806. (xref-keyword-face ((t (:foreground "blue"))))
  5807. (xref-list-default-face ((t (nil))))
  5808. (xref-list-pilot-face ((t (:foreground "navy"))))
  5809. (xref-list-symbol-face ((t (:foreground "navy"))))
  5810. (yellow ((t (:bold t :foreground "yellow"))))
  5811. (zmacs-region ((t (:bold t :background "gray65")))))))
  5812. (defun color-theme-mistyday ()
  5813. "Color theme by K.C. Hari Kumar, created 2001-06-13.
  5814. Black on mistyrose. Includes CUA, calendar, diary, font-latex and
  5815. font-lock. Uses backgrounds on some font-lock faces."
  5816. (interactive)
  5817. (color-theme-install
  5818. '(color-theme-mistyday
  5819. ((background-color . "mistyrose")
  5820. (background-mode . light)
  5821. (border-color . "black")
  5822. (cursor-color . "deep pink")
  5823. (foreground-color . "Black")
  5824. (mouse-color . "black"))
  5825. ((goto-address-mail-face . italic)
  5826. (goto-address-mail-mouse-face . secondary-selection)
  5827. (goto-address-url-face . bold)
  5828. (goto-address-url-mouse-face . highlight)
  5829. (list-matching-lines-face . bold)
  5830. (paren-match-face . paren-face-match)
  5831. (paren-mismatch-face . paren-face-mismatch)
  5832. (paren-no-match-face . paren-face-no-match))
  5833. (default ((t (nil))))
  5834. (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
  5835. (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
  5836. (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
  5837. (bold ((t (:bold t))))
  5838. (bold-italic ((t (:italic t :bold t))))
  5839. (calendar-today-face ((t (:underline t :background "Spring Green" :foreground "Brown"))))
  5840. (custom-button-face ((t (:background "dark slate grey" :foreground "azure"))))
  5841. (custom-documentation-face ((t (:background "white" :foreground "blue"))))
  5842. (diary-face ((t (:background "navy" :foreground "yellow"))))
  5843. (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen"))))
  5844. (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen"))))
  5845. (font-latex-math-face ((t (:foreground "navy"))))
  5846. (font-latex-sedate-face ((t (:foreground "DimGray"))))
  5847. (font-latex-string-face ((t (nil))))
  5848. (font-latex-warning-face ((t (nil))))
  5849. (font-lock-builtin-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
  5850. (font-lock-comment-face ((t (:italic t :foreground "royal blue"))))
  5851. (font-lock-constant-face ((t (:background "pale green" :foreground "dark slate blue"))))
  5852. (font-lock-doc-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
  5853. (font-lock-function-name-face ((t (:background "SpringGreen" :foreground "MidnightBlue"))))
  5854. (font-lock-keyword-face ((t (:foreground "dark magenta"))))
  5855. (font-lock-preprocessor-face ((t (:background "pale green" :foreground "dark slate blue"))))
  5856. (font-lock-reference-face ((t (:background "DarkTurquoise" :foreground "Navy"))))
  5857. (font-lock-string-face ((t (:background "medium aquamarine" :foreground "deep pink"))))
  5858. (font-lock-type-face ((t (:background "steel blue" :foreground "khaki"))))
  5859. (font-lock-variable-name-face ((t (:background "thistle" :foreground "orange red"))))
  5860. (font-lock-warning-face ((t (:background "LemonChiffon" :foreground "Red"))))
  5861. (highlight ((t (:background "dark slate grey" :foreground "light cyan"))))
  5862. (holiday-face ((t (:background "orangered" :foreground "lightyellow"))))
  5863. (ido-first-match-face ((t (:bold t))))
  5864. (ido-only-match-face ((t (:foreground "ForestGreen"))))
  5865. (ido-subdir-face ((t (:foreground "red"))))
  5866. (italic ((t (:italic t))))
  5867. (isearch ((t (:background "sienna" :foreground "light cyan"))))
  5868. (modeline ((t (:background "Royalblue4" :foreground "lawn green"))))
  5869. (modeline-buffer-id ((t (:background "Royalblue4" :foreground "lawn green"))))
  5870. (modeline-mousable ((t (:background "Royalblue4" :foreground "lawn green"))))
  5871. (modeline-mousable-minor-mode ((t (:background "Royalblue4" :foreground "lawn green"))))
  5872. (paren-face-match ((t (:background "turquoise"))))
  5873. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  5874. (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
  5875. (primary-selection ((t (:background "sienna" :foreground "light cyan"))))
  5876. (region ((t (:background "sienna" :foreground "light cyan"))))
  5877. (secondary-selection ((t (:background "forest green" :foreground "white smoke"))))
  5878. (underline ((t (:underline t))))
  5879. (zmacs-region ((t (:background "sienna" :foreground "light cyan")))))))
  5880. (defun color-theme-marine ()
  5881. "Color theme by Girish Bharadwaj, created 2001-06-22.
  5882. Matches the MS Windows Marine color theme.
  5883. Includes custom, font-lock, paren, widget."
  5884. (interactive)
  5885. (color-theme-install
  5886. '(color-theme-marine
  5887. ((background-color . "#9dcec9")
  5888. (background-mode . light)
  5889. (border-color . "black")
  5890. (cursor-color . "yellow")
  5891. (foreground-color . "darkslategray")
  5892. (mouse-color . "sienna1"))
  5893. ((buffers-tab-face . buffers-tab)
  5894. (gnus-mouse-face . highlight)
  5895. (smiley-mouse-face . highlight))
  5896. (default ((t (nil))))
  5897. (blue ((t (:foreground "blue"))))
  5898. (bold ((t (:bold t))))
  5899. (bold-italic ((t (nil))))
  5900. (border-glyph ((t (nil))))
  5901. (buffers-tab ((t (:background "#9dcec9" :foreground "darkslategray"))))
  5902. (custom-button-face ((t (nil))))
  5903. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  5904. (custom-comment-face ((t (:background "gray85"))))
  5905. (custom-comment-tag-face ((t (:foreground "blue4"))))
  5906. (custom-documentation-face ((t (nil))))
  5907. (custom-face-tag-face ((t (:underline t))))
  5908. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  5909. (custom-group-tag-face-1 ((t (:underline t :foreground "deeppink"))))
  5910. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  5911. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  5912. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  5913. (custom-saved-face ((t (:underline t))))
  5914. (custom-set-face ((t (:background "white" :foreground "blue"))))
  5915. (custom-state-face ((t (:foreground "darkgreen"))))
  5916. (custom-variable-button-face ((t (:underline t :bold t))))
  5917. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  5918. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  5919. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  5920. (display-time-time-balloon-face ((t (:foreground "red"))))
  5921. (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
  5922. (font-lock-comment-face ((t (:foreground "cadetblue"))))
  5923. (font-lock-constant-face ((t (:foreground "OrangeRed"))))
  5924. (font-lock-doc-string-face ((t (:foreground "Salmon"))))
  5925. (font-lock-function-name-face ((t (:bold t :foreground "NavyBlue"))))
  5926. (font-lock-keyword-face ((t (:bold t :foreground "purple"))))
  5927. (font-lock-preprocessor-face ((t (:foreground "SteelBlue"))))
  5928. (font-lock-reference-face ((t (:foreground "SteelBlue"))))
  5929. (font-lock-string-face ((t (:foreground "royalblue"))))
  5930. (font-lock-type-face ((t (:foreground "darkmagenta"))))
  5931. (font-lock-variable-name-face ((t (:foreground "violetred"))))
  5932. (font-lock-warning-face ((t (:bold t :foreground "red"))))
  5933. (green ((t (:foreground "green"))))
  5934. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  5935. (gui-element ((t (:background "#489088" :foreground "black"))))
  5936. (highlight ((t (:background "darkolivegreen" :foreground "white"))))
  5937. (isearch ((t (:background "blue"))))
  5938. (isearch-secondary ((t (:foreground "red3"))))
  5939. (italic ((t (nil))))
  5940. (left-margin ((t (nil))))
  5941. (list-mode-item-selected ((t (:background "gray68" :foreground "darkslategray"))))
  5942. (modeline ((t (:background "black" :foreground "white"))))
  5943. (modeline-buffer-id ((t (:background "black" :foreground "white"))))
  5944. (modeline-mousable ((t (:background "black" :foreground "white"))))
  5945. (modeline-mousable-minor-mode ((t (:background "black" :foreground "white"))))
  5946. (paren-blink-off ((t (:foreground "black"))))
  5947. (paren-match ((t (:background "darkolivegreen" :foreground "white"))))
  5948. (paren-mismatch ((t (:background "#9dcec9" :foreground "darkslategray"))))
  5949. (pointer ((t (nil))))
  5950. (primary-selection ((t (:background "blue"))))
  5951. (red ((t (:foreground "red"))))
  5952. (region ((t (:background "blue"))))
  5953. (right-margin ((t (nil))))
  5954. (secondary-selection ((t (:background "darkslateblue" :foreground "white"))))
  5955. (template-message-face ((t (:bold t))))
  5956. (text-cursor ((t (:background "yellow" :foreground "#9dcec9"))))
  5957. (toolbar ((t (nil))))
  5958. (underline ((t (:underline t))))
  5959. (vertical-divider ((t (nil))))
  5960. (widget ((t (nil))))
  5961. (widget-button-face ((t (:bold t))))
  5962. (widget-button-pressed-face ((t (:foreground "red"))))
  5963. (widget-documentation-face ((t (:foreground "forestgreen"))))
  5964. (widget-field-face ((t (:background "gray"))))
  5965. (widget-inactive-face ((t (:foreground "dimgray"))))
  5966. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
  5967. (yellow ((t (:foreground "yellow"))))
  5968. (zmacs-region ((t (:background "blue")))))))
  5969. (defun color-theme-blue-erc ()
  5970. "Color theme for erc faces only.
  5971. This is intended for other color themes to use (eg. `color-theme-gnome2')."
  5972. (color-theme-install
  5973. '(color-theme-blue-erc
  5974. nil
  5975. (erc-action-face ((t (nil))))
  5976. (erc-bold-face ((t (:bold t))))
  5977. (erc-current-nick-face ((t (:bold t :foreground "yellow"))))
  5978. (erc-default-face ((t (nil))))
  5979. (erc-direct-msg-face ((t (:foreground "pale green"))))
  5980. (erc-error-face ((t (:bold t :foreground "IndianRed"))))
  5981. (erc-highlight-face ((t (:bold t :foreground "pale green"))))
  5982. (erc-input-face ((t (:foreground "light blue"))))
  5983. (erc-inverse-face ((t (:background "steel blue"))))
  5984. (erc-keyword-face ((t (:foreground "orange" :bold t))))
  5985. (erc-notice-face ((t (:foreground "light salmon"))))
  5986. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  5987. (erc-pal-face ((t (:foreground "pale green"))))
  5988. (erc-prompt-face ((t (:foreground "light blue" :bold t))))
  5989. (fg:erc-color-face0 ((t (:foreground "white"))))
  5990. (fg:erc-color-face1 ((t (:foreground "beige"))))
  5991. (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
  5992. (fg:erc-color-face3 ((t (:foreground "light cyan"))))
  5993. (fg:erc-color-face4 ((t (:foreground "powder blue"))))
  5994. (fg:erc-color-face5 ((t (:foreground "sky blue"))))
  5995. (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
  5996. (fg:erc-color-face7 ((t (:foreground "pale green"))))
  5997. (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
  5998. (fg:erc-color-face9 ((t (:foreground "khaki"))))
  5999. (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
  6000. (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
  6001. (fg:erc-color-face12 ((t (:foreground "light yellow"))))
  6002. (fg:erc-color-face13 ((t (:foreground "yellow"))))
  6003. (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
  6004. (fg:erc-color-face15 ((t (:foreground "lime green"))))
  6005. (bg:erc-color-face0 ((t (nil))))
  6006. (bg:erc-color-face1 ((t (nil))))
  6007. (bg:erc-color-face2 ((t (nil))))
  6008. (bg:erc-color-face3 ((t (nil))))
  6009. (bg:erc-color-face4 ((t (nil))))
  6010. (bg:erc-color-face5 ((t (nil))))
  6011. (bg:erc-color-face6 ((t (nil))))
  6012. (bg:erc-color-face7 ((t (nil))))
  6013. (bg:erc-color-face8 ((t (nil))))
  6014. (bg:erc-color-face9 ((t (nil))))
  6015. (bg:erc-color-face10 ((t (nil))))
  6016. (bg:erc-color-face11 ((t (nil))))
  6017. (bg:erc-color-face12 ((t (nil))))
  6018. (bg:erc-color-face13 ((t (nil))))
  6019. (bg:erc-color-face14 ((t (nil))))
  6020. (bg:erc-color-face15 ((t (nil)))))))
  6021. (defun color-theme-dark-erc ()
  6022. "Color theme for erc faces only.
  6023. This is intended for other color themes to use (eg. `color-theme-late-night')."
  6024. (interactive)
  6025. (color-theme-install
  6026. '(color-theme-dark-erc
  6027. nil
  6028. (erc-action-face ((t (nil))))
  6029. (erc-bold-face ((t (:bold t))))
  6030. (erc-current-nick-face ((t (:bold t))))
  6031. (erc-default-face ((t (nil))))
  6032. (erc-direct-msg-face ((t (nil))))
  6033. (erc-error-face ((t (:bold t :foreground "IndianRed"))))
  6034. (erc-highlight-face ((t (:bold t :foreground "pale green"))))
  6035. (erc-input-face ((t (:foreground "#555"))))
  6036. (erc-inverse-face ((t (:background "steel blue"))))
  6037. (erc-keyword-face ((t (:foreground "#999" :bold t))))
  6038. (erc-nick-msg-face ((t (:foreground "#888"))))
  6039. (erc-notice-face ((t (:foreground "#444"))))
  6040. (erc-pal-face ((t (:foreground "#888"))))
  6041. (erc-prompt-face ((t (:foreground "#777" :bold t))))
  6042. (erc-timestamp-face ((t (:foreground "#777" :bold t))))
  6043. (fg:erc-color-face0 ((t (:foreground "white"))))
  6044. (fg:erc-color-face1 ((t (:foreground "beige"))))
  6045. (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
  6046. (fg:erc-color-face3 ((t (:foreground "light cyan"))))
  6047. (fg:erc-color-face4 ((t (:foreground "powder blue"))))
  6048. (fg:erc-color-face5 ((t (:foreground "sky blue"))))
  6049. (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
  6050. (fg:erc-color-face7 ((t (:foreground "pale green"))))
  6051. (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
  6052. (fg:erc-color-face9 ((t (:foreground "khaki"))))
  6053. (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
  6054. (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
  6055. (fg:erc-color-face12 ((t (:foreground "light yellow"))))
  6056. (fg:erc-color-face13 ((t (:foreground "yellow"))))
  6057. (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
  6058. (fg:erc-color-face15 ((t (:foreground "lime green"))))
  6059. (bg:erc-color-face0 ((t (nil))))
  6060. (bg:erc-color-face1 ((t (nil))))
  6061. (bg:erc-color-face2 ((t (nil))))
  6062. (bg:erc-color-face3 ((t (nil))))
  6063. (bg:erc-color-face4 ((t (nil))))
  6064. (bg:erc-color-face5 ((t (nil))))
  6065. (bg:erc-color-face6 ((t (nil))))
  6066. (bg:erc-color-face7 ((t (nil))))
  6067. (bg:erc-color-face8 ((t (nil))))
  6068. (bg:erc-color-face9 ((t (nil))))
  6069. (bg:erc-color-face10 ((t (nil))))
  6070. (bg:erc-color-face11 ((t (nil))))
  6071. (bg:erc-color-face12 ((t (nil))))
  6072. (bg:erc-color-face13 ((t (nil))))
  6073. (bg:erc-color-face14 ((t (nil))))
  6074. (bg:erc-color-face15 ((t (nil)))))))
  6075. (defun color-theme-subtle-blue ()
  6076. "Color theme by Chris McMahan, created 2001-09-06.
  6077. Light blue background. Includes bbdb, comint, cperl, custom, cvs,
  6078. diary, dired, display-time, ecb, ediff, erc, eshell, font-lock,
  6079. gnus, html-helper, info, isearch, jde, message, paren, semantic,
  6080. sgml, speedbar, term, vhdl, viper, vm, widget, woman, xref, xxml."
  6081. (interactive)
  6082. (color-theme-install
  6083. '(color-theme-subtle-blue
  6084. ((background-color . "#65889C")
  6085. (background-mode . dark)
  6086. (background-toolbar-color . "#cf3ccf3ccf3c")
  6087. (border-color . "black")
  6088. (bottom-toolbar-shadow-color . "#79e77df779e7")
  6089. (cursor-color . "white")
  6090. (foreground-color . "#eedfcc")
  6091. (mouse-color . "Grey")
  6092. (top-toolbar-shadow-color . "#fffffbeeffff")
  6093. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  6094. ((blank-space-face . blank-space-face)
  6095. (blank-tab-face . blank-tab-face)
  6096. (ecb-source-in-directories-buffer-face . ecb-sources-face)
  6097. (gnus-mouse-face . highlight)
  6098. (list-matching-lines-face . bold)
  6099. (view-highlight-face . highlight)
  6100. (vm-highlight-url-face . my-url-face)
  6101. (vm-highlighted-header-face . my-url-face)
  6102. (vm-mime-button-face . gui-button-face)
  6103. (vm-summary-highlight-face . my-summary-highlight-face))
  6104. (default ((t (nil))))
  6105. (bbdb-company ((t (:italic t))))
  6106. (bbdb-field-name ((t (:bold t :foreground "MediumAquamarine"))))
  6107. (bbdb-field-value ((t (nil))))
  6108. (bbdb-name ((t (:underline t))))
  6109. (blank-space-face ((t (:background "gray80"))))
  6110. (blank-tab-face ((t (:background "LightBlue" :foreground "DarkSlateGray"))))
  6111. (blue ((t (:foreground "blue"))))
  6112. (bold ((t (:bold t :foreground "MediumAquamarine"))))
  6113. (bold-italic ((t (:italic t :bold t :foreground "SkyBlue"))))
  6114. (border ((t (:background "black"))))
  6115. (border-glyph ((t (nil))))
  6116. (calendar-today-face ((t (:underline t))))
  6117. (comint-highlight-input ((t (:bold t))))
  6118. (comint-highlight-prompt ((t (:foreground "cyan"))))
  6119. (comint-input-face ((t (:foreground "deepskyblue"))))
  6120. (cperl-array-face ((t (:bold t :foreground "Yellow"))))
  6121. (cperl-hash-face ((t (:italic t :bold t :foreground "White"))))
  6122. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  6123. (cursor ((t (:background "white"))))
  6124. (custom-button-face ((t (:underline t :bold t :foreground "MediumAquaMarine"))))
  6125. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
  6126. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  6127. (custom-comment-face ((t (:background "dim gray"))))
  6128. (custom-comment-tag-face ((t (:foreground "gray80"))))
  6129. (custom-documentation-face ((t (:foreground "Grey"))))
  6130. (custom-face-tag-face ((t (:underline t))))
  6131. (custom-group-tag-face ((t (:bold t :foreground "MediumAquamarine"))))
  6132. (custom-group-tag-face-1 ((t (:foreground "MediumAquaMarine"))))
  6133. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  6134. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  6135. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  6136. (custom-saved-face ((t (:underline t))))
  6137. (custom-set-face ((t (:background "white" :foreground "blue"))))
  6138. (custom-state-face ((t (:foreground "yellow"))))
  6139. (custom-variable-button-face ((t (:underline t :bold t))))
  6140. (custom-variable-tag-face ((t (:bold t :foreground "Aquamarine"))))
  6141. (cvs-filename-face ((t (:foreground "blue4"))))
  6142. (cvs-handled-face ((t (:foreground "pink"))))
  6143. (cvs-header-face ((t (:bold t :foreground "blue4"))))
  6144. (cvs-marked-face ((t (:bold t :foreground "green3"))))
  6145. (cvs-msg-face ((t (:italic t))))
  6146. (cvs-need-action-face ((t (:foreground "orange"))))
  6147. (cvs-unknown-face ((t (:foreground "red"))))
  6148. (diary-face ((t (:bold t :foreground "cyan"))))
  6149. (dired-face-boring ((t (:foreground "Gray65"))))
  6150. (dired-face-directory ((t (:bold t :foreground "sky blue"))))
  6151. (dired-face-executable ((t (:foreground "MediumAquaMarine"))))
  6152. (dired-face-flagged ((t (:foreground "Cyan"))))
  6153. (dired-face-marked ((t (:foreground "cyan"))))
  6154. (dired-face-permissions ((t (:foreground "aquamarine"))))
  6155. (dired-face-setuid ((t (:foreground "LightSalmon"))))
  6156. (dired-face-socket ((t (:foreground "LightBlue"))))
  6157. (dired-face-symlink ((t (:foreground "gray95"))))
  6158. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  6159. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  6160. (display-time-time-balloon-face ((t (:foreground "red"))))
  6161. (ecb-sources-face ((t (:foreground "LightBlue1"))))
  6162. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  6163. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  6164. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  6165. (ediff-current-diff-face-C ((t (:background "indianred" :foreground "white"))))
  6166. (ediff-even-diff-face-A ((t (:background "light gray" :foreground "Black"))))
  6167. (ediff-even-diff-face-Ancestor ((t (:background "Gray" :foreground "White"))))
  6168. (ediff-even-diff-face-B ((t (:background "Gray" :foreground "White"))))
  6169. (ediff-even-diff-face-C ((t (:background "light gray" :foreground "Black"))))
  6170. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  6171. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  6172. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  6173. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  6174. (ediff-odd-diff-face-A ((t (:background "Gray" :foreground "White"))))
  6175. (ediff-odd-diff-face-Ancestor ((t (:background "light gray" :foreground "Black"))))
  6176. (ediff-odd-diff-face-B ((t (:background "light gray" :foreground "Black"))))
  6177. (ediff-odd-diff-face-C ((t (:background "Gray" :foreground "White"))))
  6178. (erc-action-face ((t (:bold t))))
  6179. (erc-bold-face ((t (:bold t))))
  6180. (erc-default-face ((t (nil))))
  6181. (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
  6182. (erc-error-face ((t (:bold t :foreground "yellow"))))
  6183. (erc-input-face ((t (:foreground "Beige"))))
  6184. (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
  6185. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  6186. (erc-pal-face ((t (:foreground "PaleGreen"))))
  6187. (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
  6188. (erc-underline-face ((t (:underline t))))
  6189. (eshell-ls-archive-face ((t (:bold t :foreground "wheat"))))
  6190. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  6191. (eshell-ls-clutter-face ((t (:bold t :foreground "wheat"))))
  6192. (eshell-ls-directory-face ((t (:bold t :foreground "Yellow"))))
  6193. (eshell-ls-executable-face ((t (:bold t :foreground "wheat"))))
  6194. (eshell-ls-missing-face ((t (:bold t :foreground "wheat"))))
  6195. (eshell-ls-picture-face ((t (:foreground "wheat"))))
  6196. (eshell-ls-product-face ((t (:foreground "wheat"))))
  6197. (eshell-ls-readonly-face ((t (:foreground "wheat"))))
  6198. (eshell-ls-special-face ((t (:bold t :foreground "wheat"))))
  6199. (eshell-ls-symlink-face ((t (:bold t :foreground "White"))))
  6200. (eshell-ls-text-face ((t (:foreground "wheat"))))
  6201. (eshell-ls-todo-face ((t (:foreground "wheat"))))
  6202. (eshell-ls-unreadable-face ((t (:foreground "wheat3"))))
  6203. (eshell-prompt-face ((t (:bold t :foreground "PaleGreen"))))
  6204. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  6205. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  6206. (excerpt ((t (:italic t))))
  6207. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  6208. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  6209. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  6210. (font-latex-italic-face ((t (nil))))
  6211. (font-latex-math-face ((t (nil))))
  6212. (font-latex-sedate-face ((t (:foreground "Gray85"))))
  6213. (font-latex-string-face ((t (:foreground "orange"))))
  6214. (font-latex-warning-face ((t (:foreground "gold"))))
  6215. (font-lock-builtin-face ((t (:foreground "PaleGreen"))))
  6216. (font-lock-comment-face ((t (:italic t :foreground "Wheat3"))))
  6217. (font-lock-constant-face ((t (:foreground "LightBlue"))))
  6218. (font-lock-doc-face ((t (:bold t :foreground "DarkSeaGreen"))))
  6219. (font-lock-doc-string-face ((t (:bold t :foreground "DarkSeaGreen"))))
  6220. (font-lock-exit-face ((t (:foreground "green"))))
  6221. (font-lock-function-name-face ((t (:italic t :bold t :foreground "cyan"))))
  6222. (font-lock-keyword-face ((t (:bold t :foreground "LightBlue"))))
  6223. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  6224. (font-lock-reference-face ((t (:foreground "PaleGreen"))))
  6225. (font-lock-string-face ((t (:italic t :foreground "MediumAquamarine"))))
  6226. (font-lock-type-face ((t (:bold t :foreground "LightBlue"))))
  6227. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightBlue"))))
  6228. (font-lock-warning-face ((t (:bold t :foreground "LightSalmon"))))
  6229. (fringe ((t (:background "darkslategrey"))))
  6230. (gnus-cite-attribution-face ((t (:italic t :bold t))))
  6231. (gnus-cite-face-1 ((t (:foreground "LightBlue"))))
  6232. (gnus-cite-face-10 ((t (:foreground "LightBlue"))))
  6233. (gnus-cite-face-11 ((t (:foreground "LightBlue"))))
  6234. (gnus-cite-face-2 ((t (:foreground "LightBlue"))))
  6235. (gnus-cite-face-3 ((t (:foreground "LightBlue"))))
  6236. (gnus-cite-face-4 ((t (:foreground "LightBlue"))))
  6237. (gnus-cite-face-5 ((t (:foreground "LightBlue"))))
  6238. (gnus-cite-face-6 ((t (:foreground "LightBlue"))))
  6239. (gnus-cite-face-7 ((t (:foreground "LightBlue"))))
  6240. (gnus-cite-face-8 ((t (:foreground "LightBlue"))))
  6241. (gnus-cite-face-9 ((t (:foreground "LightBlue"))))
  6242. (gnus-emphasis-bold ((t (:bold t))))
  6243. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  6244. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  6245. (gnus-emphasis-italic ((t (:italic t))))
  6246. (gnus-emphasis-underline ((t (:underline t))))
  6247. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  6248. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  6249. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  6250. (gnus-filterhist-face-1 ((t (nil))))
  6251. (gnus-group-mail-1-empty-face ((t (:foreground "gray80"))))
  6252. (gnus-group-mail-1-face ((t (:bold t :foreground "light cyan"))))
  6253. (gnus-group-mail-2-empty-face ((t (:foreground "gray80"))))
  6254. (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise"))))
  6255. (gnus-group-mail-3-empty-face ((t (:foreground "gray80"))))
  6256. (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
  6257. (gnus-group-mail-low-empty-face ((t (:foreground "gray80"))))
  6258. (gnus-group-mail-low-face ((t (:bold t :foreground "LightBlue"))))
  6259. (gnus-group-news-1-empty-face ((t (:foreground "gray80"))))
  6260. (gnus-group-news-1-face ((t (:bold t :foreground "green yellow"))))
  6261. (gnus-group-news-2-empty-face ((t (:foreground "gray80"))))
  6262. (gnus-group-news-2-face ((t (:bold t :foreground "Aquamarine"))))
  6263. (gnus-group-news-3-empty-face ((t (:foreground "gray80"))))
  6264. (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
  6265. (gnus-group-news-4-empty-face ((t (:foreground "gray80"))))
  6266. (gnus-group-news-4-face ((t (:bold t :foreground "Wheat"))))
  6267. (gnus-group-news-5-empty-face ((t (:foreground "gray80"))))
  6268. (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
  6269. (gnus-group-news-6-empty-face ((t (:foreground "gray80"))))
  6270. (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
  6271. (gnus-group-news-low-empty-face ((t (:foreground "gray80"))))
  6272. (gnus-group-news-low-face ((t (:bold t :foreground "yellow green"))))
  6273. (gnus-header-content-face ((t (:italic t :foreground "LightSkyBlue3"))))
  6274. (gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
  6275. (gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
  6276. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  6277. (gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
  6278. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  6279. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  6280. (gnus-signature-face ((t (:italic t :foreground "LightBlue"))))
  6281. (gnus-splash ((t (:foreground "Brown"))))
  6282. (gnus-splash-face ((t (:foreground "LightBlue"))))
  6283. (gnus-summary-cancelled-face ((t (:background "black" :foreground "gray80"))))
  6284. (gnus-summary-high-ancient-face ((t (:bold t :foreground "LightBlue"))))
  6285. (gnus-summary-high-read-face ((t (:bold t :foreground "gray80"))))
  6286. (gnus-summary-high-ticked-face ((t (:bold t :foreground "burlywood"))))
  6287. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "wheat"))))
  6288. (gnus-summary-low-ancient-face ((t (:italic t :foreground "LightBlue"))))
  6289. (gnus-summary-low-read-face ((t (:italic t :foreground "light sea green"))))
  6290. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "LightBlue"))))
  6291. (gnus-summary-low-unread-face ((t (:italic t :foreground "light sea green"))))
  6292. (gnus-summary-normal-ancient-face ((t (:foreground "gray80"))))
  6293. (gnus-summary-normal-read-face ((t (:foreground "gray80"))))
  6294. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "sandy brown"))))
  6295. (gnus-summary-normal-unread-face ((t (:bold t :foreground "wheat"))))
  6296. (gnus-summary-selected-face ((t (:underline t))))
  6297. (gnus-x-face ((t (:background "white" :foreground "black"))))
  6298. (green ((t (:foreground "green"))))
  6299. (gui-button-face ((t (:background "cyan" :foreground "#65889C"))))
  6300. (gui-element ((t (:background "Gray"))))
  6301. (header-line ((t (:background "grey20" :foreground "grey90"))))
  6302. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  6303. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  6304. (highlight-changes-face ((t (:foreground "red"))))
  6305. (highline-face ((t (:background "SeaGreen"))))
  6306. (holiday-face ((t (:background "DimGray"))))
  6307. (html-helper-bold-face ((t (:foreground "DarkRed"))))
  6308. (html-helper-italic-face ((t (:foreground "DarkBlue"))))
  6309. (html-helper-underline-face ((t (:underline t :foreground "Black"))))
  6310. (html-tag-face ((t (:foreground "Blue"))))
  6311. (info-menu-5 ((t (:underline t))))
  6312. (info-node ((t (:underline t :italic t :bold t :foreground "light blue"))))
  6313. (info-xref ((t (:bold t :foreground "light blue"))))
  6314. (isearch ((t (:background "Aquamarine" :foreground "SteelBlue"))))
  6315. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  6316. (isearch-secondary ((t (:foreground "red3"))))
  6317. (italic ((t (:italic t))))
  6318. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  6319. (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
  6320. (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
  6321. (jde-java-font-lock-bold-face ((t (:bold t))))
  6322. (jde-java-font-lock-code-face ((t (nil))))
  6323. (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
  6324. (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
  6325. (jde-java-font-lock-italic-face ((t (:italic t))))
  6326. (jde-java-font-lock-link-face ((t (:underline t :foreground "LightBlue"))))
  6327. (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
  6328. (jde-java-font-lock-number-face ((t (:foreground "LightBlue"))))
  6329. (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
  6330. (jde-java-font-lock-pre-face ((t (nil))))
  6331. (jde-java-font-lock-underline-face ((t (:underline t))))
  6332. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  6333. (left-margin ((t (nil))))
  6334. (linemenu-face ((t (:background "gray30"))))
  6335. (list-mode-item-selected ((t (nil))))
  6336. (makefile-space-face ((t (:background "hotpink"))))
  6337. (menu ((t (:background "wheat" :foreground "gray30"))))
  6338. (message-cited-text-face ((t (:foreground "White"))))
  6339. (message-header-cc-face ((t (:bold t :foreground "light cyan"))))
  6340. (message-header-name-face ((t (:foreground "LightBlue"))))
  6341. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3"))))
  6342. (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
  6343. (message-header-subject-face ((t (:bold t :foreground "light cyan"))))
  6344. (message-header-to-face ((t (:bold t :foreground "light cyan"))))
  6345. (message-header-xheader-face ((t (:foreground "LightBlue"))))
  6346. (message-mml-face ((t (:bold t :foreground "LightBlue"))))
  6347. (message-separator-face ((t (:foreground "LightBlue"))))
  6348. (mmm-default-submode-face ((t (:background "#c0c0c5"))))
  6349. (modeline ((t (:background "#4f657d" :foreground "gray80"))))
  6350. (modeline-buffer-id ((t (:background "#4f657d" :foreground "gray80"))))
  6351. (modeline-mousable ((t (:background "#4f657d" :foreground "gray80"))))
  6352. (modeline-mousable-minor-mode ((t (:background "#4f657d" :foreground "gray80"))))
  6353. (mouse ((t (:background "Grey"))))
  6354. (my-summary-highlight-face ((t (:foreground "White"))))
  6355. (my-url-face ((t (:foreground "PaleTurquoise"))))
  6356. (nil ((t (nil))))
  6357. (paren-blink-off ((t (:foreground "gray"))))
  6358. (paren-face-match ((t (:background "turquoise"))))
  6359. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  6360. (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
  6361. (paren-match ((t (:background "darkseagreen2"))))
  6362. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  6363. (paren-mismatch-face ((t (:bold t))))
  6364. (paren-no-match-face ((t (:bold t))))
  6365. (pointer ((t (nil))))
  6366. (primary-selection ((t (:background "gray65"))))
  6367. (red ((t (:foreground "red"))))
  6368. (region ((t (:background "CadetBlue" :foreground "gray80"))))
  6369. (right-margin ((t (nil))))
  6370. (scroll-bar ((t (nil))))
  6371. (secondary-selection ((t (:background "LightBlue" :foreground "#4f657d"))))
  6372. (semantic-dirty-token-face ((t (:background "gray10"))))
  6373. (semantic-intangible-face ((t (:foreground "gray25"))))
  6374. (semantic-read-only-face ((t (:background "gray25"))))
  6375. (senator-intangible-face ((t (:foreground "gray75"))))
  6376. (senator-momentary-highlight-face ((t (:background "gray80"))))
  6377. (senator-read-only-face ((t (:background "#664444"))))
  6378. (sgml-comment-face ((t (:foreground "dark turquoise"))))
  6379. (sgml-doctype-face ((t (:foreground "red"))))
  6380. (sgml-end-tag-face ((t (:foreground "blue"))))
  6381. (sgml-entity-face ((t (:foreground "magenta"))))
  6382. (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
  6383. (sgml-ms-end-face ((t (:foreground "green"))))
  6384. (sgml-ms-start-face ((t (:foreground "yellow"))))
  6385. (sgml-pi-face ((t (:foreground "lime green"))))
  6386. (sgml-sgml-face ((t (:foreground "brown"))))
  6387. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  6388. (sgml-start-tag-face ((t (:foreground "dark green"))))
  6389. (shell-option-face ((t (:foreground "blue"))))
  6390. (shell-output-2-face ((t (:foreground "darkseagreen"))))
  6391. (shell-output-3-face ((t (:foreground "slategray"))))
  6392. (shell-output-face ((t (:foreground "palegreen"))))
  6393. (shell-prompt-face ((t (:foreground "red"))))
  6394. (show-paren-match-face ((t (:background "Aquamarine" :foreground "steel blue"))))
  6395. (show-paren-mismatch-face ((t (:bold t :background "IndianRed" :foreground "White"))))
  6396. (speedbar-button-face ((t (:bold t :foreground "LightBlue"))))
  6397. (speedbar-directory-face ((t (:bold t :foreground "yellow"))))
  6398. (speedbar-file-face ((t (:bold t :foreground "wheat"))))
  6399. (speedbar-highlight-face ((t (:background "sea green"))))
  6400. (speedbar-selected-face ((t (:underline t))))
  6401. (speedbar-tag-face ((t (:foreground "LightBlue"))))
  6402. (swbuff-current-buffer-face ((t (:bold t :foreground "red"))))
  6403. (template-message-face ((t (:bold t))))
  6404. (term-black ((t (:foreground "black"))))
  6405. (term-blackbg ((t (:background "black"))))
  6406. (term-blue ((t (:foreground "blue"))))
  6407. (term-bluebg ((t (:background "blue"))))
  6408. (term-bold ((t (:bold t))))
  6409. (term-cyan ((t (:foreground "cyan"))))
  6410. (term-cyanbg ((t (:background "cyan"))))
  6411. (term-default-bg ((t (nil))))
  6412. (term-default-bg-inv ((t (nil))))
  6413. (term-default-fg ((t (nil))))
  6414. (term-default-fg-inv ((t (nil))))
  6415. (term-green ((t (:foreground "green"))))
  6416. (term-greenbg ((t (:background "green"))))
  6417. (term-invisible ((t (nil))))
  6418. (term-invisible-inv ((t (nil))))
  6419. (term-magenta ((t (:foreground "magenta"))))
  6420. (term-magentabg ((t (:background "magenta"))))
  6421. (term-red ((t (:foreground "red"))))
  6422. (term-redbg ((t (:background "red"))))
  6423. (term-underline ((t (:underline t))))
  6424. (term-white ((t (:foreground "white"))))
  6425. (term-whitebg ((t (:background "white"))))
  6426. (term-yellow ((t (:foreground "yellow"))))
  6427. (term-yellowbg ((t (:background "yellow"))))
  6428. (text-cursor ((t (:background "Red3" :foreground "white"))))
  6429. (tool-bar ((t (:background "grey75" :foreground "black"))))
  6430. (toolbar ((t (:background "Gray"))))
  6431. (trailing-whitespace ((t (:background "red"))))
  6432. (underline ((t (:underline t))))
  6433. (variable-pitch ((t (nil))))
  6434. (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
  6435. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  6436. (vertical-divider ((t (:background "Gray"))))
  6437. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  6438. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  6439. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  6440. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  6441. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  6442. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  6443. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  6444. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  6445. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  6446. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  6447. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  6448. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  6449. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  6450. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  6451. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  6452. (vhdl-speedbar-package-face ((t (:foreground "Gray50"))))
  6453. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Gray50"))))
  6454. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  6455. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  6456. (viper-minibuffer-vi-face ((t (:background "gray" :foreground "DarkGreen"))))
  6457. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  6458. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  6459. (vm-header-content-face ((t (:italic t :foreground "gray80"))))
  6460. (vm-header-from-face ((t (:italic t :background "#65889C" :foreground "cyan"))))
  6461. (vm-header-name-face ((t (:foreground "cyan"))))
  6462. (vm-header-subject-face ((t (:foreground "cyan"))))
  6463. (vm-header-to-face ((t (:italic t :foreground "cyan"))))
  6464. (vm-message-cited-face ((t (:foreground "Gray80"))))
  6465. (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
  6466. (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
  6467. (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
  6468. (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
  6469. (vm-summary-highlight-face ((t (:foreground "White"))))
  6470. (vmpc-pre-sig-face ((t (:foreground "Aquamarine"))))
  6471. (vmpc-sig-face ((t (:foreground "LightBlue"))))
  6472. (vvb-face ((t (:background "pink" :foreground "black"))))
  6473. (widget-button-face ((t (:bold t))))
  6474. (widget-button-pressed-face ((t (:foreground "cyan"))))
  6475. (widget-documentation-face ((t (:foreground "LightBlue"))))
  6476. (widget-field-face ((t (:foreground "LightBlue"))))
  6477. (widget-inactive-face ((t (:foreground "Wheat3"))))
  6478. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  6479. (woman-bold-face ((t (:bold t))))
  6480. (woman-italic-face ((t (:foreground "beige"))))
  6481. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  6482. (xref-keyword-face ((t (:foreground "Cyan"))))
  6483. (xref-list-pilot-face ((t (:foreground "navy"))))
  6484. (xref-list-symbol-face ((t (:foreground "navy"))))
  6485. (xxml-emph-1-face ((t (:background "lightyellow"))))
  6486. (xxml-emph-2-face ((t (:background "lightyellow"))))
  6487. (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
  6488. (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
  6489. (xxml-header-3-face ((t (:background "seashell1"))))
  6490. (xxml-header-4-face ((t (:background "seashell1"))))
  6491. (xxml-interaction-face ((t (:background "lightcyan"))))
  6492. (xxml-rug-face ((t (:background "cyan"))))
  6493. (xxml-sparkle-face ((t (:background "yellow"))))
  6494. (xxml-unbreakable-space-face ((t (:underline t :foreground "grey"))))
  6495. (yellow ((t (:foreground "yellow"))))
  6496. (zmacs-region ((t (:background "#4f657d")))))))
  6497. (defun color-theme-dark-blue ()
  6498. "Color theme by Chris McMahan, created 2001-09-09.
  6499. Based on `color-theme-subtle-blue' with a slightly darker background."
  6500. (interactive)
  6501. (color-theme-subtle-blue)
  6502. (let ((color-theme-is-cumulative t))
  6503. (color-theme-install
  6504. '(color-theme-dark-blue
  6505. ((background-color . "#537182")
  6506. (foreground-color . "AntiqueWhite2"))
  6507. nil
  6508. (default ((t (nil))))
  6509. (blank-space-face ((t (:background "LightGray"))))
  6510. (blank-tab-face ((t (:background "Wheat" :foreground "DarkSlateGray"))))
  6511. (cursor ((t (:background "LightGray"))))
  6512. (dired-face-executable ((t (:foreground "green yellow"))))
  6513. (dired-face-flagged ((t (:foreground "tomato"))))
  6514. (dired-face-marked ((t (:foreground "light salmon"))))
  6515. (dired-face-setuid ((t (:foreground "Red"))))
  6516. (dired-face-socket ((t (:foreground "magenta"))))
  6517. (fixed ((t (:bold t))))
  6518. (font-lock-comment-face ((t (:italic t :foreground "Gray80"))))
  6519. (font-lock-doc-face ((t (:bold t))))
  6520. (font-lock-function-name-face ((t (:italic t :bold t :foreground "Yellow"))))
  6521. (font-lock-string-face ((t (:italic t :foreground "DarkSeaGreen"))))
  6522. (font-lock-type-face ((t (:bold t :foreground "YellowGreen"))))
  6523. (gui-button-face ((t (:background "DarkSalmon" :foreground "white"))))
  6524. (modeline ((t (:background "#c1ccd9" :foreground "#4f657d"))))
  6525. (modeline-buffer-id ((t (:background "#c1ccd9" :foreground "#4f657d"))))
  6526. (modeline-mousable ((t (:background "#c1ccd9" :foreground "#4f657d"))))
  6527. (modeline-mousable-minor-mode ((t (:background "#c1ccd9" :foreground "#4f657d"))))
  6528. (my-url-face ((t (:foreground "LightBlue"))))
  6529. (region ((t (:background "PaleTurquoise4" :foreground "gray80"))))
  6530. (secondary-selection ((t (:background "sea green" :foreground "yellow"))))
  6531. (vm-header-content-face ((t (:italic t :foreground "wheat"))))
  6532. (vm-header-from-face ((t (:italic t :foreground "wheat"))))
  6533. (widget-button-pressed-face ((t (:foreground "red"))))
  6534. (xref-keyword-face ((t (:foreground "blue"))))
  6535. (zmacs-region ((t (:background "SlateGray"))))))))
  6536. (defun color-theme-jonadabian-slate ()
  6537. "Another slate-and-wheat color theme by Jonadab the Unsightly One.
  6538. Updated 2001-10-12."
  6539. (interactive)
  6540. (color-theme-install
  6541. '(color-theme-jonadabian-slate
  6542. ((background-color . "#305050")
  6543. (background-mode . dark)
  6544. (border-color . "black")
  6545. (cursor-color . "medium turquoise")
  6546. (foreground-color . "#CCBB77")
  6547. (mouse-color . "black"))
  6548. ((list-matching-lines-face . bold)
  6549. (ued-mode-keyname-face . modeline)
  6550. (view-highlight-face . highlight))
  6551. (default ((t (nil))))
  6552. (fringe ((t (:background "#007080"))))
  6553. (bold ((t (:bold t :foreground "#EEDDAA"))))
  6554. (gnus-emphasis-bold ((t (:bold t :foreground "#EEDDAA"))))
  6555. (gnus-emphasis-underline-bold ((t (:underline t :bold t :foreground "#EEDDAA"))))
  6556. (bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
  6557. (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "#AA0000"))))
  6558. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
  6559. (gnus-emphasis-underline-italic ((t (:underline t :italic t :bold t :foreground "#AA0000"))))
  6560. (calendar-today-face ((t (:underline t :background "darkslategrey"))))
  6561. (cperl-array-face ((t (:background "#004060"))))
  6562. (cperl-hash-face ((t (:background "#004400"))))
  6563. (custom-button-face ((t (:background "dark blue" :foreground "rgbi:1.00/1.00/0.00"))))
  6564. (custom-documentation-face ((t (:foreground "#10D010"))))
  6565. (custom-face-tag-face ((t (:underline t :foreground "goldenrod"))))
  6566. (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
  6567. (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
  6568. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  6569. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  6570. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  6571. (custom-saved-face ((t (:underline t))))
  6572. (custom-set-face ((t (:foreground "#6666dd"))))
  6573. (custom-state-face ((t (:foreground "mediumaquamarine"))))
  6574. (custom-variable-button-face ((t (:underline t :bold t))))
  6575. (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
  6576. (diary-face ((t (:foreground "red"))))
  6577. (eshell-ls-archive-face ((t (:foreground "green"))))
  6578. (eshell-ls-backup-face ((t (:foreground "grey60"))))
  6579. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  6580. (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue"))))
  6581. (eshell-ls-executable-face ((t (:foreground "white"))))
  6582. (eshell-ls-missing-face ((t (:foreground "red"))))
  6583. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  6584. (eshell-ls-readonly-face ((t (:foreground "indian red"))))
  6585. (eshell-ls-special-face ((t (:foreground "yellow"))))
  6586. (eshell-ls-symlink-face ((t (:foreground "#6666dd"))))
  6587. (eshell-ls-unreadable-face ((t (:foreground "red"))))
  6588. (eshell-prompt-face ((t (:bold t :background "#305050" :foreground "#EEDD99"))))
  6589. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  6590. (font-lock-comment-face ((t (:italic t :bold t :foreground "grey66"))))
  6591. (font-lock-constant-face ((t (:foreground "indian red"))))
  6592. (font-lock-function-name-face ((t (:foreground "#D0D000"))))
  6593. (font-lock-keyword-face ((t (:foreground "#00BBBB"))))
  6594. (font-lock-string-face ((t (:foreground "#10D010"))))
  6595. (font-lock-type-face ((t (:bold t :foreground "#ff7788"))))
  6596. (font-lock-variable-name-face ((t (:foreground "#eeddaa"))))
  6597. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  6598. (header-line ((t (:box (:line-width 1 :style released-button)))))
  6599. (highlight ((t (:background "#226644"))))
  6600. (highlight-changes-delete-face ((t (:background "navy" :foreground "red"))))
  6601. (highlight-changes-face ((t (:background "navy"))))
  6602. (holiday-face ((t (:foreground "#ff7744"))))
  6603. (italic ((t (:italic t :foreground "#AA0000"))))
  6604. (gnus-emphasis-italic ((t (:italic t :foreground "#AA0000"))))
  6605. (modeline ((t (:background "#007080" :foreground "cyan"))))
  6606. (modeline-buffer-id ((t (:background "#007080" :foreground "cyan"))))
  6607. (modeline-mousable ((t (:background "#007080" :foreground "cyan"))))
  6608. (modeline-mousable-minor-mode ((t (:background "#007080" :foreground "cyan"))))
  6609. (region ((t (:background "#226644"))))
  6610. (secondary-selection ((t (:background "darkslategrey"))))
  6611. (sgml-comment-face ((t (:foreground "grey60"))))
  6612. (sgml-doctype-face ((t (:foreground "red"))))
  6613. (sgml-end-tag-face ((t (:foreground "#00D0D0"))))
  6614. (sgml-entity-face ((t (:foreground "indian red"))))
  6615. (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
  6616. (sgml-ms-end-face ((t (:foreground "green"))))
  6617. (sgml-ms-start-face ((t (:foreground "green"))))
  6618. (sgml-pi-face ((t (:foreground "lime green"))))
  6619. (sgml-sgml-face ((t (:foreground "brown"))))
  6620. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  6621. (sgml-start-tag-face ((t (:foreground "#D0D000"))))
  6622. (show-paren-match-face ((t (:background "#400055" :foreground "cyan"))))
  6623. (show-paren-mismatch-face ((t (:background "red"))))
  6624. (special-string-face ((t (:foreground "light green"))))
  6625. (term-black ((t (:background "#000055" :foreground "black"))))
  6626. (term-blackbg ((t (:background "black" :foreground "#CCBB77"))))
  6627. (term-blue ((t (:background "#000055" :foreground "blue"))))
  6628. (term-bluebg ((t (:background "blue" :foreground "#CCBB77"))))
  6629. (term-bold ((t (:bold t :background "#000055" :foreground "#CCBB77"))))
  6630. (term-cyan ((t (:background "#000055" :foreground "cyan"))))
  6631. (term-cyanbg ((t (:background "darkcyan"))))
  6632. (term-default-bg ((t (:foreground "#CCBB77"))))
  6633. (term-default-bg-inv ((t (:foreground "#CCBB77"))))
  6634. (term-default-fg ((t (:background "#000055"))))
  6635. (term-default-fg-inv ((t (:background "#000055"))))
  6636. (term-green ((t (:background "#000055" :foreground "green"))))
  6637. (term-greenbg ((t (:background "darkgreen"))))
  6638. (term-invisible ((t (:foreground "#CCBB77"))))
  6639. (term-invisible-inv ((t (:foreground "#CCBB77"))))
  6640. (term-magenta ((t (:background "#000055" :foreground "magenta"))))
  6641. (term-magentabg ((t (:background "darkmagenta"))))
  6642. (term-red ((t (:background "#000055" :foreground "red"))))
  6643. (term-redbg ((t (:background "darkred"))))
  6644. (term-underline ((t (:underline t :background "#000055" :foreground "#CCBB77"))))
  6645. (term-white ((t (:background "#000055" :foreground "white"))))
  6646. (term-whitebg ((t (:background "grey50"))))
  6647. (term-yellow ((t (:background "#000055" :foreground "yellow"))))
  6648. (term-yellowbg ((t (:background "#997700"))))
  6649. (trailing-whitespace ((t (:background "#23415A"))))
  6650. (underline ((t (:underline t))))
  6651. (gnus-emphasis-underline ((t (:underline t))))
  6652. (widget-button-face ((t (:bold t))))
  6653. (widget-button-pressed-face ((t (:foreground "red"))))
  6654. (widget-documentation-face ((t (:foreground "green"))))
  6655. (widget-field-face ((t (:background "grey35" :foreground "black"))))
  6656. (widget-inactive-face ((t (:foreground "gray"))))
  6657. (widget-single-line-field-face ((t (:background "dim gray")))))))
  6658. (defun color-theme-gray1 ()
  6659. "Color theme by Paul Pulli, created 2001-10-19."
  6660. (interactive)
  6661. (color-theme-install
  6662. '(color-theme-gray1
  6663. ((background-color . "darkgray")
  6664. (background-mode . light)
  6665. (background-toolbar-color . "#949494949494")
  6666. (border-color . "#000000000000")
  6667. (bottom-toolbar-shadow-color . "#595959595959")
  6668. (cursor-color . "Yellow")
  6669. (foreground-color . "black")
  6670. (top-toolbar-shadow-color . "#b2b2b2b2b2b2"))
  6671. nil
  6672. (default ((t (nil))))
  6673. (blue ((t (:foreground "blue"))))
  6674. (bold ((t (:bold t))))
  6675. (bold-italic ((t (:italic t :bold t))))
  6676. (border-glyph ((t (nil))))
  6677. (cperl-here-face ((t (:background "gray68" :foreground "DeepPink"))))
  6678. (font-lock-builtin-face ((t (:bold t :foreground "red3"))))
  6679. (font-lock-comment-face ((t (:foreground "gray50"))))
  6680. (font-lock-constant-face ((t (:bold t :foreground "blue3"))))
  6681. (font-lock-doc-string-face ((t (:foreground "black"))))
  6682. (font-lock-function-name-face ((t (:bold t :foreground "DeepPink3"))))
  6683. (font-lock-keyword-face ((t (:bold t :foreground "red"))))
  6684. (font-lock-other-type-face ((t (:bold t :foreground "green4"))))
  6685. (font-lock-preprocessor-face ((t (:bold t :foreground "blue3"))))
  6686. (font-lock-reference-face ((t (:bold t :foreground "red3"))))
  6687. (font-lock-string-face ((t (:foreground "red"))))
  6688. (font-lock-type-face ((t (:bold t :foreground "white"))))
  6689. (font-lock-variable-name-face ((t (:bold t :foreground "blue3"))))
  6690. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  6691. (green ((t (:foreground "green4"))))
  6692. (gui-button-face ((t (:background "black" :foreground "red"))))
  6693. (gui-element ((t (:background "gray58"))))
  6694. (highlight ((t (:background "magenta" :foreground "yellow"))))
  6695. (isearch ((t (:background "red" :foreground "yellow"))))
  6696. (italic ((t (:italic t))))
  6697. (left-margin ((t (nil))))
  6698. (list-mode-item-selected ((t (:background "gray90" :foreground "purple"))))
  6699. (m4-face ((t (:background "gray90" :foreground "orange3"))))
  6700. (message-cited-text ((t (nil))))
  6701. (message-header-contents ((t (nil))))
  6702. (message-headers ((t (nil))))
  6703. (message-highlighted-header-contents ((t (nil))))
  6704. (modeline ((t (:background "#aa80aa" :foreground "White"))))
  6705. (modeline-buffer-id ((t (:background "#aa80aa" :foreground "linen"))))
  6706. (modeline-mousable ((t (:background "#aa80aa" :foreground "cyan"))))
  6707. (modeline-mousable-minor-mode ((t (:background "#aa80aa" :foreground "yellow"))))
  6708. (paren-blink-off ((t (:foreground "gray58"))))
  6709. (paren-blink-on ((t (:foreground "purple"))))
  6710. (paren-match ((t (:background "gray68" :foreground "white"))))
  6711. (paren-mismatch ((t (:background "DeepPink" :foreground "black"))))
  6712. (pointer ((t (nil))))
  6713. (primary-selection ((t (:background "gray"))))
  6714. (red ((t (:foreground "red"))))
  6715. (right-margin ((t (nil))))
  6716. (secondary-selection ((t (:background "paleturquoise"))))
  6717. (text-cursor ((t (:background "Yellow" :foreground "darkgray"))))
  6718. (toolbar ((t (:background "#aa80aa" :foreground "linen"))))
  6719. (underline ((t (:underline t))))
  6720. (vertical-divider ((t (nil))))
  6721. (x-face ((t (:background "black" :foreground "lavenderblush"))))
  6722. (yellow ((t (:foreground "yellow3"))))
  6723. (zmacs-region ((t (:background "paleturquoise" :foreground "black")))))))
  6724. (defun color-theme-word-perfect ()
  6725. "White on blue background, based on WordPerfect 5.1.
  6726. Color theme by Thomas Gehrlein, created 2001-10-21."
  6727. (interactive)
  6728. (color-theme-install
  6729. '(color-theme-word-perfect
  6730. ((background-color . "blue4")
  6731. (background-mode . dark)
  6732. (border-color . "black")
  6733. (cursor-color . "gold")
  6734. (foreground-color . "white")
  6735. (mouse-color . "black"))
  6736. ((ecb-source-in-directories-buffer-face . ecb-sources-face)
  6737. (gnus-mouse-face . highlight)
  6738. (goto-address-mail-face . italic)
  6739. (goto-address-mail-mouse-face . secondary-selection)
  6740. (goto-address-url-face . bold)
  6741. (goto-address-url-mouse-face . highlight)
  6742. (list-matching-lines-face . bold)
  6743. (view-highlight-face . highlight))
  6744. (default ((t (nil))))
  6745. (bbdb-field-name ((t (:foreground "lime green"))))
  6746. (bbdb-field-value ((t (:foreground "white"))))
  6747. (bbdb-name ((t (:underline t :foreground "lime green"))))
  6748. (bold ((t (:bold t :foreground "white"))))
  6749. (bold-italic ((t (:italic t :bold t :foreground "yellow"))))
  6750. (calendar-today-face ((t (:underline t :foreground "deep sky blue"))))
  6751. (diary-face ((t (:foreground "gold"))))
  6752. (ecb-sources-face ((t (:foreground "LightBlue1"))))
  6753. (edb-inter-field-face ((t (:foreground "deep sky blue"))))
  6754. (edb-normal-summary-face ((t (:foreground "gold"))))
  6755. (emacs-wiki-bad-link-face ((t (:underline "coral" :bold t :foreground "coral"))))
  6756. (emacs-wiki-link-face ((t (:underline "cyan" :bold t :foreground "cyan"))))
  6757. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  6758. (font-lock-comment-face ((t (:foreground "deep sky blue"))))
  6759. (font-lock-constant-face ((t (:foreground "lime green"))))
  6760. (font-lock-doc-face ((t (:foreground "gold"))))
  6761. (font-lock-doc-string-face ((t (:foreground "gold"))))
  6762. (font-lock-function-name-face ((t (:background "blue4" :foreground "IndianRed"))))
  6763. (font-lock-keyword-face ((t (:foreground "lime green"))))
  6764. (font-lock-preprocessor-face ((t (:foreground "lime green"))))
  6765. (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
  6766. (font-lock-string-face ((t (:foreground "gold"))))
  6767. (font-lock-type-face ((t (:foreground "lime green"))))
  6768. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  6769. (font-lock-warning-face ((t (:bold t :foreground "firebrick"))))
  6770. (gnus-emphasis-bold ((t (:foreground "yellow2"))))
  6771. (gnus-emphasis-bold-italic ((t (:foreground "yellow2"))))
  6772. (gnus-emphasis-italic ((t (:foreground "yellow2"))))
  6773. (gnus-emphasis-underline ((t (:foreground "yellow2"))))
  6774. (gnus-emphasis-underline-bold ((t (:foreground "yellow2"))))
  6775. (gnus-emphasis-underline-bold-italic ((t (:foreground "yellow2"))))
  6776. (gnus-emphasis-underline-italic ((t (:foreground "yellow2"))))
  6777. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  6778. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1"))))
  6779. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  6780. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2"))))
  6781. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  6782. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3"))))
  6783. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  6784. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4"))))
  6785. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  6786. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise"))))
  6787. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  6788. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise"))))
  6789. (gnus-group-news-3-empty-face ((t (:foreground "deep sky blue"))))
  6790. (gnus-group-news-3-face ((t (:bold t :foreground "deep sky blue"))))
  6791. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  6792. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise"))))
  6793. (gnus-header-content-face ((t (:foreground "gold"))))
  6794. (gnus-header-from-face ((t (:foreground "gold"))))
  6795. (gnus-header-name-face ((t (:foreground "deep sky blue"))))
  6796. (gnus-header-newsgroups-face ((t (:foreground "gold"))))
  6797. (gnus-header-subject-face ((t (:foreground "gold"))))
  6798. (gnus-signature-face ((t (:foreground "gold"))))
  6799. (gnus-splash-face ((t (:foreground "firebrick"))))
  6800. (gnus-summary-cancelled-face ((t (:background "black" :foreground "deep sky blue"))))
  6801. (gnus-summary-high-ancient-face ((t (:bold t :foreground "deep sky blue"))))
  6802. (gnus-summary-high-read-face ((t (:bold t :foreground "deep sky blue"))))
  6803. (gnus-summary-high-ticked-face ((t (:bold t :foreground "deep sky blue"))))
  6804. (gnus-summary-high-unread-face ((t (:bold t :foreground "lime green"))))
  6805. (gnus-summary-low-ancient-face ((t (:italic t :foreground "deep sky blue"))))
  6806. (gnus-summary-low-read-face ((t (:italic t :foreground "deep sky blue"))))
  6807. (gnus-summary-low-ticked-face ((t (:italic t :foreground "deep sky blue"))))
  6808. (gnus-summary-low-unread-face ((t (:italic t :foreground "lime green"))))
  6809. (gnus-summary-normal-ancient-face ((t (:foreground "deep sky blue"))))
  6810. (gnus-summary-normal-read-face ((t (:foreground "deep sky blue"))))
  6811. (gnus-summary-normal-ticked-face ((t (:foreground "deep sky blue"))))
  6812. (gnus-summary-normal-unread-face ((t (:foreground "lime green"))))
  6813. (gnus-summary-selected-face ((t (:underline t :foreground "gold"))))
  6814. (highlight ((t (:background "steel blue" :foreground "black"))))
  6815. (holiday-face ((t (:background "blue4" :foreground "IndianRed1"))))
  6816. (info-menu-5 ((t (:underline t :foreground "gold"))))
  6817. (info-node ((t (:italic t :bold t :foreground "gold"))))
  6818. (info-xref ((t (:bold t :foreground "gold"))))
  6819. (isearch ((t (:background "firebrick" :foreground "white"))))
  6820. (italic ((t (:italic t :foreground "yellow2"))))
  6821. (message-cited-text-face ((t (:foreground "gold"))))
  6822. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  6823. (message-header-name-face ((t (:foreground "deep sky blue"))))
  6824. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "gold"))))
  6825. (message-header-other-face ((t (:foreground "gold"))))
  6826. (message-header-subject-face ((t (:foreground "gold"))))
  6827. (message-header-to-face ((t (:bold t :foreground "gold"))))
  6828. (message-header-xheader-face ((t (:foreground "blue"))))
  6829. (message-separator-face ((t (:foreground "lime green"))))
  6830. (modeline ((t (:foreground "white" :background "black"))))
  6831. (modeline-buffer-id ((t (:foreground "white" :background "black"))))
  6832. (modeline-mousable ((t (:foreground "white" :background "black"))))
  6833. (modeline-mousable-minor-mode ((t (:foreground "white" :background "black"))))
  6834. (overlay-empty-face ((t (nil))))
  6835. (primary-selection ((t (:background "firebrick" :foreground "white"))))
  6836. (region ((t (:background "firebrick" :foreground "white"))))
  6837. (secondary-selection ((t (:background "yellow2" :foreground "black"))))
  6838. (semantic-dirty-token-face ((t (:background "gray10"))))
  6839. (show-paren-match-face ((t (:background "deep sky blue" :foreground "black"))))
  6840. (show-paren-mismatch-face ((t (:background "firebrick" :foreground "white"))))
  6841. (underline ((t (:underline t :background "blue4" :foreground "white")))))))
  6842. ;; In order to produce this, follow these steps:
  6843. ;;
  6844. ;; 0. Make sure .Xresources and .Xdefaults don't have any Emacs related
  6845. ;; entries.
  6846. ;;
  6847. ;; 1. cd into the Emacs lisp directory and run the following command:
  6848. ;; ( for d in `find -type d`; \
  6849. ;; do grep --files-with-matches 'defface[ ]' $d/*.el; \
  6850. ;; done ) | sort | uniq
  6851. ;; Put the result in a lisp block, using load-library calls.
  6852. ;;
  6853. ;; Repeat this for any directories on your load path which you want to
  6854. ;; include in the standard. This might include W3, eshell, etc.
  6855. ;;
  6856. ;; Add some of the libraries that don't use defface:
  6857. ;;
  6858. ;; 2. Start emacs using the --no-init-file and --no-site-file command line
  6859. ;; arguments. Evaluate the lisp block you prepared.
  6860. ;; 3. Load color-theme and run color-theme-print. Save the output and use it
  6861. ;; to define color-theme-standard.
  6862. ;;
  6863. ;; (progn
  6864. ;; (load-library "add-log")
  6865. ;; (load-library "calendar")
  6866. ;; (load-library "comint")
  6867. ;; (load-library "cus-edit")
  6868. ;; (load-library "cus-face")
  6869. ;; (load-library "custom")
  6870. ;; (load-library "diff-mode")
  6871. ;; (load-library "ediff-init")
  6872. ;; (load-library "re-builder")
  6873. ;; (load-library "viper-init")
  6874. ;; (load-library "enriched")
  6875. ;; (load-library "em-ls")
  6876. ;; (load-library "em-prompt")
  6877. ;; (load-library "esh-test")
  6878. ;; (load-library "faces")
  6879. ;; (load-library "font-lock")
  6880. ;; (load-library "generic-x")
  6881. ;; (load-library "gnus-art")
  6882. ;; (load-library "gnus-cite")
  6883. ;; (load-library "gnus")
  6884. ;; (load-library "message")
  6885. ;; (load-library "hilit-chg")
  6886. ;; (load-library "hi-lock")
  6887. ;; (load-library "info")
  6888. ;; (load-library "isearch")
  6889. ;; (load-library "log-view")
  6890. ;; (load-library "paren")
  6891. ;; (load-library "pcvs-info")
  6892. ;; (load-library "antlr-mode")
  6893. ;; (load-library "cperl-mode")
  6894. ;; (load-library "ebrowse")
  6895. ;; (load-library "idlwave")
  6896. ;; (load-library "idlw-shell")
  6897. ;; (load-library "make-mode")
  6898. ;; (load-library "sh-script")
  6899. ;; (load-library "vhdl-mode")
  6900. ;; (load-library "smerge-mode")
  6901. ;; (load-library "speedbar")
  6902. ;; (load-library "strokes")
  6903. ;; (load-library "artist")
  6904. ;; (load-library "flyspell")
  6905. ;; (load-library "texinfo")
  6906. ;; (load-library "tex-mode")
  6907. ;; (load-library "tooltip")
  6908. ;; (load-library "vcursor")
  6909. ;; (load-library "wid-edit")
  6910. ;; (load-library "woman")
  6911. ;; (load-library "term")
  6912. ;; (load-library "man")
  6913. ;; (load-file "/home/alex/elisp/color-theme.el")
  6914. ;; (color-theme-print))
  6915. ;;
  6916. ;; 4. Make the color theme usable on Xemacs (add more faces, resolve
  6917. ;; :inherit attributes)
  6918. ;;
  6919. (defun color-theme-emacs-21 ()
  6920. "Color theme used by Emacs 21.1.
  6921. Added and adapted for XEmacs by Alex Schroeder. Adaptation mostly
  6922. consisted of resolving :inherit attributes and adding missing faces.
  6923. This theme includes faces from the following Emacs libraries: add-log
  6924. calendar comint cus-edit cus-face custom diff-mode ediff-init re-builder
  6925. viper-init enriched em-ls em-prompt esh-test faces font-lock generic-x
  6926. gnus-art gnus-cite gnus message hilit-chg hi-lock info isearch log-view
  6927. paren pcvs-info antlr-mode cperl-mode ebrowse idlwave idlw-shell
  6928. make-mode sh-script vhdl-mode smerge-mode speedbar strokes artist
  6929. flyspell texinfo tex-mode tooltip vcursor wid-edit woman term man"
  6930. (interactive)
  6931. (color-theme-install
  6932. '(color-theme-emacs-21
  6933. ((background-color . "white")
  6934. (background-mode . light)
  6935. (border-color . "black")
  6936. (cursor-color . "black")
  6937. (foreground-color . "black")
  6938. (mouse-color . "black"))
  6939. ((Man-overstrike-face . bold)
  6940. (Man-underline-face . underline)
  6941. (cperl-here-face . font-lock-string-face)
  6942. (cperl-invalid-face . underline)
  6943. (cperl-pod-face . font-lock-comment-face)
  6944. (cperl-pod-head-face . font-lock-variable-name-face)
  6945. (gnus-article-button-face . bold)
  6946. (gnus-article-mouse-face . highlight)
  6947. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  6948. (gnus-mouse-face . highlight)
  6949. (gnus-signature-face . gnus-signature-face)
  6950. (gnus-summary-selected-face . gnus-summary-selected-face)
  6951. (help-highlight-face . underline)
  6952. (idlwave-class-arrow-face . bold)
  6953. (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
  6954. (idlwave-shell-expression-face . secondary-selection)
  6955. (idlwave-shell-stop-line-face . highlight)
  6956. (ispell-highlight-face . highlight)
  6957. (list-matching-lines-face . bold)
  6958. (view-highlight-face . highlight)
  6959. (viper-insert-state-cursor-color . "Green")
  6960. (viper-replace-overlay-cursor-color . "Red")
  6961. (widget-mouse-face . highlight))
  6962. (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  6963. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  6964. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  6965. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  6966. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  6967. (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
  6968. (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
  6969. (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
  6970. (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
  6971. (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
  6972. (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
  6973. (bold ((t (:bold t :weight bold))))
  6974. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  6975. (border ((t (:background "black"))))
  6976. (calendar-today-face ((t (:underline t))))
  6977. (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
  6978. (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
  6979. (change-log-date-face ((t (:foreground "RosyBrown"))))
  6980. (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
  6981. (change-log-file-face ((t (:foreground "Blue"))))
  6982. (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
  6983. (change-log-list-face ((t (:foreground "Purple"))))
  6984. (change-log-name-face ((t (:foreground "CadetBlue"))))
  6985. (comint-highlight-input ((t (:bold t :weight bold))))
  6986. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  6987. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
  6988. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
  6989. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  6990. (cursor ((t (:background "black"))))
  6991. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  6992. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  6993. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  6994. (custom-comment-face ((t (:background "gray85"))))
  6995. (custom-comment-tag-face ((t (:foreground "blue4"))))
  6996. (custom-documentation-face ((t (nil))))
  6997. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  6998. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  6999. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
  7000. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  7001. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  7002. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  7003. (custom-saved-face ((t (:underline t))))
  7004. (custom-set-face ((t (:background "white" :foreground "blue"))))
  7005. (custom-state-face ((t (:foreground "dark green"))))
  7006. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  7007. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
  7008. (cvs-filename-face ((t (:foreground "blue4"))))
  7009. (cvs-handled-face ((t (:foreground "pink"))))
  7010. (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
  7011. (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
  7012. (cvs-msg-face ((t (:italic t :slant italic))))
  7013. (cvs-need-action-face ((t (:foreground "orange"))))
  7014. (cvs-unknown-face ((t (:foreground "red"))))
  7015. (diary-face ((t (:foreground "red"))))
  7016. (diff-added-face ((t (nil))))
  7017. (diff-changed-face ((t (nil))))
  7018. (diff-context-face ((t (:foreground "grey50"))))
  7019. (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
  7020. (diff-function-face ((t (:foreground "grey50"))))
  7021. (diff-header-face ((t (:background "grey85"))))
  7022. (diff-hunk-header-face ((t (:background "grey85"))))
  7023. (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
  7024. (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
  7025. (diff-removed-face ((t (nil))))
  7026. (dired-face-boring ((t (:foreground "RosyBrown"))))
  7027. (dired-face-directory ((t (:foreground "Blue"))))
  7028. (dired-face-executable ((t (nil))))
  7029. (dired-face-flagged ((t (:foreground "Red" :weight bold))))
  7030. (dired-face-marked ((t (:foreground "Red" :weight bold))))
  7031. (dired-face-permissions ((t (nil))))
  7032. (dired-face-setuid ((t (nil))))
  7033. (dired-face-socket ((t (nil))))
  7034. (dired-face-symlink ((t (:foreground "Purple"))))
  7035. (ebrowse-default-face ((t (nil))))
  7036. (ebrowse-file-name-face ((t (:italic t :slant italic))))
  7037. (ebrowse-member-attribute-face ((t (:foreground "red"))))
  7038. (ebrowse-member-class-face ((t (:foreground "purple"))))
  7039. (ebrowse-progress-face ((t (:background "blue"))))
  7040. (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
  7041. (ebrowse-tree-mark-face ((t (:foreground "red"))))
  7042. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  7043. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  7044. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  7045. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  7046. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  7047. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  7048. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  7049. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  7050. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  7051. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  7052. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  7053. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  7054. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  7055. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  7056. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  7057. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  7058. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
  7059. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  7060. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  7061. (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
  7062. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  7063. (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
  7064. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  7065. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  7066. (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
  7067. (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
  7068. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  7069. (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
  7070. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  7071. (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
  7072. (excerpt ((t (:italic t :slant italic))))
  7073. (fixed ((t (:bold t :weight bold))))
  7074. (fixed-pitch ((t (:family "courier"))))
  7075. (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
  7076. (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
  7077. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  7078. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  7079. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  7080. (font-lock-doc-face ((t (:foreground "RosyBrown"))))
  7081. (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
  7082. (font-lock-function-name-face ((t (:foreground "Blue"))))
  7083. (font-lock-keyword-face ((t (:foreground "Purple"))))
  7084. (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
  7085. (font-lock-reference-face ((t (:foreground "Orchid"))))
  7086. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  7087. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  7088. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  7089. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  7090. (fringe ((t (:background "grey95"))))
  7091. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  7092. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  7093. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  7094. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  7095. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  7096. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  7097. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  7098. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  7099. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  7100. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  7101. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  7102. (gnus-cite-face-9 ((t (:foreground "violet"))))
  7103. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  7104. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7105. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  7106. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  7107. (gnus-emphasis-underline ((t (:underline t))))
  7108. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  7109. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  7110. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  7111. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  7112. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
  7113. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  7114. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
  7115. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  7116. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
  7117. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  7118. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
  7119. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  7120. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  7121. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  7122. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
  7123. (gnus-group-news-3-empty-face ((t (nil))))
  7124. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  7125. (gnus-group-news-4-empty-face ((t (nil))))
  7126. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  7127. (gnus-group-news-5-empty-face ((t (nil))))
  7128. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  7129. (gnus-group-news-6-empty-face ((t (nil))))
  7130. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  7131. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  7132. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  7133. (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
  7134. (gnus-header-from-face ((t (:foreground "red3"))))
  7135. (gnus-header-name-face ((t (:foreground "maroon"))))
  7136. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
  7137. (gnus-header-subject-face ((t (:foreground "red4"))))
  7138. (gnus-signature-face ((t (:italic t :slant italic))))
  7139. (gnus-splash-face ((t (:foreground "Brown"))))
  7140. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  7141. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
  7142. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  7143. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
  7144. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  7145. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
  7146. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
  7147. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
  7148. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  7149. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  7150. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  7151. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  7152. (gnus-summary-normal-unread-face ((t (nil))))
  7153. (gnus-summary-selected-face ((t (:underline t))))
  7154. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
  7155. (hi-black-b ((t (:bold t :weight bold))))
  7156. (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
  7157. (hi-blue ((t (:background "light blue"))))
  7158. (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
  7159. (hi-green ((t (:background "green"))))
  7160. (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
  7161. (hi-pink ((t (:background "pink"))))
  7162. (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
  7163. (hi-yellow ((t (:background "yellow"))))
  7164. (highlight ((t (:background "darkseagreen2"))))
  7165. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  7166. (highlight-changes-face ((t (:foreground "red"))))
  7167. (holiday-face ((t (:background "pink"))))
  7168. (idlwave-help-link-face ((t (:foreground "Blue"))))
  7169. (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
  7170. (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
  7171. (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
  7172. (info-menu-5 ((t (:foreground "red1"))))
  7173. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  7174. (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
  7175. (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
  7176. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  7177. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  7178. (italic ((t (:italic t :slant italic))))
  7179. (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
  7180. (log-view-message-face ((t (:background "grey85"))))
  7181. (makefile-space-face ((t (:background "hotpink"))))
  7182. (menu ((t (nil))))
  7183. (message-cited-text-face ((t (:foreground "red"))))
  7184. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  7185. (message-header-name-face ((t (:foreground "cornflower blue"))))
  7186. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
  7187. (message-header-other-face ((t (:foreground "steel blue"))))
  7188. (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
  7189. (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
  7190. (message-header-xheader-face ((t (:foreground "blue"))))
  7191. (message-mml-face ((t (:foreground "ForestGreen"))))
  7192. (message-separator-face ((t (:foreground "brown"))))
  7193. (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  7194. (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  7195. (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  7196. (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  7197. (mouse ((t (:background "black"))))
  7198. (primary-selection ((t (:background "lightgoldenrod2"))))
  7199. (reb-match-0 ((t (:background "lightblue"))))
  7200. (reb-match-1 ((t (:background "aquamarine"))))
  7201. (reb-match-2 ((t (:background "springgreen"))))
  7202. (reb-match-3 ((t (:background "yellow"))))
  7203. (region ((t (:background "lightgoldenrod2"))))
  7204. (scroll-bar ((t (:background "grey75"))))
  7205. (secondary-selection ((t (:background "yellow"))))
  7206. (sh-heredoc-face ((t (:foreground "tan"))))
  7207. (show-paren-match-face ((t (:background "turquoise"))))
  7208. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  7209. (show-tabs-space-face ((t (:foreground "yellow"))))
  7210. (show-tabs-tab-face ((t (:foreground "red"))))
  7211. (smerge-base-face ((t (:foreground "red"))))
  7212. (smerge-markers-face ((t (:background "grey85"))))
  7213. (smerge-mine-face ((t (:foreground "blue"))))
  7214. (smerge-other-face ((t (:foreground "darkgreen"))))
  7215. (speedbar-button-face ((t (:foreground "green4"))))
  7216. (speedbar-directory-face ((t (:foreground "blue4"))))
  7217. (speedbar-file-face ((t (:foreground "cyan4"))))
  7218. (speedbar-highlight-face ((t (:background "green"))))
  7219. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  7220. (speedbar-tag-face ((t (:foreground "brown"))))
  7221. (strokes-char-face ((t (:background "lightgray"))))
  7222. (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7223. (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7224. (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7225. (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7226. (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
  7227. (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7228. (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7229. (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7230. (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7231. (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7232. (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7233. (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7234. (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7235. (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7236. (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7237. (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7238. (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7239. (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7240. (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7241. (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7242. (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
  7243. (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7244. (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7245. (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7246. (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  7247. (tex-math-face ((t (:foreground "RosyBrown"))))
  7248. (texinfo-heading-face ((t (:foreground "Blue"))))
  7249. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  7250. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  7251. (trailing-whitespace ((t (:background "red"))))
  7252. (underline ((t (:underline t))))
  7253. (variable-pitch ((t (:family "helv"))))
  7254. (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
  7255. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  7256. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  7257. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  7258. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  7259. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
  7260. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
  7261. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  7262. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  7263. (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
  7264. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  7265. (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
  7266. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  7267. (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
  7268. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  7269. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
  7270. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  7271. (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
  7272. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  7273. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  7274. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  7275. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  7276. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  7277. (widget-button-face ((t (:bold t :weight bold))))
  7278. (widget-button-pressed-face ((t (:foreground "red"))))
  7279. (widget-documentation-face ((t (:foreground "dark green"))))
  7280. (widget-field-face ((t (:background "gray85"))))
  7281. (widget-inactive-face ((t (:foreground "dim gray"))))
  7282. (widget-single-line-field-face ((t (:background "gray85"))))
  7283. (woman-addition-face ((t (:foreground "orange"))))
  7284. (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
  7285. (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
  7286. (woman-unknown-face ((t (:foreground "brown"))))
  7287. (zmacs-region ((t (:background "lightgoldenrod2")))))))
  7288. (defun color-theme-jsc-light2 ()
  7289. "Color theme by John S Cooper, created 2001-10-29.
  7290. This builds on `color-theme-jsc-light'."
  7291. (interactive)
  7292. (color-theme-jsc-light)
  7293. (let ((color-theme-is-cumulative t))
  7294. (color-theme-install
  7295. '(color-theme-jsc-light2
  7296. ((vc-annotate-very-old-color . "#0046FF")
  7297. (senator-eldoc-use-color . t))
  7298. nil
  7299. (bold ((t (:bold t :weight bold))))
  7300. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7301. (change-log-file-face ((t (:foreground "Blue"))))
  7302. (change-log-name-face ((t (:foreground "Maroon"))))
  7303. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  7304. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  7305. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  7306. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  7307. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
  7308. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
  7309. (font-lock-constant-face ((t (:foreground "Maroon"))))
  7310. (font-lock-function-name-face ((t (:foreground "Blue"))))
  7311. (font-lock-type-face ((t (:italic t :foreground "Navy" :slant italic))))
  7312. (fringe ((t (:background "grey88"))))
  7313. (gnus-group-mail-1-empty-face ((t (:foreground "Blue2"))))
  7314. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  7315. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  7316. (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
  7317. (gnus-header-name-face ((t (:bold t :foreground "maroon" :weight bold))))
  7318. (gnus-header-subject-face ((t (:foreground "red4"))))
  7319. (gnus-signature-face ((t (:italic t :slant italic))))
  7320. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  7321. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  7322. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  7323. (gnus-summary-normal-ticked-face ((t (:foreground "Navy"))))
  7324. (gnus-summary-normal-unread-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  7325. (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
  7326. (highlight ((t (:background "darkseagreen2"))))
  7327. (ido-subdir-face ((t (:foreground "red"))))
  7328. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  7329. (mode-line ((t (:background "grey88" :foreground "black" :box (:line-width -1 :style released-button)))))
  7330. (region ((t (:background "lightgoldenrod2"))))
  7331. (scroll-bar ((t (nil))))
  7332. (secondary-selection ((t (:background "yellow"))))
  7333. (show-paren-match-face ((t (:background "turquoise"))))
  7334. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  7335. (tooltip ((t (:background "lightyellow" :foreground "black"))))))))
  7336. (defun color-theme-ld-dark ()
  7337. "Dark Color theme by Linh Dang, created 2001-11-06."
  7338. (interactive)
  7339. (color-theme-install
  7340. '(color-theme-ld-dark
  7341. ((background-color . "black")
  7342. (background-mode . dark)
  7343. (border-color . "black")
  7344. (cursor-color . "yellow")
  7345. (foreground-color . "white")
  7346. (mouse-color . "white"))
  7347. ((align-highlight-change-face . highlight)
  7348. (align-highlight-nochange-face . secondary-selection)
  7349. (apropos-keybinding-face . underline)
  7350. (apropos-label-face . italic)
  7351. (apropos-match-face . secondary-selection)
  7352. (apropos-property-face . bold-italic)
  7353. (apropos-symbol-face . bold)
  7354. (ebnf-except-border-color . "Black")
  7355. (ebnf-line-color . "Black")
  7356. (ebnf-non-terminal-border-color . "Black")
  7357. (ebnf-repeat-border-color . "Black")
  7358. (ebnf-special-border-color . "Black")
  7359. (ebnf-terminal-border-color . "Black")
  7360. (gnus-article-button-face . bold)
  7361. (gnus-article-mouse-face . highlight)
  7362. (gnus-carpal-button-face . bold)
  7363. (gnus-carpal-header-face . bold-italic)
  7364. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  7365. (gnus-mouse-face . highlight)
  7366. (gnus-selected-tree-face . modeline)
  7367. (gnus-signature-face . gnus-signature-face)
  7368. (gnus-summary-selected-face . gnus-summary-selected-face)
  7369. (help-highlight-face . underline)
  7370. (list-matching-lines-face . bold)
  7371. (ps-line-number-color . "black")
  7372. (ps-zebra-color . 0.95)
  7373. (tags-tag-face . default)
  7374. (vc-annotate-very-old-color . "#0046FF")
  7375. (view-highlight-face . highlight)
  7376. (widget-mouse-face . highlight))
  7377. (default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
  7378. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  7379. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  7380. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  7381. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  7382. (bbdb-company ((t (:italic t :slant italic))))
  7383. (bbdb-field-name ((t (:bold t :weight bold))))
  7384. (bbdb-field-value ((t (nil))))
  7385. (bbdb-name ((t (:underline t))))
  7386. (bold ((t (:bold t :weight bold))))
  7387. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7388. (border ((t (:background "black"))))
  7389. (change-log-acknowledgement-face ((t (:italic t :slant oblique :foreground "AntiqueWhite3"))))
  7390. (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
  7391. (change-log-date-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
  7392. (change-log-email-face ((t (:foreground "Aquamarine"))))
  7393. (change-log-file-face ((t (:bold t :family "Verdana" :weight bold :foreground "LightSkyBlue" :height 0.9))))
  7394. (change-log-function-face ((t (:foreground "Aquamarine"))))
  7395. (change-log-list-face ((t (:foreground "LightSkyBlue"))))
  7396. (change-log-name-face ((t (:bold t :weight bold :foreground "Gold"))))
  7397. (clear-case-mode-string-face ((t (:bold t :family "Arial" :box (:line-width 2 :color "grey" :style released-button) :foreground "black" :background "grey" :weight bold :height 0.9))))
  7398. (comint-highlight-input ((t (:bold t :weight bold))))
  7399. (comint-highlight-prompt ((t (:foreground "cyan"))))
  7400. (cursor ((t (:background "yellow"))))
  7401. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  7402. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  7403. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  7404. (custom-comment-face ((t (:background "dim gray"))))
  7405. (custom-comment-tag-face ((t (:foreground "gray80"))))
  7406. (custom-documentation-face ((t (nil))))
  7407. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.1))))
  7408. (custom-group-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.1))))
  7409. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.1))))
  7410. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  7411. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  7412. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  7413. (custom-saved-face ((t (:underline t))))
  7414. (custom-set-face ((t (:background "white" :foreground "blue"))))
  7415. (custom-state-face ((t (:foreground "lime green"))))
  7416. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  7417. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
  7418. (diff-added-face ((t (nil))))
  7419. (diff-changed-face ((t (nil))))
  7420. (diff-context-face ((t (:foreground "grey70"))))
  7421. (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
  7422. (diff-function-face ((t (:foreground "grey70"))))
  7423. (diff-header-face ((t (:background "grey45"))))
  7424. (diff-hunk-header-face ((t (:background "grey45"))))
  7425. (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
  7426. (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
  7427. (diff-removed-face ((t (nil))))
  7428. (fixed-pitch ((t (:family "courier"))))
  7429. (font-lock-builtin-face ((t (:foreground "SteelBlue"))))
  7430. (font-lock-comment-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique))))
  7431. (font-lock-constant-face ((t (:bold t :foreground "Gold" :weight bold))))
  7432. (font-lock-doc-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
  7433. (font-lock-doc-string-face ((t (:italic t :slant oblique :foreground "BurlyWood"))))
  7434. (font-lock-function-name-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana"))))
  7435. (font-lock-keyword-face ((t (:foreground "LightSkyBlue"))))
  7436. (font-lock-preprocessor-face ((t (:bold t :foreground "Gold" :weight bold))))
  7437. (font-lock-reference-face ((t (:foreground "SteelBlue"))))
  7438. (font-lock-string-face ((t (:italic t :foreground "BurlyWood" :slant oblique))))
  7439. (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold :height 0.9 :family "Verdana"))))
  7440. (font-lock-variable-name-face ((t (:foreground "Aquamarine"))))
  7441. (font-lock-warning-face ((t (:bold t :foreground "chocolate" :weight bold))))
  7442. (fringe ((t (:family "outline-courier new" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :stipple nil :background "grey4" :foreground "Wheat"))))
  7443. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  7444. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  7445. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  7446. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  7447. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  7448. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  7449. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  7450. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  7451. (gnus-cite-face-6 ((t (:foreground "beige"))))
  7452. (gnus-cite-face-7 ((t (:foreground "orange"))))
  7453. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  7454. (gnus-cite-face-9 ((t (:foreground "violet"))))
  7455. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  7456. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7457. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  7458. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  7459. (gnus-emphasis-underline ((t (:underline t))))
  7460. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  7461. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  7462. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  7463. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  7464. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
  7465. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  7466. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
  7467. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  7468. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
  7469. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  7470. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
  7471. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  7472. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  7473. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  7474. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  7475. (gnus-group-news-3-empty-face ((t (nil))))
  7476. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  7477. (gnus-group-news-4-empty-face ((t (nil))))
  7478. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  7479. (gnus-group-news-5-empty-face ((t (nil))))
  7480. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  7481. (gnus-group-news-6-empty-face ((t (nil))))
  7482. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  7483. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  7484. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
  7485. (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
  7486. (gnus-header-from-face ((t (:foreground "spring green"))))
  7487. (gnus-header-name-face ((t (:foreground "SeaGreen"))))
  7488. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
  7489. (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
  7490. (gnus-signature-face ((t (:italic t :slant italic))))
  7491. (gnus-splash-face ((t (:foreground "Brown"))))
  7492. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  7493. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  7494. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  7495. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
  7496. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  7497. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
  7498. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
  7499. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
  7500. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  7501. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  7502. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  7503. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  7504. (gnus-summary-normal-unread-face ((t (nil))))
  7505. (gnus-summary-selected-face ((t (:underline t))))
  7506. (header-line ((t (:family "Arial" :background "grey20" :foreground "grey75" :box (:line-width 3 :color "grey20" :style released-button) :height 0.9))))
  7507. (highlight ((t (:background "darkolivegreen"))))
  7508. (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
  7509. (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
  7510. (info-menu-5 ((t (:foreground "red1"))))
  7511. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  7512. (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
  7513. (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
  7514. (isearch ((t (:background "palevioletred2"))))
  7515. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  7516. (italic ((t (:italic t :slant italic))))
  7517. (makefile-space-face ((t (:background "hotpink"))))
  7518. (menu ((t (nil))))
  7519. (message-cited-text-face ((t (:foreground "red"))))
  7520. (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
  7521. (message-header-name-face ((t (:foreground "DarkGreen"))))
  7522. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
  7523. (message-header-other-face ((t (:foreground "#b00000"))))
  7524. (message-header-subject-face ((t (:foreground "green3"))))
  7525. (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
  7526. (message-header-xheader-face ((t (:foreground "blue"))))
  7527. (message-mml-face ((t (:foreground "ForestGreen"))))
  7528. (message-separator-face ((t (:foreground "blue3"))))
  7529. (modeline ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
  7530. (modeline-mousable-minor-mode ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
  7531. (modeline-mousable ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
  7532. (modeline-buffer-id ((t (:background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :height 0.9 :family "Arial"))))
  7533. (mouse ((t (:background "white"))))
  7534. (primary-selection ((t (:background "DarkSlateGray"))))
  7535. (region ((t (:background "DarkSlateGray"))))
  7536. (scroll-bar ((t (nil))))
  7537. (secondary-selection ((t (:background "SkyBlue4"))))
  7538. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  7539. (trailing-whitespace ((t (:background "white"))))
  7540. (underline ((t (:underline t))))
  7541. (variable-pitch ((t (:family "helv"))))
  7542. (widget-button-face ((t (:bold t :weight bold))))
  7543. (widget-button-pressed-face ((t (:foreground "red"))))
  7544. (widget-documentation-face ((t (:foreground "lime green"))))
  7545. (widget-field-face ((t (:background "dim gray"))))
  7546. (widget-inactive-face ((t (:foreground "light gray"))))
  7547. (widget-single-line-field-face ((t (:background "dim gray"))))
  7548. (zmacs-region ((t (:background "DarkSlateGray")))))))
  7549. (defun color-theme-deep-blue ()
  7550. "Color theme by Tomas Cerha, created 2001-11-13."
  7551. (interactive)
  7552. (color-theme-install
  7553. '(color-theme-deep-blue
  7554. ((background-color . "#102e4e")
  7555. (background-mode . dark)
  7556. (border-color . "black")
  7557. (cursor-color . "green")
  7558. (foreground-color . "#eeeeee")
  7559. (mouse-color . "white"))
  7560. ((browse-kill-ring-separator-face . bold)
  7561. (display-time-mail-face . mode-line)
  7562. (help-highlight-face . underline)
  7563. (list-matching-lines-face . secondary-selection)
  7564. (vc-annotate-very-old-color . "#0046FF")
  7565. (view-highlight-face . highlight)
  7566. (widget-mouse-face . highlight))
  7567. (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
  7568. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  7569. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  7570. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  7571. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  7572. (bold ((t (:bold t :weight bold))))
  7573. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7574. (border ((t (:background "black"))))
  7575. (calendar-today-face ((t (:background "blue"))))
  7576. (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
  7577. (change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
  7578. (change-log-date-face ((t (:foreground "burlywood"))))
  7579. (change-log-email-face ((t (:foreground "SeaGreen2"))))
  7580. (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
  7581. (change-log-function-face ((t (:foreground "SeaGreen2"))))
  7582. (change-log-list-face ((t (:bold t :weight bold :foreground "DeepSkyBlue1"))))
  7583. (change-log-name-face ((t (:foreground "gold"))))
  7584. (comint-highlight-input ((t (:bold t :weight bold))))
  7585. (comint-highlight-prompt ((t (:foreground "cyan"))))
  7586. (cursor ((t (:background "green" :foreground "black"))))
  7587. (cvs-filename-face ((t (:foreground "lightblue"))))
  7588. (cvs-handled-face ((t (:foreground "pink"))))
  7589. (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
  7590. (cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
  7591. (cvs-msg-face ((t (:italic t :slant italic))))
  7592. (cvs-need-action-face ((t (:foreground "orange"))))
  7593. (cvs-unknown-face ((t (:foreground "red"))))
  7594. (diary-face ((t (:foreground "orange red"))))
  7595. (diff-added-face ((t (nil))))
  7596. (diff-changed-face ((t (nil))))
  7597. (diff-context-face ((t (:foreground "grey70"))))
  7598. (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
  7599. (diff-function-face ((t (:foreground "grey70"))))
  7600. (diff-header-face ((t (:background "grey45"))))
  7601. (diff-hunk-header-face ((t (:background "grey45"))))
  7602. (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
  7603. (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
  7604. (diff-removed-face ((t (nil))))
  7605. (fixed-pitch ((t (:family "fixed"))))
  7606. (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
  7607. (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
  7608. (font-latex-math-face ((t (:foreground "burlywood"))))
  7609. (font-latex-sedate-face ((t (:foreground "LightGray"))))
  7610. (font-latex-string-face ((t (:foreground "LightSalmon"))))
  7611. (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  7612. (font-lock-builtin-face ((t (:foreground "LightCoral"))))
  7613. (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
  7614. (font-lock-constant-face ((t (:foreground "gold"))))
  7615. (font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
  7616. (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
  7617. (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
  7618. (font-lock-keyword-face ((t (:bold t :foreground "DeepSkyBlue1" :weight bold))))
  7619. (font-lock-preprocessor-face ((t (:foreground "gold"))))
  7620. (font-lock-reference-face ((t (:foreground "LightCoral"))))
  7621. (font-lock-string-face ((t (:foreground "burlywood"))))
  7622. (font-lock-type-face ((t (:foreground "CadetBlue1"))))
  7623. (font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
  7624. (font-lock-warning-face ((t (:foreground "yellow"))))
  7625. (fringe ((t (:background "#405060"))))
  7626. (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  7627. (highlight ((t (:background "darkgreen"))))
  7628. (holiday-face ((t (:foreground "green"))))
  7629. (info-header-node ((t (:foreground "DeepSkyBlue1"))))
  7630. (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
  7631. (info-menu-5 ((t (:foreground "wheat"))))
  7632. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  7633. (info-node ((t (:foreground "DeepSkyBlue1"))))
  7634. (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
  7635. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  7636. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  7637. (italic ((t (:italic t :slant italic))))
  7638. (menu ((t (:background "gray" :foreground "black" :family "helvetica"))))
  7639. (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
  7640. (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
  7641. (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
  7642. (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
  7643. (mouse ((t (:background "white"))))
  7644. (region ((t (:background "DarkCyan"))))
  7645. (scroll-bar ((t (:background "gray" :foreground "#506070"))))
  7646. (secondary-selection ((t (:background "yellow" :foreground "gray10"))))
  7647. (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
  7648. (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
  7649. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  7650. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  7651. (trailing-whitespace ((t (:background "#102e4e"))))
  7652. (underline ((t (:underline t))))
  7653. (variable-pitch ((t (:family "helv"))))
  7654. (widget-button-face ((t (:bold t :weight bold))))
  7655. (widget-button-pressed-face ((t (:foreground "red"))))
  7656. (widget-documentation-face ((t (:foreground "lime green"))))
  7657. (widget-field-face ((t (:background "dim gray"))))
  7658. (widget-inactive-face ((t (:foreground "light gray"))))
  7659. (widget-single-line-field-face ((t (:background "dim gray")))))))
  7660. (defun color-theme-kingsajz ()
  7661. "Color theme by Olgierd \"Kingsajz\" Ziolko, created 2001-12-04.
  7662. Another theme with wheat on DarkSlatGrey. Based on Subtle Hacker.
  7663. Used on Emacs 21.1 @ WinMe. Not tested on any other systems.
  7664. Some faces uses Andale mono font (nice fixed-width font).
  7665. It is available at: http://www.microsoft.com/typography/downloads/andale32.exe
  7666. Hail Eris! All hail Discordia!"
  7667. (interactive)
  7668. (color-theme-install
  7669. '(color-theme-kingsajz
  7670. ((background-color . "darkslategrey")
  7671. (background-mode . dark)
  7672. (border-color . "black")
  7673. (cursor-color . "LightGray")
  7674. (foreground-color . "wheat")
  7675. (mouse-color . "Grey"))
  7676. ((apropos-keybinding-face . underline)
  7677. (apropos-label-face face italic mouse-face highlight)
  7678. (apropos-match-face . secondary-selection)
  7679. (apropos-property-face . bold-italic)
  7680. (apropos-symbol-face . info-xref)
  7681. (display-time-mail-face . mode-line)
  7682. (gnus-article-button-face . bold)
  7683. (gnus-article-mouse-face . highlight)
  7684. (gnus-carpal-button-face . bold)
  7685. (gnus-carpal-header-face . bold-italic)
  7686. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  7687. (gnus-mouse-face . highlight)
  7688. (gnus-selected-tree-face . modeline)
  7689. (gnus-signature-face . gnus-signature-face)
  7690. (gnus-summary-selected-face . gnus-summary-selected-face)
  7691. (gnus-treat-display-xface . head)
  7692. (help-highlight-face . underline)
  7693. (list-matching-lines-face . bold)
  7694. (view-highlight-face . highlight)
  7695. (widget-mouse-face . highlight))
  7696. (default ((t (:stipple nil :background "darkslategrey" :foreground "wheat" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono"))))
  7697. (bbdb-field-name ((t (:foreground "green"))))
  7698. (bg:erc-color-face0 ((t (:background "White"))))
  7699. (bg:erc-color-face1 ((t (:background "black"))))
  7700. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  7701. (bg:erc-color-face11 ((t (:background "cyan"))))
  7702. (bg:erc-color-face12 ((t (:background "blue"))))
  7703. (bg:erc-color-face13 ((t (:background "deeppink"))))
  7704. (bg:erc-color-face14 ((t (:background "gray50"))))
  7705. (bg:erc-color-face15 ((t (:background "gray90"))))
  7706. (bg:erc-color-face2 ((t (:background "blue4"))))
  7707. (bg:erc-color-face3 ((t (:background "green4"))))
  7708. (bg:erc-color-face4 ((t (:background "red"))))
  7709. (bg:erc-color-face5 ((t (:background "brown"))))
  7710. (bg:erc-color-face6 ((t (:background "purple"))))
  7711. (bg:erc-color-face7 ((t (:background "orange"))))
  7712. (bg:erc-color-face8 ((t (:background "yellow"))))
  7713. (bg:erc-color-face9 ((t (:background "green"))))
  7714. (blue ((t (:foreground "cyan"))))
  7715. (bold ((t (:bold t :foreground "OrangeRed" :weight bold :family "Arial"))))
  7716. (bold-italic ((t (:italic t :bold t :slant italic :weight bold :family "Arial"))))
  7717. (border ((t (:background "black"))))
  7718. (calendar-today-face ((t (:underline t))))
  7719. (comint-highlight-input ((t (:bold t :weight bold))))
  7720. (comint-highlight-prompt ((t (:foreground "cyan"))))
  7721. (cperl-array-face ((t (:foreground "Yellow"))))
  7722. (cperl-hash-face ((t (:foreground "White"))))
  7723. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  7724. (cursor ((t (:background "LightGray"))))
  7725. (custom-button-face ((t (:foreground "MediumSlateBlue" :underline t))))
  7726. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  7727. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  7728. (custom-comment-face ((t (:background "dim gray"))))
  7729. (custom-comment-tag-face ((t (:foreground "gray80"))))
  7730. (custom-documentation-face ((t (:foreground "Grey"))))
  7731. (custom-face-tag-face ((t (:bold t :family "Arial" :weight bold :height 1.2))))
  7732. (custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
  7733. (custom-group-tag-face-1 ((t (:bold t :family "Arial" :foreground "pink" :weight bold :height 1.2))))
  7734. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  7735. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  7736. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  7737. (custom-saved-face ((t (:underline t))))
  7738. (custom-set-face ((t (:background "white" :foreground "blue"))))
  7739. (custom-state-face ((t (:foreground "Coral"))))
  7740. (custom-variable-button-face ((t (:underline t))))
  7741. (custom-variable-tag-face ((t (:foreground "Aquamarine"))))
  7742. (date ((t (:foreground "green"))))
  7743. (diary-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  7744. (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
  7745. (dired-face-executable ((t (:foreground "green yellow"))))
  7746. (dired-face-flagged ((t (:foreground "tomato"))))
  7747. (dired-face-marked ((t (:foreground "light salmon"))))
  7748. (dired-face-permissions ((t (:foreground "aquamarine"))))
  7749. (erc-action-face ((t (:bold t :weight bold))))
  7750. (erc-bold-face ((t (:bold t :weight bold))))
  7751. (erc-default-face ((t (nil))))
  7752. (erc-direct-msg-face ((t (:foreground "pale green"))))
  7753. (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  7754. (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
  7755. (erc-host-danger-face ((t (:foreground "red"))))
  7756. (erc-input-face ((t (:foreground "light blue"))))
  7757. (erc-inverse-face ((t (:background "steel blue"))))
  7758. (erc-notice-face ((t (:foreground "light salmon"))))
  7759. (erc-pal-face ((t (:foreground "pale green"))))
  7760. (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
  7761. (erc-underline-face ((t (:underline t))))
  7762. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  7763. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  7764. (eshell-ls-clutter-face ((t (:bold t :foreground "DimGray" :weight bold))))
  7765. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
  7766. (eshell-ls-executable-face ((t (:bold t :foreground "Coral" :weight bold))))
  7767. (eshell-ls-missing-face ((t (:bold t :foreground "black" :weight bold))))
  7768. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  7769. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  7770. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  7771. (eshell-ls-special-face ((t (:bold t :foreground "Gold" :weight bold))))
  7772. (eshell-ls-symlink-face ((t (:bold t :foreground "White" :weight bold))))
  7773. (eshell-ls-text-face ((t (:foreground "medium aquamarine"))))
  7774. (eshell-ls-todo-face ((t (:bold t :foreground "aquamarine" :weight bold))))
  7775. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  7776. (eshell-prompt-face ((t (:foreground "powder blue"))))
  7777. (face-1 ((t (:stipple nil :foreground "royal blue" :family "andale mono"))))
  7778. (face-2 ((t (:stipple nil :foreground "DeepSkyBlue1" :overline nil :underline nil :slant normal :family "outline-andale mono"))))
  7779. (face-3 ((t (:stipple nil :foreground "NavajoWhite3"))))
  7780. (fg:erc-color-face0 ((t (:foreground "white"))))
  7781. (fg:erc-color-face1 ((t (:foreground "beige"))))
  7782. (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
  7783. (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
  7784. (fg:erc-color-face12 ((t (:foreground "light yellow"))))
  7785. (fg:erc-color-face13 ((t (:foreground "yellow"))))
  7786. (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
  7787. (fg:erc-color-face15 ((t (:foreground "lime green"))))
  7788. (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
  7789. (fg:erc-color-face3 ((t (:foreground "light cyan"))))
  7790. (fg:erc-color-face4 ((t (:foreground "powder blue"))))
  7791. (fg:erc-color-face5 ((t (:foreground "sky blue"))))
  7792. (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
  7793. (fg:erc-color-face7 ((t (:foreground "pale green"))))
  7794. (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
  7795. (fg:erc-color-face9 ((t (:foreground "khaki"))))
  7796. (fixed-pitch ((t (:family "courier"))))
  7797. (font-lock-builtin-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  7798. (font-lock-comment-face ((t (:foreground "White"))))
  7799. (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  7800. (font-lock-doc-face ((t (:italic t :slant italic :foreground "LightSalmon"))))
  7801. (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
  7802. (font-lock-function-name-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
  7803. (font-lock-keyword-face ((t (:foreground "Salmon"))))
  7804. (font-lock-preprocessor-face ((t (:foreground "Salmon"))))
  7805. (font-lock-reference-face ((t (:foreground "pale green"))))
  7806. (font-lock-string-face ((t (:italic t :foreground "LightSalmon" :slant italic))))
  7807. (font-lock-type-face ((t (:bold t :foreground "YellowGreen" :weight bold))))
  7808. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "Aquamarine" :slant italic :weight bold))))
  7809. (font-lock-warning-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  7810. (fringe ((t (:background "darkslategrey"))))
  7811. (gnus-cite-attribution-face ((t (:family "arial"))))
  7812. (gnus-cite-face-1 ((t (:foreground "DarkGoldenrod3"))))
  7813. (gnus-cite-face-10 ((t (nil))))
  7814. (gnus-cite-face-11 ((t (nil))))
  7815. (gnus-cite-face-2 ((t (:foreground "IndianRed3"))))
  7816. (gnus-cite-face-3 ((t (:foreground "tomato"))))
  7817. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  7818. (gnus-cite-face-5 ((t (:foreground "SteelBlue3"))))
  7819. (gnus-cite-face-6 ((t (:foreground "Azure3"))))
  7820. (gnus-cite-face-7 ((t (:foreground "Azure4"))))
  7821. (gnus-cite-face-8 ((t (:foreground "SpringGreen4"))))
  7822. (gnus-cite-face-9 ((t (:foreground "SlateGray4"))))
  7823. (gnus-emphasis-bold ((t (:bold t :foreground "greenyellow" :weight bold :family "Arial"))))
  7824. (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "OrangeRed1" :slant italic :weight bold :family "arial"))))
  7825. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "khaki"))))
  7826. (gnus-emphasis-italic ((t (:italic t :bold t :foreground "orange" :slant italic :weight bold :family "Arial"))))
  7827. (gnus-emphasis-underline ((t (:foreground "greenyellow" :underline t))))
  7828. (gnus-emphasis-underline-bold ((t (:bold t :foreground "khaki" :underline t :weight bold :family "Arial"))))
  7829. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold :family "Arial"))))
  7830. (gnus-emphasis-underline-italic ((t (:italic t :foreground "orange" :underline t :slant italic :family "Arial"))))
  7831. (gnus-group-mail-1-empty-face ((t (:foreground "Salmon4"))))
  7832. (gnus-group-mail-1-face ((t (:bold t :foreground "firebrick1" :weight bold))))
  7833. (gnus-group-mail-2-empty-face ((t (:foreground "turquoise4"))))
  7834. (gnus-group-mail-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  7835. (gnus-group-mail-3-empty-face ((t (:foreground "LightCyan4"))))
  7836. (gnus-group-mail-3-face ((t (:bold t :foreground "LightCyan1" :weight bold))))
  7837. (gnus-group-mail-low-empty-face ((t (:foreground "SteelBlue4"))))
  7838. (gnus-group-mail-low-face ((t (:bold t :foreground "SteelBlue2" :weight bold))))
  7839. (gnus-group-news-1-empty-face ((t (:foreground "Salmon4"))))
  7840. (gnus-group-news-1-face ((t (:bold t :foreground "FireBrick1" :weight bold))))
  7841. (gnus-group-news-2-empty-face ((t (:foreground "darkorange3"))))
  7842. (gnus-group-news-2-face ((t (:bold t :foreground "dark orange" :weight bold))))
  7843. (gnus-group-news-3-empty-face ((t (:foreground "turquoise4"))))
  7844. (gnus-group-news-3-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  7845. (gnus-group-news-4-empty-face ((t (:foreground "SpringGreen4"))))
  7846. (gnus-group-news-4-face ((t (:bold t :foreground "SpringGreen2" :weight bold))))
  7847. (gnus-group-news-5-empty-face ((t (:foreground "OliveDrab4"))))
  7848. (gnus-group-news-5-face ((t (:bold t :foreground "OliveDrab2" :weight bold))))
  7849. (gnus-group-news-6-empty-face ((t (:foreground "DarkGoldenrod4"))))
  7850. (gnus-group-news-6-face ((t (:bold t :foreground "DarkGoldenrod3" :weight bold))))
  7851. (gnus-group-news-low-empty-face ((t (:foreground "wheat4"))))
  7852. (gnus-group-news-low-face ((t (:bold t :foreground "tan4" :weight bold))))
  7853. (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
  7854. (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
  7855. (gnus-header-name-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
  7856. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
  7857. (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
  7858. (gnus-signature-face ((t (:italic t :foreground "salmon" :slant italic))))
  7859. (gnus-splash-face ((t (:foreground "Firebrick1"))))
  7860. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  7861. (gnus-summary-high-ancient-face ((t (:bold t :foreground "MistyRose4" :weight bold))))
  7862. (gnus-summary-high-read-face ((t (:bold t :foreground "tomato3" :weight bold))))
  7863. (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
  7864. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "red1" :slant italic :weight bold))))
  7865. (gnus-summary-low-ancient-face ((t (:italic t :foreground "DarkSeaGreen4" :slant italic))))
  7866. (gnus-summary-low-read-face ((t (:foreground "SeaGreen4"))))
  7867. (gnus-summary-low-ticked-face ((t (:italic t :foreground "Green4" :slant italic))))
  7868. (gnus-summary-low-unread-face ((t (:italic t :foreground "green3" :slant italic))))
  7869. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  7870. (gnus-summary-normal-read-face ((t (:foreground "khaki4"))))
  7871. (gnus-summary-normal-ticked-face ((t (:foreground "khaki3"))))
  7872. (gnus-summary-normal-unread-face ((t (:foreground "khaki"))))
  7873. (gnus-summary-selected-face ((t (:foreground "gold" :underline t))))
  7874. (green ((t (:foreground "green"))))
  7875. (gui-button-face ((t (:foreground "red" :background "black"))))
  7876. (gui-element ((t (:bold t :background "#ffffff" :foreground "#000000" :weight bold))))
  7877. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  7878. (highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
  7879. (highline-face ((t (:background "SeaGreen"))))
  7880. (holiday-face ((t (:background "DimGray"))))
  7881. (info-menu-5 ((t (:underline t))))
  7882. (info-node ((t (:bold t :foreground "DodgerBlue1" :underline t :weight bold))))
  7883. (info-xref ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
  7884. (isearch ((t (:background "sea green" :foreground "black"))))
  7885. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  7886. (italic ((t (:italic t :foreground "chocolate3" :slant italic))))
  7887. (menu ((t (nil))))
  7888. (message-cited-text-face ((t (:foreground "White"))))
  7889. (message-header-cc-face ((t (:foreground "light cyan"))))
  7890. (message-header-name-face ((t (:foreground "DodgerBlue1"))))
  7891. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "LightSkyBlue3" :slant italic :weight bold))))
  7892. (message-header-other-face ((t (:foreground "LightSkyBlue3"))))
  7893. (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
  7894. (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
  7895. (message-header-xheader-face ((t (:foreground "DodgerBlue3"))))
  7896. (message-mml-face ((t (:foreground "ForestGreen"))))
  7897. (message-separator-face ((t (:background "cornflower blue" :foreground "chocolate"))))
  7898. (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width -1 :style released-button)))))
  7899. (modeline-buffer-id ((t (:bold t :background "dark olive green" :foreground "beige" :weight bold :family "arial"))))
  7900. (modeline-mousable ((t (:bold t :background "dark olive green" :foreground "yellow green" :weight bold :family "arial"))))
  7901. (modeline-mousable-minor-mode ((t (:bold t :background "dark olive green" :foreground "wheat" :weight bold :family "arial"))))
  7902. (mouse ((t (:background "Grey"))))
  7903. (paren-blink-off ((t (:foreground "brown"))))
  7904. (region ((t (:background "dark cyan" :foreground "cyan"))))
  7905. (ruler-mode-column-number-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "black"))))
  7906. (ruler-mode-current-column-face ((t (:bold t :box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :width normal :family "outline-andale mono" :foreground "yellow" :weight bold))))
  7907. (ruler-mode-default-face ((t (:family "outline-andale mono" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :inverse-video nil :stipple nil :background "grey76" :foreground "grey64" :box (:color "grey76" :line-width 1 :style released-button)))))
  7908. (ruler-mode-fill-column-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "red"))))
  7909. (ruler-mode-margins-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :foreground "grey64" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :background "grey64"))))
  7910. (ruler-mode-tab-stop-face ((t (:box (:color "grey76" :line-width 1 :style released-button) :background "grey76" :stipple nil :inverse-video nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-andale mono" :foreground "steelblue"))))
  7911. (scroll-bar ((t (nil))))
  7912. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  7913. (show-paren-match-face ((t (:bold t :background "Aquamarine" :foreground "steel blue" :weight bold))))
  7914. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  7915. (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold))))
  7916. (text-cursor ((t (:background "Red" :foreground "white"))))
  7917. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  7918. (trailing-whitespace ((t (:background "red"))))
  7919. (underline ((t (:underline t))))
  7920. (variable-pitch ((t (:family "Arial"))))
  7921. (w3m-anchor-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
  7922. (w3m-arrived-anchor-face ((t (:bold t :foreground "DodgerBlue3" :weight bold))))
  7923. (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
  7924. (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
  7925. (widget-button-face ((t (:bold t :foreground "green" :weight bold :family "courier"))))
  7926. (widget-button-pressed-face ((t (:foreground "red"))))
  7927. (widget-documentation-face ((t (:foreground "lime green"))))
  7928. (widget-field-face ((t (:foreground "LightBlue"))))
  7929. (widget-inactive-face ((t (:foreground "DimGray"))))
  7930. (widget-single-line-field-face ((t (:foreground "LightBlue"))))
  7931. (woman-bold-face ((t (:bold t :weight bold :family "Arial"))))
  7932. (woman-italic-face ((t (:italic t :foreground "beige" :slant italic :family "Arial"))))
  7933. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  7934. (zmacs-region ((t (:background "dark cyan" :foreground "cyan")))))))
  7935. (defun color-theme-comidia ()
  7936. "Color theme by Marcelo Dias de Toledo, created 2001-12-17.
  7937. Steel blue on black."
  7938. (interactive)
  7939. (color-theme-install
  7940. '(color-theme-comidia
  7941. ((background-color . "Black")
  7942. (background-mode . dark)
  7943. (border-color . "black")
  7944. (cursor-color . "SteelBlue")
  7945. (foreground-color . "SteelBlue")
  7946. (mouse-color . "SteelBlue"))
  7947. ((display-time-mail-face . mode-line)
  7948. (gnus-mouse-face . highlight)
  7949. (gnus-summary-selected-face . gnus-summary-selected-face)
  7950. (help-highlight-face . underline)
  7951. (ispell-highlight-face . highlight)
  7952. (list-matching-lines-face . bold)
  7953. (view-highlight-face . highlight)
  7954. (widget-mouse-face . highlight))
  7955. (default ((t (:stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
  7956. (bg:erc-color-face0 ((t (:background "White"))))
  7957. (bg:erc-color-face1 ((t (:background "black"))))
  7958. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  7959. (bg:erc-color-face11 ((t (:background "cyan"))))
  7960. (bg:erc-color-face12 ((t (:background "blue"))))
  7961. (bg:erc-color-face13 ((t (:background "deeppink"))))
  7962. (bg:erc-color-face14 ((t (:background "gray50"))))
  7963. (bg:erc-color-face15 ((t (:background "gray90"))))
  7964. (bg:erc-color-face2 ((t (:background "blue4"))))
  7965. (bg:erc-color-face3 ((t (:background "green4"))))
  7966. (bg:erc-color-face4 ((t (:background "red"))))
  7967. (bg:erc-color-face5 ((t (:background "brown"))))
  7968. (bg:erc-color-face6 ((t (:background "purple"))))
  7969. (bg:erc-color-face7 ((t (:background "orange"))))
  7970. (bg:erc-color-face8 ((t (:background "yellow"))))
  7971. (bg:erc-color-face9 ((t (:background "green"))))
  7972. (bold ((t (:bold t :weight bold))))
  7973. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  7974. (border ((t (:background "black"))))
  7975. (comint-highlight-input ((t (:bold t :weight bold))))
  7976. (comint-highlight-prompt ((t (:foreground "cyan"))))
  7977. (cursor ((t (:background "SteelBlue"))))
  7978. (erc-action-face ((t (:bold t :weight bold))))
  7979. (erc-bold-face ((t (:bold t :weight bold))))
  7980. (erc-dangerous-host-face ((t (:foreground "red"))))
  7981. (erc-default-face ((t (nil))))
  7982. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  7983. (erc-error-face ((t (:background "Red" :foreground "White"))))
  7984. (erc-fool-face ((t (:foreground "dim gray"))))
  7985. (erc-input-face ((t (:foreground "brown"))))
  7986. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  7987. (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
  7988. (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
  7989. (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
  7990. (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
  7991. (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
  7992. (erc-underline-face ((t (:underline t))))
  7993. (fg:erc-color-face0 ((t (:foreground "White"))))
  7994. (fg:erc-color-face1 ((t (:foreground "black"))))
  7995. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  7996. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  7997. (fg:erc-color-face12 ((t (:foreground "blue"))))
  7998. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  7999. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  8000. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  8001. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  8002. (fg:erc-color-face3 ((t (:foreground "green4"))))
  8003. (fg:erc-color-face4 ((t (:foreground "red"))))
  8004. (fg:erc-color-face5 ((t (:foreground "brown"))))
  8005. (fg:erc-color-face6 ((t (:foreground "purple"))))
  8006. (fg:erc-color-face7 ((t (:foreground "orange"))))
  8007. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  8008. (fg:erc-color-face9 ((t (:foreground "green"))))
  8009. (fixed-pitch ((t (:family "courier"))))
  8010. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  8011. (font-lock-comment-face ((t (:foreground "chocolate1"))))
  8012. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  8013. (font-lock-doc-face ((t (:foreground "LightSalmon"))))
  8014. (font-lock-doc-string-face ((t (:foreground "LightSalmon"))))
  8015. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  8016. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  8017. (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
  8018. (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
  8019. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  8020. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  8021. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  8022. (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  8023. (fringe ((t (:background "grey10"))))
  8024. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  8025. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
  8026. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  8027. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
  8028. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  8029. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
  8030. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  8031. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
  8032. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  8033. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  8034. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  8035. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  8036. (gnus-group-news-3-empty-face ((t (nil))))
  8037. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  8038. (gnus-group-news-4-empty-face ((t (nil))))
  8039. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  8040. (gnus-group-news-5-empty-face ((t (nil))))
  8041. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  8042. (gnus-group-news-6-empty-face ((t (nil))))
  8043. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  8044. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  8045. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
  8046. (gnus-splash-face ((t (:foreground "Brown"))))
  8047. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  8048. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  8049. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  8050. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
  8051. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  8052. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
  8053. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
  8054. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
  8055. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  8056. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  8057. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  8058. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  8059. (gnus-summary-normal-unread-face ((t (nil))))
  8060. (gnus-summary-selected-face ((t (:underline t))))
  8061. (header-line ((t (:family "neep" :width condensed :box (:line-width 1 :style none) :background "grey20" :foreground "grey90" :box nil))))
  8062. (highlight ((t (:background "darkolivegreen"))))
  8063. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  8064. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  8065. (italic ((t (:italic t :slant italic))))
  8066. (menu ((t (nil))))
  8067. (message-cited-text-face ((t (:foreground "red"))))
  8068. (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
  8069. (message-header-name-face ((t (:foreground "DarkGreen"))))
  8070. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
  8071. (message-header-other-face ((t (:foreground "#b00000"))))
  8072. (message-header-subject-face ((t (:foreground "green3"))))
  8073. (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
  8074. (message-header-xheader-face ((t (:foreground "blue"))))
  8075. (message-mml-face ((t (:foreground "ForestGreen"))))
  8076. (message-separator-face ((t (:foreground "blue3"))))
  8077. (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
  8078. (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
  8079. (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
  8080. (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
  8081. (mouse ((t (:background "SteelBlue"))))
  8082. (primary-selection ((t (:background "blue3"))))
  8083. (region ((t (:background "blue3"))))
  8084. (scroll-bar ((t (:background "grey75"))))
  8085. (secondary-selection ((t (:background "SkyBlue4"))))
  8086. (speedbar-button-face ((t (:foreground "green3"))))
  8087. (speedbar-directory-face ((t (:foreground "light blue"))))
  8088. (speedbar-file-face ((t (:foreground "cyan"))))
  8089. (speedbar-highlight-face ((t (:background "sea green"))))
  8090. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  8091. (speedbar-tag-face ((t (:foreground "yellow"))))
  8092. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  8093. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  8094. (trailing-whitespace ((t (:background "red"))))
  8095. (underline ((t (:underline t))))
  8096. (variable-pitch ((t (:family "helv"))))
  8097. (widget-button-face ((t (:bold t :weight bold))))
  8098. (widget-button-pressed-face ((t (:foreground "red"))))
  8099. (widget-documentation-face ((t (:foreground "lime green"))))
  8100. (widget-field-face ((t (:background "dim gray"))))
  8101. (widget-inactive-face ((t (:foreground "light gray"))))
  8102. (widget-single-line-field-face ((t (:background "dim gray"))))
  8103. (zmacs-region ((t (:background "blue3")))))))
  8104. (defun color-theme-katester ()
  8105. "Color theme by walterh@rocketmail.com, created 2001-12-12.
  8106. A pastelly-mac like color-theme."
  8107. (interactive)
  8108. (color-theme-standard)
  8109. (let ((color-theme-is-cumulative t))
  8110. (color-theme-install
  8111. '(color-theme-katester
  8112. ((background-color . "ivory")
  8113. (cursor-color . "slateblue")
  8114. (foreground-color . "black")
  8115. (mouse-color . "slateblue"))
  8116. (default ((t ((:background "ivory" :foreground "black")))))
  8117. (bold ((t (:bold t))))
  8118. (font-lock-string-face ((t (:foreground "maroon"))))
  8119. (font-lock-keyword-face ((t (:foreground "blue"))))
  8120. (font-lock-constant-face ((t (:foreground "darkblue"))))
  8121. (font-lock-type-face ((t (:foreground "black"))))
  8122. (font-lock-variable-name-face ((t (:foreground "black"))))
  8123. (font-lock-function-name-face ((t (:bold t :underline t))))
  8124. (font-lock-comment-face ((t (:background "seashell"))))
  8125. (highlight ((t (:background "lavender"))))
  8126. (italic ((t (:italic t))))
  8127. (modeline ((t (:background "moccasin" :foreground "black"))))
  8128. (region ((t (:background "lavender" ))))
  8129. (underline ((t (:underline t))))))))
  8130. (defun color-theme-arjen ()
  8131. "Color theme by awiersma, created 2001-08-27."
  8132. (interactive)
  8133. (color-theme-install
  8134. '(color-theme-arjen
  8135. ((background-color . "black")
  8136. (background-mode . dark)
  8137. (border-color . "black")
  8138. (cursor-color . "yellow")
  8139. (foreground-color . "White")
  8140. (mouse-color . "sienna1"))
  8141. ((buffers-tab-face . buffers-tab)
  8142. (cperl-here-face . font-lock-string-face)
  8143. (cperl-invalid-face quote underline)
  8144. (cperl-pod-face . font-lock-comment-face)
  8145. (cperl-pod-head-face . font-lock-variable-name-face)
  8146. (vc-mode-face . highlight))
  8147. (default ((t (:background "black" :foreground "white"))))
  8148. (blue ((t (:foreground "blue"))))
  8149. (bold ((t (:bold t))))
  8150. (bold-italic ((t (:bold t))))
  8151. (border-glyph ((t (nil))))
  8152. (buffers-tab ((t (:background "black" :foreground "white"))))
  8153. (calendar-today-face ((t (:underline t))))
  8154. (cperl-array-face ((t (:foreground "darkseagreen"))))
  8155. (cperl-hash-face ((t (:foreground "darkseagreen"))))
  8156. (cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
  8157. (custom-button-face ((t (nil))))
  8158. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  8159. (custom-documentation-face ((t (nil))))
  8160. (custom-face-tag-face ((t (:underline t))))
  8161. (custom-group-tag-face ((t (:underline t :foreground "light blue"))))
  8162. (custom-group-tag-face-1 ((t (:underline t :foreground "pink"))))
  8163. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  8164. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  8165. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  8166. (custom-saved-face ((t (:underline t))))
  8167. (custom-set-face ((t (:background "white" :foreground "blue"))))
  8168. (custom-state-face ((t (:foreground "lime green"))))
  8169. (custom-variable-button-face ((t (:underline t :bold t))))
  8170. (custom-variable-tag-face ((t (:underline t :foreground "light blue"))))
  8171. (diary-face ((t (:foreground "IndianRed"))))
  8172. (erc-action-face ((t (:bold t))))
  8173. (erc-bold-face ((t (:bold t))))
  8174. (erc-default-face ((t (nil))))
  8175. (erc-direct-msg-face ((t (:foreground "sandybrown"))))
  8176. (erc-error-face ((t (:bold t :foreground "IndianRed"))))
  8177. (erc-input-face ((t (:foreground "Beige"))))
  8178. (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
  8179. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  8180. (erc-pal-face ((t (:foreground "pale green"))))
  8181. (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
  8182. (erc-underline-face ((t (:underline t))))
  8183. (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
  8184. (eshell-ls-backup-face ((t (:foreground "Grey"))))
  8185. (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
  8186. (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
  8187. (eshell-ls-executable-face ((t (:foreground "Coral"))))
  8188. (eshell-ls-missing-face ((t (:foreground "black"))))
  8189. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  8190. (eshell-ls-product-face ((t (:foreground "sandybrown"))))
  8191. (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
  8192. (eshell-ls-special-face ((t (:foreground "Gold"))))
  8193. (eshell-ls-symlink-face ((t (:foreground "White"))))
  8194. (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
  8195. (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
  8196. (fl-comment-face ((t (:foreground "pink"))))
  8197. (fl-doc-string-face ((t (:foreground "purple"))))
  8198. (fl-function-name-face ((t (:foreground "red"))))
  8199. (fl-keyword-face ((t (:foreground "cadetblue"))))
  8200. (fl-string-face ((t (:foreground "green"))))
  8201. (fl-type-face ((t (:foreground "yellow"))))
  8202. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  8203. (font-lock-comment-face ((t (:foreground "IndianRed"))))
  8204. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  8205. (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
  8206. (font-lock-function-name-face ((t (:foreground "YellowGreen"))))
  8207. (font-lock-keyword-face ((t (:foreground "PaleYellow"))))
  8208. (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
  8209. (font-lock-reference-face ((t (:foreground "SlateBlue"))))
  8210. (font-lock-string-face ((t (:foreground "Orange"))))
  8211. (font-lock-type-face ((t (:foreground "Green"))))
  8212. (font-lock-variable-name-face ((t (:foreground "darkseagreen"))))
  8213. (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
  8214. (qt-classes-face ((t (:foreground "Red"))))
  8215. (gnus-cite-attribution-face ((t (nil))))
  8216. (gnus-cite-face-1 ((t (:bold nil :foreground "deep sky blue"))))
  8217. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  8218. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  8219. (gnus-cite-face-2 ((t (:bold nil :foreground "cadetblue"))))
  8220. (gnus-cite-face-3 ((t (:bold nil :foreground "gold"))))
  8221. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  8222. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  8223. (gnus-cite-face-6 ((t (:bold nil :foreground "chocolate"))))
  8224. (gnus-cite-face-7 ((t (:foreground "orange"))))
  8225. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  8226. (gnus-cite-face-9 ((t (:foreground "violet"))))
  8227. (gnus-emphasis-bold ((t (:bold nil))))
  8228. (gnus-emphasis-bold-italic ((t (:bold nil))))
  8229. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  8230. (gnus-emphasis-italic ((t (nil))))
  8231. (gnus-emphasis-underline ((t (:underline t))))
  8232. (gnus-emphasis-underline-bold ((t (:underline t :bold nil))))
  8233. (gnus-emphasis-underline-bold-italic ((t (:underline t :bold nil))))
  8234. (gnus-emphasis-underline-italic ((t (:underline t))))
  8235. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  8236. (gnus-group-mail-1-face ((t (:bold nil :foreground "aquamarine1"))))
  8237. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  8238. (gnus-group-mail-2-face ((t (:bold nil :foreground "aquamarine2"))))
  8239. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  8240. (gnus-group-mail-3-face ((t (:bold nil :foreground "aquamarine3"))))
  8241. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  8242. (gnus-group-mail-low-face ((t (:bold nil :foreground "aquamarine4"))))
  8243. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  8244. (gnus-group-news-1-face ((t (:bold nil :foreground "PaleTurquoise"))))
  8245. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  8246. (gnus-group-news-2-face ((t (:bold nil :foreground "turquoise"))))
  8247. (gnus-group-news-3-empty-face ((t (nil))))
  8248. (gnus-group-news-3-face ((t (:bold nil))))
  8249. (gnus-group-news-4-empty-face ((t (nil))))
  8250. (gnus-group-news-4-face ((t (:bold nil))))
  8251. (gnus-group-news-5-empty-face ((t (nil))))
  8252. (gnus-group-news-5-face ((t (:bold nil))))
  8253. (gnus-group-news-6-empty-face ((t (nil))))
  8254. (gnus-group-news-6-face ((t (:bold nil))))
  8255. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  8256. (gnus-group-news-low-face ((t (:bold nil :foreground "DarkTurquoise"))))
  8257. (gnus-header-content-face ((t (:foreground "forest green"))))
  8258. (gnus-header-from-face ((t (:bold nil :foreground "spring green"))))
  8259. (gnus-header-name-face ((t (:foreground "deep sky blue"))))
  8260. (gnus-header-newsgroups-face ((t (:bold nil :foreground "purple"))))
  8261. (gnus-header-subject-face ((t (:bold nil :foreground "orange"))))
  8262. (gnus-signature-face ((t (:bold nil :foreground "khaki"))))
  8263. (gnus-splash-face ((t (:foreground "Brown"))))
  8264. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  8265. (gnus-summary-high-ancient-face ((t (:bold nil :foreground "SkyBlue"))))
  8266. (gnus-summary-high-read-face ((t (:bold nil :foreground "PaleGreen"))))
  8267. (gnus-summary-high-ticked-face ((t (:bold nil :foreground "pink"))))
  8268. (gnus-summary-high-unread-face ((t (:bold nil))))
  8269. (gnus-summary-low-ancient-face ((t (:foreground "SkyBlue"))))
  8270. (gnus-summary-low-read-face ((t (:foreground "PaleGreen"))))
  8271. (gnus-summary-low-ticked-face ((t (:foreground "pink"))))
  8272. (gnus-summary-low-unread-face ((t (nil))))
  8273. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  8274. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  8275. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  8276. (gnus-summary-normal-unread-face ((t (nil))))
  8277. (gnus-summary-selected-face ((t (:underline t))))
  8278. (green ((t (:foreground "green"))))
  8279. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  8280. (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
  8281. (highlight ((t (:background "darkolivegreen"))))
  8282. (highline-face ((t (:background "SeaGreen"))))
  8283. (holiday-face ((t (:background "DimGray"))))
  8284. (info-menu-5 ((t (:underline t))))
  8285. (info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
  8286. (info-xref ((t (:underline t :foreground "DodgerBlue1"))))
  8287. (isearch ((t (:background "blue"))))
  8288. (isearch-secondary ((t (:foreground "red3"))))
  8289. (italic ((t (nil))))
  8290. (left-margin ((t (nil))))
  8291. (list-mode-item-selected ((t (:background "gray68" :foreground "white"))))
  8292. (message-cited-text-face ((t (:bold t :foreground "green"))))
  8293. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  8294. (message-header-name-face ((t (:bold t :foreground "orange"))))
  8295. (message-header-newsgroups-face ((t (:bold t :foreground "violet"))))
  8296. (message-header-other-face ((t (:bold t :foreground "chocolate"))))
  8297. (message-header-subject-face ((t (:bold t :foreground "yellow"))))
  8298. (message-header-to-face ((t (:bold t :foreground "cadetblue"))))
  8299. (message-header-xheader-face ((t (:bold t :foreground "light blue"))))
  8300. (message-mml-face ((t (:bold t :foreground "Green3"))))
  8301. (message-separator-face ((t (:foreground "blue3"))))
  8302. (modeline ((t (:background "DarkRed" :foreground "white" :box (:line-width 1 :style released-button)))))
  8303. (modeline-buffer-id ((t (:background "DarkRed" :foreground "white"))))
  8304. (modeline-mousable ((t (:background "DarkRed" :foreground "white"))))
  8305. (modeline-mousable-minor-mode ((t (:background "DarkRed" :foreground "white"))))
  8306. (p4-depot-added-face ((t (:foreground "blue"))))
  8307. (p4-depot-deleted-face ((t (:foreground "red"))))
  8308. (p4-depot-unmapped-face ((t (:foreground "grey30"))))
  8309. (p4-diff-change-face ((t (:foreground "dark green"))))
  8310. (p4-diff-del-face ((t (:foreground "red"))))
  8311. (p4-diff-file-face ((t (:background "gray90"))))
  8312. (p4-diff-head-face ((t (:background "gray95"))))
  8313. (p4-diff-ins-face ((t (:foreground "blue"))))
  8314. (pointer ((t (nil))))
  8315. (primary-selection ((t (:background "blue"))))
  8316. (red ((t (:foreground "red"))))
  8317. (region ((t (:background "blue"))))
  8318. (right-margin ((t (nil))))
  8319. (secondary-selection ((t (:background "darkslateblue"))))
  8320. (show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  8321. (show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
  8322. (text-cursor ((t (:background "yellow" :foreground "black"))))
  8323. (toolbar ((t (nil))))
  8324. (underline ((nil (:underline nil))))
  8325. (vertical-divider ((t (nil))))
  8326. (widget ((t (nil))))
  8327. (widget-button-face ((t (:bold t))))
  8328. (widget-button-pressed-face ((t (:foreground "red"))))
  8329. (widget-documentation-face ((t (:foreground "lime green"))))
  8330. (widget-field-face ((t (:background "dim gray"))))
  8331. (widget-inactive-face ((t (:foreground "light gray"))))
  8332. (widget-single-line-field-face ((t (:background "dim gray"))))
  8333. (woman-bold-face ((t (:bold t))))
  8334. (woman-italic-face ((t (:foreground "beige"))))
  8335. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  8336. (yellow ((t (:foreground "yellow"))))
  8337. (zmacs-region ((t (:background "snow" :foreground "blue")))))))
  8338. (defun color-theme-tty-dark ()
  8339. "Color theme by Oivvio Polite, created 2002-02-01. Good for tty display."
  8340. (interactive)
  8341. (color-theme-install
  8342. '(color-theme-tty-dark
  8343. ((background-color . "black")
  8344. (background-mode . dark)
  8345. (border-color . "blue")
  8346. (cursor-color . "red")
  8347. (foreground-color . "white")
  8348. (mouse-color . "black"))
  8349. ((ispell-highlight-face . highlight)
  8350. (list-matching-lines-face . bold)
  8351. (tinyreplace-:face . highlight)
  8352. (view-highlight-face . highlight))
  8353. (default ((t (nil))))
  8354. (bold ((t (:underline t :background "black" :foreground "white"))))
  8355. (bold-italic ((t (:underline t :foreground "white"))))
  8356. (calendar-today-face ((t (:underline t))))
  8357. (diary-face ((t (:foreground "red"))))
  8358. (font-lock-builtin-face ((t (:foreground "blue"))))
  8359. (font-lock-comment-face ((t (:foreground "cyan"))))
  8360. (font-lock-constant-face ((t (:foreground "magenta"))))
  8361. (font-lock-function-name-face ((t (:foreground "cyan"))))
  8362. (font-lock-keyword-face ((t (:foreground "red"))))
  8363. (font-lock-string-face ((t (:foreground "green"))))
  8364. (font-lock-type-face ((t (:foreground "yellow"))))
  8365. (font-lock-variable-name-face ((t (:foreground "blue"))))
  8366. (font-lock-warning-face ((t (:bold t :foreground "magenta"))))
  8367. (highlight ((t (:background "blue" :foreground "yellow"))))
  8368. (holiday-face ((t (:background "cyan"))))
  8369. (info-menu-5 ((t (:underline t))))
  8370. (info-node ((t (:italic t :bold t))))
  8371. (info-xref ((t (:bold t))))
  8372. (italic ((t (:underline t :background "red"))))
  8373. (message-cited-text-face ((t (:foreground "red"))))
  8374. (message-header-cc-face ((t (:bold t :foreground "green"))))
  8375. (message-header-name-face ((t (:foreground "green"))))
  8376. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow"))))
  8377. (message-header-other-face ((t (:foreground "#b00000"))))
  8378. (message-header-subject-face ((t (:foreground "green"))))
  8379. (message-header-to-face ((t (:bold t :foreground "green"))))
  8380. (message-header-xheader-face ((t (:foreground "blue"))))
  8381. (message-mml-face ((t (:foreground "green"))))
  8382. (message-separator-face ((t (:foreground "blue"))))
  8383. (modeline ((t (:background "white" :foreground "blue"))))
  8384. (modeline-buffer-id ((t (:background "white" :foreground "red"))))
  8385. (modeline-mousable ((t (:background "white" :foreground "magenta"))))
  8386. (modeline-mousable-minor-mode ((t (:background "white" :foreground "yellow"))))
  8387. (region ((t (:background "white" :foreground "black"))))
  8388. (zmacs-region ((t (:background "cyan" :foreground "black"))))
  8389. (secondary-selection ((t (:background "blue"))))
  8390. (show-paren-match-face ((t (:background "red"))))
  8391. (show-paren-mismatch-face ((t (:background "magenta" :foreground "white"))))
  8392. (underline ((t (:underline t)))))))
  8393. (defun color-theme-aliceblue ()
  8394. "Color theme by Girish Bharadwaj, created 2002-03-27.
  8395. Includes comint prompt, custom, font-lock, isearch,
  8396. jde, senator, speedbar, and widget."
  8397. (interactive)
  8398. (color-theme-install
  8399. '(color-theme-aliceblue
  8400. ((background-color . "AliceBlue")
  8401. (background-mode . light)
  8402. (border-color . "black")
  8403. (cursor-color . "black")
  8404. (foreground-color . "DarkSlateGray4")
  8405. (mouse-color . "black"))
  8406. ((help-highlight-face . underline)
  8407. (list-matching-lines-face . bold)
  8408. (semantic-which-function-use-color . t)
  8409. (senator-eldoc-use-color . t)
  8410. (view-highlight-face . highlight)
  8411. (widget-mouse-face . highlight))
  8412. (default ((t (:stipple nil :background "AliceBlue" :foreground "DarkSlateGray4" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
  8413. (bold ((t (:bold t :weight bold))))
  8414. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  8415. (border ((t (:background "black"))))
  8416. (comint-highlight-input ((t (:bold t :weight bold))))
  8417. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  8418. (cursor ((t (:background "black"))))
  8419. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  8420. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  8421. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  8422. (custom-comment-face ((t (:background "gray85"))))
  8423. (custom-comment-tag-face ((t (:foreground "blue4"))))
  8424. (custom-documentation-face ((t (nil))))
  8425. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  8426. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  8427. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
  8428. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  8429. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  8430. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  8431. (custom-saved-face ((t (:underline t))))
  8432. (custom-set-face ((t (:background "white" :foreground "blue"))))
  8433. (custom-state-face ((t (:foreground "dark green"))))
  8434. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  8435. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
  8436. (fixed-pitch ((t (:family "courier"))))
  8437. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  8438. (font-lock-comment-face ((t (:italic t :foreground "Firebrick" :slant oblique))))
  8439. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  8440. (font-lock-function-name-face ((t (:bold t :foreground "Blue" :weight extra-bold :family "outline-verdana"))))
  8441. (font-lock-keyword-face ((t (:bold t :foreground "Purple" :weight semi-bold :family "outline-verdana"))))
  8442. (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
  8443. (font-lock-reference-face ((t (:foreground "Orchid"))))
  8444. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  8445. (font-lock-type-face ((t (:italic t :foreground "ForestGreen" :slant italic))))
  8446. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod" :width condensed))))
  8447. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  8448. (fringe ((t (:background "DarkSlateBlue"))))
  8449. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
  8450. (highlight ((t (:background "darkseagreen2"))))
  8451. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  8452. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  8453. (italic ((t (:italic t :slant italic))))
  8454. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  8455. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  8456. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  8457. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  8458. (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
  8459. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  8460. (jde-java-font-lock-code-face ((t (nil))))
  8461. (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
  8462. (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
  8463. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  8464. (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
  8465. (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
  8466. (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
  8467. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  8468. (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
  8469. (jde-java-font-lock-pre-face ((t (nil))))
  8470. (jde-java-font-lock-underline-face ((t (:underline t))))
  8471. (menu ((t (nil))))
  8472. (modeline ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  8473. (modeline-buffer-id ((t (:background "grey75" :foreground "black"))))
  8474. (modeline-mousable ((t (:background "grey75" :foreground "black"))))
  8475. (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black"))))
  8476. (mouse ((t (:background "black"))))
  8477. (primary-selection ((t (:background "lightgoldenrod2"))))
  8478. (region ((t (:background "lightgoldenrod2"))))
  8479. (scroll-bar ((t (nil))))
  8480. (secondary-selection ((t (:background "yellow"))))
  8481. (semantic-dirty-token-face ((t (:background "lightyellow"))))
  8482. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  8483. (senator-intangible-face ((t (:foreground "gray25"))))
  8484. (senator-momentary-highlight-face ((t (:background "gray70"))))
  8485. (senator-read-only-face ((t (:background "#CCBBBB"))))
  8486. (show-paren-match-face ((t (:background "turquoise"))))
  8487. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  8488. (speedbar-button-face ((t (:foreground "green4"))))
  8489. (speedbar-directory-face ((t (:foreground "blue4"))))
  8490. (speedbar-file-face ((t (:foreground "cyan4"))))
  8491. (speedbar-highlight-face ((t (:background "green"))))
  8492. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  8493. (speedbar-tag-face ((t (:foreground "brown"))))
  8494. (template-message-face ((t (:bold t :weight bold))))
  8495. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  8496. (trailing-whitespace ((t (:background "red"))))
  8497. (underline ((t (:underline t))))
  8498. (variable-pitch ((t (:family "helv"))))
  8499. (widget-button-face ((t (:bold t :weight bold))))
  8500. (widget-button-pressed-face ((t (:foreground "red"))))
  8501. (widget-documentation-face ((t (:foreground "dark green"))))
  8502. (widget-field-face ((t (:background "gray85"))))
  8503. (widget-inactive-face ((t (:foreground "dim gray"))))
  8504. (widget-single-line-field-face ((t (:background "gray85"))))
  8505. (trailing-whitespace ((t (:background "red"))))
  8506. (underline ((t (:underline t))))
  8507. (variable-pitch ((t (:family "helv"))))
  8508. (widget-button-face ((t (:bold t :weight bold))))
  8509. (widget-button-pressed-face ((t (:foreground "red"))))
  8510. (widget-documentation-face ((t (:foreground "dark green"))))
  8511. (widget-field-face ((t (:background "gray85"))))
  8512. (widget-inactive-face ((t (:foreground "dim gray"))))
  8513. (widget-single-line-field-face ((t (:background "gray85"))))
  8514. (zmacs-region ((t (:background "lightgoldenrod2")))))))
  8515. (defun color-theme-black-on-gray ()
  8516. "Color theme by sbhojwani, created 2002-04-03.
  8517. Includes ecb, font-lock, paren, semantic, and widget faces.
  8518. Some of the font-lock faces are disabled, ie. they look just
  8519. like the default face. This is for people that don't like
  8520. the look of \"angry fruit salad\" when editing."
  8521. (interactive)
  8522. (color-theme-install
  8523. '(color-theme-black-on-gray
  8524. ((background-color . "white")
  8525. (background-mode . light)
  8526. (border-color . "blue")
  8527. (foreground-color . "black"))
  8528. ((buffers-tab-face . buffers-tab)
  8529. (ecb-directories-general-face . ecb-default-general-face)
  8530. (ecb-directory-face . ecb-default-highlight-face)
  8531. (ecb-history-face . ecb-default-highlight-face)
  8532. (ecb-history-general-face . ecb-default-general-face)
  8533. (ecb-method-face . ecb-default-highlight-face)
  8534. (ecb-methods-general-face . ecb-default-general-face)
  8535. (ecb-source-face . ecb-default-highlight-face)
  8536. (ecb-source-in-directories-buffer-face . ecb-source-in-directories-buffer-face)
  8537. (ecb-sources-general-face . ecb-default-general-face)
  8538. (ecb-token-header-face . ecb-token-header-face))
  8539. (default ((t (nil))))
  8540. (blue ((t (:foreground "blue"))))
  8541. (bold ((t (:bold t :size "10pt"))))
  8542. (bold-italic ((t (:italic t :bold t :size "10pt"))))
  8543. (border-glyph ((t (:size "11pt"))))
  8544. (buffers-tab ((t (:background "gray75"))))
  8545. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  8546. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  8547. (display-time-time-balloon-face ((t (:foreground "red"))))
  8548. (ecb-bucket-token-face ((t (:bold t :size "10pt"))))
  8549. (ecb-default-general-face ((t (nil))))
  8550. (ecb-default-highlight-face ((t (:background "cornflower blue" :foreground "yellow"))))
  8551. (ecb-directories-general-face ((t (nil))))
  8552. (ecb-directory-face ((t (:background "cornflower blue" :foreground "yellow"))))
  8553. (ecb-history-face ((t (:background "cornflower blue" :foreground "yellow"))))
  8554. (ecb-history-general-face ((t (nil))))
  8555. (ecb-method-face ((t (:background "cornflower blue" :foreground "yellow"))))
  8556. (ecb-methods-general-face ((t (nil))))
  8557. (ecb-source-face ((t (:background "cornflower blue" :foreground "yellow"))))
  8558. (ecb-source-in-directories-buffer-face ((t (:foreground "medium blue"))))
  8559. (ecb-sources-general-face ((t (nil))))
  8560. (ecb-token-header-face ((t (:background "SeaGreen1"))))
  8561. (ecb-type-token-class-face ((t (:bold t :size "10pt"))))
  8562. (ecb-type-token-enum-face ((t (:bold t :size "10pt"))))
  8563. (ecb-type-token-group-face ((t (:bold t :size "10pt" :foreground "dimgray"))))
  8564. (ecb-type-token-interface-face ((t (:bold t :size "10pt"))))
  8565. (ecb-type-token-struct-face ((t (:bold t :size "10pt"))))
  8566. (ecb-type-token-typedef-face ((t (:bold t :size "10pt"))))
  8567. (font-lock-builtin-face ((t (:foreground "red3"))))
  8568. (font-lock-constant-face ((t (:foreground "blue3"))))
  8569. (font-lock-comment-face ((t (:foreground "blue"))))
  8570. (font-lock-doc-face ((t (:foreground "green4"))))
  8571. (font-lock-doc-string-face ((t (:foreground "green4"))))
  8572. (font-lock-function-name-face ((t (nil))))
  8573. (font-lock-keyword-face ((t (nil))))
  8574. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  8575. (font-lock-reference-face ((t (:foreground "red3"))))
  8576. (font-lock-string-face ((t (nil))))
  8577. (font-lock-type-face ((t (nil))))
  8578. (font-lock-variable-name-face ((t (nil))))
  8579. (font-lock-warning-face ((t (nil))))
  8580. (green ((t (:foreground "green"))))
  8581. (gui-button-face ((t (:background "grey75"))))
  8582. (gui-element ((t (:size "8pt" :background "gray75"))))
  8583. (highlight ((t (:background "darkseagreen2"))))
  8584. (isearch ((t (:background "paleturquoise"))))
  8585. (isearch-secondary ((t (:foreground "red3"))))
  8586. (italic ((t (:size "10pt"))))
  8587. (left-margin ((t (nil))))
  8588. (list-mode-item-selected ((t (:background "gray68"))))
  8589. (modeline ((t (:background "gray75"))))
  8590. (modeline-buffer-id ((t (:background "gray75" :foreground "blue4"))))
  8591. (modeline-mousable ((t (:background "gray75" :foreground "firebrick"))))
  8592. (modeline-mousable-minor-mode ((t (:background "gray75" :foreground "green4"))))
  8593. (paren-blink-off ((t (:foreground "gray"))))
  8594. (paren-match ((t (:background "darkseagreen2"))))
  8595. (paren-mismatch ((t (nil))))
  8596. (pointer ((t (nil))))
  8597. (primary-selection ((t (:background "gray65"))))
  8598. (red ((t (:foreground "red"))))
  8599. (region ((t (:background "gray65"))))
  8600. (right-margin ((t (nil))))
  8601. (secondary-selection ((t (:background "paleturquoise"))))
  8602. (semantic-dirty-token-face ((t (nil))))
  8603. (semantic-unmatched-syntax-face ((t (nil))))
  8604. (text-cursor ((t (:background "red" :foreground "gray"))))
  8605. (toolbar ((t (:background "gray75"))))
  8606. (underline ((t (:underline t))))
  8607. (vertical-divider ((t (:background "gray75"))))
  8608. (widget ((t (:size "8pt" :background "gray75"))))
  8609. (widget-button-face ((t (:bold t))))
  8610. (widget-button-pressed-face ((t (:foreground "red"))))
  8611. (widget-documentation-face ((t (:foreground "dark green"))))
  8612. (widget-field-face ((t (:background "gray85"))))
  8613. (widget-inactive-face ((t (nil))))
  8614. (yellow ((t (:foreground "yellow"))))
  8615. (zmacs-region ((t (:background "gray65")))))))
  8616. (defun color-theme-dark-blue2 ()
  8617. "Color theme by Chris McMahan, created 2002-04-12.
  8618. Includes antlr, bbdb, change-log, comint, cperl, custom cvs, diff,
  8619. dired, display-time, ebrowse, ecb, ediff, erc, eshell, fl, font-lock,
  8620. gnus, hi, highlight, html-helper, hyper-apropos, info, isearch, jde,
  8621. message, mmm, paren, semantic, senator, sgml, smerge, speedbar,
  8622. strokes, term, vhdl, viper, vm, widget, xref, xsl, xxml. Yes, it is
  8623. a large theme."
  8624. (interactive)
  8625. (color-theme-install
  8626. '(color-theme-dark-blue2
  8627. ((background-color . "#233b5a")
  8628. (background-mode . dark)
  8629. (background-toolbar-color . "#cf3ccf3ccf3c")
  8630. (border-color . "black")
  8631. (bottom-toolbar-shadow-color . "#79e77df779e7")
  8632. (cursor-color . "Yellow")
  8633. (foreground-color . "#fff8dc")
  8634. (mouse-color . "Grey")
  8635. (top-toolbar-shadow-color . "#fffffbeeffff")
  8636. (viper-saved-cursor-color-in-replace-mode . "Red3"))
  8637. ((blank-space-face . blank-space-face)
  8638. (blank-tab-face . blank-tab-face)
  8639. (cperl-invalid-face . underline)
  8640. (ecb-directories-general-face . ecb-directories-general-face)
  8641. (ecb-directory-face . ecb-directory-face)
  8642. (ecb-history-face . ecb-history-face)
  8643. (ecb-history-general-face . ecb-history-general-face)
  8644. (ecb-method-face . ecb-method-face)
  8645. (ecb-methods-general-face . ecb-methods-general-face)
  8646. (ecb-source-face . ecb-source-face)
  8647. (ecb-source-in-directories-buffer-face . ecb-sources-face)
  8648. (ecb-sources-general-face . ecb-sources-general-face)
  8649. (ecb-token-header-face . ecb-token-header-face)
  8650. (gnus-article-button-face . bold)
  8651. (gnus-article-mouse-face . highlight)
  8652. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  8653. (gnus-signature-face . gnus-signature-face)
  8654. (gnus-summary-selected-face . gnus-summary-selected-face)
  8655. (help-highlight-face . underline)
  8656. (highline-face . highline-face)
  8657. (highline-vertical-face . highline-vertical-face)
  8658. (list-matching-lines-face . bold)
  8659. (ps-zebra-color . 0.95)
  8660. (senator-eldoc-use-color . t)
  8661. (sgml-set-face . t)
  8662. (tags-tag-face . default)
  8663. (view-highlight-face . highlight)
  8664. (vm-highlight-url-face . bold-italic)
  8665. (vm-highlighted-header-face . bold)
  8666. (vm-mime-button-face . gui-button-face)
  8667. (vm-summary-highlight-face . bold)
  8668. (widget-mouse-face . highlight))
  8669. (default ((t (:stipple nil :background "#233b5a" :foreground "#fff8dc" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
  8670. (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
  8671. (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
  8672. (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
  8673. (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
  8674. (antlr-font-lock-keyword-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8675. (antlr-font-lock-literal-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8676. (antlr-font-lock-ruledef-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8677. (antlr-font-lock-ruleref-face ((t (:foreground "Gray85"))))
  8678. (antlr-font-lock-tokendef-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8679. (antlr-font-lock-tokenref-face ((t (:foreground "Gray85"))))
  8680. (bbdb-company ((t (:italic t :slant italic))))
  8681. (bbdb-field-name ((t (:bold t :weight bold))))
  8682. (bbdb-field-value ((t (nil))))
  8683. (bbdb-name ((t (:underline t))))
  8684. (bg:erc-color-face0 ((t (:background "White"))))
  8685. (bg:erc-color-face1 ((t (:background "black"))))
  8686. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  8687. (bg:erc-color-face11 ((t (:background "cyan"))))
  8688. (bg:erc-color-face12 ((t (:background "blue"))))
  8689. (bg:erc-color-face13 ((t (:background "deeppink"))))
  8690. (bg:erc-color-face14 ((t (:background "gray50"))))
  8691. (bg:erc-color-face15 ((t (:background "gray90"))))
  8692. (bg:erc-color-face2 ((t (:background "blue4"))))
  8693. (bg:erc-color-face3 ((t (:background "green4"))))
  8694. (bg:erc-color-face4 ((t (:background "red"))))
  8695. (bg:erc-color-face5 ((t (:background "brown"))))
  8696. (bg:erc-color-face6 ((t (:background "purple"))))
  8697. (bg:erc-color-face7 ((t (:background "orange"))))
  8698. (bg:erc-color-face8 ((t (:background "yellow"))))
  8699. (bg:erc-color-face9 ((t (:background "green"))))
  8700. (blank-space-face ((t (:background "LightGray"))))
  8701. (blank-tab-face ((t (:background "Wheat"))))
  8702. (blue ((t (:foreground "blue"))))
  8703. (bold ((t (:bold t :foreground "cyan" :weight bold))))
  8704. (bold-italic ((t (:italic t :bold t :foreground "cyan2" :slant italic :weight bold))))
  8705. (border ((t (:background "black"))))
  8706. (border-glyph ((t (nil))))
  8707. (buffers-tab ((t (:background "gray30" :foreground "LightSkyBlue"))))
  8708. (calendar-today-face ((t (:underline t))))
  8709. (change-log-acknowledgement-face ((t (:foreground "firebrick"))))
  8710. (change-log-conditionals-face ((t (:background "sienna" :foreground "khaki"))))
  8711. (change-log-date-face ((t (:foreground "gold"))))
  8712. (change-log-email-face ((t (:foreground "khaki" :underline t))))
  8713. (change-log-file-face ((t (:bold t :foreground "lemon chiffon" :weight bold))))
  8714. (change-log-function-face ((t (:background "sienna" :foreground "khaki"))))
  8715. (change-log-list-face ((t (:foreground "wheat"))))
  8716. (change-log-name-face ((t (:bold t :foreground "light goldenrod" :weight bold))))
  8717. (comint-highlight-input ((t (:bold t :weight bold))))
  8718. (comint-highlight-prompt ((t (:foreground "cyan"))))
  8719. (comint-input-face ((t (:foreground "deepskyblue"))))
  8720. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
  8721. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
  8722. (cperl-invalid-face ((t (:foreground "white"))))
  8723. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  8724. (cursor ((t (:background "Yellow"))))
  8725. (custom-button-face ((t (:bold t :weight bold))))
  8726. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "gray30"))))
  8727. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  8728. (custom-comment-face ((t (:foreground "white"))))
  8729. (custom-comment-tag-face ((t (:foreground "white"))))
  8730. (custom-documentation-face ((t (:foreground "light blue"))))
  8731. (custom-face-tag-face ((t (:underline t))))
  8732. (custom-group-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
  8733. (custom-group-tag-face-1 ((t (:foreground "gray85" :underline t))))
  8734. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  8735. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  8736. (custom-rogue-face ((t (:background "gray30" :foreground "pink"))))
  8737. (custom-saved-face ((t (:underline t))))
  8738. (custom-set-face ((t (:background "white" :foreground "blue"))))
  8739. (custom-state-face ((t (:foreground "gray85"))))
  8740. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  8741. (custom-variable-tag-face ((t (:bold t :foreground "gray85" :underline t :weight bold))))
  8742. (cvs-filename-face ((t (:foreground "white"))))
  8743. (cvs-handled-face ((t (:foreground "pink"))))
  8744. (cvs-header-face ((t (:foreground "green"))))
  8745. (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
  8746. (cvs-msg-face ((t (:foreground "gray85"))))
  8747. (cvs-need-action-face ((t (:foreground "yellow"))))
  8748. (cvs-unknown-face ((t (:foreground "grey"))))
  8749. (cyan ((t (:foreground "cyan"))))
  8750. (diary-face ((t (:bold t :foreground "gray85" :weight bold))))
  8751. (diff-added-face ((t (nil))))
  8752. (diff-changed-face ((t (nil))))
  8753. (diff-context-face ((t (:foreground "grey50"))))
  8754. (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
  8755. (diff-function-face ((t (:foreground "grey50"))))
  8756. (diff-header-face ((t (:foreground "lemon chiffon"))))
  8757. (diff-hunk-header-face ((t (:background "grey85"))))
  8758. (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
  8759. (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
  8760. (diff-removed-face ((t (nil))))
  8761. (dired-face-boring ((t (:foreground "Gray65"))))
  8762. (dired-face-directory ((t (:bold t :weight bold))))
  8763. (dired-face-executable ((t (:foreground "gray85"))))
  8764. (dired-face-flagged ((t (:background "LightSlateGray"))))
  8765. (dired-face-header ((t (:background "grey75" :foreground "gray30"))))
  8766. (dired-face-marked ((t (:background "PaleVioletRed"))))
  8767. (dired-face-permissions ((t (:background "grey75" :foreground "gray30"))))
  8768. (dired-face-setuid ((t (:foreground "gray85"))))
  8769. (dired-face-socket ((t (:foreground "gray85"))))
  8770. (dired-face-symlink ((t (:foreground "cyan"))))
  8771. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  8772. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  8773. (display-time-time-balloon-face ((t (:foreground "gray85"))))
  8774. (ebrowse-default-face ((t (nil))))
  8775. (ebrowse-file-name-face ((t (:italic t :slant italic))))
  8776. (ebrowse-member-attribute-face ((t (:foreground "red"))))
  8777. (ebrowse-member-class-face ((t (:foreground "Gray85"))))
  8778. (ebrowse-progress-face ((t (:background "blue"))))
  8779. (ebrowse-root-class-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8780. (ebrowse-tree-mark-face ((t (:foreground "Gray85"))))
  8781. (ecb-bucket-token-face ((t (:bold t :weight bold))))
  8782. (ecb-default-general-face ((t (:height 1.0))))
  8783. (ecb-default-highlight-face ((t (:background "magenta" :height 1.0))))
  8784. (ecb-directories-general-face ((t (:height 0.9))))
  8785. (ecb-directory-face ((t (:background "Cyan4"))))
  8786. (ecb-history-face ((t (:background "Cyan4"))))
  8787. (ecb-history-general-face ((t (:height 0.9))))
  8788. (ecb-method-face ((t (:background "Cyan4" :slant normal :weight normal))))
  8789. (ecb-methods-general-face ((t (:slant normal))))
  8790. (ecb-source-face ((t (:background "Cyan4"))))
  8791. (ecb-source-in-directories-buffer-face ((t (:foreground "LightBlue1"))))
  8792. (ecb-sources-face ((t (:foreground "LightBlue1"))))
  8793. (ecb-sources-general-face ((t (:height 0.9))))
  8794. (ecb-token-header-face ((t (:background "Steelblue4"))))
  8795. (ecb-type-token-class-face ((t (:bold t :weight bold))))
  8796. (ecb-type-token-enum-face ((t (:bold t :weight bold))))
  8797. (ecb-type-token-group-face ((t (:bold t :foreground "dim gray" :weight bold))))
  8798. (ecb-type-token-interface-face ((t (:bold t :weight bold))))
  8799. (ecb-type-token-struct-face ((t (:bold t :weight bold))))
  8800. (ecb-type-token-typedef-face ((t (:bold t :weight bold))))
  8801. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  8802. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Gray30"))))
  8803. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  8804. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  8805. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Gray30"))))
  8806. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  8807. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  8808. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Gray30"))))
  8809. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  8810. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Gray30"))))
  8811. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Gray30"))))
  8812. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Gray30"))))
  8813. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  8814. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Gray30"))))
  8815. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Gray30"))))
  8816. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  8817. (erc-action-face ((t (:bold t :weight bold))))
  8818. (erc-bold-face ((t (:bold t :weight bold))))
  8819. (erc-dangerous-host-face ((t (:foreground "red"))))
  8820. (erc-default-face ((t (nil))))
  8821. (erc-direct-msg-face ((t (:foreground "pale green"))))
  8822. (erc-error-face ((t (:bold t :foreground "gray85" :weight bold))))
  8823. (erc-fool-face ((t (:foreground "Gray85"))))
  8824. (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
  8825. (erc-input-face ((t (:foreground "light blue"))))
  8826. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  8827. (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
  8828. (erc-notice-face ((t (:foreground "light salmon"))))
  8829. (erc-pal-face ((t (:foreground "pale green"))))
  8830. (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
  8831. (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
  8832. (erc-underline-face ((t (:underline t))))
  8833. (eshell-ls-archive-face ((t (:bold t :weight bold))))
  8834. (eshell-ls-backup-face ((t (:foreground "gray85"))))
  8835. (eshell-ls-clutter-face ((t (:bold t :foreground "gray85" :weight bold))))
  8836. (eshell-ls-directory-face ((t (:bold t :foreground "Cyan" :weight bold))))
  8837. (eshell-ls-executable-face ((t (:bold t :weight bold))))
  8838. (eshell-ls-missing-face ((t (:bold t :weight bold))))
  8839. (eshell-ls-picture-face ((t (:foreground "gray85"))))
  8840. (eshell-ls-product-face ((t (:foreground "gray85"))))
  8841. (eshell-ls-readonly-face ((t (:foreground "gray70"))))
  8842. (eshell-ls-special-face ((t (:bold t :weight bold))))
  8843. (eshell-ls-symlink-face ((t (:bold t :weight bold))))
  8844. (eshell-ls-text-face ((t (:foreground "gray85"))))
  8845. (eshell-ls-todo-face ((t (:bold t :weight bold))))
  8846. (eshell-ls-unreadable-face ((t (:foreground "gray85"))))
  8847. (eshell-prompt-face ((t (:bold t :foreground "Yellow" :weight bold))))
  8848. (eshell-test-failed-face ((t (:bold t :weight bold))))
  8849. (eshell-test-ok-face ((t (:bold t :weight bold))))
  8850. (excerpt ((t (:italic t :slant italic))))
  8851. (ff-paths-non-existant-file-face ((t (:bold t :foreground "gray85" :weight bold))))
  8852. (fg:black ((t (:foreground "black"))))
  8853. (fg:erc-color-face0 ((t (:foreground "White"))))
  8854. (fg:erc-color-face1 ((t (:foreground "black"))))
  8855. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  8856. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  8857. (fg:erc-color-face12 ((t (:foreground "blue"))))
  8858. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  8859. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  8860. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  8861. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  8862. (fg:erc-color-face3 ((t (:foreground "green4"))))
  8863. (fg:erc-color-face4 ((t (:foreground "red"))))
  8864. (fg:erc-color-face5 ((t (:foreground "brown"))))
  8865. (fg:erc-color-face6 ((t (:foreground "purple"))))
  8866. (fg:erc-color-face7 ((t (:foreground "orange"))))
  8867. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  8868. (fg:erc-color-face9 ((t (:foreground "green"))))
  8869. (fixed ((t (:bold t :weight bold))))
  8870. (fixed-pitch ((t (:family "outline-lucida console"))))
  8871. (fl-comment-face ((t (:foreground "gray85"))))
  8872. (fl-function-name-face ((t (:foreground "green"))))
  8873. (fl-keyword-face ((t (:foreground "LightGreen"))))
  8874. (fl-string-face ((t (:foreground "light coral"))))
  8875. (fl-type-face ((t (:foreground "cyan"))))
  8876. (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
  8877. (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
  8878. (font-latex-bold-face ((t (nil))))
  8879. (font-latex-italic-face ((t (nil))))
  8880. (font-latex-math-face ((t (nil))))
  8881. (font-latex-sedate-face ((t (:foreground "Gray85"))))
  8882. (font-latex-string-face ((t (:foreground "orange"))))
  8883. (font-latex-warning-face ((t (:foreground "gold"))))
  8884. (font-lock-builtin-face ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
  8885. (font-lock-comment-face ((t (:italic t :foreground "medium aquamarine" :slant italic))))
  8886. (font-lock-constant-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  8887. (font-lock-doc-face ((t (:bold t :weight bold))))
  8888. (font-lock-doc-string-face ((t (:bold t :foreground "aquamarine" :weight bold))))
  8889. (font-lock-exit-face ((t (:foreground "green"))))
  8890. (font-lock-function-name-face ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
  8891. (font-lock-keyword-face ((t (:bold t :foreground "Cyan" :weight bold))))
  8892. (font-lock-preprocessor-face ((t (:foreground "Gray85"))))
  8893. (font-lock-reference-face ((t (:foreground "cyan"))))
  8894. (font-lock-string-face ((t (:italic t :foreground "aquamarine" :slant italic))))
  8895. (font-lock-type-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  8896. (font-lock-variable-name-face ((t (:italic t :bold t :foreground "LightGoldenrod" :slant italic :weight bold))))
  8897. (font-lock-warning-face ((t (:bold t :foreground "Salmon" :weight bold))))
  8898. (fringe ((t (:background "#3c5473"))))
  8899. (gnus-cite-attribution-face ((t (:italic t :bold t :foreground "beige" :underline t :slant italic :weight bold))))
  8900. (gnus-cite-face-1 ((t (:foreground "gold"))))
  8901. (gnus-cite-face-10 ((t (:foreground "coral"))))
  8902. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  8903. (gnus-cite-face-2 ((t (:foreground "wheat"))))
  8904. (gnus-cite-face-3 ((t (:foreground "light pink"))))
  8905. (gnus-cite-face-4 ((t (:foreground "khaki"))))
  8906. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  8907. (gnus-cite-face-6 ((t (:foreground "beige"))))
  8908. (gnus-cite-face-7 ((t (:foreground "orange"))))
  8909. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  8910. (gnus-cite-face-9 ((t (:foreground "violet"))))
  8911. (gnus-emphasis-bold ((t (:bold t :foreground "light gray" :weight bold))))
  8912. (gnus-emphasis-bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
  8913. (gnus-emphasis-highlight-words ((t (:background "gray30" :foreground "gold"))))
  8914. (gnus-emphasis-italic ((t (:italic t :foreground "cyan" :slant italic))))
  8915. (gnus-emphasis-underline ((t (:foreground "white" :underline t))))
  8916. (gnus-emphasis-underline-bold ((t (:bold t :foreground "white" :underline t :weight bold))))
  8917. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :foreground "white" :underline t :slant italic :weight bold))))
  8918. (gnus-emphasis-underline-italic ((t (:italic t :foreground "white" :underline t :slant italic))))
  8919. (gnus-filterhist-face-1 ((t (nil))))
  8920. (gnus-group-mail-1-empty-face ((t (:foreground "Magenta"))))
  8921. (gnus-group-mail-1-face ((t (:bold t :foreground "Magenta" :weight bold))))
  8922. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  8923. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
  8924. (gnus-group-mail-3-empty-face ((t (:foreground "Cyan"))))
  8925. (gnus-group-mail-3-face ((t (:bold t :foreground "Cyan" :weight bold))))
  8926. (gnus-group-mail-low-empty-face ((t (:foreground "Wheat"))))
  8927. (gnus-group-mail-low-face ((t (:bold t :foreground "Gray85" :weight bold))))
  8928. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  8929. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  8930. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  8931. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  8932. (gnus-group-news-3-empty-face ((t (:foreground "wheat"))))
  8933. (gnus-group-news-3-face ((t (:bold t :foreground "Wheat" :weight bold))))
  8934. (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
  8935. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  8936. (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
  8937. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  8938. (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
  8939. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  8940. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  8941. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
  8942. (gnus-header-content-face ((t (:italic t :foreground "Wheat" :slant italic))))
  8943. (gnus-header-from-face ((t (:bold t :foreground "light yellow" :weight bold))))
  8944. (gnus-header-name-face ((t (:bold t :foreground "Wheat" :weight bold))))
  8945. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
  8946. (gnus-header-subject-face ((t (:bold t :foreground "Gold" :weight bold))))
  8947. (gnus-picons-face ((t (:background "white" :foreground "gray30"))))
  8948. (gnus-picons-xbm-face ((t (:background "white" :foreground "gray30"))))
  8949. (gnus-signature-face ((t (:italic t :foreground "white" :slant italic))))
  8950. (gnus-splash ((t (:foreground "Brown"))))
  8951. (gnus-splash-face ((t (:foreground "orange"))))
  8952. (gnus-summary-cancelled-face ((t (:background "gray30" :foreground "orange"))))
  8953. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  8954. (gnus-summary-high-read-face ((t (:bold t :foreground "gray85" :weight bold))))
  8955. (gnus-summary-high-ticked-face ((t (:bold t :foreground "coral" :weight bold))))
  8956. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "gold" :slant italic :weight bold))))
  8957. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
  8958. (gnus-summary-low-read-face ((t (:italic t :foreground "gray85" :slant italic))))
  8959. (gnus-summary-low-ticked-face ((t (:italic t :bold t :foreground "coral" :slant italic :weight bold))))
  8960. (gnus-summary-low-unread-face ((t (:italic t :foreground "white" :slant italic))))
  8961. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  8962. (gnus-summary-normal-read-face ((t (:foreground "gray70"))))
  8963. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
  8964. (gnus-summary-normal-unread-face ((t (:bold t :foreground "gray85" :weight bold))))
  8965. (gnus-summary-selected-face ((t (:foreground "white" :underline t))))
  8966. (gnus-x-face ((t (:background "white" :foreground "gray30"))))
  8967. (green ((t (:foreground "green"))))
  8968. (gui-button-face ((t (:background "grey75" :foreground "gray30"))))
  8969. (gui-element ((t (:background "Gray80"))))
  8970. (header-line ((t (:background "grey20" :foreground "grey90"))))
  8971. (hi-black-b ((t (:bold t :weight bold))))
  8972. (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
  8973. (hi-blue ((t (:background "light blue"))))
  8974. (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
  8975. (hi-green ((t (:background "green"))))
  8976. (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
  8977. (hi-pink ((t (:background "pink"))))
  8978. (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
  8979. (hi-yellow ((t (:background "yellow"))))
  8980. (highlight ((t (:background "SkyBlue3"))))
  8981. (highlight-changes-delete-face ((t (:foreground "gray85" :underline t))))
  8982. (highlight-changes-face ((t (:foreground "gray85"))))
  8983. (highline-face ((t (:background "#3c5473"))))
  8984. (highline-vertical-face ((t (:background "lightcyan"))))
  8985. (holiday-face ((t (:background "pink" :foreground "gray30"))))
  8986. (html-helper-bold-face ((t (:bold t :weight bold))))
  8987. (html-helper-bold-italic-face ((t (nil))))
  8988. (html-helper-builtin-face ((t (:foreground "gray85" :underline t))))
  8989. (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
  8990. (html-helper-underline-face ((t (:underline t))))
  8991. (html-tag-face ((t (:bold t :weight bold))))
  8992. (hyper-apropos-documentation ((t (:foreground "white"))))
  8993. (hyper-apropos-heading ((t (:bold t :weight bold))))
  8994. (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
  8995. (hyper-apropos-major-heading ((t (:bold t :weight bold))))
  8996. (hyper-apropos-section-heading ((t (:bold t :weight bold))))
  8997. (hyper-apropos-warning ((t (:bold t :foreground "gray85" :weight bold))))
  8998. (ibuffer-marked-face ((t (:foreground "gray85"))))
  8999. (idlwave-help-link-face ((t (:foreground "Blue"))))
  9000. (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
  9001. (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
  9002. (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
  9003. (info-menu-5 ((t (:underline t))))
  9004. (info-menu-6 ((t (nil))))
  9005. (info-menu-header ((t (:bold t :weight bold :family "helv"))))
  9006. (info-node ((t (:italic t :bold t :slant italic :weight bold))))
  9007. (info-xref ((t (:bold t :weight bold))))
  9008. (isearch ((t (:background "LightSeaGreen"))))
  9009. (isearch-lazy-highlight-face ((t (:background "cyan4"))))
  9010. (isearch-secondary ((t (:foreground "red3"))))
  9011. (italic ((t (:italic t :bold t :slant italic :weight bold))))
  9012. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  9013. (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
  9014. (jde-java-font-lock-api-face ((t (:foreground "LightBlue"))))
  9015. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  9016. (jde-java-font-lock-code-face ((t (nil))))
  9017. (jde-java-font-lock-constant-face ((t (:foreground "LightBlue"))))
  9018. (jde-java-font-lock-doc-tag-face ((t (:foreground "LightBlue"))))
  9019. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  9020. (jde-java-font-lock-link-face ((t (:foreground "cyan3" :underline t))))
  9021. (jde-java-font-lock-modifier-face ((t (:foreground "LightBlue"))))
  9022. (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
  9023. (jde-java-font-lock-operator-face ((t (:foreground "cyan3"))))
  9024. (jde-java-font-lock-package-face ((t (:foreground "LightBlue"))))
  9025. (jde-java-font-lock-pre-face ((t (nil))))
  9026. (jde-java-font-lock-underline-face ((t (:underline t))))
  9027. (lazy-highlight-face ((t (:bold t :foreground "yellow" :weight bold))))
  9028. (left-margin ((t (nil))))
  9029. (linemenu-face ((t (:background "gray30"))))
  9030. (list-mode-item-selected ((t (:background "gray68"))))
  9031. (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
  9032. (log-view-message-face ((t (:background "grey85"))))
  9033. (magenta ((t (:foreground "gray85"))))
  9034. (makefile-space-face ((t (:background "hotpink" :foreground "white"))))
  9035. (man-bold ((t (:bold t :weight bold))))
  9036. (man-heading ((t (:bold t :weight bold))))
  9037. (man-italic ((t (:foreground "yellow"))))
  9038. (man-xref ((t (:underline t))))
  9039. (menu ((t (:background "wheat" :foreground "gray30"))))
  9040. (message-cited-text ((t (:foreground "orange"))))
  9041. (message-cited-text-face ((t (:foreground "medium aquamarine"))))
  9042. (message-header-cc-face ((t (:bold t :foreground "gray85" :weight bold))))
  9043. (message-header-contents ((t (:foreground "white"))))
  9044. (message-header-name-face ((t (:foreground "gray85"))))
  9045. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
  9046. (message-header-other-face ((t (:foreground "gray85"))))
  9047. (message-header-subject-face ((t (:bold t :foreground "green3" :weight bold))))
  9048. (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
  9049. (message-header-xheader-face ((t (:foreground "blue"))))
  9050. (message-headers ((t (:bold t :foreground "orange" :weight bold))))
  9051. (message-highlighted-header-contents ((t (:bold t :weight bold))))
  9052. (message-mml-face ((t (:bold t :foreground "gray85" :weight bold))))
  9053. (message-separator-face ((t (:foreground "gray85"))))
  9054. (message-url ((t (:bold t :foreground "pink" :weight bold))))
  9055. (mmm-default-submode-face ((t (:background "#c0c0c5"))))
  9056. (mmm-face ((t (:background "black" :foreground "green"))))
  9057. (modeline ((t (:background "#3c5473" :foreground "lightgray" :box (:line-width -1 :style released-button :family "helv")))))
  9058. (modeline-buffer-id ((t (:background "white" :foreground "DeepSkyBlue3" :slant normal :weight normal :width normal :family "outline-verdana"))))
  9059. (modeline-mousable ((t (:background "white" :foreground "DeepSkyBlue3"))))
  9060. (modeline-mousable-minor-mode ((t (:background "white" :foreground "DeepSkyBlue3"))))
  9061. (mouse ((t (:background "Grey"))))
  9062. (my-summary-highlight-face ((t (:background "PaleTurquoise4" :foreground "White"))))
  9063. (my-url-face ((t (:foreground "LightBlue"))))
  9064. (nil ((t (nil))))
  9065. (paren-blink-off ((t (:foreground "gray80"))))
  9066. (paren-face-match ((t (:background "turquoise"))))
  9067. (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
  9068. (paren-face-no-match ((t (:background "yellow" :foreground "gray30"))))
  9069. (paren-match ((t (:background "darkseagreen2"))))
  9070. (paren-mismatch ((t (:background "RosyBrown" :foreground "gray30"))))
  9071. (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
  9072. (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
  9073. (pointer ((t (nil))))
  9074. (primary-selection ((t (:background "gray40"))))
  9075. (reb-match-0 ((t (:background "lightblue"))))
  9076. (reb-match-1 ((t (:background "aquamarine"))))
  9077. (reb-match-2 ((t (:background "springgreen"))))
  9078. (reb-match-3 ((t (:background "yellow"))))
  9079. (red ((t (:foreground "red"))))
  9080. (region ((t (:background "Cyan4"))))
  9081. (right-margin ((t (nil))))
  9082. (scroll-bar ((t (:background "grey75"))))
  9083. (secondary-selection ((t (:background "gray60"))))
  9084. (semantic-dirty-token-face ((t (:background "gray10"))))
  9085. (semantic-intangible-face ((t (:foreground "gray25"))))
  9086. (semantic-read-only-face ((t (:background "gray25"))))
  9087. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  9088. (senator-intangible-face ((t (:foreground "gray75"))))
  9089. (senator-momentary-highlight-face ((t (:background "gray70"))))
  9090. (senator-read-only-face ((t (:background "#664444"))))
  9091. (sgml-comment-face ((t (:foreground "dark turquoise"))))
  9092. (sgml-doctype-face ((t (:foreground "turquoise"))))
  9093. (sgml-end-tag-face ((t (:foreground "aquamarine"))))
  9094. (sgml-entity-face ((t (:foreground "gray85"))))
  9095. (sgml-ignored-face ((t (:background "gray60" :foreground "gray40"))))
  9096. (sgml-ms-end-face ((t (:foreground "green"))))
  9097. (sgml-ms-start-face ((t (:foreground "yellow"))))
  9098. (sgml-pi-face ((t (:foreground "lime green"))))
  9099. (sgml-sgml-face ((t (:foreground "brown"))))
  9100. (sgml-short-ref-face ((t (:foreground "deep sky blue"))))
  9101. (sgml-start-tag-face ((t (:foreground "aquamarine"))))
  9102. (sh-heredoc-face ((t (:foreground "tan"))))
  9103. (shell-option-face ((t (:foreground "gray85"))))
  9104. (shell-output-2-face ((t (:foreground "gray85"))))
  9105. (shell-output-3-face ((t (:foreground "gray85"))))
  9106. (shell-output-face ((t (:bold t :weight bold))))
  9107. (shell-prompt-face ((t (:foreground "yellow"))))
  9108. (show-paren-match-face ((t (:bold t :background "turquoise" :weight bold))))
  9109. (show-paren-mismatch-face ((t (:bold t :background "RosyBrown" :foreground "white" :weight bold))))
  9110. (show-tabs-space-face ((t (:foreground "yellow"))))
  9111. (show-tabs-tab-face ((t (:foreground "red"))))
  9112. (smerge-base-face ((t (:foreground "red"))))
  9113. (smerge-markers-face ((t (:background "grey85"))))
  9114. (smerge-mine-face ((t (:foreground "Gray85"))))
  9115. (smerge-other-face ((t (:foreground "darkgreen"))))
  9116. (speedbar-button-face ((t (:bold t :weight bold))))
  9117. (speedbar-directory-face ((t (:bold t :weight bold))))
  9118. (speedbar-file-face ((t (:bold t :weight bold))))
  9119. (speedbar-highlight-face ((t (:background "sea green"))))
  9120. (speedbar-selected-face ((t (:underline t))))
  9121. (speedbar-tag-face ((t (:foreground "yellow"))))
  9122. (strokes-char-face ((t (:background "lightgray"))))
  9123. (swbuff-current-buffer-face ((t (:bold t :foreground "gray85" :weight bold))))
  9124. (template-message-face ((t (:bold t :weight bold))))
  9125. (term-black ((t (:foreground "black"))))
  9126. (term-blackbg ((t (:background "black"))))
  9127. (term-blue ((t (:foreground "blue"))))
  9128. (term-bluebg ((t (:background "blue"))))
  9129. (term-bold ((t (:bold t :weight bold))))
  9130. (term-cyan ((t (:foreground "cyan"))))
  9131. (term-cyanbg ((t (:background "cyan"))))
  9132. (term-default ((t (:background "gray80" :foreground "gray30" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida console"))))
  9133. (term-default-bg ((t (nil))))
  9134. (term-default-bg-inv ((t (nil))))
  9135. (term-default-fg ((t (nil))))
  9136. (term-default-fg-inv ((t (nil))))
  9137. (term-green ((t (:foreground "green"))))
  9138. (term-greenbg ((t (:background "green"))))
  9139. (term-invisible ((t (nil))))
  9140. (term-invisible-inv ((t (nil))))
  9141. (term-magenta ((t (:foreground "magenta"))))
  9142. (term-magentabg ((t (:background "magenta"))))
  9143. (term-red ((t (:foreground "red"))))
  9144. (term-redbg ((t (:background "red"))))
  9145. (term-underline ((t (:underline t))))
  9146. (term-white ((t (:foreground "white"))))
  9147. (term-whitebg ((t (:background "white"))))
  9148. (term-yellow ((t (:foreground "yellow"))))
  9149. (term-yellowbg ((t (:background "yellow"))))
  9150. (tex-math-face ((t (:foreground "RosyBrown"))))
  9151. (texinfo-heading-face ((t (:foreground "Blue"))))
  9152. (text-cursor ((t (:background "Red3" :foreground "gray80"))))
  9153. (tool-bar ((t (:background "grey75" :foreground "black"))))
  9154. (toolbar ((t (:background "Gray80"))))
  9155. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  9156. (trailing-whitespace ((t (:background "red"))))
  9157. (underline ((t (:underline t))))
  9158. (variable-pitch ((t (:family "helv"))))
  9159. (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
  9160. (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
  9161. (vertical-divider ((t (:background "Gray80"))))
  9162. (vhdl-font-lock-attribute-face ((t (:foreground "gray85"))))
  9163. (vhdl-font-lock-directive-face ((t (:foreground "gray85"))))
  9164. (vhdl-font-lock-enumvalue-face ((t (:foreground "gray85"))))
  9165. (vhdl-font-lock-function-face ((t (:foreground "gray85"))))
  9166. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "gray85" :weight bold))))
  9167. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "gray85" :weight bold))))
  9168. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  9169. (vhdl-speedbar-architecture-face ((t (:foreground "gray85"))))
  9170. (vhdl-speedbar-architecture-selected-face ((t (:foreground "gray85" :underline t))))
  9171. (vhdl-speedbar-configuration-face ((t (:foreground "gray85"))))
  9172. (vhdl-speedbar-configuration-selected-face ((t (:foreground "gray85" :underline t))))
  9173. (vhdl-speedbar-entity-face ((t (:foreground "gray85"))))
  9174. (vhdl-speedbar-entity-selected-face ((t (:foreground "gray85" :underline t))))
  9175. (vhdl-speedbar-instantiation-face ((t (:foreground "gray85"))))
  9176. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "gray85" :underline t))))
  9177. (vhdl-speedbar-package-face ((t (:foreground "gray85"))))
  9178. (vhdl-speedbar-package-selected-face ((t (:foreground "gray85" :underline t))))
  9179. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  9180. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  9181. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  9182. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  9183. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  9184. (vm-header-content-face ((t (:italic t :foreground "wheat" :slant italic))))
  9185. (vm-header-from-face ((t (:italic t :foreground "wheat" :slant italic))))
  9186. (vm-header-name-face ((t (:foreground "cyan"))))
  9187. (vm-header-subject-face ((t (:foreground "cyan"))))
  9188. (vm-header-to-face ((t (:italic t :foreground "cyan" :slant italic))))
  9189. (vm-message-cited-face ((t (:foreground "Gray80"))))
  9190. (vm-monochrome-image ((t (:background "white" :foreground "gray30"))))
  9191. (vm-summary-face-1 ((t (:foreground "MediumAquamarine"))))
  9192. (vm-summary-face-2 ((t (:foreground "MediumAquamarine"))))
  9193. (vm-summary-face-3 ((t (:foreground "MediumAquamarine"))))
  9194. (vm-summary-face-4 ((t (:foreground "MediumAquamarine"))))
  9195. (vm-summary-highlight-face ((t (:foreground "White"))))
  9196. (vm-xface ((t (:background "white" :foreground "gray30"))))
  9197. (vmpc-pre-sig-face ((t (:foreground "gray85"))))
  9198. (vmpc-sig-face ((t (:foreground "gray85"))))
  9199. (vvb-face ((t (:background "pink" :foreground "gray30"))))
  9200. (w3m-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
  9201. (w3m-arrived-anchor-face ((t (:bold t :foreground "gray85" :weight bold))))
  9202. (w3m-header-line-location-content-face ((t (:background "dark olive green" :foreground "wheat"))))
  9203. (w3m-header-line-location-title-face ((t (:background "dark olive green" :foreground "beige"))))
  9204. (white ((t (:foreground "white"))))
  9205. (widget ((t (nil))))
  9206. (widget-button-face ((t (:bold t :weight bold))))
  9207. (widget-button-pressed-face ((t (:foreground "gray85"))))
  9208. (widget-documentation-face ((t (:foreground "dark green"))))
  9209. (widget-field-face ((t (:background "gray85" :foreground "gray30"))))
  9210. (widget-inactive-face ((t (:foreground "dim gray"))))
  9211. (widget-single-line-field-face ((t (:background "dim gray" :foreground "white"))))
  9212. (woman-addition-face ((t (:foreground "orange"))))
  9213. (woman-bold-face ((t (:bold t :weight bold))))
  9214. (woman-italic-face ((t (:foreground "beige"))))
  9215. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  9216. (x-face ((t (:background "white" :foreground "gray30"))))
  9217. (xrdb-option-name-face ((t (:foreground "gray85"))))
  9218. (xref-keyword-face ((t (:foreground "gray85"))))
  9219. (xref-list-default-face ((t (nil))))
  9220. (xref-list-pilot-face ((t (:foreground "gray85"))))
  9221. (xref-list-symbol-face ((t (:foreground "navy"))))
  9222. (xsl-fo-alternate-face ((t (:foreground "Yellow"))))
  9223. (xsl-fo-main-face ((t (:foreground "PaleGreen"))))
  9224. (xsl-other-element-face ((t (:foreground "Coral"))))
  9225. (xsl-xslt-alternate-face ((t (:foreground "LightGray"))))
  9226. (xsl-xslt-main-face ((t (:foreground "Wheat"))))
  9227. (xxml-emph-1-face ((t (:background "lightyellow"))))
  9228. (xxml-emph-2-face ((t (:background "lightyellow"))))
  9229. (xxml-header-1-face ((t (:background "seashell1" :foreground "MediumAquamarine"))))
  9230. (xxml-header-2-face ((t (:background "seashell1" :foreground "SkyBlue"))))
  9231. (xxml-header-3-face ((t (:background "seashell1"))))
  9232. (xxml-header-4-face ((t (:background "seashell1"))))
  9233. (xxml-interaction-face ((t (:background "lightcyan"))))
  9234. (xxml-rug-face ((t (:background "cyan"))))
  9235. (xxml-sparkle-face ((t (:background "yellow"))))
  9236. (xxml-unbreakable-space-face ((t (:foreground "grey" :underline t))))
  9237. (yellow ((t (:foreground "yellow"))))
  9238. (zmacs-region ((t (:background "Cyan4")))))))
  9239. (defun color-theme-blue-mood ()
  9240. "Color theme by Nelson Loyola, created 2002-04-15.
  9241. Includes cperl, custom, font-lock, p4, speedbar, widget."
  9242. (interactive)
  9243. (color-theme-install
  9244. '(color-theme-blue-mood
  9245. ((background-color . "DodgerBlue4")
  9246. (background-mode . dark)
  9247. (background-toolbar-color . "#bfbfbfbfbfbf")
  9248. (border-color . "Blue")
  9249. (border-color . "#000000000000")
  9250. (bottom-toolbar-shadow-color . "#6c6c68686868")
  9251. (cursor-color . "DarkGoldenrod1")
  9252. (foreground-color . "white smoke")
  9253. (mouse-color . "black")
  9254. (top-toolbar-shadow-color . "#e5e5e0e0e1e1"))
  9255. ((vc-annotate-very-old-color . "#0046FF"))
  9256. (default ((t (nil))))
  9257. (blue ((t (:foreground "blue"))))
  9258. (bold ((t (:bold t))))
  9259. (bold-italic ((t (nil))))
  9260. (border-glyph ((t (nil))))
  9261. (cmode-bracket-face ((t (:bold t))))
  9262. (cperl-array-face ((t (:bold t :foreground "wheat"))))
  9263. (cperl-hash-face ((t (:bold t :foreground "chartreuse"))))
  9264. (custom-button-face ((t (nil))))
  9265. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  9266. (custom-documentation-face ((t (nil))))
  9267. (custom-face-tag-face ((t (:underline t))))
  9268. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  9269. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  9270. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  9271. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  9272. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  9273. (custom-saved-face ((t (:underline t))))
  9274. (custom-set-face ((t (:background "white" :foreground "blue"))))
  9275. (custom-state-face ((t (:bold t :foreground "cyan"))))
  9276. (custom-variable-button-face ((t (:underline t :bold t))))
  9277. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  9278. (ff-paths-non-existant-file-face ((t (:bold t :foreground "NavyBlue"))))
  9279. (font-lock-builtin-face ((t (:bold t :foreground "wheat"))))
  9280. (font-lock-comment-face ((t (:bold t :foreground "gray72"))))
  9281. (font-lock-constant-face ((t (:bold t :foreground "cyan3"))))
  9282. (font-lock-doc-string-face ((t (:foreground "#00C000"))))
  9283. (font-lock-function-name-face ((t (:bold t :foreground "chartreuse"))))
  9284. (font-lock-keyword-face ((t (:bold t :foreground "gold1"))))
  9285. (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1"))))
  9286. (font-lock-other-type-face ((t (:bold t :foreground "gold1"))))
  9287. (font-lock-preprocessor-face ((t (:foreground "plum"))))
  9288. (font-lock-reference-face ((t (:bold t :foreground "orangered"))))
  9289. (font-lock-string-face ((t (:foreground "tomato"))))
  9290. (font-lock-type-face ((t (:bold t :foreground "gold1"))))
  9291. (font-lock-variable-name-face ((t (:foreground "light yellow"))))
  9292. (font-lock-warning-face ((t (:foreground "tomato"))))
  9293. (green ((t (:foreground "green"))))
  9294. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  9295. (gui-element ((t (:size "nil" :background "#e7e3d6" :foreground" #000000"))))
  9296. (highlight ((t (:background "red" :foreground "yellow"))))
  9297. (isearch ((t (:bold t :background "pale turquoise" :foreground "blue"))))
  9298. (italic ((t (nil))))
  9299. (lazy-highlight-face ((t (:bold t :foreground "dark magenta"))))
  9300. (left-margin ((t (nil))))
  9301. (list-mode-item-selected ((t (:bold t :background "gray68" :foreground "yellow"))))
  9302. (modeline ((t (:background "goldenrod" :foreground "darkblue"))))
  9303. (modeline-buffer-id ((t (:background "goldenrod" :foreground "darkblue"))))
  9304. (modeline-mousable ((t (:background "goldenrod" :foreground "darkblue"))))
  9305. (modeline-mousable-minor-mode ((t (:background "goldenrod" :foreground "darkblue"))))
  9306. (my-tab-face ((t (:background "SlateBlue1"))))
  9307. (p4-depot-added-face ((t (:foreground "steelblue1"))))
  9308. (p4-depot-deleted-face ((t (:foreground "red"))))
  9309. (p4-depot-unmapped-face ((t (:foreground "grey90"))))
  9310. (p4-diff-change-face ((t (:foreground "dark green"))))
  9311. (p4-diff-del-face ((t (:bold t :foreground "salmon"))))
  9312. (p4-diff-file-face ((t (:background "blue"))))
  9313. (p4-diff-head-face ((t (:background "blue"))))
  9314. (p4-diff-ins-face ((t (:foreground "steelblue1"))))
  9315. (paren-blink-off ((t (:foreground "DodgerBlue4"))))
  9316. (paren-match ((t (:background "red" :foreground "yellow"))))
  9317. (paren-mismatch ((t (:background "DeepPink"))))
  9318. (pointer ((t (:background "white"))))
  9319. (primary-selection ((t (:bold t :background "medium sea green"))))
  9320. (red ((t (:foreground "red"))))
  9321. (region ((t (:background "red" :foreground "yellow"))))
  9322. (right-margin ((t (nil))))
  9323. (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
  9324. (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
  9325. (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
  9326. (show-trailing-whitespace ((t (:background "red" :foreground "blue"))))
  9327. (speedbar-button-face ((t (:foreground "white"))))
  9328. (speedbar-directory-face ((t (:foreground "gray"))))
  9329. (speedbar-file-face ((t (:foreground "gold1"))))
  9330. (speedbar-highlight-face ((t (:background "lightslateblue" :foreground "gold1"))))
  9331. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  9332. (speedbar-tag-face ((t (:foreground "chartreuse"))))
  9333. (text-cursor ((t (:background "DarkGoldenrod1" :foreground "DodgerBlue4"))))
  9334. (toolbar ((t (:background "#e7e3d6" :foreground "#000000"))))
  9335. (underline ((t (:underline t))))
  9336. (vertical-divider ((t (:background "#e7e3d6" :foreground "#000000"))))
  9337. (widget-button-face ((t (:bold t))))
  9338. (widget-button-pressed-face ((t (:foreground "red"))))
  9339. (widget-documentation-face ((t (:foreground "dark green"))))
  9340. (widget-field-face ((t (:background "gray85"))))
  9341. (widget-inactive-face ((t (:foreground "dim gray"))))
  9342. (widget-single-line-field-face ((t (:background "gray85"))))
  9343. (yellow ((t (:foreground "yellow"))))
  9344. (zmacs-region ((t (:background "white" :foreground "midnightblue")))))))
  9345. (defun color-theme-euphoria ()
  9346. "Color theme by oGLOWo, created 2000-04-19.
  9347. Green on black theme including font-lock, speedbar, and widget."
  9348. (interactive)
  9349. (color-theme-install
  9350. '(color-theme-euphoria
  9351. ((background-color . "black")
  9352. (background-mode . dark)
  9353. (border-color . "black")
  9354. (cursor-color . "yellow")
  9355. (foreground-color . "#00ff00")
  9356. (mouse-color . "yellow"))
  9357. ((help-highlight-face . underline)
  9358. (list-matching-lines-face . bold)
  9359. (widget-mouse-face . highlight))
  9360. (default ((t (:stipple nil :background "black" :foreground "#00ff00" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
  9361. (bold ((t (:bold t :weight bold))))
  9362. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  9363. (border ((t (:background "black"))))
  9364. (comint-highlight-input ((t (:bold t :weight bold))))
  9365. (comint-highlight-prompt ((t (:foreground "cyan"))))
  9366. (cursor ((t (:background "yellow"))))
  9367. (fixed-pitch ((t (:family "courier"))))
  9368. (font-lock-builtin-face ((t (:foreground "magenta"))))
  9369. (font-lock-comment-face ((t (:foreground "deeppink"))))
  9370. (font-lock-constant-face ((t (:foreground "blue"))))
  9371. (font-lock-doc-face ((t (:foreground "cyan"))))
  9372. (font-lock-doc-string-face ((t (:foreground "cyan"))))
  9373. (font-lock-function-name-face ((t (:foreground "purple"))))
  9374. (font-lock-keyword-face ((t (:foreground "red"))))
  9375. (font-lock-preprocessor-face ((t (:foreground "blue1"))))
  9376. (font-lock-reference-face ((t (nil))))
  9377. (font-lock-string-face ((t (:foreground "cyan"))))
  9378. (font-lock-type-face ((t (:foreground "yellow"))))
  9379. (font-lock-variable-name-face ((t (:foreground "violet"))))
  9380. (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
  9381. (fringe ((t (:background "gray16" :foreground "#00ff00"))))
  9382. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  9383. (highlight ((t (:background "darkolivegreen"))))
  9384. (horizontal-divider ((t (:background "gray16" :foreground "#00ff00"))))
  9385. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  9386. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  9387. (italic ((t (:italic t :slant italic))))
  9388. (menu ((t (:background "gray16" :foreground "green"))))
  9389. (modeline ((t (:background "gray16" :foreground "#00ff00" :box (:line-width -1 :style released-button)))))
  9390. (modeline-buffer-id ((t (:background "gray16" :foreground "#00ff00"))))
  9391. (modeline-mousable ((t (:background "gray16" :foreground "#00ff00"))))
  9392. (modeline-mousable-minor-mode ((t (:background "gray16" :foreground "#00ff00"))))
  9393. (mouse ((t (:background "yellow"))))
  9394. (primary-selection ((t (:background "#00ff00" :foreground "black"))))
  9395. (region ((t (:background "steelblue" :foreground "white"))))
  9396. (scroll-bar ((t (:background "gray16" :foreground "#00ff00"))))
  9397. (secondary-selection ((t (:background "#00ff00" :foreground "black"))))
  9398. (show-paren-match-face ((t (:background "turquoise"))))
  9399. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  9400. (speedbar-button-face ((t (:foreground "#00ff00"))))
  9401. (speedbar-directory-face ((t (:foreground "#00ff00"))))
  9402. (speedbar-file-face ((t (:foreground "cyan"))))
  9403. (speedbar-highlight-face ((t (:background "#00ff00" :foreground "purple"))))
  9404. (speedbar-selected-face ((t (:foreground "deeppink" :underline t))))
  9405. (speedbar-tag-face ((t (:foreground "yellow"))))
  9406. (tool-bar ((t (:background "gray16" :foreground "green" :box (:line-width 1 :style released-button)))))
  9407. (tooltip ((t (:background "gray16" :foreground "#00ff00"))))
  9408. (trailing-whitespace ((t (:background "red"))))
  9409. (underline ((t (:underline t))))
  9410. (variable-pitch ((t (:family "helv"))))
  9411. (vertical-divider ((t (:background "gray16" :foreground "#00ff00"))))
  9412. (widget-button-face ((t (:bold t :weight bold))))
  9413. (widget-button-pressed-face ((t (:foreground "red"))))
  9414. (widget-documentation-face ((t (:foreground "lime green"))))
  9415. (widget-field-face ((t (:background "dim gray"))))
  9416. (widget-inactive-face ((t (:foreground "light gray"))))
  9417. (widget-single-line-field-face ((t (:background "dim gray"))))
  9418. (zmacs-region ((t (:background "steelblue" :foreground "white")))))))
  9419. (defun color-theme-resolve ()
  9420. "Color theme by Damien Elmes, created 2002-04-24.
  9421. A white smoke on blue color theme."
  9422. (interactive)
  9423. (color-theme-install
  9424. '(color-theme-resolve
  9425. ((background-color . "#00457f")
  9426. (background-mode . dark)
  9427. (border-color . "black")
  9428. (cursor-color . "DarkGoldenrod1")
  9429. (foreground-color . "white smoke")
  9430. (mouse-color . "white"))
  9431. ((display-time-mail-face . mode-line)
  9432. (help-highlight-face . underline)
  9433. (list-matching-lines-face . bold)
  9434. (view-highlight-face . highlight)
  9435. (widget-mouse-face . highlight))
  9436. (default ((t (:stipple nil :background "#00457f" :foreground "white smoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "b&h-lucidatypewriter"))))
  9437. (bold ((t (:bold t :foreground "snow2" :weight bold))))
  9438. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  9439. (border ((t (:background "black"))))
  9440. (calendar-today-face ((t (:underline t))))
  9441. (comint-highlight-input ((t (:bold t :weight bold))))
  9442. (comint-highlight-prompt ((t (:foreground "cyan"))))
  9443. (cperl-array-face ((t (:bold t :foreground "wheat" :weight bold))))
  9444. (cperl-hash-face ((t (:bold t :foreground "chartreuse" :weight bold))))
  9445. (cursor ((t (:background "DarkGoldenrod1"))))
  9446. (diary-face ((t (:foreground "yellow"))))
  9447. (erc-input-face ((t (:foreground "lightblue2"))))
  9448. (erc-notice-face ((t (:foreground "lightyellow3"))))
  9449. (fixed-pitch ((t (:family "courier"))))
  9450. (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
  9451. (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
  9452. (font-latex-math-face ((t (:foreground "burlywood"))))
  9453. (font-latex-sedate-face ((t (:foreground "LightGray"))))
  9454. (font-latex-string-face ((t (:foreground "RosyBrown"))))
  9455. (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  9456. (font-lock-builtin-face ((t (:foreground "wheat"))))
  9457. (font-lock-comment-face ((t (:foreground "light steel blue"))))
  9458. (font-lock-constant-face ((t (:foreground "seashell3"))))
  9459. (font-lock-doc-face ((t (:foreground "plum"))))
  9460. (font-lock-doc-string-face ((t (:foreground "#008000"))))
  9461. (font-lock-function-name-face ((t (:foreground "thistle1"))))
  9462. (font-lock-keyword-face ((t (:foreground "wheat"))))
  9463. (font-lock-other-emphasized-face ((t (:bold t :foreground "gold1" :weight bold))))
  9464. (font-lock-other-type-face ((t (:bold t :foreground "gold1" :weight bold))))
  9465. (font-lock-preprocessor-face ((t (:foreground "#800080"))))
  9466. (font-lock-reference-face ((t (:foreground "wheat"))))
  9467. (font-lock-string-face ((t (:foreground "plum"))))
  9468. (font-lock-type-face ((t (:foreground "lawn green"))))
  9469. (font-lock-variable-name-face ((t (:foreground "light yellow"))))
  9470. (font-lock-warning-face ((t (:foreground "plum"))))
  9471. (fringe ((t (:background "#000000"))))
  9472. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  9473. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  9474. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  9475. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  9476. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  9477. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  9478. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  9479. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  9480. (gnus-cite-face-6 ((t (:foreground "beige"))))
  9481. (gnus-cite-face-7 ((t (:foreground "orange"))))
  9482. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  9483. (gnus-cite-face-9 ((t (:foreground "violet"))))
  9484. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  9485. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  9486. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  9487. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  9488. (gnus-emphasis-underline ((t (:underline t))))
  9489. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  9490. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  9491. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  9492. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  9493. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
  9494. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  9495. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
  9496. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  9497. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
  9498. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  9499. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
  9500. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  9501. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  9502. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  9503. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  9504. (gnus-group-news-3-empty-face ((t (nil))))
  9505. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  9506. (gnus-group-news-4-empty-face ((t (nil))))
  9507. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  9508. (gnus-group-news-5-empty-face ((t (nil))))
  9509. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  9510. (gnus-group-news-6-empty-face ((t (nil))))
  9511. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  9512. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  9513. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
  9514. (gnus-header-content-face ((t (:italic t :foreground "snow2" :slant italic))))
  9515. (gnus-header-from-face ((t (:foreground "spring green"))))
  9516. (gnus-header-name-face ((t (:bold t :foreground "snow2" :weight bold))))
  9517. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
  9518. (gnus-header-subject-face ((t (:bold t :foreground "peach puff" :weight bold))))
  9519. (gnus-signature-face ((t (:italic t :slant italic))))
  9520. (gnus-splash-face ((t (:foreground "Brown"))))
  9521. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  9522. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  9523. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  9524. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
  9525. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  9526. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
  9527. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
  9528. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
  9529. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  9530. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  9531. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  9532. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  9533. (gnus-summary-normal-unread-face ((t (nil))))
  9534. (gnus-summary-selected-face ((t (:underline t))))
  9535. (header-line ((t (:background "grey20" :foreground "grey90"))))
  9536. (highlight ((t (:background "gray91" :foreground "firebrick"))))
  9537. (highline-face ((t (:background "paleturquoise" :foreground "black"))))
  9538. (holiday-face ((t (:background "chocolate4"))))
  9539. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  9540. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  9541. (italic ((t (:italic t :slant italic))))
  9542. (menu ((t (nil))))
  9543. (message-cited-text-face ((t (:foreground "seashell3"))))
  9544. (message-header-cc-face ((t (:bold t :foreground "snow2" :weight bold))))
  9545. (message-header-name-face ((t (:bold t :foreground "snow1" :weight bold))))
  9546. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
  9547. (message-header-other-face ((t (:foreground "snow2"))))
  9548. (message-header-subject-face ((t (:bold t :foreground "snow2" :weight bold))))
  9549. (message-header-to-face ((t (:bold t :foreground "snow2" :weight bold))))
  9550. (message-header-xheader-face ((t (:foreground "blue"))))
  9551. (message-mml-face ((t (:foreground "ForestGreen"))))
  9552. (message-separator-face ((t (:foreground "misty rose"))))
  9553. (modeline ((t (:foreground "white" :background "#001040" :box (:line-width -1 :style released-button)))))
  9554. (modeline-buffer-id ((t (:foreground "white" :background "#001040"))))
  9555. (modeline-mousable ((t (:foreground "white" :background "#001040"))))
  9556. (modeline-mousable-minor-mode ((t (:foreground "white" :background "#001040"))))
  9557. (mouse ((t (:background "white"))))
  9558. (my-tab-face ((t (:background "SlateBlue1"))))
  9559. (p4-diff-del-face ((t (:bold t :foreground "salmon" :weight bold))))
  9560. (primary-selection ((t (:background "gray91" :foreground "DodgerBlue4"))))
  9561. (region ((t (:background "gray91" :foreground "DodgerBlue4"))))
  9562. (scroll-bar ((t (:background "grey75"))))
  9563. (secondary-selection ((t (:background "gray91" :foreground "sienna3"))))
  9564. (show-paren-match-face ((t (:background "cyan3" :foreground "blue"))))
  9565. (show-paren-mismatch-face ((t (:background "red" :foreground "blue"))))
  9566. (tool-bar ((t (:background "grey75" :foreground "black"))))
  9567. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  9568. (trailing-whitespace ((t (:background "red"))))
  9569. (underline ((t (:underline t))))
  9570. (variable-pitch ((t (:family "helv"))))
  9571. (widget-button-face ((t (:bold t :weight bold))))
  9572. (widget-button-pressed-face ((t (:foreground "red"))))
  9573. (widget-documentation-face ((t (:foreground "dark green"))))
  9574. (widget-field-face ((t (:background "steel blue"))))
  9575. (widget-inactive-face ((t (:foreground "grey"))))
  9576. (widget-single-line-field-face ((t (:background "gray85"))))
  9577. (zmacs-region ((t (:background "gray91" :foreground "DodgerBlue4")))))))
  9578. (defun color-theme-xp ()
  9579. "Color theme by Girish Bharadwaj, created 2002-04-25.
  9580. Includes custom, erc, font-lock, jde, semantic, speedbar, widget."
  9581. (interactive)
  9582. (color-theme-install
  9583. '(color-theme-xp
  9584. ((background-color . "lightyellow2")
  9585. (background-mode . light)
  9586. (border-color . "black")
  9587. (cursor-color . "black")
  9588. (foreground-color . "gray20")
  9589. (mouse-color . "black"))
  9590. ((help-highlight-face . underline)
  9591. (list-matching-lines-face . bold)
  9592. (semantic-which-function-use-color . t)
  9593. (senator-eldoc-use-color . t)
  9594. (view-highlight-face . highlight)
  9595. (widget-mouse-face . highlight))
  9596. (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
  9597. (bg:erc-color-face0 ((t (:background "White"))))
  9598. (bg:erc-color-face1 ((t (:background "black"))))
  9599. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  9600. (bg:erc-color-face11 ((t (:background "cyan"))))
  9601. (bg:erc-color-face12 ((t (:background "blue"))))
  9602. (bg:erc-color-face13 ((t (:background "deeppink"))))
  9603. (bg:erc-color-face14 ((t (:background "gray50"))))
  9604. (bg:erc-color-face15 ((t (:background "gray90"))))
  9605. (bg:erc-color-face2 ((t (:background "blue4"))))
  9606. (bg:erc-color-face3 ((t (:background "green4"))))
  9607. (bg:erc-color-face4 ((t (:background "red"))))
  9608. (bg:erc-color-face5 ((t (:background "brown"))))
  9609. (bg:erc-color-face6 ((t (:background "purple"))))
  9610. (bg:erc-color-face7 ((t (:background "orange"))))
  9611. (bg:erc-color-face8 ((t (:background "yellow"))))
  9612. (bg:erc-color-face9 ((t (:background "green"))))
  9613. (bold ((t (:bold t :weight bold))))
  9614. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  9615. (border ((t (:background "black"))))
  9616. (button ((t (:underline t))))
  9617. (comint-highlight-input ((t (:bold t :weight bold))))
  9618. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  9619. (cursor ((t (:background "black"))))
  9620. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  9621. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  9622. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  9623. (custom-comment-face ((t (:background "gray85"))))
  9624. (custom-comment-tag-face ((t (:foreground "blue4"))))
  9625. (custom-documentation-face ((t (nil))))
  9626. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  9627. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  9628. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
  9629. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  9630. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  9631. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  9632. (custom-saved-face ((t (:underline t))))
  9633. (custom-set-face ((t (:background "white" :foreground "blue"))))
  9634. (custom-state-face ((t (:foreground "dark green"))))
  9635. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  9636. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
  9637. (erc-action-face ((t (:bold t :weight bold))))
  9638. (erc-bold-face ((t (:bold t :weight bold))))
  9639. (erc-default-face ((t (nil))))
  9640. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  9641. (erc-error-face ((t (:background "Red" :foreground "White"))))
  9642. (erc-input-face ((t (:foreground "brown"))))
  9643. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  9644. (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
  9645. (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
  9646. (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
  9647. (erc-underline-face ((t (:underline t))))
  9648. (fg:erc-color-face0 ((t (:foreground "White"))))
  9649. (fg:erc-color-face1 ((t (:foreground "black"))))
  9650. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  9651. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  9652. (fg:erc-color-face12 ((t (:foreground "blue"))))
  9653. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  9654. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  9655. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  9656. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  9657. (fg:erc-color-face3 ((t (:foreground "green4"))))
  9658. (fg:erc-color-face4 ((t (:foreground "red"))))
  9659. (fg:erc-color-face5 ((t (:foreground "brown"))))
  9660. (fg:erc-color-face6 ((t (:foreground "purple"))))
  9661. (fg:erc-color-face7 ((t (:foreground "orange"))))
  9662. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  9663. (fg:erc-color-face9 ((t (:foreground "green"))))
  9664. (fixed-pitch ((t (:family "courier"))))
  9665. (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9))))
  9666. (font-lock-comment-face ((t (:italic t :foreground "gray60" :slant oblique :height 0.9))))
  9667. (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9))))
  9668. (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold))))
  9669. (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold))))
  9670. (font-lock-string-face ((t (:foreground "red" :height 0.9))))
  9671. (font-lock-type-face ((t (:foreground "Royalblue"))))
  9672. (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9))))
  9673. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  9674. (fringe ((t (:background "dodgerblue"))))
  9675. (header-line ((t (:underline "red" :overline "red" :background "grey90" :foreground "grey20" :box nil))))
  9676. (highlight ((t (:background "darkseagreen2"))))
  9677. (isearch ((t (:background "magenta2" :foreground "lightskyblue1"))))
  9678. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  9679. (italic ((t (:italic t :slant italic))))
  9680. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  9681. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  9682. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  9683. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  9684. (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
  9685. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  9686. (jde-java-font-lock-code-face ((t (nil))))
  9687. (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
  9688. (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
  9689. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  9690. (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
  9691. (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
  9692. (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
  9693. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  9694. (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
  9695. (jde-java-font-lock-pre-face ((t (nil))))
  9696. (jde-java-font-lock-underline-face ((t (:underline t))))
  9697. (menu ((t (nil))))
  9698. (minibuffer-prompt ((t (:foreground "dark blue"))))
  9699. (modeline ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red"))))
  9700. (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black"))))
  9701. (modeline-mousable ((t (:background "dodgerblue" :foreground "black"))))
  9702. (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black"))))
  9703. (mode-line-inactive ((t (:italic t :underline "red" :overline "red" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
  9704. (mouse ((t (:background "black"))))
  9705. (primary-selection ((t (:background "lightgoldenrod2"))))
  9706. (region ((t (:background "lightgoldenrod2"))))
  9707. (scroll-bar ((t (nil))))
  9708. (secondary-selection ((t (:background "yellow"))))
  9709. (semantic-dirty-token-face ((t (:background "lightyellow"))))
  9710. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  9711. (senator-intangible-face ((t (:foreground "gray25"))))
  9712. (senator-momentary-highlight-face ((t (:background "gray70"))))
  9713. (senator-read-only-face ((t (:background "#CCBBBB"))))
  9714. (show-paren-match-face ((t (:background "turquoise"))))
  9715. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  9716. (speedbar-button-face ((t (:foreground "green4"))))
  9717. (speedbar-directory-face ((t (:foreground "blue4"))))
  9718. (speedbar-file-face ((t (:foreground "cyan4"))))
  9719. (speedbar-highlight-face ((t (:background "green"))))
  9720. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  9721. (speedbar-tag-face ((t (:foreground "brown"))))
  9722. (template-message-face ((t (:bold t :weight bold))))
  9723. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  9724. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  9725. (trailing-whitespace ((t (:background "red"))))
  9726. (underline ((t (:underline t))))
  9727. (variable-pitch ((t (:family "helv"))))
  9728. (widget-button-face ((t (:bold t :weight bold))))
  9729. (widget-button-pressed-face ((t (:foreground "red"))))
  9730. (widget-documentation-face ((t (:foreground "dark green"))))
  9731. (widget-field-face ((t (:background "gray85"))))
  9732. (widget-inactive-face ((t (:foreground "dim gray"))))
  9733. (widget-single-line-field-face ((t (:background "gray85"))))
  9734. (zmacs-region ((t (:background "lightgoldenrod2")))))))
  9735. (defun color-theme-gray30 ()
  9736. "Color theme by Girish Bharadwaj, created 2002-04-22."
  9737. (interactive)
  9738. (color-theme-install
  9739. '(color-theme-gray30
  9740. ((background-color . "grey30")
  9741. (background-mode . dark)
  9742. (border-color . "black")
  9743. (cursor-color . "black")
  9744. (foreground-color . "gainsboro")
  9745. (mouse-color . "black"))
  9746. ((help-highlight-face . underline)
  9747. (list-matching-lines-face . bold)
  9748. (semantic-which-function-use-color . t)
  9749. (senator-eldoc-use-color . t)
  9750. (widget-mouse-face . highlight))
  9751. (default ((t (:stipple nil :background "grey30" :foreground "gainsboro" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-courier new"))))
  9752. (bg:erc-color-face0 ((t (:background "White"))))
  9753. (bg:erc-color-face1 ((t (:background "black"))))
  9754. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  9755. (bg:erc-color-face11 ((t (:background "cyan"))))
  9756. (bg:erc-color-face12 ((t (:background "blue"))))
  9757. (bg:erc-color-face13 ((t (:background "deeppink"))))
  9758. (bg:erc-color-face14 ((t (:background "gray50"))))
  9759. (bg:erc-color-face15 ((t (:background "gray90"))))
  9760. (bg:erc-color-face2 ((t (:background "blue4"))))
  9761. (bg:erc-color-face3 ((t (:background "green4"))))
  9762. (bg:erc-color-face4 ((t (:background "red"))))
  9763. (bg:erc-color-face5 ((t (:background "brown"))))
  9764. (bg:erc-color-face6 ((t (:background "purple"))))
  9765. (bg:erc-color-face7 ((t (:background "orange"))))
  9766. (bg:erc-color-face8 ((t (:background "yellow"))))
  9767. (bg:erc-color-face9 ((t (:background "green"))))
  9768. (bold ((t (:bold t :weight bold))))
  9769. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  9770. (border ((t (:background "black"))))
  9771. (button ((t (:underline t))))
  9772. (comint-highlight-input ((t (:bold t :weight bold))))
  9773. (comint-highlight-prompt ((t (:foreground "cyan"))))
  9774. (cursor ((t (:background "black"))))
  9775. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  9776. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  9777. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  9778. (custom-comment-face ((t (:background "dim gray"))))
  9779. (custom-comment-tag-face ((t (:foreground "gray80"))))
  9780. (custom-documentation-face ((t (nil))))
  9781. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  9782. (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
  9783. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
  9784. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  9785. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  9786. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  9787. (custom-saved-face ((t (:underline t))))
  9788. (custom-set-face ((t (:background "white" :foreground "blue"))))
  9789. (custom-state-face ((t (:foreground "lime green"))))
  9790. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  9791. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
  9792. (erc-action-face ((t (:bold t :weight bold))))
  9793. (erc-bold-face ((t (:bold t :weight bold))))
  9794. (erc-default-face ((t (nil))))
  9795. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  9796. (erc-error-face ((t (:background "Red" :foreground "White"))))
  9797. (erc-input-face ((t (:foreground "brown"))))
  9798. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  9799. (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
  9800. (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
  9801. (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
  9802. (erc-underline-face ((t (:underline t))))
  9803. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
  9804. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  9805. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  9806. (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  9807. (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
  9808. (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
  9809. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  9810. (eshell-ls-readonly-face ((t (:foreground "Pink"))))
  9811. (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
  9812. (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
  9813. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  9814. (fg:erc-color-face0 ((t (:foreground "White"))))
  9815. (fg:erc-color-face1 ((t (:foreground "black"))))
  9816. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  9817. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  9818. (fg:erc-color-face12 ((t (:foreground "blue"))))
  9819. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  9820. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  9821. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  9822. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  9823. (fg:erc-color-face3 ((t (:foreground "green4"))))
  9824. (fg:erc-color-face4 ((t (:foreground "red"))))
  9825. (fg:erc-color-face5 ((t (:foreground "brown"))))
  9826. (fg:erc-color-face6 ((t (:foreground "purple"))))
  9827. (fg:erc-color-face7 ((t (:foreground "orange"))))
  9828. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  9829. (fg:erc-color-face9 ((t (:foreground "green"))))
  9830. (fixed-pitch ((t (:family "courier"))))
  9831. (font-lock-builtin-face ((t (:foreground "LightSkyBlue" :underline t))))
  9832. (font-lock-comment-face ((t (:italic t :foreground "lightgreen" :slant oblique))))
  9833. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  9834. (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold :height 1.05))))
  9835. (font-lock-keyword-face ((t (:foreground "LightPink" :height 1.05))))
  9836. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  9837. (font-lock-type-face ((t (:foreground "yellow" :height 1.05))))
  9838. (font-lock-variable-name-face ((t (:foreground "gold"))))
  9839. (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  9840. (fringe ((t (:background "grey10"))))
  9841. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  9842. (highlight ((t (:background "darkolivegreen"))))
  9843. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  9844. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  9845. (italic ((t (:italic t :slant italic))))
  9846. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  9847. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  9848. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  9849. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  9850. (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
  9851. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  9852. (jde-java-font-lock-code-face ((t (nil))))
  9853. (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
  9854. (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
  9855. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  9856. (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
  9857. (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
  9858. (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
  9859. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  9860. (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
  9861. (jde-java-font-lock-pre-face ((t (nil))))
  9862. (jde-java-font-lock-underline-face ((t (:underline t))))
  9863. (menu ((t (nil))))
  9864. (minibuffer-prompt ((t (:foreground "cyan"))))
  9865. (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  9866. (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light))))
  9867. (mouse ((t (:background "black"))))
  9868. (primary-selection ((t (:background "blue3"))))
  9869. (region ((t (:background "blue3"))))
  9870. (scroll-bar ((t (nil))))
  9871. (secondary-selection ((t (:background "SkyBlue4"))))
  9872. (semantic-dirty-token-face ((t (:background "lightyellow"))))
  9873. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  9874. (senator-intangible-face ((t (:foreground "gray75"))))
  9875. (senator-momentary-highlight-face ((t (:background "gray30"))))
  9876. (senator-read-only-face ((t (:background "#664444"))))
  9877. (show-paren-match-face ((t (:background "steelblue3"))))
  9878. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  9879. (speedbar-button-face ((t (:foreground "green3"))))
  9880. (speedbar-directory-face ((t (:foreground "light blue"))))
  9881. (speedbar-file-face ((t (:foreground "cyan"))))
  9882. (speedbar-highlight-face ((t (:background "sea green"))))
  9883. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  9884. (speedbar-tag-face ((t (:foreground "yellow"))))
  9885. (template-message-face ((t (:bold t :weight bold))))
  9886. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  9887. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  9888. (trailing-whitespace ((t (:background "red"))))
  9889. (underline ((t (:underline t))))
  9890. (variable-pitch ((t (:family "helv"))))
  9891. (widget-button-face ((t (:bold t :weight bold))))
  9892. (widget-button-pressed-face ((t (:foreground "red"))))
  9893. (widget-documentation-face ((t (:foreground "lime green"))))
  9894. (widget-field-face ((t (:background "dim gray"))))
  9895. (widget-inactive-face ((t (:foreground "light gray"))))
  9896. (widget-single-line-field-face ((t (:background "dim gray"))))
  9897. (zmacs-region ((t (:background "blue3")))))))
  9898. (defun color-theme-dark-green ()
  9899. "Color theme by ces93, created 2002-03-30."
  9900. (interactive)
  9901. (color-theme-install
  9902. '(color-theme-dark-green
  9903. ((background-mode . light)
  9904. (background-toolbar-color . "#e79ddf7ddf7d")
  9905. (border-color . "#000000000000")
  9906. (bottom-toolbar-shadow-color . "#8e3886178617")
  9907. (top-toolbar-shadow-color . "#ffffffffffff"))
  9908. nil
  9909. (default ((t (nil))))
  9910. (blue ((t (:foreground "blue"))))
  9911. (bold ((t (:bold t))))
  9912. (bold-italic ((t (:italic t :bold t))))
  9913. (border-glyph ((t (nil))))
  9914. (fringe ((t (nil))))
  9915. (green ((t (:foreground "green"))))
  9916. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  9917. (gui-element ((t (:background "#ffffff" :foreground "#000000"))))
  9918. (highlight ((t (:background "gray" :foreground "darkred"))))
  9919. (isearch ((t (:background "LightSlateGray" :foreground "red"))))
  9920. (italic ((t (:italic t))))
  9921. (left-margin ((t (nil))))
  9922. (list-mode-item-selected ((t (:background "gray68"))))
  9923. (mode-line ((t (:background "LightSlateGray" :foreground "black"))))
  9924. (modeline ((t (:background "LightSlateGray" :foreground "black"))))
  9925. (modeline-buffer-id ((t (:background "LightSlateGray" :foreground "blue4"))))
  9926. (modeline-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
  9927. (modeline-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "green4"))))
  9928. (pointer ((t (:background "#ffffff" :foreground "#000000"))))
  9929. (primary-selection ((t (:background "gray65"))))
  9930. (red ((t (:foreground "red"))))
  9931. (region ((t (:background "gray65"))))
  9932. (right-margin ((t (nil))))
  9933. (rpm-spec-dir-face ((t (:foreground "green"))))
  9934. (rpm-spec-doc-face ((t (:foreground "magenta"))))
  9935. (rpm-spec-ghost-face ((t (:foreground "red"))))
  9936. (rpm-spec-macro-face ((t (:foreground "purple"))))
  9937. (rpm-spec-package-face ((t (:foreground "red"))))
  9938. (rpm-spec-tag-face ((t (:foreground "blue"))))
  9939. (secondary-selection ((t (:background "paleturquoise"))))
  9940. (text-cursor ((t (:background "Red3" :foreground "DarkSlateGray"))))
  9941. (tool-bar ((t (nil))))
  9942. (toolbar ((t (:background "#ffffff" :foreground "#000000"))))
  9943. (underline ((t (:underline t))))
  9944. (vertical-divider ((t (:background "#ffffff" :foreground "#000000"))))
  9945. (widget-button-face ((t (:bold t))))
  9946. (widget-button-pressed-face ((t (:foreground "red"))))
  9947. (widget-documentation-face ((t (:foreground "dark green"))))
  9948. (widget-field-face ((t (:background "gray85"))))
  9949. (widget-inactive-face ((t (:foreground "dim gray"))))
  9950. (yellow ((t (:foreground "yellow"))))
  9951. (zmacs-region ((t (:background "darkorange" :foreground "black")))))))
  9952. (defun color-theme-whateveryouwant ()
  9953. "Color theme by Fabien Penso, created 2002-05-02."
  9954. (interactive)
  9955. (color-theme-install
  9956. '(color-theme-whateveryouwant
  9957. ((background-color . "white")
  9958. (background-mode . light)
  9959. (border-color . "black")
  9960. (cursor-color . "black")
  9961. (foreground-color . "black")
  9962. (mouse-color . "black"))
  9963. ((cperl-here-face . font-lock-string-face)
  9964. (cperl-invalid-face . underline)
  9965. (cperl-pod-face . font-lock-comment-face)
  9966. (cperl-pod-head-face . font-lock-variable-name-face)
  9967. (display-time-mail-face . mode-line)
  9968. (gnus-article-button-face . bold)
  9969. (gnus-article-mouse-face . highlight)
  9970. (gnus-carpal-button-face . bold)
  9971. (gnus-carpal-header-face . bold-italic)
  9972. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  9973. (gnus-mouse-face . highlight)
  9974. (gnus-selected-tree-face . modeline)
  9975. (gnus-signature-face . gnus-signature-face)
  9976. (gnus-summary-selected-face . gnus-summary-selected-face)
  9977. (gnus-treat-display-xface . head)
  9978. (help-highlight-face . underline)
  9979. (ispell-highlight-face . flyspell-incorrect-face)
  9980. (list-matching-lines-face . bold)
  9981. (sgml-set-face . t)
  9982. (view-highlight-face . highlight)
  9983. (widget-mouse-face . highlight)
  9984. (x-face-mouse-face . highlight))
  9985. (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
  9986. (Info-title-1-face ((t (:bold t :weight bold :height 1.728 :family "helv"))))
  9987. (Info-title-2-face ((t (:bold t :weight bold :height 1.44 :family "helv"))))
  9988. (Info-title-3-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
  9989. (Info-title-4-face ((t (:bold t :weight bold :family "helv"))))
  9990. (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
  9991. (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
  9992. (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
  9993. (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
  9994. (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
  9995. (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
  9996. (bbdb-company ((t (:italic t :slant italic))))
  9997. (bbdb-field-name ((t (:bold t :foreground "gray40" :weight bold))))
  9998. (bbdb-field-value ((t (nil))))
  9999. (bbdb-name ((t (:underline t))))
  10000. (bold ((t (:bold t :foreground "gray40" :weight bold))))
  10001. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  10002. (border ((t (:background "black"))))
  10003. (calendar-today-face ((t (:underline t))))
  10004. (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
  10005. (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
  10006. (change-log-date-face ((t (:foreground "RosyBrown"))))
  10007. (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
  10008. (change-log-file-face ((t (:foreground "Blue"))))
  10009. (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
  10010. (change-log-list-face ((t (:foreground "Purple"))))
  10011. (change-log-name-face ((t (:foreground "CadetBlue"))))
  10012. (comint-highlight-input ((t (:bold t :weight bold))))
  10013. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  10014. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
  10015. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
  10016. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  10017. (cursor ((t (:background "black"))))
  10018. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  10019. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  10020. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  10021. (custom-comment-face ((t (:background "gray85"))))
  10022. (custom-comment-tag-face ((t (:foreground "blue4"))))
  10023. (custom-documentation-face ((t (nil))))
  10024. (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
  10025. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  10026. (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv"))))
  10027. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  10028. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  10029. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  10030. (custom-saved-face ((t (:underline t))))
  10031. (custom-set-face ((t (:background "white" :foreground "blue"))))
  10032. (custom-state-face ((t (:foreground "dark green"))))
  10033. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  10034. (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv"))))
  10035. (cvs-filename-face ((t (:foreground "blue4"))))
  10036. (cvs-handled-face ((t (:foreground "pink"))))
  10037. (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
  10038. (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
  10039. (cvs-msg-face ((t (:italic t :slant italic))))
  10040. (cvs-need-action-face ((t (:foreground "orange"))))
  10041. (cvs-unknown-face ((t (:foreground "red"))))
  10042. (diary-face ((t (:foreground "red"))))
  10043. (diff-added-face ((t (nil))))
  10044. (diff-changed-face ((t (nil))))
  10045. (diff-context-face ((t (:foreground "grey50"))))
  10046. (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
  10047. (diff-function-face ((t (:foreground "grey50"))))
  10048. (diff-header-face ((t (:background "grey85"))))
  10049. (diff-hunk-header-face ((t (:background "grey85"))))
  10050. (diff-index-face ((t (:bold t :background "grey70" :weight bold))))
  10051. (diff-nonexistent-face ((t (:bold t :background "grey70" :weight bold))))
  10052. (diff-removed-face ((t (nil))))
  10053. (dired-face-boring ((t (:foreground "RosyBrown"))))
  10054. (dired-face-directory ((t (:foreground "Blue"))))
  10055. (dired-face-executable ((t (nil))))
  10056. (dired-face-flagged ((t (:bold t :foreground "Red" :weight bold))))
  10057. (dired-face-marked ((t (:bold t :foreground "Red" :weight bold))))
  10058. (dired-face-permissions ((t (nil))))
  10059. (dired-face-setuid ((t (nil))))
  10060. (dired-face-socket ((t (nil))))
  10061. (dired-face-symlink ((t (:foreground "Purple"))))
  10062. (ebrowse-default-face ((t (nil))))
  10063. (ebrowse-file-name-face ((t (:italic t :slant italic))))
  10064. (ebrowse-member-attribute-face ((t (:foreground "red"))))
  10065. (ebrowse-member-class-face ((t (:foreground "purple"))))
  10066. (ebrowse-progress-face ((t (:background "blue"))))
  10067. (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
  10068. (ebrowse-tree-mark-face ((t (:foreground "red"))))
  10069. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  10070. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  10071. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  10072. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  10073. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  10074. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  10075. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  10076. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  10077. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  10078. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  10079. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  10080. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  10081. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  10082. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  10083. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  10084. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  10085. (erc-action-face ((t (:bold t :weight bold))))
  10086. (erc-bold-face ((t (:bold t :weight bold))))
  10087. (erc-default-face ((t (nil))))
  10088. (erc-direct-msg-face ((t (:foreground "LightSalmon"))))
  10089. (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  10090. (erc-input-face ((t (:foreground "Beige"))))
  10091. (erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
  10092. (erc-notice-face ((t (:foreground "MediumAquamarine"))))
  10093. (erc-pal-face ((t (:foreground "pale green"))))
  10094. (erc-prompt-face ((t (:foreground "MediumAquamarine"))))
  10095. (erc-underline-face ((t (:underline t))))
  10096. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
  10097. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  10098. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  10099. (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
  10100. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  10101. (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
  10102. (eshell-ls-picture-face ((t (:foreground "Violet"))))
  10103. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  10104. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  10105. (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
  10106. (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
  10107. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  10108. (eshell-prompt-face ((t (:bold t :foreground "#aa0000" :weight bold :width condensed :family "neep-alt"))))
  10109. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  10110. (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
  10111. (excerpt ((t (:italic t :slant italic))))
  10112. (fixed ((t (:bold t :weight bold))))
  10113. (fixed-pitch ((t (:family "courier"))))
  10114. (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
  10115. (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
  10116. (font-latex-bold-face ((t (:bold t :foreground "DarkOliveGreen" :weight bold))))
  10117. (font-latex-italic-face ((t (:italic t :foreground "DarkOliveGreen" :slant italic))))
  10118. (font-latex-math-face ((t (:foreground "SaddleBrown"))))
  10119. (font-latex-sedate-face ((t (:foreground "DimGray"))))
  10120. (font-latex-string-face ((t (:foreground "RosyBrown"))))
  10121. (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  10122. (font-lock-builtin-face ((t (:foreground "dodgerblue3"))))
  10123. (font-lock-comment-face ((t (:foreground "#cc0000" :width semi-condensed :family "helvetica"))))
  10124. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  10125. (font-lock-doc-face ((t (:foreground "RosyBrown"))))
  10126. (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
  10127. (font-lock-function-name-face ((t (:bold t :foreground "navy" :weight bold :height 100))))
  10128. (font-lock-keyword-face ((t (:bold t :foreground "red4" :weight bold))))
  10129. (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
  10130. (font-lock-reference-face ((t (:foreground "Orchid"))))
  10131. (font-lock-string-face ((t (:foreground "navy"))))
  10132. (font-lock-type-face ((t (:bold t :foreground "black" :weight bold))))
  10133. (font-lock-variable-name-face ((t (:foreground "black"))))
  10134. (font-lock-warning-face ((t (:foreground "orange2"))))
  10135. (fringe ((t (:background "white"))))
  10136. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  10137. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  10138. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  10139. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  10140. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  10141. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  10142. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  10143. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  10144. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  10145. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  10146. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  10147. (gnus-cite-face-9 ((t (:foreground "violet"))))
  10148. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  10149. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  10150. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  10151. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  10152. (gnus-emphasis-underline ((t (:underline t))))
  10153. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  10154. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  10155. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  10156. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  10157. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
  10158. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  10159. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
  10160. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  10161. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
  10162. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  10163. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
  10164. (gnus-group-news-1-empty-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
  10165. (gnus-group-news-1-face ((t (:foreground "red" :weight normal :height 120 :family "courier"))))
  10166. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  10167. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
  10168. (gnus-group-news-3-empty-face ((t (nil))))
  10169. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  10170. (gnus-group-news-4-empty-face ((t (nil))))
  10171. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  10172. (gnus-group-news-5-empty-face ((t (nil))))
  10173. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  10174. (gnus-group-news-6-empty-face ((t (nil))))
  10175. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  10176. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  10177. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  10178. (gnus-header-content-face ((t (:foreground "goldenrod" :slant normal :family "helvetica"))))
  10179. (gnus-header-from-face ((t (:bold t :foreground "grey75" :weight bold :height 140 :family "helvetica"))))
  10180. (gnus-header-name-face ((t (:foreground "grey75" :height 120 :family "helvetica"))))
  10181. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
  10182. (gnus-header-subject-face ((t (:bold t :foreground "firebrick" :weight bold :height 160 :family "helvetica"))))
  10183. (gnus-picon-face ((t (:background "white" :foreground "black"))))
  10184. (gnus-picon-xbm-face ((t (:background "white" :foreground "black"))))
  10185. (gnus-signature-face ((t (:italic t :slant italic))))
  10186. (gnus-splash-face ((t (:foreground "Brown"))))
  10187. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  10188. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
  10189. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  10190. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
  10191. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  10192. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
  10193. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
  10194. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
  10195. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  10196. (gnus-summary-normal-ancient-face ((t (:foreground "grey65" :height 110 :width condensed :family "neep"))))
  10197. (gnus-summary-normal-read-face ((t (:foreground "grey75" :height 110 :width condensed :family "neep"))))
  10198. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "firebrick" :weight bold :height 110 :width condensed :family "neep"))))
  10199. (gnus-summary-normal-unread-face ((t (:foreground "firebrick" :height 110 :width condensed :family "neep"))))
  10200. (gnus-summary-selected-face ((t (:background "gold" :foreground "black" :box (:line-width 1 :color "yellow" :style released-button) :height 140 :width condensed :family "neep"))))
  10201. (header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
  10202. (hi-black-b ((t (:bold t :weight bold))))
  10203. (hi-black-hb ((t (:bold t :weight bold :height 1.67 :family "helv"))))
  10204. (hi-blue ((t (:background "light blue"))))
  10205. (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
  10206. (hi-green ((t (:background "green"))))
  10207. (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
  10208. (hi-pink ((t (:background "pink"))))
  10209. (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
  10210. (hi-yellow ((t (:background "yellow"))))
  10211. (highlight ((t (:background "black" :foreground "white"))))
  10212. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  10213. (highlight-changes-face ((t (:foreground "red"))))
  10214. (highline-face ((t (:background "gray80"))))
  10215. (holiday-face ((t (:background "pink"))))
  10216. (idlwave-help-link-face ((t (:foreground "Blue"))))
  10217. (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
  10218. (info-header-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
  10219. (info-header-xref ((t (:bold t :foreground "magenta4" :weight bold))))
  10220. (info-menu-5 ((t (:foreground "red1"))))
  10221. (info-menu-header ((t (:bold t :weight bold :family "helv"))))
  10222. (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
  10223. (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
  10224. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  10225. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  10226. (italic ((t (:italic t :slant italic))))
  10227. (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
  10228. (log-view-message-face ((t (:background "grey85"))))
  10229. (makefile-space-face ((t (:background "hotpink"))))
  10230. (menu ((t (nil))))
  10231. (message-cited-text-face ((t (:foreground "red"))))
  10232. (message-header-cc-face ((t (:foreground "grey45" :weight normal :family "helvetica"))))
  10233. (message-header-name-face ((t (:foreground "cornflower blue"))))
  10234. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
  10235. (message-header-other-face ((t (:foreground "steel blue"))))
  10236. (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
  10237. (message-header-to-face ((t (:bold t :foreground "grey60" :weight bold :height 120 :family "helvetica"))))
  10238. (message-header-xheader-face ((t (:foreground "blue"))))
  10239. (message-mml-face ((t (:foreground "ForestGreen"))))
  10240. (message-separator-face ((t (:foreground "brown"))))
  10241. (mode-line ((t (:background "grey90" :foreground "black" :box (:line-width 1 :style none) :width condensed :family "neep"))))
  10242. (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :weight bold))))
  10243. (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  10244. (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  10245. (mouse ((t (:background "black"))))
  10246. (mpg123-face-cur ((t (:background "#004080" :foreground "yellow"))))
  10247. (mpg123-face-slider ((t (:background "yellow" :foreground "black"))))
  10248. (primary-selection ((t (:background "lightgoldenrod2"))))
  10249. (reb-match-0 ((t (:background "lightblue"))))
  10250. (reb-match-1 ((t (:background "aquamarine"))))
  10251. (reb-match-2 ((t (:background "springgreen"))))
  10252. (reb-match-3 ((t (:background "yellow"))))
  10253. (region ((t (:background "#aa0000" :foreground "white"))))
  10254. (scroll-bar ((t (:background "grey75"))))
  10255. (secondary-selection ((t (:background "yellow"))))
  10256. (sgml-comment-face ((t (:italic t :foreground "SeaGreen" :slant italic))))
  10257. (sgml-doctype-face ((t (:bold t :foreground "FireBrick" :weight bold))))
  10258. (sgml-end-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
  10259. (sgml-entity-face ((t (:stipple nil :background "SlateBlue" :foreground "Red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
  10260. (sgml-ignored-face ((t (nil))))
  10261. (sgml-ms-end-face ((t (nil))))
  10262. (sgml-ms-start-face ((t (nil))))
  10263. (sgml-pi-face ((t (:bold t :foreground "gray40" :weight bold))))
  10264. (sgml-sgml-face ((t (:bold t :foreground "gray40" :weight bold))))
  10265. (sgml-short-ref-face ((t (nil))))
  10266. (sgml-shortref-face ((t (:bold t :foreground "gray40" :weight bold))))
  10267. (sgml-start-tag-face ((t (:stipple nil :background "white" :foreground "SlateBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "monotype-courier new"))))
  10268. (sh-heredoc-face ((t (:foreground "tan"))))
  10269. (show-paren-match-face ((t (:background "gray80" :foreground "black"))))
  10270. (show-paren-mismatch-face ((t (:background "red" :foreground "yellow"))))
  10271. (show-tabs-space-face ((t (:foreground "yellow"))))
  10272. (show-tabs-tab-face ((t (:foreground "red"))))
  10273. (smerge-base-face ((t (:foreground "red"))))
  10274. (smerge-markers-face ((t (:background "grey85"))))
  10275. (smerge-mine-face ((t (:foreground "blue"))))
  10276. (smerge-other-face ((t (:foreground "darkgreen"))))
  10277. (speedbar-button-face ((t (:foreground "green4"))))
  10278. (speedbar-directory-face ((t (:foreground "blue4"))))
  10279. (speedbar-file-face ((t (:foreground "cyan4"))))
  10280. (speedbar-highlight-face ((t (:background "green"))))
  10281. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  10282. (speedbar-tag-face ((t (:foreground "brown"))))
  10283. (strokes-char-face ((t (:background "lightgray"))))
  10284. (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10285. (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10286. (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10287. (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10288. (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
  10289. (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10290. (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10291. (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10292. (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10293. (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10294. (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10295. (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10296. (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10297. (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10298. (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10299. (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10300. (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10301. (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10302. (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10303. (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10304. (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
  10305. (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10306. (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10307. (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10308. (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  10309. (tex-math-face ((t (:foreground "RosyBrown"))))
  10310. (texinfo-heading-face ((t (:foreground "Blue"))))
  10311. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  10312. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  10313. (trailing-whitespace ((t (:background "red"))))
  10314. (underline ((t (:foreground "navy" :underline t))))
  10315. (variable-pitch ((t (:family "helv"))))
  10316. (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
  10317. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  10318. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  10319. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  10320. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  10321. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
  10322. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
  10323. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  10324. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  10325. (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
  10326. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  10327. (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
  10328. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  10329. (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
  10330. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  10331. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
  10332. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  10333. (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
  10334. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  10335. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  10336. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  10337. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  10338. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  10339. (widget-button-face ((t (:bold t :weight bold))))
  10340. (widget-button-pressed-face ((t (:foreground "red"))))
  10341. (widget-documentation-face ((t (:foreground "dark green"))))
  10342. (widget-field-face ((t (:background "gray85"))))
  10343. (widget-inactive-face ((t (:foreground "dim gray"))))
  10344. (widget-single-line-field-face ((t (:background "gray85"))))
  10345. (woman-addition-face ((t (:foreground "orange"))))
  10346. (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
  10347. (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
  10348. (woman-unknown-face ((t (:foreground "brown"))))
  10349. (zmacs-region ((t (:background "lightgoldenrod2")))))))
  10350. (defun color-theme-bharadwaj-slate ()
  10351. "Color theme by Girish Bharadwaj, created 2002-05-06."
  10352. (interactive)
  10353. (color-theme-install
  10354. '(color-theme-bharadwaj-slate
  10355. ((background-color . "DarkSlateGray")
  10356. (background-mode . dark)
  10357. (border-color . "black")
  10358. (cursor-color . "khaki")
  10359. (foreground-color . "palegreen")
  10360. (mouse-color . "black"))
  10361. ((display-time-mail-face . mode-line)
  10362. (gnus-article-button-face . bold)
  10363. (gnus-article-mouse-face . highlight)
  10364. (gnus-mouse-face . highlight)
  10365. (help-highlight-face . underline)
  10366. (ibuffer-deletion-face . font-lock-type-face)
  10367. (ibuffer-filter-group-name-face . bold)
  10368. (ibuffer-marked-face . font-lock-warning-face)
  10369. (ibuffer-title-face . font-lock-type-face)
  10370. (list-matching-lines-buffer-name-face . underline)
  10371. (list-matching-lines-face . bold)
  10372. (semantic-which-function-use-color . t)
  10373. (senator-eldoc-use-color . t)
  10374. (view-highlight-face . highlight)
  10375. (widget-mouse-face . highlight))
  10376. (default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
  10377. (bg:erc-color-face0 ((t (:background "White"))))
  10378. (bg:erc-color-face1 ((t (:background "black"))))
  10379. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  10380. (bg:erc-color-face11 ((t (:background "cyan"))))
  10381. (bg:erc-color-face12 ((t (:background "blue"))))
  10382. (bg:erc-color-face13 ((t (:background "deeppink"))))
  10383. (bg:erc-color-face14 ((t (:background "gray50"))))
  10384. (bg:erc-color-face15 ((t (:background "gray90"))))
  10385. (bg:erc-color-face2 ((t (:background "blue4"))))
  10386. (bg:erc-color-face3 ((t (:background "green4"))))
  10387. (bg:erc-color-face4 ((t (:background "red"))))
  10388. (bg:erc-color-face5 ((t (:background "brown"))))
  10389. (bg:erc-color-face6 ((t (:background "purple"))))
  10390. (bg:erc-color-face7 ((t (:background "orange"))))
  10391. (bg:erc-color-face8 ((t (:background "yellow"))))
  10392. (bg:erc-color-face9 ((t (:background "green"))))
  10393. (bold ((t (:bold t :weight bold))))
  10394. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  10395. (border ((t (:background "black"))))
  10396. (button ((t (:underline t))))
  10397. (comint-highlight-input ((t (:bold t :weight bold))))
  10398. (comint-highlight-prompt ((t (:foreground "cyan"))))
  10399. (cursor ((t (:background "khaki"))))
  10400. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  10401. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  10402. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  10403. (custom-comment-face ((t (:background "dim gray"))))
  10404. (custom-comment-tag-face ((t (:foreground "gray80"))))
  10405. (custom-documentation-face ((t (nil))))
  10406. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  10407. (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
  10408. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
  10409. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  10410. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  10411. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  10412. (custom-saved-face ((t (:underline t))))
  10413. (custom-set-face ((t (:background "white" :foreground "blue"))))
  10414. (custom-state-face ((t (:foreground "lime green"))))
  10415. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  10416. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
  10417. (erc-action-face ((t (:bold t :box (:line-width 2 :color "grey75") :weight bold))))
  10418. (erc-bold-face ((t (:bold t :weight bold))))
  10419. (erc-default-face ((t (nil))))
  10420. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  10421. (erc-error-face ((t (:background "Red" :foreground "White"))))
  10422. (erc-input-face ((t (:foreground "lightblue"))))
  10423. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  10424. (erc-notice-face ((t (:bold t :foreground "dodgerblue" :weight bold))))
  10425. (erc-prompt-face ((t (:bold t :background "black" :foreground "white" :weight bold))))
  10426. (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
  10427. (erc-underline-face ((t (:underline t))))
  10428. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
  10429. (eshell-ls-backup-face ((t (:foreground "LightSalmon"))))
  10430. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  10431. (eshell-ls-directory-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  10432. (eshell-ls-executable-face ((t (:bold t :foreground "Green" :weight bold))))
  10433. (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
  10434. (eshell-ls-product-face ((t (:foreground "LightSalmon"))))
  10435. (eshell-ls-readonly-face ((t (:foreground "Pink"))))
  10436. (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
  10437. (eshell-ls-symlink-face ((t (:bold t :foreground "Cyan" :weight bold))))
  10438. (eshell-ls-unreadable-face ((t (:foreground "DarkGrey"))))
  10439. (eshell-prompt-face ((t (:bold t :foreground "Pink" :weight bold))))
  10440. (fg:erc-color-face0 ((t (:foreground "White"))))
  10441. (fg:erc-color-face1 ((t (:foreground "black"))))
  10442. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  10443. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  10444. (fg:erc-color-face12 ((t (:foreground "blue"))))
  10445. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  10446. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  10447. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  10448. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  10449. (fg:erc-color-face3 ((t (:foreground "green4"))))
  10450. (fg:erc-color-face4 ((t (:foreground "red"))))
  10451. (fg:erc-color-face5 ((t (:foreground "brown"))))
  10452. (fg:erc-color-face6 ((t (:foreground "purple"))))
  10453. (fg:erc-color-face7 ((t (:foreground "orange"))))
  10454. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  10455. (fg:erc-color-face9 ((t (:foreground "green"))))
  10456. (fixed-pitch ((t (:family "courier"))))
  10457. (font-lock-builtin-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
  10458. (font-lock-comment-face ((t (:foreground "violet" :height 1.0))))
  10459. (font-lock-constant-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
  10460. (font-lock-function-name-face ((t (:bold t :foreground "DodgerBlue" :weight bold))))
  10461. (font-lock-keyword-face ((t (:bold t :foreground "turquoise" :weight bold))))
  10462. (font-lock-preprocessor-face ((t (:bold t :foreground "tomato" :weight bold :height 1.0))))
  10463. (font-lock-reference-face ((t (:bold t :foreground "pink" :weight bold :height 1.1))))
  10464. (font-lock-string-face ((t (:foreground "red" :height 1.0))))
  10465. (font-lock-type-face ((t (:foreground "lightblue3"))))
  10466. (font-lock-variable-name-face ((t (:bold t :foreground "gray" :weight bold :height 1.0))))
  10467. (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  10468. (fringe ((t (:background "DarkSlateGray"))))
  10469. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  10470. (gnus-cite-face-1 ((t (:foreground "light blue"))))
  10471. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  10472. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  10473. (gnus-cite-face-2 ((t (:foreground "light cyan"))))
  10474. (gnus-cite-face-3 ((t (:foreground "light yellow"))))
  10475. (gnus-cite-face-4 ((t (:foreground "light pink"))))
  10476. (gnus-cite-face-5 ((t (:foreground "pale green"))))
  10477. (gnus-cite-face-6 ((t (:foreground "beige"))))
  10478. (gnus-cite-face-7 ((t (:foreground "orange"))))
  10479. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  10480. (gnus-cite-face-9 ((t (:foreground "violet"))))
  10481. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  10482. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  10483. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  10484. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  10485. (gnus-emphasis-underline ((t (:underline t))))
  10486. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  10487. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  10488. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  10489. (gnus-group-mail-1-empty-face ((t (:foreground "aquamarine1"))))
  10490. (gnus-group-mail-1-face ((t (:bold t :foreground "aquamarine1" :weight bold))))
  10491. (gnus-group-mail-2-empty-face ((t (:foreground "aquamarine2"))))
  10492. (gnus-group-mail-2-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
  10493. (gnus-group-mail-3-empty-face ((t (:foreground "aquamarine3"))))
  10494. (gnus-group-mail-3-face ((t (:bold t :foreground "aquamarine3" :weight bold))))
  10495. (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine4"))))
  10496. (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine4" :weight bold))))
  10497. (gnus-group-news-1-empty-face ((t (:foreground "PaleTurquoise"))))
  10498. (gnus-group-news-1-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  10499. (gnus-group-news-2-empty-face ((t (:foreground "turquoise"))))
  10500. (gnus-group-news-2-face ((t (:bold t :foreground "turquoise" :weight bold))))
  10501. (gnus-group-news-3-empty-face ((t (nil))))
  10502. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  10503. (gnus-group-news-4-empty-face ((t (nil))))
  10504. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  10505. (gnus-group-news-5-empty-face ((t (nil))))
  10506. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  10507. (gnus-group-news-6-empty-face ((t (nil))))
  10508. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  10509. (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
  10510. (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
  10511. (gnus-header-content-face ((t (:italic t :foreground "forest green" :slant italic))))
  10512. (gnus-header-from-face ((t (:foreground "spring green"))))
  10513. (gnus-header-name-face ((t (:foreground "SeaGreen"))))
  10514. (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
  10515. (gnus-header-subject-face ((t (:foreground "SeaGreen3"))))
  10516. (gnus-signature-face ((t (:italic t :slant italic))))
  10517. (gnus-splash-face ((t (:foreground "Brown"))))
  10518. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  10519. (gnus-summary-high-ancient-face ((t (:bold t :foreground "SkyBlue" :weight bold))))
  10520. (gnus-summary-high-read-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
  10521. (gnus-summary-high-ticked-face ((t (:bold t :foreground "pink" :weight bold))))
  10522. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  10523. (gnus-summary-low-ancient-face ((t (:italic t :foreground "SkyBlue" :slant italic))))
  10524. (gnus-summary-low-read-face ((t (:italic t :foreground "PaleGreen" :slant italic))))
  10525. (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
  10526. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  10527. (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
  10528. (gnus-summary-normal-read-face ((t (:foreground "PaleGreen"))))
  10529. (gnus-summary-normal-ticked-face ((t (:foreground "pink"))))
  10530. (gnus-summary-normal-unread-face ((t (nil))))
  10531. (gnus-summary-selected-face ((t (:underline t))))
  10532. (header-line ((t (:underline "blueviolet" :overline "blueviolet" :box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  10533. (highlight ((t (:background "darkolivegreen"))))
  10534. (html-helper-bold-face ((t (:bold t :foreground "wheat" :weight bold))))
  10535. (html-helper-italic-face ((t (:italic t :foreground "spring green" :slant italic))))
  10536. (html-helper-underline-face ((t (:foreground "cornsilk" :underline t))))
  10537. (html-tag-face ((t (:bold t :foreground "deep sky blue" :weight bold))))
  10538. (info-menu-6 ((t (nil))))
  10539. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  10540. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  10541. (italic ((t (:italic t :slant italic))))
  10542. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  10543. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  10544. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  10545. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  10546. (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
  10547. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  10548. (jde-java-font-lock-code-face ((t (nil))))
  10549. (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
  10550. (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
  10551. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  10552. (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
  10553. (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
  10554. (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
  10555. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  10556. (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
  10557. (jde-java-font-lock-pre-face ((t (nil))))
  10558. (jde-java-font-lock-underline-face ((t (:underline t))))
  10559. (menu ((t (nil))))
  10560. (message-cited-text-face ((t (:foreground "red"))))
  10561. (message-header-cc-face ((t (:bold t :foreground "green4" :weight bold))))
  10562. (message-header-name-face ((t (:foreground "DarkGreen"))))
  10563. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
  10564. (message-header-other-face ((t (:foreground "#b00000"))))
  10565. (message-header-subject-face ((t (:foreground "green3"))))
  10566. (message-header-to-face ((t (:bold t :foreground "green2" :weight bold))))
  10567. (message-header-xheader-face ((t (:foreground "blue"))))
  10568. (message-mml-face ((t (:foreground "ForestGreen"))))
  10569. (message-separator-face ((t (:foreground "blue3"))))
  10570. (minibuffer-prompt ((t (:foreground "cyan"))))
  10571. (mode-line ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
  10572. (mode-line-inactive ((t (:italic t :underline "blueviolet" :overline "blueviolet" :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :slant oblique :weight light))))
  10573. (modeline ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
  10574. (modeline-buffer-id ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
  10575. (modeline-mousable ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
  10576. (modeline-mousable-minor-mode ((t (:background "Darkslategray" :foreground "white" :box (:line-width -1 :style released-button) :overline "blueviolet" :underline "blueviolet"))))
  10577. (mouse ((t (:background "black"))))
  10578. (primary-selection ((t (:background "dimgray"))))
  10579. (region ((t (:background "dimgray"))))
  10580. (scroll-bar ((t (nil))))
  10581. (secondary-selection ((t (:background "SkyBlue4"))))
  10582. (semantic-dirty-token-face ((t (:background "lightyellow"))))
  10583. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  10584. (senator-intangible-face ((t (:foreground "gray75"))))
  10585. (senator-momentary-highlight-face ((t (:background "gray30"))))
  10586. (senator-read-only-face ((t (:background "#664444"))))
  10587. (show-paren-match-face ((t (:bold t :foreground "lightblue" :weight bold :height 1.1))))
  10588. (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold :height 1.1))))
  10589. (show-tabs-space-face ((t (:foreground "yellow"))))
  10590. (show-tabs-tab-face ((t (:foreground "red"))))
  10591. (speedbar-button-face ((t (:foreground "green3"))))
  10592. (speedbar-directory-face ((t (:foreground "light blue"))))
  10593. (speedbar-file-face ((t (:foreground "cyan"))))
  10594. (speedbar-highlight-face ((t (:background "sea green"))))
  10595. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  10596. (speedbar-tag-face ((t (:foreground "yellow"))))
  10597. (template-message-face ((t (:bold t :weight bold))))
  10598. (term-black ((t (:foreground "black"))))
  10599. (term-blackbg ((t (:background "black"))))
  10600. (term-blue ((t (:foreground "blue"))))
  10601. (term-bluebg ((t (:background "blue"))))
  10602. (term-bold ((t (:bold t :weight bold))))
  10603. (term-cyan ((t (:foreground "cyan"))))
  10604. (term-cyanbg ((t (:background "cyan"))))
  10605. (term-default ((t (:stipple nil :background "DarkSlateGray" :foreground "palegreen" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "outline-lucida sans typewriter"))))
  10606. (term-default-bg ((t (nil))))
  10607. (term-default-bg-inv ((t (nil))))
  10608. (term-default-fg ((t (nil))))
  10609. (term-default-fg-inv ((t (nil))))
  10610. (term-green ((t (:foreground "green"))))
  10611. (term-greenbg ((t (:background "green"))))
  10612. (term-invisible ((t (nil))))
  10613. (term-invisible-inv ((t (nil))))
  10614. (term-magenta ((t (:foreground "magenta"))))
  10615. (term-magentabg ((t (:background "magenta"))))
  10616. (term-red ((t (:foreground "red"))))
  10617. (term-redbg ((t (:background "red"))))
  10618. (term-underline ((t (:underline t))))
  10619. (term-white ((t (:foreground "white"))))
  10620. (term-whitebg ((t (:background "white"))))
  10621. (term-yellow ((t (:foreground "yellow"))))
  10622. (term-yellowbg ((t (:background "yellow"))))
  10623. (tool-bar ((t (:background "DarkSlateGray" :foreground "White" :box (:line-width 1 :color "blue")))))
  10624. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  10625. (trailing-whitespace ((t (:background "red"))))
  10626. (underline ((t (:underline t))))
  10627. (variable-pitch ((t (:family "helv"))))
  10628. (widget-button-face ((t (:bold t :weight bold))))
  10629. (widget-button-pressed-face ((t (:foreground "red"))))
  10630. (widget-documentation-face ((t (:foreground "lime green"))))
  10631. (widget-field-face ((t (:background "dim gray"))))
  10632. (widget-inactive-face ((t (:foreground "light gray"))))
  10633. (widget-single-line-field-face ((t (:background "dim gray"))))
  10634. (zmacs-region ((t (:background "dimgray")))))))
  10635. (defun color-theme-lethe ()
  10636. "Color theme by Ivica Loncar, created 2002-08-02.
  10637. Some additional X resources as suggested by the author:
  10638. Emacs*menubar.Foreground: Yellow
  10639. Emacs*menubar.Background: #1a2b3c
  10640. Emacs*menubar.topShadowColor: gray
  10641. Emacs*menubar.bottomShadowColor: dimgray
  10642. Some fonts I really like (note: this fonts are not highly
  10643. available):
  10644. Emacs.default.attributeFont: -letl-*-medium-r-*-*-*-*-*-*-*-*-iso8859-2
  10645. Emacs*menubar*Font: -etl-fixed-medium-r-normal--14-*-*-*-*-*-iso8859-1
  10646. Mouse fix:
  10647. Emacs*dialog*XmPushButton.translations:#override\n\
  10648. <Btn1Down>: Arm()\n\
  10649. <Btn1Down>,<Btn1Up>: Activate()\
  10650. Disarm()\n\
  10651. <Btn1Down>(2+): MultiArm()\n\
  10652. <Btn1Up>(2+): MultiActivate()\n\
  10653. <Btn1Up>: Activate()\
  10654. Disarm()\n\
  10655. <Key>osfSelect: ArmAndActivate()\n\
  10656. <Key>osfActivate: ArmAndActivate()\n\
  10657. <Key>osfHelp: Help()\n\
  10658. ~Shift ~Meta ~Alt <Key>Return: ArmAndActivate()\n\
  10659. <EnterWindow>: Enter()\n\
  10660. <LeaveWindow>: Leave()\n
  10661. Bonus: do not use 3D modeline."
  10662. (interactive)
  10663. (color-theme-install
  10664. '(color-theme-lethe
  10665. ((background-color . "black")
  10666. (background-mode . dark)
  10667. (background-toolbar-color . "#000000000000")
  10668. (border-color . "#000000000000")
  10669. (bottom-toolbar-shadow-color . "red")
  10670. (cursor-color . "red")
  10671. (foreground-color . "peachpuff")
  10672. (mouse-color . "red")
  10673. (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
  10674. ((buffers-tab-face . buffers-tab)
  10675. (cscope-use-face . t)
  10676. (gnus-mouse-face . highlight))
  10677. (default ((t (nil))))
  10678. (bg:erc-color-face0 ((t (:background "White"))))
  10679. (bg:erc-color-face1 ((t (nil))))
  10680. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  10681. (bg:erc-color-face11 ((t (:background "cyan"))))
  10682. (bg:erc-color-face12 ((t (:background "blue"))))
  10683. (bg:erc-color-face13 ((t (:background "deeppink"))))
  10684. (bg:erc-color-face14 ((t (:background "gray50"))))
  10685. (bg:erc-color-face15 ((t (:background "gray90"))))
  10686. (bg:erc-color-face2 ((t (:background "blue4"))))
  10687. (bg:erc-color-face3 ((t (:background "green4"))))
  10688. (bg:erc-color-face4 ((t (:background "red"))))
  10689. (bg:erc-color-face5 ((t (:background "brown"))))
  10690. (bg:erc-color-face6 ((t (:background "purple"))))
  10691. (bg:erc-color-face7 ((t (:background "orange"))))
  10692. (bg:erc-color-face8 ((t (:background "yellow"))))
  10693. (bg:erc-color-face9 ((t (:background "green"))))
  10694. (blue ((t (:foreground "blue"))))
  10695. (bold ((t (:bold t))))
  10696. (bold-italic ((t (:italic t :bold t))))
  10697. (border ((t (nil))))
  10698. (border-glyph ((t (nil))))
  10699. (buffers-tab ((t (:bold t :foreground "red"))))
  10700. (button ((t (:underline t))))
  10701. (calendar-today-face ((t (:underline t))))
  10702. (comint-highlight-input ((t (:bold t))))
  10703. (comint-highlight-prompt ((t (:foreground "cyan"))))
  10704. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue"))))
  10705. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red"))))
  10706. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  10707. (cscope-file-face ((t (:foreground "blue"))))
  10708. (cscope-function-face ((t (:foreground "magenta"))))
  10709. (cscope-line-face ((t (:foreground "green"))))
  10710. (cscope-line-number-face ((t (:foreground "red"))))
  10711. (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
  10712. (cursor ((t (nil))))
  10713. (custom-button-face ((t (nil))))
  10714. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black"))))
  10715. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  10716. (custom-comment-face ((t (:background "dim gray"))))
  10717. (custom-comment-tag-face ((t (:foreground "gray80"))))
  10718. (custom-documentation-face ((t (nil))))
  10719. (custom-face-tag-face ((t (:underline t))))
  10720. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  10721. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  10722. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  10723. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  10724. (custom-rogue-face ((t (:foreground "pink"))))
  10725. (custom-saved-face ((t (:underline t))))
  10726. (custom-set-face ((t (:background "white" :foreground "blue"))))
  10727. (custom-state-face ((t (:foreground "dark green"))))
  10728. (custom-variable-button-face ((t (:underline t :bold t))))
  10729. (custom-variable-tag-face ((t (:underline t :foreground "blue"))))
  10730. (cyan ((t (:foreground "cyan"))))
  10731. (diary-face ((t (:foreground "red"))))
  10732. (dired-face-boring ((t (:foreground "Gray65"))))
  10733. (dired-face-directory ((t (:bold t))))
  10734. (dired-face-executable ((t (:foreground "SeaGreen"))))
  10735. (dired-face-flagged ((t (:background "LightSlateGray"))))
  10736. (dired-face-marked ((t (:background "PaleVioletRed"))))
  10737. (dired-face-permissions ((t (:background "grey75" :foreground "black"))))
  10738. (dired-face-setuid ((t (:foreground "Red"))))
  10739. (dired-face-socket ((t (:foreground "magenta"))))
  10740. (dired-face-symlink ((t (:foreground "cyan"))))
  10741. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  10742. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  10743. (display-time-time-balloon-face ((t (:foreground "red"))))
  10744. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  10745. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  10746. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  10747. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  10748. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  10749. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  10750. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  10751. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  10752. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  10753. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  10754. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  10755. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  10756. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  10757. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  10758. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  10759. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  10760. (erc-action-face ((t (:bold t))))
  10761. (erc-bold-face ((t (:bold t))))
  10762. (erc-default-face ((t (nil))))
  10763. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  10764. (erc-error-face ((t (:background "Red" :foreground "White"))))
  10765. (erc-input-face ((t (:foreground "brown"))))
  10766. (erc-inverse-face ((t (:background "Black" :foreground "White"))))
  10767. (erc-notice-face ((t (:bold t :foreground "SlateBlue"))))
  10768. (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black"))))
  10769. (erc-timestamp-face ((t (:bold t :foreground "green"))))
  10770. (erc-underline-face ((t (:underline t))))
  10771. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid"))))
  10772. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  10773. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed"))))
  10774. (eshell-ls-directory-face ((t (:bold t :foreground "Blue"))))
  10775. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen"))))
  10776. (eshell-ls-missing-face ((t (:bold t :foreground "Red"))))
  10777. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  10778. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  10779. (eshell-ls-special-face ((t (:bold t :foreground "Magenta"))))
  10780. (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan"))))
  10781. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  10782. (eshell-prompt-face ((t (:bold t :foreground "Red"))))
  10783. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed"))))
  10784. (eshell-test-ok-face ((t (:bold t :foreground "Green"))))
  10785. (excerpt ((t (:italic t))))
  10786. (fg:erc-color-face0 ((t (:foreground "White"))))
  10787. (fg:erc-color-face1 ((t (:foreground "black"))))
  10788. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  10789. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  10790. (fg:erc-color-face12 ((t (:foreground "blue"))))
  10791. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  10792. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  10793. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  10794. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  10795. (fg:erc-color-face3 ((t (:foreground "green4"))))
  10796. (fg:erc-color-face4 ((t (:foreground "red"))))
  10797. (fg:erc-color-face5 ((t (:foreground "brown"))))
  10798. (fg:erc-color-face6 ((t (:foreground "purple"))))
  10799. (fg:erc-color-face7 ((t (:foreground "orange"))))
  10800. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  10801. (fg:erc-color-face9 ((t (:foreground "green"))))
  10802. (fixed ((t (:bold t))))
  10803. (fixed-pitch ((t (:size "16"))))
  10804. (flyspell-duplicate-face ((t (:underline t :bold t :foreground "Gold3"))))
  10805. (flyspell-incorrect-face ((t (:underline t :bold t :foreground "OrangeRed"))))
  10806. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  10807. (font-lock-comment-face ((t (:bold t :foreground "cyan"))))
  10808. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  10809. (font-lock-doc-face ((t (:bold t :foreground "red"))))
  10810. (font-lock-doc-string-face ((t (:bold t :foreground "red"))))
  10811. (font-lock-function-name-face ((t (:bold t :foreground "white"))))
  10812. (font-lock-keyword-face ((t (:bold t :foreground "yellow"))))
  10813. (font-lock-preprocessor-face ((t (:bold t :foreground "blue"))))
  10814. (font-lock-reference-face ((t (:foreground "red3"))))
  10815. (font-lock-string-face ((t (:bold t :foreground "magenta"))))
  10816. (font-lock-type-face ((t (:bold t :foreground "lightgreen"))))
  10817. (font-lock-variable-name-face ((t (:bold t :foreground "white"))))
  10818. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  10819. (fringe ((t (:background "grey95"))))
  10820. (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red"))))
  10821. (gnus-cite-attribution-face ((t (:italic t))))
  10822. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  10823. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  10824. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  10825. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  10826. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  10827. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  10828. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  10829. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  10830. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  10831. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  10832. (gnus-cite-face-9 ((t (:foreground "violet"))))
  10833. (gnus-emphasis-bold ((t (:bold t))))
  10834. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  10835. (gnus-emphasis-highlight-words ((t (:foreground "yellow"))))
  10836. (gnus-emphasis-italic ((t (:italic t))))
  10837. (gnus-emphasis-underline ((t (:underline t))))
  10838. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  10839. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  10840. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  10841. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  10842. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  10843. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  10844. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  10845. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  10846. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  10847. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  10848. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  10849. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  10850. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  10851. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  10852. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  10853. (gnus-group-news-3-empty-face ((t (nil))))
  10854. (gnus-group-news-3-face ((t (:bold t))))
  10855. (gnus-group-news-4-empty-face ((t (nil))))
  10856. (gnus-group-news-4-face ((t (:bold t))))
  10857. (gnus-group-news-5-empty-face ((t (nil))))
  10858. (gnus-group-news-5-face ((t (:bold t))))
  10859. (gnus-group-news-6-empty-face ((t (nil))))
  10860. (gnus-group-news-6-face ((t (:bold t))))
  10861. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  10862. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  10863. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  10864. (gnus-header-from-face ((t (:foreground "red3"))))
  10865. (gnus-header-name-face ((t (:foreground "maroon"))))
  10866. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue"))))
  10867. (gnus-header-subject-face ((t (:foreground "red4"))))
  10868. (gnus-picons-face ((t (:background "white" :foreground "black"))))
  10869. (gnus-picons-xbm-face ((t (:background "white" :foreground "black"))))
  10870. (gnus-signature-face ((t (:italic t))))
  10871. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  10872. (gnus-summary-cancelled-face ((t (:foreground "yellow"))))
  10873. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  10874. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  10875. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick"))))
  10876. (gnus-summary-high-unread-face ((t (:bold t))))
  10877. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  10878. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  10879. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  10880. (gnus-summary-low-unread-face ((t (:italic t))))
  10881. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  10882. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  10883. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  10884. (gnus-summary-normal-unread-face ((t (nil))))
  10885. (gnus-summary-selected-face ((t (:underline t))))
  10886. (gnus-x-face ((t (:background "white" :foreground "black"))))
  10887. (green ((t (:foreground "green"))))
  10888. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  10889. (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
  10890. (header-line ((t (:background "grey20" :foreground "grey90"))))
  10891. (highlight ((t (:bold t :background "yellow" :foreground "red"))))
  10892. (highlight-changes-delete-face ((t (:underline t :foreground "red"))))
  10893. (highlight-changes-face ((t (:foreground "red"))))
  10894. (highline-face ((t (:background "paleturquoise"))))
  10895. (holiday-face ((t (:background "pink"))))
  10896. (hyper-apropos-documentation ((t (:foreground "#aaaaaa"))))
  10897. (hyper-apropos-heading ((t (:bold t :foreground "#999999"))))
  10898. (hyper-apropos-hyperlink ((t (:foreground "Violet"))))
  10899. (hyper-apropos-major-heading ((t (:bold t :foreground "#ff0000"))))
  10900. (hyper-apropos-section-heading ((t (:italic t :bold t :foreground "#33aa55"))))
  10901. (hyper-apropos-warning ((t (:bold t :foreground "red"))))
  10902. (info-menu-5 ((t (:underline t))))
  10903. (info-node ((t (:italic t :bold t))))
  10904. (info-xref ((t (:bold t))))
  10905. (isearch ((t (:background "paleturquoise"))))
  10906. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  10907. (isearch-secondary ((t (:foreground "red3"))))
  10908. (italic ((t (:italic t))))
  10909. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  10910. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  10911. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  10912. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  10913. (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
  10914. (jde-java-font-lock-bold-face ((t (:bold t))))
  10915. (jde-java-font-lock-code-face ((t (nil))))
  10916. (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
  10917. (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
  10918. (jde-java-font-lock-italic-face ((t (:italic t))))
  10919. (jde-java-font-lock-link-face ((t (:underline t :foreground "cadetblue"))))
  10920. (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
  10921. (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
  10922. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  10923. (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
  10924. (jde-java-font-lock-pre-face ((t (nil))))
  10925. (jde-java-font-lock-underline-face ((t (:underline t))))
  10926. (left-margin ((t (nil))))
  10927. (list-mode-item-selected ((t (:background "gray68"))))
  10928. (magenta ((t (:foreground "magenta"))))
  10929. (makefile-space-face ((t (:background "hotpink"))))
  10930. (menu ((t (nil))))
  10931. (message-cited-text-face ((t (:foreground "red"))))
  10932. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  10933. (message-header-name-face ((t (:foreground "cornflower blue"))))
  10934. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  10935. (message-header-other-face ((t (:foreground "steel blue"))))
  10936. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  10937. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  10938. (message-header-xheader-face ((t (:foreground "blue"))))
  10939. (message-mml-face ((t (:bold t :foreground "cyan"))))
  10940. (message-separator-face ((t (:foreground "brown"))))
  10941. (minibuffer-prompt ((t (:foreground "cyan"))))
  10942. (mode-line ((t (:background "grey75" :foreground "black"))))
  10943. (mode-line-inactive ((t (:background "grey30" :foreground "grey80"))))
  10944. (modeline ((t (:bold t :background "red" :foreground "yellow"))))
  10945. (modeline-buffer-id ((t (:bold t :background "red" :foreground "yellow"))))
  10946. (modeline-mousable ((t (:background "red" :foreground "yellow"))))
  10947. (modeline-mousable-minor-mode ((t (:background "red" :foreground "green4"))))
  10948. (mouse ((t (nil))))
  10949. (paren-blink-off ((t (:foreground "black"))))
  10950. (paren-match ((t (:bold t :background "yellow" :foreground "red"))))
  10951. (paren-mismatch ((t (:background "DeepPink"))))
  10952. (pointer ((t (nil))))
  10953. (primary-selection ((t (:background "gray65"))))
  10954. (red ((t (:foreground "red"))))
  10955. (region ((t (:background "gray75"))))
  10956. (right-margin ((t (nil))))
  10957. (scroll-bar ((t (nil))))
  10958. (secondary-selection ((t (:background "paleturquoise"))))
  10959. (semantic-dirty-token-face ((t (:background "lightyellow"))))
  10960. (semantic-unmatched-syntax-face ((t (nil))))
  10961. (senator-intangible-face ((t (:foreground "gray75"))))
  10962. (senator-momentary-highlight-face ((t (:background "gray30"))))
  10963. (senator-read-only-face ((t (:background "#664444"))))
  10964. (show-paren-match-face ((t (:background "turquoise"))))
  10965. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  10966. (speedbar-button-face ((t (:foreground "green4"))))
  10967. (speedbar-directory-face ((t (:foreground "blue4"))))
  10968. (speedbar-file-face ((t (:foreground "cyan4"))))
  10969. (speedbar-highlight-face ((t (:background "green"))))
  10970. (speedbar-selected-face ((t (:underline t :foreground "red"))))
  10971. (speedbar-tag-face ((t (:foreground "brown"))))
  10972. (template-message-face ((t (:bold t))))
  10973. (term-black ((t (:foreground "black"))))
  10974. (term-blackbg ((t (nil))))
  10975. (term-blue ((t (:foreground "blue"))))
  10976. (term-blue-bold-face ((t (:bold t :foreground "blue"))))
  10977. (term-blue-face ((t (:foreground "blue"))))
  10978. (term-blue-inv-face ((t (:background "blue"))))
  10979. (term-blue-ul-face ((t (:underline t :foreground "blue"))))
  10980. (term-bluebg ((t (:background "blue"))))
  10981. (term-bold ((t (:bold t))))
  10982. (term-cyan ((t (:foreground "cyan"))))
  10983. (term-cyan-bold-face ((t (:bold t :foreground "cyan"))))
  10984. (term-cyan-face ((t (:foreground "cyan"))))
  10985. (term-cyan-inv-face ((t (:background "cyan"))))
  10986. (term-cyan-ul-face ((t (:underline t :foreground "cyan"))))
  10987. (term-cyanbg ((t (:background "cyan"))))
  10988. (term-default-bg ((t (nil))))
  10989. (term-default-bg-inv ((t (nil))))
  10990. (term-default-bold-face ((t (:bold t))))
  10991. (term-default-face ((t (nil))))
  10992. (term-default-fg ((t (nil))))
  10993. (term-default-fg-inv ((t (nil))))
  10994. (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
  10995. (term-default-ul-face ((t (:underline t))))
  10996. (term-green ((t (:foreground "green"))))
  10997. (term-green-bold-face ((t (:bold t :foreground "green"))))
  10998. (term-green-face ((t (:foreground "green"))))
  10999. (term-green-inv-face ((t (:background "green"))))
  11000. (term-green-ul-face ((t (:underline t :foreground "green"))))
  11001. (term-greenbg ((t (:background "green"))))
  11002. (term-invisible ((t (nil))))
  11003. (term-invisible-inv ((t (nil))))
  11004. (term-magenta ((t (:foreground "magenta"))))
  11005. (term-magenta-bold-face ((t (:bold t :foreground "magenta"))))
  11006. (term-magenta-face ((t (:foreground "magenta"))))
  11007. (term-magenta-inv-face ((t (:background "magenta"))))
  11008. (term-magenta-ul-face ((t (:underline t :foreground "magenta"))))
  11009. (term-magentabg ((t (:background "magenta"))))
  11010. (term-red ((t (:foreground "red"))))
  11011. (term-red-bold-face ((t (:bold t :foreground "red"))))
  11012. (term-red-face ((t (:foreground "red"))))
  11013. (term-red-inv-face ((t (:background "red"))))
  11014. (term-red-ul-face ((t (:underline t :foreground "red"))))
  11015. (term-redbg ((t (:background "red"))))
  11016. (term-underline ((t (:underline t))))
  11017. (term-white ((t (:foreground "white"))))
  11018. (term-white-bold-face ((t (:bold t :foreground "white"))))
  11019. (term-white-face ((t (:foreground "white"))))
  11020. (term-white-inv-face ((t (nil))))
  11021. (term-white-ul-face ((t (:underline t :foreground "white"))))
  11022. (term-whitebg ((t (:background "white"))))
  11023. (term-yellow ((t (:foreground "yellow"))))
  11024. (term-yellow-bold-face ((t (:bold t :foreground "yellow"))))
  11025. (term-yellow-face ((t (:foreground "yellow"))))
  11026. (term-yellow-inv-face ((t (:background "yellow"))))
  11027. (term-yellow-ul-face ((t (:underline t :foreground "yellow"))))
  11028. (term-yellowbg ((t (:background "yellow"))))
  11029. (text-cursor ((t (:background "red" :foreground "black"))))
  11030. (tool-bar ((t (:background "grey75" :foreground "black"))))
  11031. (toolbar ((t (:background "Gray80" :foreground "black"))))
  11032. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  11033. (trailing-whitespace ((t (:background "red"))))
  11034. (underline ((t (:underline t))))
  11035. (variable-pitch ((t (nil))))
  11036. (vcursor ((t (:underline t :background "cyan" :foreground "blue"))))
  11037. (vertical-divider ((t (:background "Gray80" :foreground "black"))))
  11038. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  11039. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  11040. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  11041. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  11042. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red"))))
  11043. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange"))))
  11044. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  11045. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  11046. (vhdl-speedbar-architecture-selected-face ((t (:underline t :foreground "Blue"))))
  11047. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  11048. (vhdl-speedbar-configuration-selected-face ((t (:underline t :foreground "DarkGoldenrod"))))
  11049. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  11050. (vhdl-speedbar-entity-selected-face ((t (:underline t :foreground "ForestGreen"))))
  11051. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  11052. (vhdl-speedbar-instantiation-selected-face ((t (:underline t :foreground "Brown"))))
  11053. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  11054. (vhdl-speedbar-package-selected-face ((t (:underline t :foreground "Grey50"))))
  11055. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  11056. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  11057. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  11058. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  11059. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  11060. (white ((t (:foreground "white"))))
  11061. (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
  11062. (widget-button-face ((t (:bold t))))
  11063. (widget-button-pressed-face ((t (:foreground "red"))))
  11064. (widget-documentation-face ((t (:foreground "dark green"))))
  11065. (widget-field-face ((t (nil))))
  11066. (widget-inactive-face ((t (:foreground "dim gray"))))
  11067. (widget-single-line-field-face ((t (:background "gray85"))))
  11068. (x-face ((t (:bold t :background "wheat" :foreground "black"))))
  11069. (xrdb-option-name-face ((t (:bold t :foreground "yellow"))))
  11070. (xrdb-option-value-face ((t (:bold t :foreground "magenta"))))
  11071. (yellow ((t (:foreground "yellow"))))
  11072. (zmacs-region ((t (:background "white" :foreground "black")))))))
  11073. (defun color-theme-shaman ()
  11074. "Color theme by shaman, created 2002-11-11."
  11075. (interactive)
  11076. (color-theme-install
  11077. '(color-theme-shaman
  11078. ((background-color . "#456345")
  11079. (background-mode . dark)
  11080. (background-toolbar-color . "#cf3ccf3ccf3c")
  11081. (border-color . "#000000000000")
  11082. (bottom-toolbar-shadow-color . "#79e77df779e7")
  11083. (foreground-color . "White")
  11084. (top-toolbar-shadow-color . "#f7defbeef7de"))
  11085. ((buffers-tab-face . buffers-tab))
  11086. (default ((t (nil))))
  11087. (blue ((t (:foreground "blue"))))
  11088. (bold ((t (:bold t :size "12"))))
  11089. (bold-italic ((t (:italic t :bold t :size "12"))))
  11090. (border-glyph ((t (nil))))
  11091. (buffers-tab ((t (:background "Gray80" :foreground "black"))))
  11092. (font-lock-builtin-face ((t (:foreground "cadetblue2"))))
  11093. (font-lock-comment-face ((t (:foreground "gray80"))))
  11094. (font-lock-constant-face ((t (:foreground "steelblue1"))))
  11095. (font-lock-doc-face ((t (:foreground "light coral"))))
  11096. (font-lock-doc-string-face ((t (:foreground "light coral"))))
  11097. (font-lock-function-name-face ((t (:foreground "aquamarine"))))
  11098. (font-lock-keyword-face ((t (:foreground "cyan"))))
  11099. (font-lock-preprocessor-face ((t (:foreground "steelblue1"))))
  11100. (font-lock-reference-face ((t (:foreground "cadetblue2"))))
  11101. (font-lock-string-face ((t (:foreground "tan"))))
  11102. (font-lock-type-face ((t (:foreground "wheat"))))
  11103. (font-lock-variable-name-face ((t (:foreground "cyan3"))))
  11104. (font-lock-warning-face ((t (:bold t :size "12" :foreground "Pink"))))
  11105. (fringe ((t (nil))))
  11106. (gnus-x-face ((t (:background "white" :foreground "black"))))
  11107. (green ((t (:foreground "green"))))
  11108. (gui-button-face ((t (:background "grey75" :foreground "black"))))
  11109. (gui-element ((t (:size "12" :background "Gray80" :foreground "black"))))
  11110. (highlight ((t (:background "darkseagreen2"))))
  11111. (isearch ((t (:background "paleturquoise"))))
  11112. (isearch-secondary ((t (:foreground "red3"))))
  11113. (italic ((t (:italic t :size "12"))))
  11114. (left-margin ((t (nil))))
  11115. (list-mode-item-selected ((t (:background "gray68"))))
  11116. (message-cited-text-face ((t (:foreground "red"))))
  11117. (message-header-cc-face ((t (:bold t :foreground "green4"))))
  11118. (message-header-name-face ((t (:foreground "DarkGreen"))))
  11119. (message-header-newsgroups-face ((t (:bold t :foreground "yellow"))))
  11120. (message-header-other-face ((t (:foreground "#b00000"))))
  11121. (message-header-subject-face ((t (:foreground "green3"))))
  11122. (message-header-to-face ((t (:bold t :foreground "green2"))))
  11123. (message-header-xheader-face ((t (:foreground "blue"))))
  11124. (message-mml-face ((t (:foreground "ForestGreen"))))
  11125. (message-separator-face ((t (:foreground "blue3"))))
  11126. (mode-line ((t (:background "Gray80" :foreground "black"))))
  11127. (modeline ((t (:background "Gray80" :foreground "black"))))
  11128. (modeline-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
  11129. (modeline-mousable ((t (:background "Gray80" :foreground "firebrick"))))
  11130. (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
  11131. (pointer ((t (:foreground "White"))))
  11132. (primary-selection ((t (:background "gray65"))))
  11133. (red ((t (:foreground "red"))))
  11134. (region ((t (:background "gray65"))))
  11135. (right-margin ((t (nil))))
  11136. (rpm-spec-dir-face ((t (:foreground "green"))))
  11137. (rpm-spec-doc-face ((t (:foreground "magenta"))))
  11138. (rpm-spec-ghost-face ((t (:foreground "red"))))
  11139. (rpm-spec-macro-face ((t (:foreground "yellow"))))
  11140. (rpm-spec-package-face ((t (:foreground "red"))))
  11141. (rpm-spec-tag-face ((t (:foreground "blue"))))
  11142. (rpm-spec-var-face ((t (:foreground "maroon"))))
  11143. (secondary-selection ((t (:background "paleturquoise"))))
  11144. (text-cursor ((t (:background "Pink" :foreground "Black"))))
  11145. (tool-bar ((t (nil))))
  11146. (toolbar ((t (:background "Gray80" :foreground "black"))))
  11147. (underline ((t (:underline t))))
  11148. (vertical-divider ((t (:background "Gray80" :foreground "black"))))
  11149. (widget ((t (:size "12" :background "Gray80" :foreground "black"))))
  11150. (widget-button-face ((t (:bold t))))
  11151. (widget-button-pressed-face ((t (:foreground "red"))))
  11152. (widget-documentation-face ((t (:foreground "lime green"))))
  11153. (widget-field-face ((t (:background "dim gray"))))
  11154. (widget-inactive-face ((t (:foreground "light gray"))))
  11155. (yellow ((t (:foreground "yellow"))))
  11156. (zmacs-region ((t (:background "gray65")))))))
  11157. (defun color-theme-emacs-nw ()
  11158. "Follow emacs21's color-theme, with -nw getting 100% compatibility.
  11159. Alex's `color-theme-emacs-21' follows emacs21's theme, but in the
  11160. current scheme of things, that means that when it works on X, it won't
  11161. work in -nw perfectly. The modeline and menuline will have same
  11162. colors as the rest of emacs, which can be particularly disturbing when
  11163. there are multiple windows.
  11164. OTOH, `color-theme-emacs-nw' follows emacs21's theme but the goal is
  11165. 100% -nw compatibility, and in X; we shall try for decent color
  11166. scheme, and as much compability default emacs21's X as possble.
  11167. Bugs to deego@gnufans.org.
  11168. TODO: Try to make this theme relative to color-theme-emacs-21 rather
  11169. than absolute, viz: call that first and then tweak minor stuff."
  11170. (interactive)
  11171. (color-theme-install
  11172. '(color-theme-emacs-nw
  11173. ((background-color . "white")
  11174. (background-mode . light)
  11175. (border-color . "black")
  11176. (cursor-color . "black")
  11177. (foreground-color . "black")
  11178. (mouse-color . "black"))
  11179. ((Man-overstrike-face . bold)
  11180. (Man-underline-face . underline)
  11181. (cperl-here-face . font-lock-string-face)
  11182. (cperl-invalid-face . underline)
  11183. (cperl-pod-face . font-lock-comment-face)
  11184. (cperl-pod-head-face . font-lock-variable-name-face)
  11185. (gnus-article-button-face . bold)
  11186. (gnus-article-mouse-face . highlight)
  11187. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  11188. (gnus-mouse-face . highlight)
  11189. (gnus-signature-face . gnus-signature-face)
  11190. (gnus-summary-selected-face . gnus-summary-selected-face)
  11191. (help-highlight-face . underline)
  11192. (idlwave-class-arrow-face . bold)
  11193. (idlwave-shell-breakpoint-face . idlwave-shell-bp-face)
  11194. (idlwave-shell-expression-face . secondary-selection)
  11195. (idlwave-shell-stop-line-face . highlight)
  11196. (ispell-highlight-face . highlight)
  11197. (list-matching-lines-face . bold)
  11198. (view-highlight-face . highlight)
  11199. (viper-insert-state-cursor-color . "Green")
  11200. (viper-replace-overlay-cursor-color . "Red")
  11201. (widget-mouse-face . highlight))
  11202. (default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11203. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  11204. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  11205. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  11206. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  11207. (antlr-font-lock-keyword-face ((t (:bold t :foreground "black" :weight bold))))
  11208. (antlr-font-lock-literal-face ((t (:bold t :foreground "brown4" :weight bold))))
  11209. (antlr-font-lock-ruledef-face ((t (:bold t :foreground "blue" :weight bold))))
  11210. (antlr-font-lock-ruleref-face ((t (:foreground "blue4"))))
  11211. (antlr-font-lock-tokendef-face ((t (:bold t :foreground "blue" :weight bold))))
  11212. (antlr-font-lock-tokenref-face ((t (:foreground "orange4"))))
  11213. (bold ((t (:bold t :weight bold))))
  11214. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  11215. (border ((t (:background "black"))))
  11216. (calendar-today-face ((t (:underline t))))
  11217. (change-log-acknowledgement-face ((t (:foreground "Firebrick"))))
  11218. (change-log-conditionals-face ((t (:foreground "DarkGoldenrod"))))
  11219. (change-log-date-face ((t (:foreground "RosyBrown"))))
  11220. (change-log-email-face ((t (:foreground "DarkGoldenrod"))))
  11221. (change-log-file-face ((t (:foreground "Blue"))))
  11222. (change-log-function-face ((t (:foreground "DarkGoldenrod"))))
  11223. (change-log-list-face ((t (:foreground "Purple"))))
  11224. (change-log-name-face ((t (:foreground "CadetBlue"))))
  11225. (comint-highlight-input ((t (:bold t :weight bold))))
  11226. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  11227. (cperl-array-face ((t (:bold t :background "lightyellow2" :foreground "Blue" :weight bold))))
  11228. (cperl-hash-face ((t (:italic t :bold t :background "lightyellow2" :foreground "Red" :slant italic :weight bold))))
  11229. (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
  11230. (cursor ((t (:background "black"))))
  11231. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  11232. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  11233. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  11234. (custom-comment-face ((t (:background "gray85"))))
  11235. (custom-comment-tag-face ((t (:foreground "blue4"))))
  11236. (custom-documentation-face ((t (nil))))
  11237. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  11238. (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
  11239. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "red" :weight bold :height 1.2))))
  11240. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  11241. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  11242. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  11243. (custom-saved-face ((t (:underline t))))
  11244. (custom-set-face ((t (:background "white" :foreground "blue"))))
  11245. (custom-state-face ((t (:foreground "dark green"))))
  11246. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  11247. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "blue" :weight bold :height 1.2))))
  11248. (cvs-filename-face ((t (:foreground "blue4"))))
  11249. (cvs-handled-face ((t (:foreground "pink"))))
  11250. (cvs-header-face ((t (:bold t :foreground "blue4" :weight bold))))
  11251. (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
  11252. (cvs-msg-face ((t (:italic t :slant italic))))
  11253. (cvs-need-action-face ((t (:foreground "orange"))))
  11254. (cvs-unknown-face ((t (:foreground "red"))))
  11255. (diary-face ((t (:foreground "red"))))
  11256. (diff-added-face ((t (nil))))
  11257. (diff-changed-face ((t (nil))))
  11258. (diff-context-face ((t (:foreground "grey50"))))
  11259. (diff-file-header-face ((t (:bold t :background "grey70" :weight bold))))
  11260. (diff-function-face ((t (:foreground "grey50"))))
  11261. (diff-header-face ((t (:background "grey85"))))
  11262. (diff-hunk-header-face ((t (:background "grey85"))))
  11263. (diff-index-face ((t (:bold t :weight bold :background "grey70"))))
  11264. (diff-nonexistent-face ((t (:bold t :weight bold :background "grey70"))))
  11265. (diff-removed-face ((t (nil))))
  11266. (dired-face-boring ((t (:foreground "RosyBrown"))))
  11267. (dired-face-directory ((t (:foreground "Blue"))))
  11268. (dired-face-executable ((t (nil))))
  11269. (dired-face-flagged ((t (:foreground "Red" :weight bold))))
  11270. (dired-face-marked ((t (:foreground "Red" :weight bold))))
  11271. (dired-face-permissions ((t (nil))))
  11272. (dired-face-setuid ((t (nil))))
  11273. (dired-face-socket ((t (nil))))
  11274. (dired-face-symlink ((t (:foreground "Purple"))))
  11275. (ebrowse-default-face ((t (nil))))
  11276. (ebrowse-file-name-face ((t (:italic t :slant italic))))
  11277. (ebrowse-member-attribute-face ((t (:foreground "red"))))
  11278. (ebrowse-member-class-face ((t (:foreground "purple"))))
  11279. (ebrowse-progress-face ((t (:background "blue"))))
  11280. (ebrowse-root-class-face ((t (:bold t :foreground "blue" :weight bold))))
  11281. (ebrowse-tree-mark-face ((t (:foreground "red"))))
  11282. (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
  11283. (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
  11284. (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
  11285. (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
  11286. (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
  11287. (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
  11288. (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
  11289. (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
  11290. (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
  11291. (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
  11292. (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
  11293. (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
  11294. (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
  11295. (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
  11296. (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
  11297. (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
  11298. (eshell-ls-archive-face ((t (:bold t :foreground "Orchid" :weight bold))))
  11299. (eshell-ls-backup-face ((t (:foreground "OrangeRed"))))
  11300. (eshell-ls-clutter-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  11301. (eshell-ls-directory-face ((t (:bold t :foreground "Blue" :weight bold))))
  11302. (eshell-ls-executable-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  11303. (eshell-ls-missing-face ((t (:bold t :foreground "Red" :weight bold))))
  11304. (eshell-ls-product-face ((t (:foreground "OrangeRed"))))
  11305. (eshell-ls-readonly-face ((t (:foreground "Brown"))))
  11306. (eshell-ls-special-face ((t (:bold t :foreground "Magenta" :weight bold))))
  11307. (eshell-ls-symlink-face ((t (:bold t :foreground "Dark Cyan" :weight bold))))
  11308. (eshell-ls-unreadable-face ((t (:foreground "Grey30"))))
  11309. (eshell-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
  11310. (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
  11311. (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
  11312. (excerpt ((t (:italic t :slant italic))))
  11313. (fixed ((t (:bold t :weight bold))))
  11314. (fixed-pitch ((t (:family "courier"))))
  11315. (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
  11316. (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
  11317. (font-lock-builtin-face ((t (:foreground "Orchid"))))
  11318. (font-lock-comment-face ((t (:foreground "Firebrick"))))
  11319. (font-lock-constant-face ((t (:foreground "CadetBlue"))))
  11320. (font-lock-doc-face ((t (:foreground "RosyBrown"))))
  11321. (font-lock-doc-string-face ((t (:foreground "RosyBrown"))))
  11322. (font-lock-function-name-face ((t (:foreground "Blue"))))
  11323. (font-lock-keyword-face ((t (:foreground "Purple"))))
  11324. (font-lock-preprocessor-face ((t (:foreground "CadetBlue"))))
  11325. (font-lock-reference-face ((t (:foreground "Orchid"))))
  11326. (font-lock-string-face ((t (:foreground "RosyBrown"))))
  11327. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  11328. (font-lock-variable-name-face ((t (:foreground "DarkGoldenrod"))))
  11329. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  11330. (fringe ((t (:background "grey95"))))
  11331. (gnus-cite-attribution-face ((t (:italic t :slant italic))))
  11332. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  11333. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  11334. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  11335. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  11336. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  11337. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  11338. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  11339. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  11340. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  11341. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  11342. (gnus-cite-face-9 ((t (:foreground "violet"))))
  11343. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  11344. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  11345. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  11346. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  11347. (gnus-emphasis-underline ((t (:underline t))))
  11348. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  11349. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  11350. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  11351. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  11352. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3" :weight bold))))
  11353. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  11354. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3" :weight bold))))
  11355. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  11356. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4" :weight bold))))
  11357. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  11358. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4" :weight bold))))
  11359. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  11360. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  11361. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  11362. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4" :weight bold))))
  11363. (gnus-group-news-3-empty-face ((t (nil))))
  11364. (gnus-group-news-3-face ((t (:bold t :weight bold))))
  11365. (gnus-group-news-4-empty-face ((t (nil))))
  11366. (gnus-group-news-4-face ((t (:bold t :weight bold))))
  11367. (gnus-group-news-5-empty-face ((t (nil))))
  11368. (gnus-group-news-5-face ((t (:bold t :weight bold))))
  11369. (gnus-group-news-6-empty-face ((t (nil))))
  11370. (gnus-group-news-6-face ((t (:bold t :weight bold))))
  11371. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  11372. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  11373. (gnus-header-content-face ((t (:italic t :foreground "indianred4" :slant italic))))
  11374. (gnus-header-from-face ((t (:foreground "red3"))))
  11375. (gnus-header-name-face ((t (:foreground "maroon"))))
  11376. (gnus-header-newsgroups-face ((t (:italic t :foreground "MidnightBlue" :slant italic))))
  11377. (gnus-header-subject-face ((t (:foreground "red4"))))
  11378. (gnus-signature-face ((t (:italic t :slant italic))))
  11379. (gnus-splash-face ((t (:foreground "Brown"))))
  11380. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  11381. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
  11382. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen" :weight bold))))
  11383. (gnus-summary-high-ticked-face ((t (:bold t :foreground "firebrick" :weight bold))))
  11384. (gnus-summary-high-unread-face ((t (:bold t :weight bold))))
  11385. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
  11386. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen" :slant italic))))
  11387. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick" :slant italic))))
  11388. (gnus-summary-low-unread-face ((t (:italic t :slant italic))))
  11389. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  11390. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  11391. (gnus-summary-normal-ticked-face ((t (:foreground "firebrick"))))
  11392. (gnus-summary-normal-unread-face ((t (nil))))
  11393. (gnus-summary-selected-face ((t (:underline t))))
  11394. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey90" :foreground "grey20" :box nil))))
  11395. (hi-black-b ((t (:bold t :weight bold))))
  11396. (hi-black-hb ((t (:bold t :family "helv" :weight bold :height 1.67))))
  11397. (hi-blue ((t (:background "light blue"))))
  11398. (hi-blue-b ((t (:bold t :foreground "blue" :weight bold))))
  11399. (hi-green ((t (:background "green"))))
  11400. (hi-green-b ((t (:bold t :foreground "green" :weight bold))))
  11401. (hi-pink ((t (:background "pink"))))
  11402. (hi-red-b ((t (:bold t :foreground "red" :weight bold))))
  11403. (hi-yellow ((t (:background "yellow"))))
  11404. (highlight ((t (:background "darkseagreen2"))))
  11405. (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
  11406. (highlight-changes-face ((t (:foreground "red"))))
  11407. (holiday-face ((t (:background "pink"))))
  11408. (idlwave-help-link-face ((t (:foreground "Blue"))))
  11409. (idlwave-shell-bp-face ((t (:background "Pink" :foreground "Black"))))
  11410. (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "brown"))))
  11411. (info-header-xref ((t (:bold t :weight bold :foreground "magenta4"))))
  11412. (info-menu-5 ((t (:foreground "red1"))))
  11413. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  11414. (info-node ((t (:italic t :bold t :foreground "brown" :slant italic :weight bold))))
  11415. (info-xref ((t (:bold t :foreground "magenta4" :weight bold))))
  11416. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  11417. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  11418. (italic ((t (:italic t :slant italic))))
  11419. (log-view-file-face ((t (:bold t :background "grey70" :weight bold))))
  11420. (log-view-message-face ((t (:background "grey85"))))
  11421. (makefile-space-face ((t (:background "hotpink"))))
  11422. (menu ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
  11423. (message-cited-text-face ((t (:foreground "red"))))
  11424. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  11425. (message-header-name-face ((t (:foreground "cornflower blue"))))
  11426. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4" :slant italic :weight bold))))
  11427. (message-header-other-face ((t (:foreground "steel blue"))))
  11428. (message-header-subject-face ((t (:bold t :foreground "navy blue" :weight bold))))
  11429. (message-header-to-face ((t (:bold t :foreground "MidnightBlue" :weight bold))))
  11430. (message-header-xheader-face ((t (:foreground "blue"))))
  11431. (message-mml-face ((t (:foreground "ForestGreen"))))
  11432. (message-separator-face ((t (:foreground "brown"))))
  11433. (mode-line ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
  11434. (modeline ((t (:background "grey50" :foreground "white" :box (:line-width -1 :style released-button)))))
  11435. (modeline-buffer-id ((t (:bold t :background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  11436. (modeline-mousable ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  11437. (modeline-mousable-minor-mode ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  11438. (mouse ((t (:background "black"))))
  11439. (primary-selection ((t (:background "lightgoldenrod2"))))
  11440. (reb-match-0 ((t (:background "lightblue"))))
  11441. (reb-match-1 ((t (:background "aquamarine"))))
  11442. (reb-match-2 ((t (:background "springgreen"))))
  11443. (reb-match-3 ((t (:background "yellow"))))
  11444. (region ((t (:background "lightgoldenrod2"))))
  11445. (scroll-bar ((t (:background "grey75"))))
  11446. (secondary-selection ((t (:background "yellow"))))
  11447. (sh-heredoc-face ((t (:foreground "tan"))))
  11448. (show-paren-match-face ((t (:background "turquoise"))))
  11449. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  11450. (show-tabs-space-face ((t (:foreground "yellow"))))
  11451. (show-tabs-tab-face ((t (:foreground "red"))))
  11452. (smerge-base-face ((t (:foreground "red"))))
  11453. (smerge-markers-face ((t (:background "grey85"))))
  11454. (smerge-mine-face ((t (:foreground "blue"))))
  11455. (smerge-other-face ((t (:foreground "darkgreen"))))
  11456. (speedbar-button-face ((t (:foreground "green4"))))
  11457. (speedbar-directory-face ((t (:foreground "blue4"))))
  11458. (speedbar-file-face ((t (:foreground "cyan4"))))
  11459. (speedbar-highlight-face ((t (:background "green"))))
  11460. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  11461. (speedbar-tag-face ((t (:foreground "brown"))))
  11462. (strokes-char-face ((t (:background "lightgray"))))
  11463. (term-black ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11464. (term-blackbg ((t (:stipple nil :background "black" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11465. (term-blue ((t (:stipple nil :background "white" :foreground "blue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11466. (term-bluebg ((t (:stipple nil :background "blue" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11467. (term-bold ((t (:bold t :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :width normal :family "adobe-courier"))))
  11468. (term-cyan ((t (:stipple nil :background "white" :foreground "cyan" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11469. (term-cyanbg ((t (:stipple nil :background "cyan" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11470. (term-default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11471. (term-default-bg ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11472. (term-default-bg-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11473. (term-default-fg ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11474. (term-default-fg-inv ((t (:stipple nil :background "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11475. (term-green ((t (:stipple nil :background "white" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11476. (term-greenbg ((t (:stipple nil :background "green" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11477. (term-invisible ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11478. (term-invisible-inv ((t (:stipple nil :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11479. (term-magenta ((t (:stipple nil :background "white" :foreground "magenta" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11480. (term-magentabg ((t (:stipple nil :background "magenta" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11481. (term-red ((t (:stipple nil :background "white" :foreground "red" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11482. (term-redbg ((t (:stipple nil :background "red" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11483. (term-underline ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline t :slant normal :weight normal :width normal :family "adobe-courier"))))
  11484. (term-white ((t (:stipple nil :background "white" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11485. (term-whitebg ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11486. (term-yellow ((t (:stipple nil :background "white" :foreground "yellow" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11487. (term-yellowbg ((t (:stipple nil :background "yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "adobe-courier"))))
  11488. (tex-math-face ((t (:foreground "RosyBrown"))))
  11489. (texinfo-heading-face ((t (:foreground "Blue"))))
  11490. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  11491. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  11492. (trailing-whitespace ((t (:background "red"))))
  11493. (underline ((t (:underline t))))
  11494. (variable-pitch ((t (:family "helv"))))
  11495. (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
  11496. (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
  11497. (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
  11498. (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
  11499. (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
  11500. (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
  11501. (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
  11502. (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
  11503. (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
  11504. (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
  11505. (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
  11506. (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
  11507. (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
  11508. (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
  11509. (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
  11510. (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
  11511. (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
  11512. (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
  11513. (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
  11514. (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
  11515. (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
  11516. (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
  11517. (viper-search-face ((t (:background "khaki" :foreground "Black"))))
  11518. (widget-button-face ((t (:bold t :weight bold))))
  11519. (widget-button-pressed-face ((t (:foreground "red"))))
  11520. (widget-documentation-face ((t (:foreground "dark green"))))
  11521. (widget-field-face ((t (:background "gray85"))))
  11522. (widget-inactive-face ((t (:foreground "dim gray"))))
  11523. (widget-single-line-field-face ((t (:background "gray85"))))
  11524. (woman-addition-face ((t (:foreground "orange"))))
  11525. (woman-bold-face ((t (:bold t :foreground "blue" :weight bold))))
  11526. (woman-italic-face ((t (:italic t :foreground "red" :underline t :slant italic))))
  11527. (woman-unknown-face ((t (:foreground "brown"))))
  11528. (zmacs-region ((t (:background "lightgoldenrod2")))))))
  11529. (defun color-theme-late-night ()
  11530. "Color theme by Alex Schroeder, created 2003-08-07.
  11531. This theme is for use late at night, with only little light in the room.
  11532. The goal was to make something as dark and subtle as the text console in
  11533. its default 80x25 state -- dark grey on black."
  11534. (interactive)
  11535. (let ((color-theme-is-cumulative t))
  11536. (color-theme-dark-erc)
  11537. (color-theme-dark-gnus)
  11538. ;; (color-theme-dark-diff)
  11539. ;; (color-theme-dark-eshell)
  11540. (color-theme-dark-info)
  11541. (color-theme-dark-font-lock)
  11542. (color-theme-install
  11543. '(color-theme-late-night
  11544. ((background-color . "#000")
  11545. (background-mode . dark)
  11546. (background-toolbar-color . "#000")
  11547. (border-color . "#000")
  11548. (bottom-toolbar-shadow-color . "#000")
  11549. (cursor-color . "#888")
  11550. (foreground-color . "#666")
  11551. (top-toolbar-shadow-color . "#111"))
  11552. (default ((t (nil))))
  11553. (bold ((t (:bold t))))
  11554. (button ((t (:bold t))))
  11555. (custom-button-face ((t (:bold t :foreground "#999"))))
  11556. (fringe ((t (:background "#111" :foreground "#444"))))
  11557. (header-line ((t (:background "#333" :foreground "#000"))))
  11558. (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
  11559. (holiday-face ((t (:background "#000" :foreground "#777"))))
  11560. (isearch ((t (:foreground "pink" :background "red"))))
  11561. (isearch-lazy-highlight-face ((t (:foreground "red"))))
  11562. (italic ((t (:bold t))))
  11563. (menu ((t (:background "#111" :foreground "#444"))))
  11564. (minibuffer-prompt ((t (:foreground "555"))))
  11565. (modeline ((t (:background "#111" :foreground "#444"))))
  11566. (mode-line-inactive ((t (:background "#000" :foreground "#444"))))
  11567. (modeline-buffer-id ((t (:background "#000" :foreground "#555"))))
  11568. (modeline-mousable ((t (:background "#000" :foreground "#555"))))
  11569. (modeline-mousable-minor-mode ((t (:background "#000" :foreground "#555"))))
  11570. (region ((t (:background "dark cyan" :foreground "cyan"))))
  11571. (secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
  11572. (show-paren-match-face ((t (:foreground "white" :background "light slate blue"))))
  11573. (show-paren-mismatch-face ((t (:foreground "white" :background "red"))))
  11574. (tool-bar ((t (:background "#111" :foreground "#777"))))
  11575. (tooltip ((t (:background "#333" :foreground "#777"))))
  11576. (underline ((t (:bold t))))
  11577. (variable-pitch ((t (nil))))
  11578. (widget-button-face ((t (:bold t :foreground "#888"))))
  11579. (widget-field-face ((t (:bold t :foreground "#999"))))))))
  11580. (defun color-theme-clarity ()
  11581. "White on black color theme by Richard Wellum, created 2003-01-16."
  11582. (interactive)
  11583. (color-theme-install
  11584. '(color-theme-clarity
  11585. ((background-color . "black")
  11586. (background-mode . dark)
  11587. (border-color . "white")
  11588. (cursor-color . "yellow")
  11589. (foreground-color . "white")
  11590. (mouse-color . "white"))
  11591. ((CUA-mode-global-mark-cursor-color . "cyan")
  11592. (CUA-mode-normal-cursor-color . "yellow")
  11593. (CUA-mode-overwrite-cursor-color . "red")
  11594. (CUA-mode-read-only-cursor-color . "green")
  11595. (help-highlight-face . underline)
  11596. (ibuffer-dired-buffer-face . font-lock-function-name-face)
  11597. (ibuffer-help-buffer-face . font-lock-comment-face)
  11598. (ibuffer-hidden-buffer-face . font-lock-warning-face)
  11599. (ibuffer-occur-match-face . font-lock-warning-face)
  11600. (ibuffer-read-only-buffer-face . font-lock-type-face)
  11601. (ibuffer-special-buffer-face . font-lock-keyword-face)
  11602. (ibuffer-title-face . font-lock-type-face)
  11603. (list-matching-lines-face . bold)
  11604. (ps-line-number-color . "black")
  11605. (ps-zebra-color . 0.95)
  11606. (tags-tag-face . default)
  11607. (view-highlight-face . highlight)
  11608. (widget-mouse-face . highlight))
  11609. (default ((t (nil))))
  11610. (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
  11611. (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
  11612. (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
  11613. (bold ((t (:bold t :weight bold))))
  11614. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  11615. (border ((t (:background "white"))))
  11616. (clearcase-dired-checkedout-face ((t (:foreground "red"))))
  11617. (comint-highlight-input ((t (:bold t :weight bold))))
  11618. (comint-highlight-prompt ((t (:foreground "cyan"))))
  11619. (cursor ((t (:background "yellow"))))
  11620. (fixed-pitch ((t (:family "courier"))))
  11621. (flash-paren-face-off ((t (nil))))
  11622. (flash-paren-face-on ((t (nil))))
  11623. (flash-paren-face-region ((t (nil))))
  11624. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  11625. (font-lock-comment-face ((t (:foreground "OrangeRed"))))
  11626. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  11627. (font-lock-doc-face ((t (:foreground "LightSalmon"))))
  11628. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  11629. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  11630. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  11631. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  11632. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  11633. (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  11634. (fringe ((t (:background "grey10"))))
  11635. (header-line ((t (:box (:line-width -1 :style released-button) :foreground "grey20" :background "grey90" :box nil))))
  11636. (highlight ((t (:background "darkolivegreen"))))
  11637. (ibuffer-deletion-face ((t (:foreground "red"))))
  11638. (ibuffer-marked-face ((t (:foreground "green"))))
  11639. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  11640. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  11641. (italic ((t (:italic t :slant italic))))
  11642. (menu ((t (nil))))
  11643. (mode-line ((t (:foreground "yellow" :background "darkslateblue" :box (:line-width -1 :style released-button)))))
  11644. (mouse ((t (:background "white"))))
  11645. (region ((t (:background "blue"))))
  11646. (scroll-bar ((t (nil))))
  11647. (secondary-selection ((t (:background "darkslateblue"))))
  11648. (show-block-face1 ((t (:background "gray10"))))
  11649. (show-block-face2 ((t (:background "gray15"))))
  11650. (show-block-face3 ((t (:background "gray20"))))
  11651. (show-block-face4 ((t (:background "gray25"))))
  11652. (show-block-face5 ((t (:background "gray30"))))
  11653. (show-block-face6 ((t (:background "gray35"))))
  11654. (show-block-face7 ((t (:background "gray40"))))
  11655. (show-block-face8 ((t (:background "gray45"))))
  11656. (show-block-face9 ((t (:background "gray50"))))
  11657. (show-paren-match-face ((t (:background "turquoise"))))
  11658. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  11659. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  11660. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  11661. (trailing-whitespace ((t (:background "red"))))
  11662. (underline ((t (:underline t))))
  11663. (variable-pitch ((t (:family "helv"))))
  11664. (widget-button-face ((t (:bold t :weight bold))))
  11665. (widget-button-pressed-face ((t (:foreground "red"))))
  11666. (widget-documentation-face ((t (:foreground "lime green"))))
  11667. (widget-field-face ((t (:background "dim gray"))))
  11668. (widget-inactive-face ((t (:foreground "light gray"))))
  11669. (widget-single-line-field-face ((t (:background "dim gray")))))))
  11670. (defun color-theme-andreas ()
  11671. "Color theme by Andreas Busch, created 2003-02-06."
  11672. (interactive)
  11673. (color-theme-install
  11674. '(color-theme-andreas
  11675. ((background-mode . light)
  11676. (background-color . "white")
  11677. (background-toolbar-color . "#cccccccccccc")
  11678. (border-color . "#000000000000")
  11679. (bottom-toolbar-shadow-color . "#7a7a7a7a7a7a")
  11680. (foreground-color . "black")
  11681. (top-toolbar-shadow-color . "#f5f5f5f5f5f5"))
  11682. ((gnus-mouse-face . highlight)
  11683. (ispell-highlight-face . highlight))
  11684. (default ((t (nil))))
  11685. (OrangeRed ((t (nil))))
  11686. (blue ((t (:foreground "blue"))))
  11687. (bold ((t (:bold t))))
  11688. (bold-italic ((t (:italic t :bold t))))
  11689. (border-glyph ((t (nil))))
  11690. (calendar-today-face ((t (:underline t))))
  11691. (color-mode-face-@ ((t (:foreground "orange"))))
  11692. (color-mode-face-a ((t (:foreground "blue"))))
  11693. (color-mode-face-b ((t (:foreground "red"))))
  11694. (color-mode-face-c ((t (:foreground "green3"))))
  11695. (color-mode-face-d ((t (:background "red" :foreground "white"))))
  11696. (color-mode-face-e ((t (:background "orange" :foreground "blue"))))
  11697. (color-mode-face-f ((t (:background "blue" :foreground "yellow"))))
  11698. (color-mode-face-g ((t (:background "lightblue" :foreground "brown"))))
  11699. (color-mode-face-h ((t (:background "brown" :foreground "white"))))
  11700. (custom-button-face ((t (:bold t))))
  11701. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  11702. (custom-documentation-face ((t (nil))))
  11703. (custom-face-tag-face ((t (:underline t))))
  11704. (custom-group-tag-face ((t (:underline t :foreground "blue"))))
  11705. (custom-group-tag-face-1 ((t (:underline t :foreground "red"))))
  11706. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  11707. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  11708. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  11709. (custom-saved-face ((t (:underline t))))
  11710. (custom-set-face ((t (:background "white" :foreground "blue"))))
  11711. (custom-state-face ((t (:foreground "dark green"))))
  11712. (custom-variable-button-face ((t (:underline t :bold t :background "gray90"))))
  11713. (custom-variable-tag-face ((t (:underline t :background "gray95" :foreground "blue"))))
  11714. (diary-face ((t (:foreground "red"))))
  11715. (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
  11716. (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
  11717. (display-time-time-balloon-face ((t (:foreground "red"))))
  11718. (emacs-wiki-bad-link-face ((t (:bold t :foreground "red"))))
  11719. (emacs-wiki-link-face ((t (:bold t :foreground "green"))))
  11720. (font-lock-comment-face ((t (:foreground "orange1"))))
  11721. (font-lock-doc-string-face ((t (:foreground "green4"))))
  11722. (font-lock-function-name-face ((t (:foreground "blue3"))))
  11723. (font-lock-keyword-face ((t (:foreground "red1"))))
  11724. (font-lock-preprocessor-face ((t (:foreground "blue3"))))
  11725. (font-lock-reference-face ((t (:foreground "red3"))))
  11726. (font-lock-string-face ((t (:foreground "green4"))))
  11727. (font-lock-type-face ((t (:foreground "#6920ac"))))
  11728. (font-lock-variable-name-face ((t (:foreground "blue3"))))
  11729. (font-lock-warning-face ((t (:bold t :foreground "Red"))))
  11730. (gnu-cite-face-3 ((t (nil))))
  11731. (gnu-cite-face-4 ((t (nil))))
  11732. (gnus-cite-attribution-face ((t (:underline t))))
  11733. (gnus-cite-face-1 ((t (:foreground "MidnightBlue"))))
  11734. (gnus-cite-face-10 ((t (:foreground "medium purple"))))
  11735. (gnus-cite-face-11 ((t (:foreground "turquoise"))))
  11736. (gnus-cite-face-2 ((t (:foreground "firebrick"))))
  11737. (gnus-cite-face-3 ((t (:foreground "dark green"))))
  11738. (gnus-cite-face-4 ((t (:foreground "OrangeRed"))))
  11739. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  11740. (gnus-cite-face-6 ((t (:foreground "dark violet"))))
  11741. (gnus-cite-face-7 ((t (:foreground "SteelBlue4"))))
  11742. (gnus-cite-face-8 ((t (:foreground "magenta"))))
  11743. (gnus-cite-face-9 ((t (:foreground "violet"))))
  11744. (gnus-emphasis-bold ((t (:bold t))))
  11745. (gnus-emphasis-bold-italic ((t (:italic t :bold t))))
  11746. (gnus-emphasis-italic ((t (:italic t))))
  11747. (gnus-emphasis-underline ((t (:underline t))))
  11748. (gnus-emphasis-underline-bold ((t (:underline t :bold t))))
  11749. (gnus-emphasis-underline-bold-italic ((t (:underline t :italic t :bold t))))
  11750. (gnus-emphasis-underline-italic ((t (:underline t :italic t))))
  11751. (gnus-group-mail-1-empty-face ((t (:foreground "DeepPink3"))))
  11752. (gnus-group-mail-1-face ((t (:bold t :foreground "DeepPink3"))))
  11753. (gnus-group-mail-2-empty-face ((t (:foreground "HotPink3"))))
  11754. (gnus-group-mail-2-face ((t (:bold t :foreground "HotPink3"))))
  11755. (gnus-group-mail-3-empty-face ((t (:foreground "magenta4"))))
  11756. (gnus-group-mail-3-face ((t (:bold t :foreground "magenta4"))))
  11757. (gnus-group-mail-low-empty-face ((t (:foreground "DeepPink4"))))
  11758. (gnus-group-mail-low-face ((t (:bold t :foreground "DeepPink4"))))
  11759. (gnus-group-news-1-empty-face ((t (:foreground "ForestGreen"))))
  11760. (gnus-group-news-1-face ((t (:bold t :foreground "ForestGreen"))))
  11761. (gnus-group-news-2-empty-face ((t (:foreground "CadetBlue4"))))
  11762. (gnus-group-news-2-face ((t (:bold t :foreground "CadetBlue4"))))
  11763. (gnus-group-news-3-empty-face ((t (nil))))
  11764. (gnus-group-news-3-face ((t (:bold t))))
  11765. (gnus-group-news-4-empty-face ((t (nil))))
  11766. (gnus-group-news-4-face ((t (:bold t))))
  11767. (gnus-group-news-5-empty-face ((t (nil))))
  11768. (gnus-group-news-5-face ((t (:bold t))))
  11769. (gnus-group-news-6-empty-face ((t (nil))))
  11770. (gnus-group-news-6-face ((t (:bold t))))
  11771. (gnus-group-news-low-empty-face ((t (:foreground "DarkGreen"))))
  11772. (gnus-group-news-low-face ((t (:bold t :foreground "DarkGreen"))))
  11773. (gnus-header-content-face ((t (:italic t :foreground "indianred4"))))
  11774. (gnus-header-from-face ((t (:bold t :foreground "red3"))))
  11775. (gnus-header-name-face ((t (:foreground "maroon"))))
  11776. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MidnightBlue"))))
  11777. (gnus-header-subject-face ((t (:bold t :foreground "red4"))))
  11778. (gnus-splash-face ((t (:foreground "red"))))
  11779. (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
  11780. (gnus-summary-high-ancient-face ((t (:bold t :foreground "RoyalBlue"))))
  11781. (gnus-summary-high-read-face ((t (:bold t :foreground "DarkGreen"))))
  11782. (gnus-summary-high-ticked-face ((t (:bold t :foreground "DarkRed"))))
  11783. (gnus-summary-high-unread-face ((t (:bold t))))
  11784. (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue"))))
  11785. (gnus-summary-low-read-face ((t (:italic t :foreground "DarkGreen"))))
  11786. (gnus-summary-low-ticked-face ((t (:italic t :foreground "firebrick"))))
  11787. (gnus-summary-low-unread-face ((t (:italic t))))
  11788. (gnus-summary-normal-ancient-face ((t (:foreground "RoyalBlue"))))
  11789. (gnus-summary-normal-read-face ((t (:foreground "DarkGreen"))))
  11790. (gnus-summary-normal-ticked-face ((t (:foreground "Red"))))
  11791. (gnus-summary-normal-unread-face ((t (nil))))
  11792. (gnus-summary-selected-face ((t (:underline t))))
  11793. (gnus-x-face ((t (nil))))
  11794. (green ((t (:foreground "green"))))
  11795. (gui-button-face ((t (:background "grey75"))))
  11796. (gui-element ((t (:background "Gray80"))))
  11797. (highlight ((t (nil))))
  11798. (holiday-face ((t (:background "pink"))))
  11799. (hyper-apropos-documentation ((t (:foreground "darkred"))))
  11800. (hyper-apropos-heading ((t (:bold t))))
  11801. (hyper-apropos-hyperlink ((t (:foreground "blue4"))))
  11802. (hyper-apropos-major-heading ((t (:bold t))))
  11803. (hyper-apropos-section-heading ((t (:italic t :bold t))))
  11804. (hyper-apropos-warning ((t (:bold t :foreground "red"))))
  11805. (info-node ((t (:italic t :bold t))))
  11806. (info-xref ((t (:bold t))))
  11807. (isearch ((t (:background "yellow" :foreground "red"))))
  11808. (italic ((t (:italic t))))
  11809. (kai-gnus-cite-face-1 ((t (:foreground "LightCyan4"))))
  11810. (kai-gnus-cite-face-2 ((t (:foreground "LightSkyBlue2"))))
  11811. (kai-gnus-cite-face-3 ((t (:foreground "DodgerBlue3"))))
  11812. (kai-gnus-group-mail-face ((t (:foreground "darkslategrey"))))
  11813. (kai-gnus-group-nonempty-mail-face ((t (:foreground "DarkRed"))))
  11814. (kai-gnus-group-starred-face ((t (:foreground "grey50"))))
  11815. (left-margin ((t (nil))))
  11816. (list-mode-item-selected ((t (:background "gray68"))))
  11817. (message-cited-text ((t (:italic t))))
  11818. (message-cited-text-face ((t (:foreground "red"))))
  11819. (message-header-cc-face ((t (:foreground "MidnightBlue"))))
  11820. (message-header-contents ((t (:italic t))))
  11821. (message-header-name-face ((t (:foreground "cornflower blue"))))
  11822. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "blue4"))))
  11823. (message-header-other-face ((t (:foreground "steel blue"))))
  11824. (message-header-subject-face ((t (:bold t :foreground "navy blue"))))
  11825. (message-header-to-face ((t (:bold t :foreground "MidnightBlue"))))
  11826. (message-header-xheader-face ((t (:foreground "blue"))))
  11827. (message-headers ((t (:bold t))))
  11828. (message-highlighted-header-contents ((t (:italic t :bold t))))
  11829. (message-mml-face ((t (:foreground "ForestGreen"))))
  11830. (message-separator-face ((t (:foreground "brown"))))
  11831. (modeline ((t (:background "Gray75" :foreground "Black"))))
  11832. (modeline-buffer-id ((t (:background "Gray75" :foreground "blue4"))))
  11833. (modeline-mousable ((t (:background "Gray75" :foreground "firebrick"))))
  11834. (modeline-mousable-minor-mode ((t (:background "Gray75" :foreground "green4"))))
  11835. (paren-blink-off ((t (:foreground "gray80"))))
  11836. (paren-match ((t (:background "red" :foreground "white"))))
  11837. (paren-mismatch ((t (:background "DeepPink"))))
  11838. (pointer ((t (:foreground "blue"))))
  11839. (primary-selection ((t (:background "gray65"))))
  11840. (red ((t (:foreground "red"))))
  11841. (region ((t (:background "gray75"))))
  11842. (right-margin ((t (nil))))
  11843. (secondary-selection ((t (:background "paleturquoise"))))
  11844. (text-cursor ((t (:background "red" :foreground "LightYellow1"))))
  11845. (toolbar ((t (:background "Gray80"))))
  11846. (underline ((t (:underline t))))
  11847. (vertical-divider ((t (:background "Gray80"))))
  11848. (widget-button-face ((t (:bold t))))
  11849. (widget-button-pressed-face ((t (:foreground "red"))))
  11850. (widget-documentation-face ((t (:foreground "dark green"))))
  11851. (widget-field-face ((t (:background "gray85"))))
  11852. (widget-inactive-face ((t (:foreground "dim gray"))))
  11853. (x-face ((t (:background "white"))))
  11854. (yellow ((t (:foreground "yellow"))))
  11855. (zmacs-region ((t (:background "gray65" :foreground "yellow")))))))
  11856. (defun color-theme-charcoal-black ()
  11857. "Color theme by Lars Chr. Hausmann, created 2003-03-24."
  11858. (interactive)
  11859. (color-theme-install
  11860. '(color-theme-charcoal-black
  11861. ((background-color . "Grey15")
  11862. (background-mode . dark)
  11863. (border-color . "Grey")
  11864. (cursor-color . "Grey")
  11865. (foreground-color . "Grey")
  11866. (mouse-color . "Grey"))
  11867. ((display-time-mail-face . mode-line)
  11868. (gnus-article-button-face . bold)
  11869. (gnus-article-mouse-face . highlight)
  11870. (gnus-mouse-face . highlight)
  11871. (gnus-server-agent-face . gnus-server-agent-face)
  11872. (gnus-server-closed-face . gnus-server-closed-face)
  11873. (gnus-server-denied-face . gnus-server-denied-face)
  11874. (gnus-server-offline-face . gnus-server-offline-face)
  11875. (gnus-server-opened-face . gnus-server-opened-face)
  11876. (gnus-signature-face . gnus-signature-face)
  11877. (gnus-summary-selected-face . gnus-summary-selected-face)
  11878. (help-highlight-face . underline)
  11879. (list-matching-lines-face . bold)
  11880. (mime-button-face . bold)
  11881. (mime-button-mouse-face . highlight)
  11882. (sgml-set-face . t)
  11883. (tags-tag-face . default)
  11884. (view-highlight-face . highlight)
  11885. (widget-mouse-face . highlight))
  11886. (default ((t (:stipple nil :background "Grey15" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed"))))
  11887. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  11888. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  11889. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  11890. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  11891. (bg:erc-color-face0 ((t (nil))))
  11892. (bg:erc-color-face1 ((t (nil))))
  11893. (bg:erc-color-face10 ((t (nil))))
  11894. (bg:erc-color-face11 ((t (nil))))
  11895. (bg:erc-color-face12 ((t (nil))))
  11896. (bg:erc-color-face13 ((t (nil))))
  11897. (bg:erc-color-face14 ((t (nil))))
  11898. (bg:erc-color-face15 ((t (nil))))
  11899. (bg:erc-color-face2 ((t (nil))))
  11900. (bg:erc-color-face3 ((t (nil))))
  11901. (bg:erc-color-face4 ((t (nil))))
  11902. (bg:erc-color-face5 ((t (nil))))
  11903. (bg:erc-color-face6 ((t (nil))))
  11904. (bg:erc-color-face7 ((t (nil))))
  11905. (bg:erc-color-face8 ((t (nil))))
  11906. (bg:erc-color-face9 ((t (nil))))
  11907. (bold ((t (:bold t :weight bold))))
  11908. (bold-italic ((t (:bold t :foreground "beige" :weight bold))))
  11909. (border ((t (:background "Grey"))))
  11910. (calendar-today-face ((t (:underline t))))
  11911. (comint-highlight-input ((t (:bold t :weight bold))))
  11912. (comint-highlight-prompt ((t (:foreground "cyan"))))
  11913. (cperl-array-face ((t (:bold t :foreground "light salmon" :weight bold))))
  11914. (cperl-hash-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
  11915. (cperl-nonoverridable-face ((t (:foreground "aquamarine"))))
  11916. (cursor ((t (:background "Grey"))))
  11917. (custom-button-face ((t (:foreground "gainsboro"))))
  11918. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  11919. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  11920. (custom-comment-face ((t (:background "dim gray"))))
  11921. (custom-comment-tag-face ((t (:foreground "gray80"))))
  11922. (custom-documentation-face ((t (:foreground "light blue"))))
  11923. (custom-face-tag-face ((t (:underline t))))
  11924. (custom-group-tag-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
  11925. (custom-group-tag-face-1 ((t (:foreground "pale turquoise" :underline t))))
  11926. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  11927. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  11928. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  11929. (custom-saved-face ((t (:underline t))))
  11930. (custom-set-face ((t (:background "white" :foreground "blue"))))
  11931. (custom-state-face ((t (:foreground "light salmon"))))
  11932. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  11933. (custom-variable-tag-face ((t (:bold t :foreground "turquoise" :weight bold))))
  11934. (diary-face ((t (:foreground "red"))))
  11935. (dired-face-directory ((t (:bold t :foreground "sky blue" :weight bold))))
  11936. (dired-face-executable ((t (:foreground "green yellow"))))
  11937. (dired-face-flagged ((t (:foreground "tomato"))))
  11938. (dired-face-marked ((t (:foreground "light salmon"))))
  11939. (dired-face-permissions ((t (:foreground "aquamarine"))))
  11940. (erc-action-face ((t (nil))))
  11941. (erc-bold-face ((t (:bold t :weight bold))))
  11942. (erc-default-face ((t (nil))))
  11943. (erc-direct-msg-face ((t (:foreground "pale green"))))
  11944. (erc-error-face ((t (:bold t :foreground "IndianRed" :weight bold))))
  11945. (erc-highlight-face ((t (:bold t :foreground "pale green" :weight bold))))
  11946. (erc-input-face ((t (:foreground "light blue"))))
  11947. (erc-inverse-face ((t (:background "steel blue"))))
  11948. (erc-notice-face ((t (:foreground "light salmon"))))
  11949. (erc-pal-face ((t (:foreground "pale green"))))
  11950. (erc-prompt-face ((t (:bold t :foreground "light blue" :weight bold))))
  11951. (eshell-ls-archive-face ((t (:bold t :foreground "medium purple" :weight bold))))
  11952. (eshell-ls-backup-face ((t (:foreground "dim gray"))))
  11953. (eshell-ls-clutter-face ((t (:foreground "dim gray"))))
  11954. (eshell-ls-directory-face ((t (:bold t :foreground "medium slate blue" :weight bold))))
  11955. (eshell-ls-executable-face ((t (:bold t :foreground "aquamarine" :weight bold))))
  11956. (eshell-ls-missing-face ((t (:foreground "black"))))
  11957. (eshell-ls-picture-face ((t (:foreground "violet"))))
  11958. (eshell-ls-product-face ((t (:foreground "light steel blue"))))
  11959. (eshell-ls-readonly-face ((t (:foreground "aquamarine"))))
  11960. (eshell-ls-special-face ((t (:foreground "gold"))))
  11961. (eshell-ls-symlink-face ((t (:foreground "white"))))
  11962. (eshell-ls-unreadable-face ((t (:foreground "dim gray"))))
  11963. (eshell-prompt-face ((t (:bold t :foreground "light sky blue" :weight bold))))
  11964. (excerpt ((t (:italic t :slant italic))))
  11965. (fg:erc-color-face0 ((t (:foreground "white"))))
  11966. (fg:erc-color-face1 ((t (:foreground "beige"))))
  11967. (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
  11968. (fg:erc-color-face11 ((t (:foreground "light goldenrod yellow"))))
  11969. (fg:erc-color-face12 ((t (:foreground "light yellow"))))
  11970. (fg:erc-color-face13 ((t (:foreground "yellow"))))
  11971. (fg:erc-color-face14 ((t (:foreground "light goldenrod"))))
  11972. (fg:erc-color-face15 ((t (:foreground "lime green"))))
  11973. (fg:erc-color-face2 ((t (:foreground "lemon chiffon"))))
  11974. (fg:erc-color-face3 ((t (:foreground "light cyan"))))
  11975. (fg:erc-color-face4 ((t (:foreground "powder blue"))))
  11976. (fg:erc-color-face5 ((t (:foreground "sky blue"))))
  11977. (fg:erc-color-face6 ((t (:foreground "dark sea green"))))
  11978. (fg:erc-color-face7 ((t (:foreground "pale green"))))
  11979. (fg:erc-color-face8 ((t (:foreground "medium spring green"))))
  11980. (fg:erc-color-face9 ((t (:foreground "khaki"))))
  11981. (fixed ((t (:bold t :weight bold))))
  11982. (fixed-pitch ((t (:family "courier"))))
  11983. (flyspell-duplicate-face ((t (:bold t :foreground "Gold3" :underline t :weight bold))))
  11984. (flyspell-incorrect-face ((t (:bold t :foreground "OrangeRed" :underline t :weight bold))))
  11985. (font-lock-builtin-face ((t (:foreground "aquamarine"))))
  11986. (font-lock-comment-face ((t (:foreground "light blue"))))
  11987. (font-lock-constant-face ((t (:foreground "pale green"))))
  11988. (font-lock-doc-face ((t (:foreground "light sky blue"))))
  11989. (font-lock-doc-string-face ((t (:foreground "sky blue"))))
  11990. (font-lock-function-name-face ((t (:bold t :foreground "aquamarine" :weight bold))))
  11991. (font-lock-keyword-face ((t (:bold t :foreground "pale turquoise" :weight bold))))
  11992. (font-lock-reference-face ((t (:foreground "pale green"))))
  11993. (font-lock-string-face ((t (:foreground "light sky blue"))))
  11994. (font-lock-type-face ((t (:bold t :foreground "sky blue" :weight bold))))
  11995. (font-lock-variable-name-face ((t (:bold t :foreground "turquoise" :weight bold))))
  11996. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  11997. (fringe ((t (:background "Grey15"))))
  11998. (gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
  11999. (gnus-cite-face-2 ((t (:foreground "Khaki"))))
  12000. (gnus-cite-face-3 ((t (:foreground "Coral"))))
  12001. (gnus-cite-face-4 ((t (:foreground "yellow green"))))
  12002. (gnus-cite-face-5 ((t (:foreground "dark khaki"))))
  12003. (gnus-cite-face-6 ((t (:foreground "bisque"))))
  12004. (gnus-cite-face-7 ((t (:foreground "peru"))))
  12005. (gnus-cite-face-8 ((t (:foreground "light coral"))))
  12006. (gnus-cite-face-9 ((t (:foreground "plum"))))
  12007. (gnus-emphasis-bold ((t (:bold t :weight bold))))
  12008. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  12009. (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
  12010. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  12011. (gnus-emphasis-strikethru ((t (nil))))
  12012. (gnus-emphasis-underline ((t (:underline t))))
  12013. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
  12014. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
  12015. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  12016. (gnus-group-mail-1-empty-face ((t (:foreground "White"))))
  12017. (gnus-group-mail-1-face ((t (:bold t :foreground "White" :weight bold))))
  12018. (gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
  12019. (gnus-group-mail-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12020. (gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
  12021. (gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
  12022. (gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
  12023. (gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  12024. (gnus-group-news-1-empty-face ((t (:foreground "White"))))
  12025. (gnus-group-news-1-face ((t (:bold t :foreground "White" :weight bold))))
  12026. (gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
  12027. (gnus-group-news-2-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12028. (gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
  12029. (gnus-group-news-3-face ((t (:bold t :foreground "LightBlue" :weight bold))))
  12030. (gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
  12031. (gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  12032. (gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
  12033. (gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
  12034. (gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
  12035. (gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
  12036. (gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
  12037. (gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
  12038. (gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
  12039. (gnus-header-from-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12040. (gnus-header-name-face ((t (:bold t :foreground "LightBlue" :weight bold))))
  12041. (gnus-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
  12042. (gnus-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12043. (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  12044. (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
  12045. (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight bold))))
  12046. (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
  12047. (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight bold))))
  12048. (gnus-signature-face ((t (:foreground "Grey"))))
  12049. (gnus-splash-face ((t (:foreground "ForestGreen"))))
  12050. (gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
  12051. (gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine" :weight bold))))
  12052. (gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine" :weight bold))))
  12053. (gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon" :weight bold))))
  12054. (gnus-summary-high-unread-face ((t (:italic t :bold t :foreground "beige" :slant italic :weight bold))))
  12055. (gnus-summary-low-ancient-face ((t (:italic t :foreground "DimGray" :slant italic))))
  12056. (gnus-summary-low-read-face ((t (:foreground "slate gray"))))
  12057. (gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
  12058. (gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
  12059. (gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
  12060. (gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
  12061. (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
  12062. (gnus-summary-normal-unread-face ((t (nil))))
  12063. (gnus-summary-selected-face ((t (:underline t))))
  12064. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
  12065. (highlight ((t (:background "dark slate blue" :foreground "light blue"))))
  12066. (highline-face ((t (:background "DeepSkyBlue4"))))
  12067. (holiday-face ((t (:background "pink"))))
  12068. (info-header-node ((t (:bold t :weight bold))))
  12069. (info-header-xref ((t (:bold t :weight bold :foreground "sky blue"))))
  12070. (info-menu-5 ((t (:underline t))))
  12071. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  12072. (info-node ((t (:bold t :weight bold))))
  12073. (info-xref ((t (:bold t :foreground "sky blue" :weight bold))))
  12074. (isearch ((t (:background "slate blue"))))
  12075. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  12076. (italic ((t (:foreground "sky blue"))))
  12077. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  12078. (jde-bug-breakpoint-marker ((t (:background "yellow" :foreground "red"))))
  12079. (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
  12080. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  12081. (jde-java-font-lock-code-face ((t (nil))))
  12082. (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
  12083. (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
  12084. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  12085. (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
  12086. (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
  12087. (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
  12088. (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
  12089. (jde-java-font-lock-pre-face ((t (nil))))
  12090. (jde-java-font-lock-underline-face ((t (:underline t))))
  12091. (makefile-space-face ((t (:background "hotpink"))))
  12092. (menu ((t (:background "MidnightBlue" :foreground "Grey"))))
  12093. (message-cited-text-face ((t (:foreground "LightSalmon"))))
  12094. (message-header-cc-face ((t (:foreground "light cyan"))))
  12095. (message-header-name-face ((t (:foreground "LightBlue"))))
  12096. (message-header-newsgroups-face ((t (:italic t :bold t :foreground "MediumAquamarine" :slant italic :weight bold))))
  12097. (message-header-other-face ((t (:foreground "MediumAquamarine"))))
  12098. (message-header-subject-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12099. (message-header-to-face ((t (:bold t :foreground "light cyan" :weight bold))))
  12100. (message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
  12101. (message-mml-face ((t (:foreground "ForestGreen"))))
  12102. (message-separator-face ((t (:foreground "chocolate"))))
  12103. (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button)))))
  12104. (mouse ((t (:background "Grey"))))
  12105. (region ((t (:background "DarkSlateBlue"))))
  12106. (scroll-bar ((t (:background "grey75"))))
  12107. (secondary-selection ((t (:background "steel blue"))))
  12108. (semantic-dirty-token-face ((t (:background "gray10"))))
  12109. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  12110. (show-paren-match-face ((t (:background "light slate blue" :foreground "white"))))
  12111. (show-paren-mismatch-face ((t (:background "red" :foreground "white"))))
  12112. (speedbar-button-face ((t (:foreground "seashell2"))))
  12113. (speedbar-directory-face ((t (:foreground "seashell3"))))
  12114. (speedbar-file-face ((t (:foreground "seashell4"))))
  12115. (speedbar-highlight-face ((t (:background "dark slate blue" :foreground "wheat"))))
  12116. (speedbar-selected-face ((t (:foreground "seashell1" :underline t))))
  12117. (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
  12118. (speedbar-tag-face ((t (:foreground "antique white"))))
  12119. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
  12120. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  12121. (trailing-whitespace ((t (:background "red"))))
  12122. (underline ((t (:underline t))))
  12123. (variable-pitch ((t (:family "helv"))))
  12124. (widget-button-face ((t (:bold t :weight bold))))
  12125. (widget-button-pressed-face ((t (:foreground "red"))))
  12126. (widget-documentation-face ((t (:foreground "light blue"))))
  12127. (widget-field-face ((t (:background "RoyalBlue4" :foreground "wheat"))))
  12128. (widget-inactive-face ((t (:foreground "dim gray"))))
  12129. (widget-single-line-field-face ((t (:background "slate blue" :foreground "wheat"))))
  12130. (woman-bold-face ((t (:bold t :foreground "sky blue" :weight bold))))
  12131. (woman-italic-face ((t (:foreground "deep sky blue"))))
  12132. (woman-unknown-face ((t (:foreground "LightSalmon"))))
  12133. (zmacs-region ((t (:background "DarkSlateBlue")))))))
  12134. (defun color-theme-vim-colors ()
  12135. "Color theme by Michael Soulier, created 2003-03-26."
  12136. (interactive)
  12137. (color-theme-install
  12138. '(color-theme-vim-colors
  12139. ((background-color . "#ffffff")
  12140. (background-mode . light)
  12141. (border-color . "black")
  12142. (cursor-color . "#000000")
  12143. (foreground-color . "#000000")
  12144. (mouse-color . "#000000"))
  12145. ((Man-overstrike-face . bold)
  12146. (Man-underline-face . underline)
  12147. (apropos-keybinding-face . underline)
  12148. (apropos-label-face . italic)
  12149. (apropos-match-face . secondary-selection)
  12150. (apropos-property-face . bold-italic)
  12151. (apropos-symbol-face . bold)
  12152. (cperl-here-face . font-lock-string-face)
  12153. (cperl-invalid-face quote underline)
  12154. (cperl-pod-face . font-lock-comment-face)
  12155. (cperl-pod-head-face . font-lock-variable-name-face)
  12156. (help-highlight-face . underline)
  12157. (ispell-highlight-face . highlight)
  12158. (list-matching-lines-face . bold)
  12159. (rpm-spec-dir-face . rpm-spec-dir-face)
  12160. (rpm-spec-doc-face . rpm-spec-doc-face)
  12161. (rpm-spec-ghost-face . rpm-spec-ghost-face)
  12162. (rpm-spec-macro-face . rpm-spec-macro-face)
  12163. (rpm-spec-package-face . rpm-spec-package-face)
  12164. (rpm-spec-tag-face . rpm-spec-tag-face)
  12165. (tags-tag-face . default)
  12166. (view-highlight-face . highlight)
  12167. (widget-mouse-face . highlight))
  12168. (default ((t (:background "#ffffff" :foreground "#000000"))))
  12169. (Info-title-1-face ((t (nil))))
  12170. (Info-title-2-face ((t (nil))))
  12171. (Info-title-3-face ((t (nil))))
  12172. (Info-title-4-face ((t (:bold (bold extra-bold ultra-bold)))))
  12173. (bold ((t (:bold (bold extra-bold ultra-bold)))))
  12174. (bold-italic ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold)))))
  12175. (border ((t (:background "black"))))
  12176. (comint-highlight-input ((t (:bold (bold extra-bold ultra-bold)))))
  12177. (comint-highlight-prompt ((t (:foreground "dark blue"))))
  12178. (cperl-array-face ((t (:foreground "brown"))))
  12179. (cperl-hash-face ((t (:foreground "red"))))
  12180. (cperl-nonoverridable-face ((t (:foreground "#008b8b"))))
  12181. (cursor ((t (:background "#000000"))))
  12182. (fixed-pitch ((t (nil))))
  12183. (font-lock-builtin-face ((t (:foreground "purple"))))
  12184. (font-lock-comment-face ((t (:foreground "blue"))))
  12185. (font-lock-constant-face ((t (:foreground "green4"))))
  12186. (font-lock-doc-face ((t (:background "#f2f2f2"))))
  12187. (font-lock-function-name-face ((t (:foreground "#008b8b"))))
  12188. (font-lock-keyword-face ((t (:bold (bold extra-bold ultra-bold) :foreground "#a52a2a"))))
  12189. (font-lock-string-face ((t (:background "#f2f2f2" :foreground "#ff00ff"))))
  12190. (font-lock-type-face ((t (:foreground "ForestGreen"))))
  12191. (font-lock-variable-name-face ((t (:foreground "#008b8b"))))
  12192. (font-lock-warning-face ((t (:bold (bold extra-bold ultra-bold) :foreground "Red"))))
  12193. (fringe ((t (:background "#e5e5e5"))))
  12194. (header-line ((t (:background "grey90" :foreground "grey20"))))
  12195. (highlight ((t (:background "darkseagreen2"))))
  12196. (info-header-node ((t (nil))))
  12197. (info-header-xref ((t (nil))))
  12198. (info-menu-5 ((t (:foreground "red1"))))
  12199. (info-menu-header ((t (:bold (bold extra-bold ultra-bold)))))
  12200. (info-node ((t (:italic (italic oblique) :bold (bold extra-bold ultra-bold) :foreground "brown"))))
  12201. (info-xref ((t (:bold (bold extra-bold ultra-bold) :foreground "magenta4"))))
  12202. (isearch ((t (:background "magenta4" :foreground "lightskyblue1"))))
  12203. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  12204. (italic ((t (:italic (italic oblique)))))
  12205. (menu ((t (nil))))
  12206. (mode-line ((t (:background "grey75" :foreground "black"))))
  12207. (mouse ((t (:background "#000000"))))
  12208. (region ((t (:background "lightgoldenrod2"))))
  12209. (rpm-spec-dir-face ((t (:foreground "green"))))
  12210. (rpm-spec-doc-face ((t (:foreground "magenta"))))
  12211. (rpm-spec-ghost-face ((t (:foreground "red"))))
  12212. (rpm-spec-macro-face ((t (:foreground "purple"))))
  12213. (rpm-spec-package-face ((t (:foreground "red"))))
  12214. (rpm-spec-tag-face ((t (:foreground "blue"))))
  12215. (scroll-bar ((t (:background "grey75" :foreground "#000000"))))
  12216. (secondary-selection ((t (:background "yellow"))))
  12217. (sh-heredoc-face ((t (:foreground "tan"))))
  12218. (show-paren-match-face ((t (:background "turquoise"))))
  12219. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  12220. (tool-bar ((t (:background "grey75" :foreground "black"))))
  12221. (tooltip ((t (:background "lightyellow" :foreground "black"))))
  12222. (trailing-whitespace ((t (:background "red"))))
  12223. (underline ((t (:underline t))))
  12224. (variable-pitch ((t (nil))))
  12225. (widget-button-face ((t (:bold (bold extra-bold ultra-bold)))))
  12226. (widget-button-pressed-face ((t (:foreground "red"))))
  12227. (widget-documentation-face ((t (:foreground "dark green"))))
  12228. (widget-field-face ((t (:background "gray85"))))
  12229. (widget-inactive-face ((t (:foreground "dim gray"))))
  12230. (widget-single-line-field-face ((t (:background "gray85")))))))
  12231. (defun color-theme-calm-forest ()
  12232. "Color theme by Artur Hefczyc, created 2003-04-18."
  12233. (interactive)
  12234. (color-theme-install
  12235. '(color-theme-calm-forest
  12236. ((background-color . "gray12")
  12237. (background-mode . dark)
  12238. (border-color . "black")
  12239. (cursor-color . "orange")
  12240. (foreground-color . "green")
  12241. (mouse-color . "yellow"))
  12242. ((help-highlight-face . underline)
  12243. (list-matching-lines-face . bold)
  12244. (senator-eldoc-use-color . t)
  12245. (view-highlight-face . highlight)
  12246. (widget-mouse-face . highlight))
  12247. (default ((t (:stipple nil :background "gray12" :foreground "green" :inverse-video nil :box nil
  12248. :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width
  12249. normal :family "outline-courier new"))))
  12250. (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
  12251. (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
  12252. (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
  12253. (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
  12254. (bold ((t (:bold t :weight bold))))
  12255. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  12256. (border ((t (:background "black"))))
  12257. (comint-highlight-input ((t (:bold t :weight bold))))
  12258. (comint-highlight-prompt ((t (:foreground "cyan"))))
  12259. (cparen-around-andor-face ((t (:bold t :foreground "maroon" :weight bold))))
  12260. (cparen-around-begin-face ((t (:foreground "maroon"))))
  12261. (cparen-around-conditional-face ((t (:bold t :foreground "RoyalBlue" :weight bold))))
  12262. (cparen-around-define-face ((t (:bold t :foreground "Blue" :weight bold))))
  12263. (cparen-around-lambda-face ((t (:foreground "LightSeaGreen"))))
  12264. (cparen-around-letdo-face ((t (:bold t :foreground "LightSeaGreen" :weight bold))))
  12265. (cparen-around-quote-face ((t (:foreground "SaddleBrown"))))
  12266. (cparen-around-set!-face ((t (:foreground "OrangeRed"))))
  12267. (cparen-around-syntax-rules-face ((t (:foreground "Magenta"))))
  12268. (cparen-around-vector-face ((t (:foreground "chocolate"))))
  12269. (cparen-binding-face ((t (:foreground "ForestGreen"))))
  12270. (cparen-binding-list-face ((t (:bold t :foreground "ForestGreen" :weight bold))))
  12271. (cparen-conditional-clause-face ((t (:foreground "RoyalBlue"))))
  12272. (cparen-normal-paren-face ((t (:foreground "grey50"))))
  12273. (cursor ((t (:background "orange"))))
  12274. (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style
  12275. released-button)))))
  12276. (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width
  12277. 2 :style pressed-button)))))
  12278. (custom-changed-face ((t (:background "blue" :foreground "white"))))
  12279. (custom-comment-face ((t (:background "dim gray"))))
  12280. (custom-comment-tag-face ((t (:foreground "gray80"))))
  12281. (custom-documentation-face ((t (nil))))
  12282. (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  12283. (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
  12284. (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height
  12285. 1.2))))
  12286. (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
  12287. (custom-modified-face ((t (:background "blue" :foreground "white"))))
  12288. (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  12289. (custom-saved-face ((t (:underline t))))
  12290. (custom-set-face ((t (:background "white" :foreground "blue"))))
  12291. (custom-state-face ((t (:foreground "lime green"))))
  12292. (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  12293. (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold
  12294. :height 1.2))))
  12295. (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
  12296. (extra-whitespace-face ((t (:background "pale green"))))
  12297. (fixed-pitch ((t (:family "courier"))))
  12298. (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
  12299. (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
  12300. (font-latex-math-face ((t (:foreground "burlywood"))))
  12301. (font-latex-sedate-face ((t (:foreground "LightGray"))))
  12302. (font-latex-string-face ((t (:foreground "RosyBrown"))))
  12303. (font-latex-warning-face ((t (:bold t :foreground "Red" :weight bold))))
  12304. (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
  12305. (font-lock-comment-face ((t (:foreground "chocolate1"))))
  12306. (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  12307. (font-lock-doc-face ((t (:foreground "LightSalmon"))))
  12308. (font-lock-function-name-face ((t (:foreground "LightSkyBlue"))))
  12309. (font-lock-keyword-face ((t (:foreground "Cyan"))))
  12310. (font-lock-string-face ((t (:foreground "LightSalmon"))))
  12311. (font-lock-type-face ((t (:foreground "PaleGreen"))))
  12312. (font-lock-variable-name-face ((t (:foreground "LightGoldenrod"))))
  12313. (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
  12314. (fringe ((t (:background "grey10"))))
  12315. (header-line ((t (:box (:line-width -1 :style released-button) :background "grey20" :foreground
  12316. "grey90" :box nil))))
  12317. (highlight ((t (:background "darkolivegreen"))))
  12318. (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "white"))))
  12319. (info-header-xref ((t (:bold t :weight bold :foreground "cyan"))))
  12320. (info-menu-5 ((t (:foreground "red1"))))
  12321. (info-menu-header ((t (:bold t :family "helv" :weight bold))))
  12322. (info-node ((t (:italic t :bold t :foreground "white" :slant italic :weight bold))))
  12323. (info-xref ((t (:bold t :foreground "cyan" :weight bold))))
  12324. (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
  12325. (isearch-lazy-highlight-face ((t (:background "paleturquoise4"))))
  12326. (italic ((t (:italic t :slant italic))))
  12327. (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
  12328. (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
  12329. (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
  12330. (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
  12331. (jde-java-font-lock-api-face ((t (:foreground "light goldenrod"))))
  12332. (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
  12333. (jde-java-font-lock-code-face ((t (nil))))
  12334. (jde-java-font-lock-constant-face ((t (:foreground "Aquamarine"))))
  12335. (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
  12336. (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
  12337. (jde-java-font-lock-link-face ((t (:foreground "blue" :underline t :slant normal))))
  12338. (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
  12339. (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
  12340. (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
  12341. (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
  12342. (jde-java-font-lock-pre-face ((t (nil))))
  12343. (jde-java-font-lock-underline-face ((t (:underline t))))
  12344. (menu ((t (nil))))
  12345. (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style
  12346. released-button)))))
  12347. (mouse ((t (:background "yellow"))))
  12348. (region ((t (:background "blue3"))))
  12349. (scroll-bar ((t (nil))))
  12350. (secondary-selection ((t (:background "SkyBlue4"))))
  12351. (semantic-dirty-token-face ((t (:background "gray10"))))
  12352. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  12353. (senator-intangible-face ((t (:foreground "gray75"))))
  12354. (senator-momentary-highlight-face ((t (:background "gray30"))))
  12355. (senator-read-only-face ((t (:background "#664444"))))
  12356. (show-paren-match-face ((t (:background "turquoise"))))
  12357. (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
  12358. (speedbar-button-face ((t (:foreground "green3"))))
  12359. (speedbar-directory-face ((t (:foreground "light blue"))))
  12360. (speedbar-file-face ((t (:foreground "cyan"))))
  12361. (speedbar-highlight-face ((t (:background "sea green"))))
  12362. (speedbar-selected-face ((t (:foreground "red" :underline t))))
  12363. (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
  12364. (speedbar-tag-face ((t (:foreground "yellow"))))
  12365. (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style
  12366. released-button)))))
  12367. (trailing-whitespace ((t (:background "red"))))
  12368. (underline ((t (:underline t))))
  12369. (variable-pitch ((t (:family "helv"))))
  12370. (widget-button-face ((t (:bold t :weight bold))))
  12371. (widget-button-pressed-face ((t (:foreground "red"))))
  12372. (widget-documentation-face ((t (:foreground "lime green"))))
  12373. (widget-field-face ((t (:background "dim gray"))))
  12374. (widget-inactive-face ((t (:foreground "light gray"))))
  12375. (widget-single-line-field-face ((t (:background "dim gray")))))))
  12376. (defun color-theme-lawrence ()
  12377. "Color theme by lawrence mitchell <wence@gmx.li>.
  12378. Mainly shades of green.
  12379. Contains faces for erc, gnus, most of jde."
  12380. (interactive)
  12381. (color-theme-install
  12382. '(color-theme-lawrence
  12383. ((background-color . "black")
  12384. (background-mode . dark)
  12385. (border-color . "black")
  12386. (cursor-color . "green")
  12387. (foreground-color . "#00CC00")
  12388. (mouse-color . "black"))
  12389. ((erc-button-face . bold)
  12390. (erc-button-mouse-face . highlight)
  12391. (gnus-article-button-face . bold)
  12392. (gnus-article-mouse-face . highlight)
  12393. (gnus-cite-attribution-face . gnus-cite-attribution-face)
  12394. (gnus-mouse-face . highlight)
  12395. (gnus-server-agent-face . gnus-server-agent-face)
  12396. (gnus-server-closed-face . gnus-server-closed-face)
  12397. (gnus-server-denied-face . gnus-server-denied-face)
  12398. (gnus-server-offline-face . gnus-server-offline-face)
  12399. (gnus-server-opened-face . gnus-server-opened-face)
  12400. (gnus-signature-face . gnus-signature-face)
  12401. (gnus-summary-selected-face . gnus-summary-selected-face)
  12402. (gnus-treat-display-face . head)
  12403. (gnus-treat-display-xface . head)
  12404. (list-matching-lines-buffer-name-face . underline)
  12405. (list-matching-lines-face . bold)
  12406. (paren-match-face . paren-face-match)
  12407. (paren-mismatch-face . paren-face-mismatch)
  12408. (paren-no-match-face . paren-face-no-match)
  12409. (sgml-set-face . t)
  12410. (tags-tag-face . default)
  12411. (view-highlight-face . highlight)
  12412. (widget-mouse-face . highlight))
  12413. (default ((t (nil))))
  12414. (Buffer-menu-buffer-face ((t (:bold t :weight bold))))
  12415. (bg:erc-color-face0 ((t (:background "White"))))
  12416. (bg:erc-color-face1 ((t (:background "black"))))
  12417. (bg:erc-color-face10 ((t (:background "lightblue1"))))
  12418. (bg:erc-color-face11 ((t (:background "cyan"))))
  12419. (bg:erc-color-face12 ((t (:background "blue"))))
  12420. (bg:erc-color-face13 ((t (:background "deeppink"))))
  12421. (bg:erc-color-face14 ((t (:background "gray50"))))
  12422. (bg:erc-color-face15 ((t (:background "gray90"))))
  12423. (bg:erc-color-face2 ((t (:background "blue4"))))
  12424. (bg:erc-color-face3 ((t (:background "green4"))))
  12425. (bg:erc-color-face4 ((t (:background "red"))))
  12426. (bg:erc-color-face5 ((t (:background "brown"))))
  12427. (bg:erc-color-face6 ((t (:background "purple"))))
  12428. (bg:erc-color-face7 ((t (:background "orange"))))
  12429. (bg:erc-color-face8 ((t (:background "yellow"))))
  12430. (bg:erc-color-face9 ((t (:background "green"))))
  12431. (bold ((t (:bold t :foreground "#00CC00" :background "black"))))
  12432. (bold-italic ((t (:italic t :bold t :slant oblique :weight semi-bold))))
  12433. (border ((t (:background "black"))))
  12434. (button ((t (:underline t))))
  12435. (comint-highlight-input ((t (nil))))
  12436. (comint-highlight-prompt ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12437. (cursor ((t (:background "green"))))
  12438. (custom-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12439. (custom-button-pressed-face ((t (nil))))
  12440. (custom-changed-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
  12441. (custom-comment-face ((t (nil))))
  12442. (custom-comment-tag-face ((t (nil))))
  12443. (custom-documentation-face ((t (nil))))
  12444. (custom-face-tag-face ((t (nil))))
  12445. (custom-group-tag-face ((t (nil))))
  12446. (custom-group-tag-face-1 ((t (nil))))
  12447. (custom-invalid-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
  12448. (custom-modified-face ((t (nil))))
  12449. (custom-rogue-face ((t (nil))))
  12450. (custom-saved-face ((t (nil))))
  12451. (custom-set-face ((t (nil))))
  12452. (custom-state-face ((t (nil))))
  12453. (custom-variable-button-face ((t (nil))))
  12454. (custom-variable-tag-face ((t (nil))))
  12455. (erc-action-face ((t (:bold t :weight semi-bold))))
  12456. (erc-bold-face ((t (:bold t :weight bold))))
  12457. (erc-current-nick-face ((t (:bold t :foreground "LightSeaGreen" :weight semi-bold))))
  12458. (erc-dangerous-host-face ((t (:foreground "red"))))
  12459. (erc-default-face ((t (nil))))
  12460. (erc-direct-msg-face ((t (:foreground "IndianRed"))))
  12461. (erc-error-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
  12462. (erc-fool-face ((t (:foreground "dim gray"))))
  12463. (erc-input-face ((t (:foreground "springgreen"))))
  12464. (erc-inverse-face ((t (:bold t :background "Darkgreen" :foreground "Black" :weight semi-bold))))
  12465. (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
  12466. (erc-nick-default-face ((t (:bold t :weight semi-bold))))
  12467. (erc-nick-msg-face ((t (:bold t :foreground "springgreen" :weight semi-bold))))
  12468. (erc-notice-face ((t (:foreground "seagreen" :weight normal))))
  12469. (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
  12470. (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight semi-bold))))
  12471. (erc-timestamp-face ((t (:foreground "seagreen" :weight normal))))
  12472. (erc-underline-face ((t (:underline t))))
  12473. (fg:erc-color-face0 ((t (:foreground "White"))))
  12474. (fg:erc-color-face1 ((t (:foreground "black"))))
  12475. (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
  12476. (fg:erc-color-face11 ((t (:foreground "cyan"))))
  12477. (fg:erc-color-face12 ((t (:foreground "blue"))))
  12478. (fg:erc-color-face13 ((t (:foreground "deeppink"))))
  12479. (fg:erc-color-face14 ((t (:foreground "gray50"))))
  12480. (fg:erc-color-face15 ((t (:foreground "gray90"))))
  12481. (fg:erc-color-face2 ((t (:foreground "blue4"))))
  12482. (fg:erc-color-face3 ((t (:foreground "green4"))))
  12483. (fg:erc-color-face4 ((t (:foreground "red"))))
  12484. (fg:erc-color-face5 ((t (:foreground "brown"))))
  12485. (fg:erc-color-face6 ((t (:foreground "purple"))))
  12486. (fg:erc-color-face7 ((t (:foreground "orange"))))
  12487. (fg:erc-color-face8 ((t (:foreground "yellow"))))
  12488. (fg:erc-color-face9 ((t (:foreground "green"))))
  12489. (fixed-pitch ((t (nil))))
  12490. (font-latex-string-face ((t (:bold t :weight semi-bold :foreground "seagreen" :background "black"))))
  12491. (font-latex-warning-face ((t (:bold t :weight semi-bold :background "darkblue" :foreground "#00CC00"))))
  12492. (font-lock-builtin-face ((t (:foreground "seagreen1"))))
  12493. (font-lock-comment-face ((t (:background "black" :foreground "medium spring green"))))
  12494. (font-lock-constant-face ((t (nil))))
  12495. (font-lock-doc-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
  12496. (font-lock-function-name-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12497. (font-lock-keyword-face ((t (:bold t :background "black" :foreground "green" :underline t :weight semi-bold))))
  12498. (font-lock-preprocessor-face ((t (:foreground "#00ccdd"))))
  12499. (font-lock-string-face ((t (:bold t :background "black" :foreground "seagreen" :weight semi-bold))))
  12500. (font-lock-type-face ((t (nil))))
  12501. (font-lock-variable-name-face ((t (nil))))
  12502. (font-lock-warning-face ((t (:bold t :foreground "#00CC00" :background "darkblue" :weight semi-bold))))
  12503. (fringe ((t (:foreground "#00CC00" :background "#151515"))))
  12504. (gnus-cite-attribution-face ((t (:italic t :foreground "#00CC00" :background "black" :slant italic))))
  12505. (gnus-cite-face-1 ((t (:background "black" :foreground "springgreen"))))
  12506. (gnus-cite-face-10 ((t (nil))))
  12507. (gnus-cite-face-11 ((t (nil))))
  12508. (gnus-cite-face-2 ((t (:background "black" :foreground "lightseagreen"))))
  12509. (gnus-cite-face-3 ((t (:background "black" :foreground "darkseagreen"))))
  12510. (gnus-cite-face-4 ((t (:background "black" :foreground "forestgreen"))))
  12511. (gnus-cite-face-5 ((t (:background "black" :foreground "springgreen"))))
  12512. (gnus-cite-face-6 ((t (:background "black" :foreground "springgreen"))))
  12513. (gnus-cite-face-7 ((t (:background "black" :foreground "springgreen"))))
  12514. (gnus-cite-face-8 ((t (:background "black" :foreground "springgreen"))))
  12515. (gnus-cite-face-9 ((t (:background "black" :foreground "springgreen"))))
  12516. (gnus-emphasis-bold ((t (:bold t :weight semi-bold))))
  12517. (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight semi-bold))))
  12518. (gnus-emphasis-highlight-words ((t (:bold t :foreground "#00CC00" :background "black" :underline t :weight bold))))
  12519. (gnus-emphasis-italic ((t (:italic t :slant italic))))
  12520. (gnus-emphasis-strikethru ((t (nil))))
  12521. (gnus-emphasis-underline ((t (:underline t))))
  12522. (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight semi-bold))))
  12523. (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight semi-bold))))
  12524. (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
  12525. (gnus-group-mail-1-empty-face ((t (nil))))
  12526. (gnus-group-mail-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12527. (gnus-group-mail-2-empty-face ((t (nil))))
  12528. (gnus-group-mail-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12529. (gnus-group-mail-3-empty-face ((t (nil))))
  12530. (gnus-group-mail-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12531. (gnus-group-mail-low-empty-face ((t (nil))))
  12532. (gnus-group-mail-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12533. (gnus-group-news-1-empty-face ((t (nil))))
  12534. (gnus-group-news-1-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12535. (gnus-group-news-2-empty-face ((t (nil))))
  12536. (gnus-group-news-2-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12537. (gnus-group-news-3-empty-face ((t (nil))))
  12538. (gnus-group-news-3-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12539. (gnus-group-news-4-empty-face ((t (nil))))
  12540. (gnus-group-news-4-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12541. (gnus-group-news-5-empty-face ((t (nil))))
  12542. (gnus-group-news-5-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12543. (gnus-group-news-6-empty-face ((t (nil))))
  12544. (gnus-group-news-6-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12545. (gnus-group-news-low-empty-face ((t (nil))))
  12546. (gnus-group-news-low-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12547. (gnus-header-content-face ((t (:background "black" :foreground "springgreen"))))
  12548. (gnus-header-from-face ((t (nil))))
  12549. (gnus-header-name-face ((t (nil))))
  12550. (gnus-header-newsgroups-face ((t (nil))))
  12551. (gnus-header-subject-face ((t (nil))))
  12552. (gnus-server-agent-face ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
  12553. (gnus-server-closed-face ((t (:italic t :foreground "Light Steel Blue" :slant italic))))
  12554. (gnus-server-denied-face ((t (:bold t :foreground "Pink" :weight semi-bold))))
  12555. (gnus-server-offline-face ((t (:bold t :foreground "Yellow" :weight bold))))
  12556. (gnus-server-opened-face ((t (:bold t :foreground "Green1" :weight semi-bold))))
  12557. (gnus-signature-face ((t (:background "black" :foreground "springgreen" :slant normal))))
  12558. (gnus-splash-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12559. (gnus-summary-cancelled-face ((t (:foreground "#00CC00" :background "black" :strike-through t))))
  12560. (gnus-summary-high-ancient-face ((t (nil))))
  12561. (gnus-summary-high-read-face ((t (nil))))
  12562. (gnus-summary-high-ticked-face ((t (:background "black" :foreground "seagreen"))))
  12563. (gnus-summary-high-undownloaded-face ((t (:bold t :foreground "LightGray" :weight bold))))
  12564. (gnus-summary-high-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12565. (gnus-summary-low-ancient-face ((t (nil))))
  12566. (gnus-summary-low-read-face ((t (nil))))
  12567. (gnus-summary-low-ticked-face ((t (nil))))
  12568. (gnus-summary-low-undownloaded-face ((t (:italic t :foreground "LightGray" :slant italic :weight normal))))
  12569. (gnus-summary-low-unread-face ((t (:bold t :foreground "#00CC00" :background "black" :weight bold))))
  12570. (gnus-summary-normal-ancient-face ((t (nil))))
  12571. (gnus-summary-normal-read-face ((t (nil))))
  12572. (gnus-summary-normal-ticked-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12573. (gnus-summary-normal-undownloaded-face ((t (:foreground "LightGray" :weight normal))))
  12574. (gnus-summary-normal-unread-face ((t (nil))))
  12575. (gnus-summary-selected-face ((t (:background "#101010"))))
  12576. (gnus-x-face ((t (:background "white" :foreground "black"))))
  12577. (header-line ((t (nil))))
  12578. (highlight ((t (:foreground "#00CC00" :background "darkgreen"))))
  12579. (ido-first-match-face ((t (:bold t :weight bold))))
  12580. (ido-indicator-face ((t (:background "red" :foreground "yellow" :width condensed))))
  12581. (ido-only-match-face ((t (:foreground "ForestGreen"))))
  12582. (ido-subdir-face ((t (:foreground "red"))))
  12583. (isearch ((t (:background "seagreen" :foreground "black"))))
  12584. (isearch-lazy-highlight-face ((t (:background "darkseagreen" :foreground "black"))))
  12585. (italic ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
  12586. (menu ((t (:bold t :background "black" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
  12587. (message-cited-text-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
  12588. (message-header-cc-face ((t (nil))))
  12589. (message-header-name-face ((t (nil))))
  12590. (message-header-newsgroups-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12591. (message-header-other-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12592. (message-header-subject-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12593. (message-header-to-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12594. (message-header-xheader-face ((t (nil))))
  12595. (message-mml-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
  12596. (message-separator-face ((t (nil))))
  12597. (minibuffer-prompt ((t (:background "black" :foreground "seagreen"))))
  12598. (mode-line ((t (:bold t :background "#404040" :foreground "green" :box (:line-width -1 :color "#606060") :weight semi-bold))))
  12599. (mode-line-inactive ((t (:bold t :weight semi-bold :box (:line-width -1 :color "#606060") :foreground "green" :background "#101010"))))
  12600. (mouse ((t (:background "black"))))
  12601. (paren-face ((t (:background "black" :foreground "darkgreen"))))
  12602. (paren-face-match ((t (:background "black" :foreground "springgreen"))))
  12603. (paren-face-mismatch ((t (:foreground "#00CC00" :background "black" :strike-through t))))
  12604. (paren-face-no-match ((t (:background "black" :foreground "red"))))
  12605. (region ((t (:background "seagreen" :foreground "black"))))
  12606. (scroll-bar ((t (nil))))
  12607. (secondary-selection ((t (:background "darkseagreen" :foreground "black"))))
  12608. (semantic-dirty-token-face ((t (:background "gray10"))))
  12609. (semantic-unmatched-syntax-face ((t (:underline "red"))))
  12610. (sgml-end-tag-face ((t (:foreground "seagreen"))))
  12611. (sgml-start-tag-face ((t (:foreground "seagreen"))))
  12612. (tabbar-button-face ((t (:background "black" :foreground "#00cc00" :box (:line-width 2 :color "black" :style released-button)))))
  12613. (tabbar-default-face ((t (:background "black" :foreground "#00cc00"))))
  12614. (tabbar-selected-face ((t (:background "black" :foreground "springgreen" :box (:line-width 2 :color "black" :style released-button)))))
  12615. (tabbar-separator-face ((t (:foreground "#00cc00" :background "black"))))
  12616. (tabbar-unselected-face ((t (:background "black" :foreground "seagreen" :box (:line-width 2 :color "black" :style pressed-button)))))
  12617. (tool-bar ((t (:box (:line-width 1 :style released-button)))))
  12618. (tooltip ((t (nil))))
  12619. (trailing-whitespace ((t (:background "lightseagreen" :foreground "black"))))
  12620. (underline ((t (:foreground "#00CC00" :background "black" :underline t))))
  12621. (variable-pitch ((t (:underline nil :foreground "#00CC00" :background "black"))))
  12622. (widget-button-face ((t (:bold t :foreground "#00CC00" :background "black"))))
  12623. (widget-button-pressed-face ((t (nil))))
  12624. (widget-documentation-face ((t (nil))))
  12625. (widget-field-face ((t (:italic t :foreground "#00CC00" :background "black" :slant oblique))))
  12626. (widget-inactive-face ((t (nil))))
  12627. (widget-single-line-field-face ((t (nil)))))))
  12628. (defun color-theme-matrix ()
  12629. "Color theme by walterh@rocketmail.com, created 2003-10-16."
  12630. (interactive)
  12631. (color-theme-install
  12632. '(color-theme-matrix
  12633. ((background-color . "black")
  12634. (background-mode . dark)
  12635. (background-toolbar-color . "bisque")
  12636. (border-color . "orange")
  12637. (bottom-toolbar-shadow-color . "#909099999999")
  12638. (cursor-color . "#7eff00")
  12639. (foreground-color . "#7eff00")
  12640. (mouse-color . "#7eff00")
  12641. (top-toolbar-shadow-color . "#ffffffffffff"))
  12642. ((help-highlight-face . underline)
  12643. (list-matching-lines-face . bold)
  12644. (rmail-highlight-face . font-lock-function-name-face)
  12645. (view-highlight-face . highlight)
  12646. (widget-mouse-face . highlight))
  12647. (default ((t (:stipple nil :background "black" :foreground
  12648. "#7eff00" :inverse-video nil :box nil :strike-through nil :overline nil
  12649. :underline nil :slant normal :weight normal :height 90 :width normal
  12650. :family "outline-courier new"))))
  12651. (Buffer-menu-buffer-face ((t (nil))))
  12652. (CUA-global-mark-face ((t (nil))))
  12653. (CUA-rectangle-face ((t (nil))))
  12654. (CUA-rectangle-noselect-face ((t (nil))))
  12655. (Info-title-1-face ((t (nil))))
  12656. (Info-title-2-face ((t (nil))))
  12657. (Info-title-3-face ((t (nil))))
  12658. (Info-title-4-face ((t (nil))))
  12659. (antlr-font-lock-keyword-face ((t (nil))))
  12660. (antlr-font-lock-literal-face ((t (nil))))
  12661. (antlr-font-lock-ruledef-face ((t (nil))))
  12662. (antlr-font-lock-ruleref-face ((t (nil))))
  12663. (antlr-font-lock-tokendef-face ((t (nil))))
  12664. (antlr-font-lock-tokenref-face ((t (nil))))
  12665. (bbdb-company ((t (nil))))
  12666. (bbdb-field-name ((t (nil))))
  12667. (bbdb-field-value ((t (nil))))
  12668. (bbdb-name ((t (nil))))
  12669. (bg:erc-color-face0 ((t (nil))))
  12670. (bg:erc-color-face1 ((t (nil))))
  12671. (bg:erc-color-face10 ((t (nil))))
  12672. (bg:erc-color-face11 ((t (nil))))
  12673. (bg:erc-color-face12 ((t (nil))))
  12674. (bg:erc-color-face13 ((t (nil))))
  12675. (bg:erc-color-face14 ((t (nil))))
  12676. (bg:erc-color-face15 ((t (nil))))
  12677. (bg:erc-color-face2 ((t (nil))))
  12678. (bg:erc-color-face3 ((t (nil))))
  12679. (bg:erc-color-face4 ((t (nil))))
  12680. (bg:erc-color-face5 ((t (nil))))
  12681. (bg:erc-color-face6 ((t (nil))))
  12682. (bg:erc-color-face7 ((t (nil))))
  12683. (bg:erc-color-face8 ((t (nil))))
  12684. (bg:erc-color-face9 ((t (nil))))
  12685. (blank-space-face ((t (nil))))
  12686. (blank-tab-face ((t (nil))))
  12687. (blue ((t (nil))))
  12688. (bold ((t (:bold t :weight bold))))
  12689. (bold-italic ((t (:bold t :weight bold))))
  12690. (border ((t (:background "orange"))))
  12691. (border-glyph ((t (nil))))
  12692. (buffers-tab ((t (nil))))
  12693. (button ((t (nil))))
  12694. (calendar-today-face ((t (nil))))
  12695. (change-log-acknowledgement-face ((t (nil))))
  12696. (change-log-conditionals-face ((t (nil))))
  12697. (change-log-date-face ((t (nil))))
  12698. (change-log-email-face ((t (nil))))
  12699. (change-log-file-face ((t (nil))))
  12700. (change-log-function-face ((t (nil))))
  12701. (change-log-list-face ((t (nil))))
  12702. (change-log-name-face ((t (nil))))
  12703. (clearcase-dired-checkedout-face ((t (nil))))
  12704. (comint-highlight-input ((t (nil))))
  12705. (comint-highlight-prompt ((t (nil))))
  12706. (cparen-around-andor-face ((t (nil))))
  12707. (cparen-around-begin-face ((t (nil))))
  12708. (cparen-around-conditional-face ((t (nil))))
  12709. (cparen-around-define-face ((t (nil))))
  12710. (cparen-around-lambda-face ((t (nil))))
  12711. (cparen-around-letdo-face ((t (nil))))
  12712. (cparen-around-quote-face ((t (nil))))
  12713. (cparen-around-set!-face ((t (nil))))
  12714. (cparen-around-syntax-rules-face ((t (nil))))
  12715. (cparen-around-vector-face ((t (nil))))
  12716. (cparen-binding-face ((t (nil))))
  12717. (cparen-binding-list-face ((t (nil))))
  12718. (cparen-conditional-clause-face ((t (nil))))
  12719. (cparen-normal-paren-face ((t (nil))))
  12720. (cperl-array-face ((t (nil))))
  12721. (cperl-hash-face ((t (nil))))
  12722. (cperl-invalid-face ((t (nil))))
  12723. (cperl-nonoverridable-face ((t (nil))))
  12724. (cursor ((t (:background "#7eff00" :foreground "black"))))
  12725. (custom-button-face ((t (nil))))
  12726. (custom-button-pressed-face ((t (nil))))
  12727. (custom-changed-face ((t (nil))))
  12728. (custom-comment-face ((t (nil))))
  12729. (custom-comment-tag-face ((t (nil))))
  12730. (custom-documentation-face ((t (nil))))
  12731. (custom-face-tag-face ((t (nil))))
  12732. (custom-group-tag-face ((t (nil))))
  12733. (custom-group-tag-face-1 ((t (nil))))
  12734. (custom-invalid-face ((t (nil))))
  12735. (custom-modified-face ((t (nil))))
  12736. (custom-rogue-face ((t (nil))))
  12737. (custom-saved-face ((t (nil))))
  12738. (custom-set-face ((t (nil))))
  12739. (custom-state-face ((t (nil))))
  12740. (custom-variable-button-face ((t (nil))))
  12741. (custom-variable-tag-face ((t (nil))))
  12742. (cvs-filename-face ((t (nil))))
  12743. (cvs-handled-face ((t (nil))))
  12744. (cvs-header-face ((t (nil))))
  12745. (cvs-marked-face ((t (nil))))
  12746. (cvs-msg-face ((t (nil))))
  12747. (cvs-need-action-face ((t (nil))))
  12748. (cvs-unknown-face ((t (nil))))
  12749. (cyan ((t (nil))))
  12750. (diary-face ((t (nil))))
  12751. (diff-added-face ((t (nil))))
  12752. (diff-changed-face ((t (nil))))
  12753. (diff-context-face ((t (nil))))
  12754. (diff-file-header-face ((t (nil))))
  12755. (diff-function-face ((t (nil))))
  12756. (diff-header-face ((t (nil))))
  12757. (diff-hunk-header-face ((t (nil))))
  12758. (diff-index-face ((t (nil))))
  12759. (diff-nonexistent-face ((t (nil))))
  12760. (diff-removed-face ((t (nil))))
  12761. (dired-face-boring ((t (nil))))
  12762. (dired-face-directory ((t (nil))))
  12763. (dired-face-executable ((t (nil))))
  12764. (dired-face-flagged ((t (nil))))
  12765. (dired-face-header ((t (nil))))
  12766. (dired-face-marked ((t (nil))))
  12767. (dired-face-permissions ((t (nil))))
  12768. (dired-face-setuid ((t (nil))))
  12769. (dired-face-socket ((t (nil))))
  12770. (dired-face-symlink ((t (nil))))
  12771. (display-time-mail-balloon-enhance-face ((t (nil))))
  12772. (display-time-mail-balloon-gnus-group-face ((t (nil))))
  12773. (display-time-time-balloon-face ((t (nil))))
  12774. (ebrowse-default-face ((t (nil))))
  12775. (ebrowse-file-name-face ((t (nil))))
  12776. (ebrowse-member-attribute-face ((t (nil))))
  12777. (ebrowse-member-class-face ((t (nil))))
  12778. (ebrowse-progress-face ((t (nil))))
  12779. (ebrowse-root-class-face ((t (nil))))
  12780. (ebrowse-tree-mark-face ((t (nil))))
  12781. (ecb-sources-face ((t (nil))))
  12782. (edb-inter-field-face ((t (nil))))
  12783. (edb-normal-summary-face ((t (nil))))
  12784. (ediff-current-diff-face-A ((t (nil))))
  12785. (ediff-current-diff-face-Ancestor ((t (nil))))
  12786. (ediff-current-diff-face-B ((t (nil))))
  12787. (ediff-current-diff-face-C ((t (nil))))
  12788. (ediff-even-diff-face-A ((t (nil))))
  12789. (ediff-even-diff-face-Ancestor ((t (nil))))
  12790. (ediff-even-diff-face-B ((t (nil))))
  12791. (ediff-even-diff-face-C ((t (nil))))
  12792. (ediff-fine-diff-face-A ((t (nil))))
  12793. (ediff-fine-diff-face-Ancestor ((t (nil))))
  12794. (ediff-fine-diff-face-B ((t (nil))))
  12795. (ediff-fine-diff-face-C ((t (nil))))
  12796. (ediff-odd-diff-face-A ((t (nil))))
  12797. (ediff-odd-diff-face-Ancestor ((t (nil))))
  12798. (ediff-odd-diff-face-B ((t (nil))))
  12799. (ediff-odd-diff-face-C ((t (nil))))
  12800. (eieio-custom-slot-tag-face ((t (nil))))
  12801. (emacs-wiki-bad-link-face ((t (nil))))
  12802. (emacs-wiki-link-face ((t (nil))))
  12803. (erc-action-face ((t (nil))))
  12804. (erc-bold-face ((t (nil))))
  12805. (erc-current-nick-face ((t (nil))))
  12806. (erc-dangerous-host-face ((t (nil))))
  12807. (erc-default-face ((t (nil))))
  12808. (erc-direct-msg-face ((t (nil))))
  12809. (erc-error-face ((t (nil))))
  12810. (erc-fool-face ((t (nil))))
  12811. (erc-highlight-face ((t (nil))))
  12812. (erc-input-face ((t (nil))))
  12813. (erc-inverse-face ((t (nil))))
  12814. (erc-keyword-face ((t (nil))))
  12815. (erc-nick-default-face ((t (nil))))
  12816. (erc-nick-msg-face ((t (nil))))
  12817. (erc-notice-face ((t (nil))))
  12818. (erc-pal-face ((t (nil))))
  12819. (erc-prompt-face ((t (nil))))
  12820. (erc-timestamp-face ((t (nil))))
  12821. (erc-underline-face ((t (nil))))
  12822. (eshell-ls-archive-face ((t (nil))))
  12823. (eshell-ls-backup-face ((t (nil))))
  12824. (eshell-ls-clutter-face ((t (nil))))
  12825. (eshell-ls-directory-face ((t (nil))))
  12826. (eshell-ls-executable-face ((t (nil))))
  12827. (eshell-ls-missing-face ((t (nil))))
  12828. (eshell-ls-picture-face ((t (nil))))
  12829. (eshell-ls-product-face ((t (nil))))
  12830. (eshell-ls-readonly-face ((t (nil))))
  12831. (eshell-ls-special-face ((t (nil))))
  12832. (eshell-ls-symlink-face ((t (nil))))
  12833. (eshell-ls-text-face ((t (nil))))
  12834. (eshell-ls-todo-face ((t (nil))))
  12835. (eshell-ls-unreadable-face ((t (nil))))
  12836. (eshell-prompt-face ((t (nil))))
  12837. (eshell-test-failed-face ((t (nil))))
  12838. (eshell-test-ok-face ((t (nil))))
  12839. (excerpt ((t (nil))))
  12840. (extra-whitespace-face ((t (nil))))
  12841. (ff-paths-non-existant-file-face ((t (nil))))
  12842. (fg:black ((t (nil))))
  12843. (fg:erc-color-face0 ((t (nil))))
  12844. (fg:erc-color-face1 ((t (nil))))
  12845. (fg:erc-color-face10 ((t (nil))))
  12846. (fg:erc-color-face11 ((t (nil))))
  12847. (fg:erc-color-face12 ((t (nil))))
  12848. (fg:erc-color-face13 ((t (nil))))
  12849. (fg:erc-color-face14 ((t (nil))))
  12850. (fg:erc-color-face15 ((t (nil))))
  12851. (fg:erc-color-face2 ((t (nil))))
  12852. (fg:erc-color-face3 ((t (nil))))
  12853. (fg:erc-color-face4 ((t (nil))))
  12854. (fg:erc-color-face5 ((t (nil))))
  12855. (fg:erc-color-face6 ((t (nil))))
  12856. (fg:erc-color-face7 ((t (nil))))
  12857. (fg:erc-color-face8 ((t (nil))))
  12858. (fg:erc-color-face9 ((t (nil))))
  12859. (fixed ((t (nil))))
  12860. (fixed-pitch ((t (nil))))
  12861. (fl-comment-face ((t (nil))))
  12862. (fl-function-name-face ((t (nil))))
  12863. (fl-keyword-face ((t (nil))))
  12864. (fl-string-face ((t (nil))))
  12865. (fl-type-face ((t (nil))))
  12866. (flash-paren-face-off ((t (nil))))
  12867. (flash-paren-face-on ((t (nil))))
  12868. (flash-paren-face-region ((t (nil))))
  12869. (flyspell-duplicate-face ((t (nil))))
  12870. (flyspell-incorrect-face ((t (nil))))
  12871. (font-latex-bold-face ((t (nil))))
  12872. (font-latex-italic-face ((t (nil))))
  12873. (font-latex-math-face ((t (nil))))
  12874. (font-latex-sedate-face ((t (nil))))
  12875. (font-latex-string-face ((t (nil))))
  12876. (font-latex-warning-face ((t (nil))))
  12877. (font-lock-builtin-face ((t (:foreground "pink2"))))
  12878. (font-lock-comment-face ((t (:italic t :background "black" :slant
  12879. italic))))
  12880. (font-lock-constant-face ((t (:foreground "magenta"))))
  12881. (font-lock-doc-face ((t (nil))))
  12882. (font-lock-doc-string-face ((t (nil))))
  12883. (font-lock-exit-face ((t (nil))))
  12884. (font-lock-function-name-face ((t (:bold t :underline t :weight
  12885. bold))))
  12886. (font-lock-keyword-face ((t (:foreground "yellow1"))))
  12887. (font-lock-other-emphasized-face ((t (nil))))
  12888. (font-lock-other-type-face ((t (nil))))
  12889. (font-lock-preprocessor-face ((t (nil))))
  12890. (font-lock-reference-face ((t (nil))))
  12891. (font-lock-special-comment-face ((t (nil))))
  12892. (font-lock-special-keyword-face ((t (nil))))
  12893. (font-lock-string-face ((t (:foreground "yellow2"))))
  12894. (font-lock-type-face ((t (:foreground "LightYellow1"))))
  12895. (font-lock-variable-name-face ((t (:foreground "light green"))))
  12896. (font-lock-warning-face ((t (nil))))
  12897. (fringe ((t (nil))))
  12898. (gnus-cite-attribution-face ((t (nil))))
  12899. (gnus-cite-face-1 ((t (nil))))
  12900. (gnus-cite-face-10 ((t (nil))))
  12901. (gnus-cite-face-11 ((t (nil))))
  12902. (gnus-cite-face-2 ((t (nil))))
  12903. (gnus-cite-face-3 ((t (nil))))
  12904. (gnus-cite-face-4 ((t (nil))))
  12905. (gnus-cite-face-5 ((t (nil))))
  12906. (gnus-cite-face-6 ((t (nil))))
  12907. (gnus-cite-face-7 ((t (nil))))
  12908. (gnus-cite-face-8 ((t (nil))))
  12909. (gnus-cite-face-9 ((t (nil))))
  12910. (gnus-emphasis-bold ((t (nil))))
  12911. (gnus-emphasis-bold-italic ((t (nil))))
  12912. (gnus-emphasis-highlight-words ((t (nil))))
  12913. (gnus-emphasis-italic ((t (nil))))
  12914. (gnus-emphasis-strikethru ((t (nil))))
  12915. (gnus-emphasis-underline ((t (nil))))
  12916. (gnus-emphasis-underline-bold ((t (nil))))
  12917. (gnus-emphasis-underline-bold-italic ((t (nil))))
  12918. (gnus-emphasis-underline-italic ((t (nil))))
  12919. (gnus-filterhist-face-1 ((t (nil))))
  12920. (gnus-group-mail-1-empty-face ((t (nil))))
  12921. (gnus-group-mail-1-face ((t (nil))))
  12922. (gnus-group-mail-2-empty-face ((t (nil))))
  12923. (gnus-group-mail-2-face ((t (nil))))
  12924. (gnus-group-mail-3-empty-face ((t (nil))))
  12925. (gnus-group-mail-3-face ((t (nil))))
  12926. (gnus-group-mail-low-empty-face ((t (nil))))
  12927. (gnus-group-mail-low-face ((t (nil))))
  12928. (gnus-group-news-1-empty-face ((t (nil))))
  12929. (gnus-group-news-1-face ((t (nil))))
  12930. (gnus-group-news-2-empty-face ((t (nil))))
  12931. (gnus-group-news-2-face ((t (nil))))
  12932. (gnus-group-news-3-empty-face ((t (nil))))
  12933. (gnus-group-news-3-face ((t (nil))))
  12934. (gnus-group-news-4-empty-face ((t (nil))))
  12935. (gnus-group-news-4-face ((t (nil))))
  12936. (gnus-group-news-5-empty-face ((t (nil))))
  12937. (gnus-group-news-5-face ((t (nil))))
  12938. (gnus-group-news-6-empty-face ((t (nil))))
  12939. (gnus-group-news-6-face ((t (nil))))
  12940. (gnus-group-news-low-empty-face ((t (nil))))
  12941. (gnus-group-news-low-face ((t (nil))))
  12942. (gnus-header-content-face ((t (nil))))
  12943. (gnus-header-from-face ((t (nil))))
  12944. (gnus-header-name-face ((t (nil))))
  12945. (gnus-header-newsgroups-face ((t (nil))))
  12946. (gnus-header-subject-face ((t (nil))))
  12947. (gnus-picon-face ((t (nil))))
  12948. (gnus-picon-xbm-face ((t (nil))))
  12949. (gnus-picons-face ((t (nil))))
  12950. (gnus-picons-xbm-face ((t (nil))))
  12951. (gnus-server-agent-face ((t (nil))))
  12952. (gnus-server-closed-face ((t (nil))))
  12953. (gnus-server-denied-face ((t (nil))))
  12954. (gnus-server-offline-face ((t (nil))))
  12955. (gnus-server-opened-face ((t (nil))))
  12956. (gnus-signature-face ((t (nil))))
  12957. (gnus-splash ((t (nil))))
  12958. (gnus-splash-face ((t (nil))))
  12959. (gnus-summary-cancelled-face ((t (nil))))
  12960. (gnus-summary-high-ancient-face ((t (nil))))
  12961. (gnus-summary-high-read-face ((t (nil))))
  12962. (gnus-summary-high-ticked-face ((t (nil))))
  12963. (gnus-summary-high-undownloaded-face ((t (nil))))
  12964. (gnus-summary-high-unread-face ((t (nil))))
  12965. (gnus-summary-low-ancient-face ((t (nil))))
  12966. (gnus-summary-low-read-face ((t (nil))))
  12967. (gnus-summary-low-ticked-face ((t (nil))))
  12968. (gnus-summary-low-undownloaded-face ((t (nil))))
  12969. (gnus-summary-low-unread-face ((t (nil))))
  12970. (gnus-summary-normal-ancient-face ((t (nil))))
  12971. (gnus-summary-normal-read-face ((t (nil))))
  12972. (gnus-summary-normal-ticked-face ((t (nil))))
  12973. (gnus-summary-normal-undownloaded-face ((t (nil))))
  12974. (gnus-summary-normal-unread-face ((t (nil))))
  12975. (gnus-summary-selected-face ((t (nil))))
  12976. (gnus-x-face ((t (nil))))
  12977. (green ((t (nil))))
  12978. (gui-button-face ((t (nil))))
  12979. (gui-element ((t (nil))))
  12980. (header-line ((t (nil))))
  12981. (hi-black-b ((t (nil))))
  12982. (hi-black-hb ((t (nil))))
  12983. (hi-blue ((t (nil))))
  12984. (hi-blue-b ((t (nil))))
  12985. (hi-green ((t (nil))))
  12986. (hi-green-b ((t (nil))))
  12987. (hi-pink ((t (nil))))
  12988. (hi-red-b ((t (nil))))
  12989. (hi-yellow ((t (nil))))
  12990. (highlight ((t (:background "#7eff00" :foreground "black"))))
  12991. (highlight-changes-delete-face ((t (nil))))
  12992. (highlight-changes-face ((t (nil))))
  12993. (highline-face ((t (nil))))
  12994. (holiday-face ((t (nil))))
  12995. (html-helper-bold-face ((t (nil))))
  12996. (html-helper-bold-italic-face ((t (nil))))
  12997. (html-helper-builtin-face ((t (nil))))
  12998. (html-helper-italic-face ((t (nil))))
  12999. (html-helper-underline-face ((t (nil))))
  13000. (html-tag-face ((t (nil))))
  13001. (hyper-apropos-documentation ((t (nil))))
  13002. (hyper-apropos-heading ((t (nil))))
  13003. (hyper-apropos-hyperlink ((t (nil))))
  13004. (hyper-apropos-major-heading ((t (nil))))
  13005. (hyper-apropos-section-heading ((t (nil))))
  13006. (hyper-apropos-warning ((t (nil))))
  13007. (ibuffer-deletion-face ((t (nil))))
  13008. (ibuffer-marked-face ((t (nil))))
  13009. (idlwave-help-link-face ((t (nil))))
  13010. (idlwave-shell-bp-face ((t (nil))))
  13011. (ido-first-match-face ((t (nil))))
  13012. (ido-indicator-face ((t (nil))))
  13013. (ido-only-match-face ((t (nil))))
  13014. (ido-subdir-face ((t (nil))))
  13015. (info-header-node ((t (nil))))
  13016. (info-header-xref ((t (nil))))
  13017. (info-menu-5 ((t (nil))))
  13018. (info-menu-6 ((t (nil))))
  13019. (info-menu-header ((t (nil))))
  13020. (info-node ((t (nil))))
  13021. (info-xref ((t (nil))))
  13022. (isearch ((t (nil))))
  13023. (isearch-lazy-highlight-face ((t (nil))))
  13024. (isearch-secondary ((t (nil))))
  13025. (italic ((t (:underline t))))
  13026. (jde-bug-breakpoint-cursor ((t (nil))))
  13027. (jde-bug-breakpoint-marker ((t (nil))))
  13028. (jde-db-active-breakpoint-face ((t (nil))))
  13029. (jde-db-requested-breakpoint-face ((t (nil))))
  13030. (jde-db-spec-breakpoint-face ((t (nil))))
  13031. (jde-java-font-lock-api-face ((t (nil))))
  13032. (jde-java-font-lock-bold-face ((t (nil))))
  13033. (jde-java-font-lock-code-face ((t (nil))))
  13034. (jde-java-font-lock-constant-face ((t (nil))))
  13035. (jde-java-font-lock-doc-tag-face ((t (nil))))
  13036. (jde-java-font-lock-italic-face ((t (nil))))
  13037. (jde-java-font-lock-link-face ((t (nil))))
  13038. (jde-java-font-lock-modifier-face ((t (nil))))
  13039. (jde-java-font-lock-number-face ((t (nil))))
  13040. (jde-java-font-lock-operator-face ((t (nil))))
  13041. (jde-java-font-lock-package-face ((t (nil))))
  13042. (jde-java-font-lock-pre-face ((t (nil))))
  13043. (jde-java-font-lock-underline-face ((t (nil))))
  13044. (lazy-highlight-face ((t (nil))))
  13045. (left-margin ((t (nil))))
  13046. (linemenu-face ((t (nil))))
  13047. (list-mode-item-selected ((t (nil))))
  13048. (log-view-file-face ((t (nil))))
  13049. (log-view-message-face ((t (nil))))
  13050. (magenta ((t (nil))))
  13051. (makefile-space-face ((t (nil))))
  13052. (man-bold ((t (nil))))
  13053. (man-heading ((t (nil))))
  13054. (man-italic ((t (nil))))
  13055. (man-xref ((t (nil))))
  13056. (menu ((t (nil))))
  13057. (message-cited-text ((t (nil))))
  13058. (message-cited-text-face ((t (nil))))
  13059. (message-header-cc-face ((t (nil))))
  13060. (message-header-contents ((t (nil))))
  13061. (message-header-name-face ((t (nil))))
  13062. (message-header-newsgroups-face ((t (nil))))
  13063. (message-header-other-face ((t (nil))))
  13064. (message-header-subject-face ((t (nil))))
  13065. (message-header-to-face ((t (nil))))
  13066. (message-header-xheader-face ((t (nil))))
  13067. (message-headers ((t (nil))))
  13068. (message-highlighted-header-contents ((t (nil))))
  13069. (message-mml-face ((t (nil))))
  13070. (message-separator-face ((t (nil))))
  13071. (message-url ((t (nil))))
  13072. (minibuffer-prompt ((t (nil))))
  13073. (mmm-face ((t (nil))))
  13074. (mode-line ((t (:bold t :background "gray" :foreground "black"
  13075. :weight bold))))
  13076. (mode-line-inactive ((t (nil))))
  13077. (modeline-buffer-id ((t (:background "orange" :foreground
  13078. "black"))))
  13079. (modeline-mousable ((t (:background "orange" :foreground
  13080. "black"))))
  13081. (modeline-mousable-minor-mode ((t (:background "orange"
  13082. :foreground "black"))))
  13083. (mouse ((t (nil))))
  13084. (mpg123-face-cur ((t (nil))))
  13085. (mpg123-face-slider ((t (nil))))
  13086. (my-tab-face ((t (nil))))
  13087. (nil ((t (nil))))
  13088. (overlay-empty-face ((t (nil))))
  13089. (p4-diff-del-face ((t (nil))))
  13090. (paren-blink-off ((t (nil))))
  13091. (paren-face ((t (nil))))
  13092. (paren-face-match ((t (nil))))
  13093. (paren-face-mismatch ((t (nil))))
  13094. (paren-face-no-match ((t (nil))))
  13095. (paren-match ((t (nil))))
  13096. (paren-mismatch ((t (nil))))
  13097. (paren-mismatch-face ((t (nil))))
  13098. (paren-no-match-face ((t (nil))))
  13099. (pointer ((t (nil))))
  13100. (primary-selection ((t (nil))))
  13101. (reb-match-0 ((t (nil))))
  13102. (reb-match-1 ((t (nil))))
  13103. (reb-match-2 ((t (nil))))
  13104. (reb-match-3 ((t (nil))))
  13105. (red ((t (nil))))
  13106. (region ((t (:background "#7eff00" :foreground "black"))))
  13107. (right-margin ((t (nil))))
  13108. (rpm-spec-dir-face ((t (nil))))
  13109. (rpm-spec-doc-face ((t (nil))))
  13110. (rpm-spec-ghost-face ((t (nil))))
  13111. (rpm-spec-macro-face ((t (nil))))
  13112. (rpm-spec-package-face ((t (nil))))
  13113. (rpm-spec-tag-face ((t (nil))))
  13114. (rpm-spec-var-face ((t (nil))))
  13115. (scroll-bar ((t (nil))))
  13116. (secondary-selection ((t (:background "orange" :foreground
  13117. "black"))))
  13118. (semantic-dirty-token-face ((t (nil))))
  13119. (semantic-intangible-face ((t (nil))))
  13120. (semantic-read-only-face ((t (nil))))
  13121. (semantic-unmatched-syntax-face ((t (nil))))
  13122. (senator-intangible-face ((t (nil))))
  13123. (senator-momentary-highlight-face ((t (nil))))
  13124. (senator-read-only-face ((t (nil))))
  13125. (sgml-comment-face ((t (nil))))
  13126. (sgml-doctype-face ((t (nil))))
  13127. (sgml-end-tag-face ((t (nil))))
  13128. (sgml-entity-face ((t (nil))))
  13129. (sgml-ignored-face ((t (nil))))
  13130. (sgml-ms-end-face ((t (nil))))
  13131. (sgml-ms-start-face ((t (nil))))
  13132. (sgml-pi-face ((t (nil))))
  13133. (sgml-sgml-face ((t (nil))))
  13134. (sgml-short-ref-face ((t (nil))))
  13135. (sgml-shortref-face ((t (nil))))
  13136. (sgml-start-tag-face ((t (nil))))
  13137. (sh-heredoc-face ((t (nil))))
  13138. (shell-option-face ((t (nil))))
  13139. (shell-output-2-face ((t (nil))))
  13140. (shell-output-3-face ((t (nil))))
  13141. (shell-output-face ((t (nil))))
  13142. (shell-prompt-face ((t (nil))))
  13143. (show-block-face1 ((t (nil))))
  13144. (show-block-face2 ((t (nil))))
  13145. (show-block-face3 ((t (nil))))
  13146. (show-block-face4 ((t (nil))))
  13147. (show-block-face5 ((t (nil))))
  13148. (show-block-face6 ((t (nil))))
  13149. (show-block-face7 ((t (nil))))
  13150. (show-block-face8 ((t (nil))))
  13151. (show-block-face9 ((t (nil))))
  13152. (show-paren-match-face ((t (:background "orange" :foreground
  13153. "black"))))
  13154. (show-paren-mismatch-face ((t (:underline t))))
  13155. (show-tabs-space-face ((t (nil))))
  13156. (show-tabs-tab-face ((t (nil))))
  13157. (smerge-base-face ((t (nil))))
  13158. (smerge-markers-face ((t (nil))))
  13159. (smerge-mine-face ((t (nil))))
  13160. (smerge-other-face ((t (nil))))
  13161. (speedbar-button-face ((t (nil))))
  13162. (speedbar-directory-face ((t (nil))))
  13163. (speedbar-file-face ((t (nil))))
  13164. (speedbar-highlight-face ((t (nil))))
  13165. (speedbar-selected-face ((t (nil))))
  13166. (speedbar-separator-face ((t (nil))))
  13167. (speedbar-tag-face ((t (nil))))
  13168. (strokes-char-face ((t (nil))))
  13169. (swbuff-current-buffer-face ((t (nil))))
  13170. (tabbar-button-face ((t (nil))))
  13171. (tabbar-default-face ((t (nil))))
  13172. (tabbar-selected-face ((t (nil))))
  13173. (tabbar-separator-face ((t (nil))))
  13174. (tabbar-unselected-face ((t (nil))))
  13175. (template-message-face ((t (nil))))
  13176. (term-black ((t (nil))))
  13177. (term-blackbg ((t (nil))))
  13178. (term-blue ((t (nil))))
  13179. (term-blue-bold-face ((t (nil))))
  13180. (term-blue-face ((t (nil))))
  13181. (term-blue-inv-face ((t (nil))))
  13182. (term-blue-ul-face ((t (nil))))
  13183. (term-bluebg ((t (nil))))
  13184. (term-bold ((t (nil))))
  13185. (term-cyan ((t (nil))))
  13186. (term-cyan-bold-face ((t (nil))))
  13187. (term-cyan-face ((t (nil))))
  13188. (term-cyan-inv-face ((t (nil))))
  13189. (term-cyan-ul-face ((t (nil))))
  13190. (term-cyanbg ((t (nil))))
  13191. (term-default ((t (nil))))
  13192. (term-default-bg ((t (nil))))
  13193. (term-default-bg-inv ((t (nil))))
  13194. (term-default-bold-face ((t (nil))))
  13195. (term-default-face ((t (nil))))
  13196. (term-default-fg ((t (nil))))
  13197. (term-default-fg-inv ((t (nil))))
  13198. (term-default-inv-face ((t (nil))))
  13199. (term-default-ul-face ((t (nil))))
  13200. (term-green ((t (nil))))
  13201. (term-green-bold-face ((t (nil))))
  13202. (term-green-face ((t (nil))))
  13203. (term-green-inv-face ((t (nil))))
  13204. (term-green-ul-face ((t (nil))))
  13205. (term-greenbg ((t (nil))))
  13206. (term-invisible ((t (nil))))
  13207. (term-invisible-inv ((t (nil))))
  13208. (term-magenta ((t (nil))))
  13209. (term-magenta-bold-face ((t (nil))))
  13210. (term-magenta-face ((t (nil))))
  13211. (term-magenta-inv-face ((t (nil))))
  13212. (term-magenta-ul-face ((t (nil))))
  13213. (term-magentabg ((t (nil))))
  13214. (term-red ((t (nil))))
  13215. (term-red-bold-face ((t (nil))))
  13216. (term-red-face ((t (nil))))
  13217. (term-red-inv-face ((t (nil))))
  13218. (term-red-ul-face ((t (nil))))
  13219. (term-redbg ((t (nil))))
  13220. (term-underline ((t (nil))))
  13221. (term-white ((t (nil))))
  13222. (term-white-bold-face ((t (nil))))
  13223. (term-white-face ((t (nil))))
  13224. (term-white-inv-face ((t (nil))))
  13225. (term-white-ul-face ((t (nil))))
  13226. (term-whitebg ((t (nil))))
  13227. (term-yellow ((t (nil))))
  13228. (term-yellow-bold-face ((t (nil))))
  13229. (term-yellow-face ((t (nil))))
  13230. (term-yellow-inv-face ((t (nil))))
  13231. (term-yellow-ul-face ((t (nil))))
  13232. (term-yellowbg ((t (nil))))
  13233. (tex-math-face ((t (nil))))
  13234. (texinfo-heading-face ((t (nil))))
  13235. (text-cursor ((t (nil))))
  13236. (tool-bar ((t (nil))))
  13237. (tooltip ((t (nil))))
  13238. (trailing-whitespace ((t (nil))))
  13239. (underline ((t (:underline t))))
  13240. (variable-pitch ((t (nil))))
  13241. (vc-annotate-face-0046FF ((t (nil))))
  13242. (vcursor ((t (nil))))
  13243. (vertical-divider ((t (nil))))
  13244. (vhdl-font-lock-attribute-face ((t (nil))))
  13245. (vhdl-font-lock-directive-face ((t (nil))))
  13246. (vhdl-font-lock-enumvalue-face ((t (nil))))
  13247. (vhdl-font-lock-function-face ((t (nil))))
  13248. (vhdl-font-lock-generic-/constant-face ((t (nil))))
  13249. (vhdl-font-lock-prompt-face ((t (nil))))
  13250. (vhdl-font-lock-reserved-words-face ((t (nil))))
  13251. (vhdl-font-lock-translate-off-face ((t (nil))))
  13252. (vhdl-font-lock-type-face ((t (nil))))
  13253. (vhdl-font-lock-variable-face ((t (nil))))
  13254. (vhdl-speedbar-architecture-face ((t (nil))))
  13255. (vhdl-speedbar-architecture-selected-face ((t (nil))))
  13256. (vhdl-speedbar-configuration-face ((t (nil))))
  13257. (vhdl-speedbar-configuration-selected-face ((t (nil))))
  13258. (vhdl-speedbar-entity-face ((t (nil))))
  13259. (vhdl-speedbar-entity-selected-face ((t (nil))))
  13260. (vhdl-speedbar-instantiation-face ((t (nil))))
  13261. (vhdl-speedbar-instantiation-selected-face ((t (nil))))
  13262. (vhdl-speedbar-package-face ((t (nil))))
  13263. (vhdl-speedbar-package-selected-face ((t (nil))))
  13264. (vhdl-speedbar-subprogram-face ((t (nil))))
  13265. (viper-minibuffer-emacs-face ((t (nil))))
  13266. (viper-minibuffer-insert-face ((t (nil))))
  13267. (viper-minibuffer-vi-face ((t (nil))))
  13268. (viper-replace-overlay-face ((t (nil))))
  13269. (viper-search-face ((t (nil))))
  13270. (vm-xface ((t (nil))))
  13271. (vmpc-pre-sig-face ((t (nil))))
  13272. (vmpc-sig-face ((t (nil))))
  13273. (w3m-anchor-face ((t (nil))))
  13274. (w3m-arrived-anchor-face ((t (nil))))
  13275. (w3m-header-line-location-content-face ((t (nil))))
  13276. (w3m-header-line-location-title-face ((t (nil))))
  13277. (white ((t (nil))))
  13278. (widget ((t (nil))))
  13279. (widget-button-face ((t (nil))))
  13280. (widget-button-pressed-face ((t (nil))))
  13281. (widget-documentation-face ((t (nil))))
  13282. (widget-field-face ((t (nil))))
  13283. (widget-inactive-face ((t (nil))))
  13284. (widget-single-line-field-face ((t (nil))))
  13285. (woman-addition-face ((t (nil))))
  13286. (woman-bold-face ((t (nil))))
  13287. (woman-italic-face ((t (nil))))
  13288. (woman-unknown-face ((t (nil))))
  13289. (x-face ((t (nil))))
  13290. (xrdb-option-name-face ((t (nil))))
  13291. (xref-keyword-face ((t (nil))))
  13292. (xref-list-default-face ((t (nil))))
  13293. (xref-list-pilot-face ((t (nil))))
  13294. (xref-list-symbol-face ((t (nil))))
  13295. (yellow ((t (nil))))
  13296. (zmacs-region ((t (nil)))))))
  13297. (defun color-theme-feng-shui ()
  13298. "Color theme by walterh@rocketmail.com (www.xanadb.com), created
  13299. 2003-10-16. Evolved from color-theme-katester"
  13300. (interactive)
  13301. (color-theme-install
  13302. '(color-theme-feng-shui
  13303. ((background-color . "ivory")
  13304. (background-mode . light)
  13305. (border-color . "black")
  13306. (cursor-color . "slateblue")
  13307. (foreground-color . "black")
  13308. (mouse-color . "slateblue"))
  13309. ((help-highlight-face . underline)
  13310. (list-matching-lines-face . bold)
  13311. (view-highlight-face . highlight)
  13312. (widget-mouse-face . highlight))
  13313. (default ((t (:stipple nil :background "ivory" :foreground "black"
  13314. :inverse-video nil :box nil :strike-through nil :overline nil
  13315. :underline nil :slant normal :weight normal :height 90 :width normal
  13316. :family "outline-courier new"))))
  13317. (bold ((t (:bold t :weight bold))))
  13318. (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  13319. (border ((t (:background "black"))))
  13320. (cursor ((t (:background "slateblue" :foreground "black"))))
  13321. (fixed-pitch ((t (:family "courier"))))
  13322. (font-lock-builtin-face ((t (:foreground "black"))))
  13323. (font-lock-comment-face ((t (:italic t :background "seashell"
  13324. :slant italic))))
  13325. (font-lock-constant-face ((t (:foreground "darkblue"))))
  13326. (font-lock-doc-face ((t (:background "lemonChiffon"))))
  13327. (font-lock-function-name-face ((t (:bold t :underline t :weight
  13328. bold))))
  13329. (font-lock-keyword-face ((t (:foreground "blue"))))
  13330. (font-lock-string-face ((t (:background "lemonChiffon"))))
  13331. (font-lock-type-face ((t (:foreground "black"))))
  13332. (font-lock-variable-name-face ((t (:foreground "black"))))
  13333. (font-lock-warning-face ((t (:bold t :foreground "Red" :weight
  13334. bold))))
  13335. (fringe ((t (:background "grey95"))))
  13336. (header-line ((t (:bold t :weight bold :underline t :background
  13337. "grey90" :foreground "grey20" :box nil))))
  13338. (highlight ((t (:background "mistyRose" :foreground "black"))))
  13339. (isearch ((t (:background "magenta4" :foreground
  13340. "lightskyblue1"))))
  13341. (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
  13342. (italic ((t (:italic t :slant italic))))
  13343. (menu ((t (nil))))
  13344. (mode-line ((t (:bold t :background "mistyRose" :foreground "navy"
  13345. :underline t :weight bold))))
  13346. (mouse ((t (:background "slateblue"))))
  13347. (region ((t (:background "lavender" :foreground "black"))))
  13348. (scroll-bar ((t (nil))))
  13349. (secondary-selection ((t (:background "yellow"))))
  13350. (tool-bar ((t (:background "grey75" :foreground "black" :box
  13351. (:line-width 1 :style released-button)))))
  13352. (trailing-whitespace ((t (:background "red"))))
  13353. (underline ((t (:underline t))))
  13354. (variable-pitch ((t (:family "helv"))))
  13355. (widget-button-face ((t (:bold t :weight bold))))
  13356. (widget-button-pressed-face ((t (:foreground "red"))))
  13357. (widget-documentation-face ((t (:foreground "dark green"))))
  13358. (widget-field-face ((t (:background "gray85"))))
  13359. (widget-inactive-face ((t (:foreground "dim gray"))))
  13360. (widget-single-line-field-face ((t (:background "gray85")))))))
  13361. (defun color-theme-renegade ()
  13362. "Renegade BBS styled color theme. Works well in X and terminals.
  13363. Created by Dave Benjamin <ramen@ramenfest.com> Dec 23 2005."
  13364. (interactive)
  13365. (color-theme-install
  13366. '(color-theme-renegade
  13367. ((background-color . "black")
  13368. (background-mode . dark)
  13369. (border-color . "black")
  13370. (cursor-color . "black")
  13371. (foreground-color . "cyan3")
  13372. (mouse-color . "white"))
  13373. (default ((t (nil))))
  13374. (bold ((t (:bold t :foreground "cyan" :weight bold))))
  13375. (bold-italic ((t (:italic t :bold t :foreground "cyan" :slant italic :weight bold))))
  13376. (fixed-pitch ((t (:family "courier"))))
  13377. (font-lock-builtin-face ((t (:bold t :foreground "cornflower blue" :weight bold))))
  13378. (font-lock-comment-face ((t (:bold t :foreground "yellow" :weight bold))))
  13379. (font-lock-constant-face ((t (:foreground "magenta3"))))
  13380. (font-lock-doc-face ((t (:bold t :weight bold :foreground "red"))))
  13381. (font-lock-function-name-face ((t (:foreground "gray"))))
  13382. (font-lock-keyword-face ((t (:bold t :foreground "cyan" :weight bold))))
  13383. (font-lock-string-face ((t (:bold t :foreground "red" :weight bold))))
  13384. (font-lock-type-face ((t (:bold t :foreground "cyan" :weight bold))))
  13385. (font-lock-variable-name-face ((t (:foreground "cyan3"))))
  13386. (font-lock-warning-face ((t (:bold t :foreground "red" :weight bold))))
  13387. (fringe ((t (:background "gray32"))))
  13388. (highlight ((t (:background "blue"))))
  13389. (isearch ((t (:background "blue" :foreground "cyan3"))))
  13390. (isearch-lazy-highlight-face ((t (:background "turquoise3" :foreground "black"))))
  13391. (menu ((t (nil))))
  13392. (mode-line ((t (:bold t :background "blue3" :foreground "white" :box (:line-width -1 :style released-button) :weight bold))))
  13393. (mouse ((t (:background "white"))))
  13394. (region ((t (:bold t :background "white" :foreground "blue" :weight bold))))
  13395. (scroll-bar ((t (nil))))
  13396. (trailing-whitespace ((t (:background "red"))))
  13397. (underline ((t (:underline t))))
  13398. (variable-pitch ((t (:family "helv")))))))
  13399. ;;; color-theme-library.el ends here