Crthuky

This is and addendum of a previous question: How to insert elective subjects section within a diagram.

What I want

I would like to reduce the length of those nodes that only have a single column of a matrix environment of the Tikz package but keeping the same space between nodes. If possible, also do it automatically (it is not necessary at all, just know what the necessary commands are):

What I have done

MWE:

All the following source code belongs to marmot in the incredible accepted answer of the attached question. I only modified the nodes and things like that.

documentclassarticle
usepackage[margin=0in,footskip=0in,paperwidth=95cm,paperheight=29cm]geometry
usepackage[english]babel
usepackage[utf8]inputenc
usepackage[T1]fontenc
usepackagehyperref

usepackagetikz
usetikzlibrarypositioning,backgrounds,fit,calc
tikzset
text field/.style=text height=1.5ex,align=center,rounded corners,
nonfillable title field/.style=text height=2ex,text depth=0.3em,anchor=south,text 
width=5cm,align=center,font=footnotesizesffamily,
fillable title field/.style=text height=3.14ex,text depth=0em,anchor=south,text 
width=5cm,align=center,font=footnotesizesffamily,
pics/fillable subject/.style=code=- (-Title.south west)
,
pics/nonfillable subject/.style=code=- (-Title.south west)
,
pics/fillable elective subject/.style=code= (-TF.south east)
 -- cycle;
draw ([xshift=4pt]-Title.south west) -- ([xshift=-4pt]-Title.south east);
 ,
pics/nonfillable elective subject/.style=code=- (-Title.north east) -- (-Title.south east) -,
 manoooh/.style=column sep=-1.75cm,row sep=5mm,
 manooohE/.style=column sep=-2.25cm,row sep=5mm,anchor=south,
 electives/.style=column sep=-7.25cm,row sep=5mm,
 fit sep/.initial=4pt, % change width of node (big rectangle shape)
 fit dist/.initial=3cm, % change node distance (big rectangle shape)
 inlay top sep/.initial=24pt,
 matrix top sep/.initial=24pt,
 % From https://tex.stackexchange.com/a/478723/152550

makeatletter% from https://tex.stackexchange.com/a/85531/121799
longdefifnodedefined#1#2#3%
 @ifundefinedpgf@sh@ns@#1#3#2%

makeatother

begindocument
thispagestyleempty % To suppress page number
noindent
begintikzpicture
fill[white,fill=orange] (0,0) rectangle (paperwidth,-2cm) node[midway,align=center,font=Huge] bfseries Some text here\LARGE More text here;
endtikzpicture

ifdefinedmymatdist
%typeoutgotspacemymatdist
else
typeoutPleasespace recompilespace yourspace file!
defmymatdist150pt
fi
ifdefinedmymatbottom
%typeoutgotspacemymatbottom
else
typeoutPleasespace recompilespace yourspace file!
defmymatbottom-150pt
fi
ifdefinedmyheight
else
defmyheight0
typeoutPleasespace recompilespace yourspace file!
fi
ifdefinedLstMatShifts
else
defLstMatShifts0pt,0pt,0pt,0pt,0pt
fi
%typeoutheight:myheight
%typeoutshifts(in):LstMatShifts

vfill
centering
beginForm
begintikzpicture
 % step 1: add the matrices, name them mat0, mat1 etc.
 beginscope[local bounding box=matrices] 
 matrix[manoooh] (mat0) at (0*mymatdist,LstMatShifts[0]) 
 & pic[local bounding box=A] (A) nonfillable subject=Subject A; & \
 & pic (B) nonfillable subject=Subject B; & \
 ;
 matrix[manoooh] (mat1) at (1*mymatdist,LstMatShifts[1]) 
 & pic (C) nonfillable subject=Subject C; & \
 & pic (D) nonfillable subject=Subject D; & \
 & pic (E) nonfillable subject=Subject E; & \
 & pic (F) nonfillable subject=Subject F; & \
 & pic (G) nonfillable subject=Subject G; & \
 & pic (H) nonfillable subject=Subject H; & \
 & pic (I) nonfillable subject=Subject I; & \
 & pic[draw=red] (J) nonfillable subject=Subject J; & \
 ;
 matrix[manoooh] (mat2) at (2*mymatdist,LstMatShifts[2]) 
 & pic[draw=red] (K) nonfillable subject=Subject K; & \
 & pic (L) nonfillable subject=Subject L; & \
 & pic (M) nonfillable subject=Subject A; & \
 & pic (N) nonfillable subject=Subject N; & \
 & pic (O) nonfillable subject=Subject O; & \
 & pic (P) nonfillable subject=Subject P; & \
 & pic (Q) nonfillable subject=Subject Q; & \
 & pic (R) nonfillable subject=Subject R; & \
 ; 
 matrix[manoooh] (mat3) at (3*mymatdist,LstMatShifts[3]) 
 & pic[draw=red] (S) nonfillable subject=Subject S; & \
 & pic (T) nonfillable subject=Subject T; & \
 & pic (U) nonfillable subject=Subject U; & \
 & pic (V) nonfillable subject=Subject V; & \
 & pic (W) nonfillable subject=Subject W; & \
 & pic (X) nonfillable subject=Subject X; & \
 & pic (Y) nonfillable subject=Subject Y; & \
 & pic (Z) nonfillable subject=Subject Z; & \
 ;
 matrix[manooohE,column sep=8pt] (matE3) at (3*mymatdist,mymatbottom) 
 pic (L3E1) nonfillable elective subject=Subject; &
 pic (L3E2) nonfillable elective subject=Subject; \
 ;
 matrix[manoooh] (mat4) at (4*mymatdist,LstMatShifts[4]) 
 & pic[draw=red] (AA) nonfillable subject=Subject AA; & \
 pic (AB) nonfillable subject=Subject AB; & & pic (AC) nonfillable subject=Subject AC; \
 & pic (AD) nonfillable subject=Subject AD; & \
 & pic (AE) nonfillable subject=Subject AE; & \
 & pic (AF) nonfillable subject=Subject AF; & \
 & pic (AG) nonfillable subject=Subject AG; & \
 ;
 matrix[manooohE] (matE4) at (4*mymatdist,mymatbottom) 
 pic (L4E1) nonfillable elective subject=Subject; \
 ;
 matrix[manoooh] (mat5) at (5*mymatdist,LstMatShifts[5]) 
 & pic (AH) nonfillable subject=Subject AH; & \
 & pic (AI) nonfillable subject=Subject AI; & \
 & pic[draw=red] (AJ) nonfillable subject=Subject AJ; & \
 & pic (AK) nonfillable subject=Subject AK; & \
 ;
 matrix[manooohE] (matE5) at (5*mymatdist,mymatbottom) 
 & pic (L5E1) nonfillable elective subject=Subject; & \
 & pic (L5E2) nonfillable elective subject=Subject; & \
 & pic (L5E3) nonfillable elective subject=Subject; & \
 & pic (L5E4) nonfillable elective subject=Subject; & \
 & pic (L5E5) nonfillable elective subject=Subject; & \
 ;
 endscope
 pgfmathsetmacromywidth0
 foreach X in 0,...,5 %<- if you have more or less matrices, adjust 3 
 
 ifnodedefinedmatEX% has inlay
 path let p1=($(matX.north east)-(matX.south west)$),
 p2=($(matEX.north east)-(matEX.south west)$)
 in 
 pgfextrapgfmathsetmacromywidthmax(x1,mywidth)
 pgfmathsetmacromyheightmax(y1+y2+%
 pgfkeysvalueof/tikz/inlay top sep+pgfkeysvalueof/tikz/matrix top sep,%
 myheight)
 xdefmywidthmywidthxdefmyheightmyheight
 pgfmathsetmacromyshift(pgfkeysvalueof/tikz/inlay top sep+y2)/2
 ifnumX=0
 xdefLstMatShiftsmyshift pt
 else
 xdefLstMatShiftsLstMatShifts,myshift pt
 fi;% no inlay
 path 
 let p1=($(matX.north east)-(matX.south west)$) in 
 pgfextrapgfmathsetmacromywidthmax(x1,mywidth)
 pgfmathsetmacromyheightmax(y1+pgfkeysvalueof/tikz/matrix top sep,myheight) 
 xdefmywidthmywidthxdefmyheightmyheight;
 ifnumX=0
 xdefLstMatShifts0pt
 else
 xdefLstMatShiftsLstMatShifts,0pt
 fi
 
 node[anchor=south,yshift=1cm,align=center,font=LARGEbfseriesboldmath] 
 at (matX 
 %typeoutheight1:myheight % 
 %
 pgfmathsetmacromydistmywidth+2*pgfkeysvalueof/tikz/fit
 sep+pgfkeysvalueof/tikz/fit dist
 xdefmydistmydist
 defmymatbottom0pt
 foreach X in 0,...,5 %
 ifnodedefinedmatEXpath let p1=($(matX.north)-(matX.south)$),
 p2=($(matEX.north)-(matEX.south)$),
 n1=max(abs(y1)/2+abs(y2)+2*pgfkeysvalueof/tikz/inlay top sep,mymatbottom)
 in pgfextraxdefmymatbottomn1
 node[anchor=south east,xshift=-3cm,font=LARGEbfseries] (ElX)
 at (matEX.north)Electives;
 beginscope[on background layer] 
 node[fit=(matEX) (ElX)] (FEX);
 fill[blue!30,rounded corners=30pt] (X*mymatdist-
 mymatdist/2+pgfkeysvalueof/tikz/fit dist/4+10pt,0
 %typeoutshifts(end):LstMatShifts 
 makeatletter
 immediatewrite@mainauxxdefstringmymatdistmydist ptrelax
 immediatewrite@mainauxxdefstringmymatbottom-mymatbottomrelax
 immediatewrite@mainauxxdefstringmyheightmyheightrelax
 immediatewrite@mainauxxdefstringLstMatShiftsLstMatShiftsrelax
 makeatother

 % now add the arrows 
 foreach X in C,D,E,F,G,H,I,J 
 draw[very thick,blue,-latex] (A-Title) to[out=0,in=180] (X-Title);
 draw[very thick,red,-latex] (B-Title) to[out=0,in=180] (X-Title);
 
 foreach X in L,O 
 draw[very thick,orange,-latex] (C-Title) to[out=0,in=180] (X-Title);
 
 foreach X in K,N,O,Z 
 draw[very thick,green,-latex] (D-Title) to[out=0,in=180] (X-Title);
 
endtikzpicture
endForm

vfill

enddocument

Thanks!!