mjhjmtu

I'd like to have custom commands for making boxes that look like the Wolfram|Alpha entities in Mathematica notebooks:

LinguisticAssistantfrance
EntityFrancecountry

I've done the work of finding the colors, and defined them in my code. The fonts are as follows:
- LinguisticAssistant: (the first box with the orange equals sign) uses Ariel
- Entity: this uses bold and then smaller all-caps Helvitica.

This what I have so far:

documentclassarticle
usepackagepstricks
usepackagexcolor
definecolorlightyellowRGB255, 250, 236
definecolortextdarkRGB100, 52, 20
definecolorborderorangeRGB253, 129, 36
definecolorlightgrayRGB214, 214, 214
definecolorcountrygrayRGB153, 153, 153
begindocument
beginpspicture(5,5)
 pssetfillstyle=solid, framearc=.4, linecolor=borderorange, linewidth=.8pt
 psframebox[fillcolor=lightyellow]textcolortextdarkFrance textcolorcountrygrayCOUNTRY
hspace1cm
 pssetfillstyle=solid, framearc=.2, linecolor=lightgray, linewidth=.4pt
 psframebox[fillcolor=white]textcolorblackfrance
endpspicture
enddocument​

But I still don't know how to:

• make the little equal sign


• scale/format the text to look just like the images

I'm looking at the package tcolorbox now, not sure if it is easier or better than pstricks.

Update:

I made the equal sign icon as a little pdf.

It's been a while since I've used pstricks, so I'll leave that for someone else to address. Also, I'm not fluent in using tcolorbox. So, that too I'll leave for someone else. But, I will show how you can do this from TikZ

This answer is broken into five parts:

• How to draw the France COUNTRY box. This is the most straight-forward.


• How to draw the Equal france box. I use a few more subtle tricks here.


• Customizing your own colors using RGB specifications.


• Using your own image file to create an Equal france box like result


• Implementing this with macros

Box for "France COUNTRY"

documentclass[tikz,border=6pt]standalone
usepackagetikz
usetikzlibrarycalc

newcommandmakegray[1]colorgray#1
begindocument

begintikzpicture

 node[rounded corners,
 draw=orange,
 fill=orange!25,text=black,font=sffamily]
 France makegrayCOUNTRY;

endtikzpicture

enddocument

Box for "Equal france"

documentclass[tikz,border=6pt]standalone
usepackagetikz
usetikzlibrarycalc
usetikzlibraryfit

newcommandmakegray[1]colorgray#1

newsaveboxaeequalsign
beginlrboxaeequalsign
 begintikzpicture[x=(4pt,0),
 y=(0,4pt)]
 fill[orange] (0,0) rectangle (5,3);
 draw[white,line width=2pt] (1,1) -- ++ (3,0);
 draw[white,line width=2pt] (1,2) -- ++ (3,0);
 endtikzpicture
endlrbox

begindocument

begintikzpicture

 node[inner sep=0pt] (AEEQUAL) useboxaeequalsign;
 node[anchor=west,
 font=sffamilybfseries] (FRANCE) at (AEEQUAL.east) france;
 node[fit=(AEEQUAL) (FRANCE),inner ysep=5pt,inner xsep=0pt] (COMBINED) ;
 draw[rounded corners=4pt]
 (AEEQUAL.north) |- (COMBINED.north east)
 -- (COMBINED.south east) -| (AEEQUAL.south);

endtikzpicture

enddocument

Colors:

If you don't like my colors, you can define your own, much like you did with pstricks using the definecolor macro provided with xcolor (which is automatically loaded with TikZ).

definecolor<color name>rgb<decimal>,<decimal>,<decimal>
definecolor<color name>RGB<int>,<int>,<int>

Here is an implementation for this in TikZ:

tikzsetdefine color/.code 2 args=definecolor#1RGB#2

Then you can write

begintikzpicture
 [
 define color=borderorange253,129,36,
 define color=lightyellow255,250,236,
 ]

 node[rounded corners,
 draw=borderorange,
 fill=lightyellow,text=black,font=sffamilybfseries]
 France makegrayCOUNTRY;

endtikzpicture

Including image files:

If you have an image file you would already like to include, that's straight-forward.

Just repurpose the code above for the equal sign as follows:

newsaveboxaeequalsign
beginlrboxaeequalsign
 includegraphics[width=2em]image/no_you_cant
endlrbox

Macros for in-text implementation

This was executed using

documentclassarticle
usepackagelipsum

usepackagetikz
usetikzlibrarycalc
usetikzlibraryfit

newcommandmakegray[1]colorgray#1

newsaveboxaeequalsign
beginlrboxaeequalsign
 includegraphics[height=3ex]image/no_you_cant
endlrbox

tikzsetdefine color/.code 2 args=definecolor#1RGB#2
tikzsetdefine color=borderorange253,129,36,
 define color=lightyellow255,250,236,
 

newcommandEntity[2]%%
 begintikzpicture
 node[rounded corners,
 draw=borderorange,
 fill=lightyellow,text=black,font=sffamilybfseries]
 #1 makegray#2;
 endtikzpicture

newcommandLinguisticAssistant[1]- (COMBINED.north east)
 -- (COMBINED.south east) -


begindocument

 LinguisticAssistantARMA Entityvirumquecano, Troiae qui primus ab oris
 Italiam, fato profugus, Laviniaque venit
 litora, multum ille et terris iactatus et alto
 vi superum saevae memorem Iunonis ob iram;
 multa quoque et bello passus, dum conderet urbem,
 inferretque deos Latio, genus unde Latinum,
 Albanique patres, atque altae moenia Romae.

 LinguisticAssistantMusa, Entitymihicausas memora, quo numine laeso,
 quidve dolens, regina deum tot volvere casus
 insignem pietate virum, tot adire labores
 impulerit. Tantaene animis caelestibus irae?

 LinguisticAssistantUrbs Entityantiquafuit, Tyrii tenuere coloni,
 Karthago, Italiam contra Tiberinaque longe
 ostia, dives opum studiisque asperrima belli;
 quam Iuno fertur terris magis omnibus unam
 posthabita coluisse Samo; hic illius arma,
 hic currus fuit; hoc regnum dea gentibus esse,
 si qua fata sinant, iam tum tenditque fovetque.
 Progeniem sed enim Troiano a sanguine duci
 audierat, Tyrias olim quae verteret arces;
 hinc populum late regem belloque superbum
 venturum excidio Libyae: sic volvere Parcas.
 Id metuens, veterisque memor Saturnia belli,
 prima quod ad Troiam pro caris gesserat Argis---
 necdum etiam causae irarum saevique dolores
 exciderant animo: manet alta mente repostum
 iudicium Paridis spretaeque iniuria formae,
 et genus invisum, et rapti Ganymedis honores.
 His accensa super, iactatos aequore toto
 Troas, reliquias Danaum atque immitis Achilli,
 arcebat longe Latio, multosque per annos
 errabant, acti fatis, maria omnia circum.
 Tantae molis erat Romanam condere gentem!

enddocument

A solution using pstricks:

documentclassarticle
usepackagepstricks
usepackagexcolor
definecolorlightyellowRGB255, 250, 236
definecolortextdarkRGB100, 52, 20
definecolorborderorangeRGB253, 129, 36
definecolorlightgrayRGB214, 214, 214
definecolorcountrygrayRGB153, 153, 153
begindocument
beginpspicture(5,5)
 pssetfillstyle=solid, framearc=.4, linecolor=borderorange, linewidth=.8pt
 rput[l](0,0)psframebox[fillcolor=lightyellow]textcolortextdarktextsftextbfFrance textcolorcountrygrayfootnotesizetextsfCOUNTRY

 pssetfillstyle=solid, framearc=.2, linecolor=lightgray, linewidth=.4pt
 rput[l](0.15,1)psframebox[fillcolor=white]textcolorblacktextsfphantomxfrance
 rput[l](0,1)psframebox[fillcolor=orange,framesep=2pt]tinytextcolorwhite=
endpspicture
enddocument

The positioning is done using rput with coordinates, which allows to place a box with an = on top of the box with france. This text has been shifted a bit to the right using a phantom letter (which is not printed but the space it would occupy if it was 'real' is taken into account). The box with the = sign has a bit smaller margin (2pt) to look more like the original picture. The font is sans serif, using textsf (in combination with boldface textbf for the second France). The text COUNTRY is made smaller with footnotesize to simulate small caps.

However, this kind of drawing may be easier with TikZ, see also the other answer.

UPDATE using Helvetica (usepackagehelvet) and some tweaks to the equal sign (box more square using smaller framesep and a vertical phantom |, rounded corners, equal sign slightly raised, bit less space before 'france' with phantom.).

With an image instead of the equals sign:

Note that the pdf of the image should be converted to eps for use with latex-dvips-ps2pdf, when using xelatex (or lualatex) this is not necessary.

documentclassarticle
usepackagepstricks
usepackagexcolor
usepackagehelvet
definecolorlightyellowRGB255, 250, 236
definecolortextdarkRGB100, 52, 20
definecolorborderorangeRGB253, 129, 36
definecolorlightgrayRGB214, 214, 214
definecolorcountrygrayRGB153, 153, 153
begindocument
beginpspicture(5,5)
 pssetfillstyle=solid, framearc=.4, linecolor=borderorange, linewidth=.8pt
 rput[l](0,0)psframebox[fillcolor=lightyellow]textcolortextdarktextsftextbfFrance textcolorcountrygrayfootnotesizetextsfCOUNTRY

 pssetfillstyle=solid, framearc=.2, linecolor=lightgray, linewidth=.4pt
 rput[l](0.15,1)psframebox[fillcolor=white]textcolorblacktextsfphantom.france
 pssetframearc=.5
 rput[l](0,1)psframebox[fillcolor=orange,framesep=1pt]vphantomtinytextcolorwhiteraisebox1.2pt=
 % alternatively, include an image here
 % rput[l](0,1)includegraphics[width=3mm]small-equals-icon.eps
endpspicture

enddocument