Pentadactyl code to add `:closealltoright` and `:closealltoleft` commands (and corresponding keybindings). Add to `~/.pentadactylrc`. Vimperator versions in https://gist.github.com/troyp/20e4b1f744c5e799f1df

close_all_to_right_or_left.penta

command! closetabstoleft
    \ -description "Close all tabs to the left of the current tab"
    \ -js
    \ var firstTab = tabs.getTab(0);
    \ var numToClose = tabs.getTab().dactylOrdinal - 1;
    \ tabs.remove(firstTab, numToClose);
command! closetabstoright
    \ -description "Close all tabs to the right of the current tab"
    \ -js
    \ tabIndex = tabs.getTab().dactylOrdinal - 1;
    \ var nextTabIndex = tabIndex + 1;
    \ var firstTab = tabs.getTab(nextTabIndex);
    \ var N = tabs.allTabs.length;
    \ var numToClose = N - nextTabIndex;
    \ tabs.remove(firstTab, numToClose);

map v< -ex closetabstoleft
map v> -ex closetabstoright
" close tabs to right (inclusive) "
map <C-k> v>d