Functionalize script ref id generation

[baboyma]

Add a utility function to generate ref id code.

Note: to be used for those who don't use snippets and/or save scripts as.

Sample:

function() {
  Sys.time() |> 
    digest::sha1() |> 
    substr(start = 1, stop = 8)
}