Raccourci clavier pour déplacer les onglets vers la gauche ou la droite ?

Voici deux AppleScripts permettant de déplacer les onglets d'une position vers la droite ou la gauche. L'AppleScript récupère l'index de l'onglet actuel, vérifie s'il peut être déplacé, puis le déplace et s'assure qu'il est toujours actif. Cela rafraîchit la page, mais il semble que ce soit une limitation de l'AppleScript puisqu'il utilise le déplacement de la suite standard.

• Déplacez l'onglet un vers la droite

  tell application "Safari" to tell front window
      set currentindex to index of current tab
      if currentindex is equal to number of tabs then return
      move tab currentindex to after tab (currentindex + 1)
      set current tab to tab (currentindex + 1)
  end tell

• Déplacez l'onglet un vers la gauche

  tell application "Safari Technology Preview" to tell front window
      set currentindex to index of current tab
      if currentindex is 1 then return
      move tab currentindex to before tab (currentindex - 1)
      set current tab to tab (currentindex - 1)
  end tell

Vous pouvez leur attribuer des raccourcis clavier en créant un service pour exécuter ces scripts et en attribuant un raccourci au service, ou avec une application tierce.