Jellix

git config --global alias.compress "gc --prune=NOW --aggressive"
git config --global alias.fuck "reset --hard HEAD"

Jellix

with Ada.Strings.Fixed;

package body Scope is

  use all type Ada.Strings.Direction;
  use Ada.Strings.Fixed;

  function Local (This : in Ada.Tags.Tag) return String is
    Full_Tag_Name : constant String := Ada.Tags.Expanded_Name (This);
    -- tag name is (expected to be) in the form of