Function Repository Resource:

NotebookOutlineMenu

Source Notebook

Create a dynamic menu that allows users to jump to specific sections in a notebook

Contributed by: Richard Hennigan (Wolfram Research)

ResourceFunction["NotebookOutlineMenu"][]

creates a menu that allows users to jump to specific sections in the current notebook.

ResourceFunction["NotebookOutlineMenu"][nb]

creates a menu that jumps to sections in the specified notebook.

ResourceFunction["NotebookOutlineMenu"][nb,label]

labels the menu with label.

ResourceFunction["NotebookOutlineMenu"][nb,label,styles]

shows cells with the specified style in the menu.

Details

ResourceFunction["NotebookOutlineMenu"] has the attribute HoldFirst, so a menu created with ResourceFunction["NotebookOutlineMenu"][InputNotebook[],…] can be pasted into other notebooks and the menu will update accordingly.

The menu created by ResourceFunction["NotebookOutlineMenu"] updates automatically as sections are added or deleted from the notebook.

If nb is closed, the menu created by ResourceFunction["NotebookOutlineMenu"][nb,…] will become disabled.

ResourceFunction["NotebookOutlineMenu"] accepts the same options as ActionMenu.

Examples

Basic Examples (4)

Create a menu that lets you jump to any section in the current notebook:

In[1]:=

Out[1]=

Create a menu for another notebook:

In[2]:=

Out[2]=

In[3]:=

Out[3]=

The menu becomes disabled if the notebook is closed:

In[4]:=

Specify a label:

In[5]:=

$ResourceFunction["NotebookOutlineMenu"][ InputNotebook[], "Go to section\[Ellipsis]"]$

Out[5]=

Control which cell styles are linked:

In[6]:=

$ResourceFunction["NotebookOutlineMenu"][ InputNotebook[], "Go to section\[Ellipsis]", {"Title", "Section"}]$

Out[6]=

In[7]:=

$ResourceFunction["NotebookOutlineMenu"][ InputNotebook[], "Go to section\[Ellipsis]", "Input"]$

Out[7]=

Scope (1)

Customize the appearance of the menu:

In[8]:=

$ResourceFunction["NotebookOutlineMenu"][InputNotebook[], Mouseover[ Framed["Outline | \[EmptyDownTriangle]", RoundingRadius -> 3, Background -> LightBlue], Framed["Outline | \[FilledDownTriangle]", RoundingRadius -> 3, Background -> LightRed] ], Appearance -> None]$