A simple function added to the org-cycle-hook
Another link