Allow alias registry for auto-creation

Would be very nice in development environments to allow for alias patterns to be created for each domain. There is some code I have to add to custom modules for every project, and I wonder if it can be abstracted.

For instance:

/**
 * Implements hook_domain_insert().
 *
 * Creates aliases for test environments.
 */
function custom_domain_insert($domain, $form_values = array()) {
  $aliases = custom_domain_alias_list($domain);
  foreach ($aliases as $alias) {
    db_insert('domain_alias')
      ->fields(array(
        'domain_id' => $domain['domain_id'],
        'pattern' => $alias,
        'redirect' => 0
      ))
      ->execute();
  }
}

/**
 * Implements hook_domain_update().
 *
 * Manages aliases for test environments.
 */
function custom_domain_update($domain) {
  $aliases = custom_domain_alias_list($domain);
  foreach ($aliases as $alias) {
    $count = db_query("SELECT 1 FROM {domain_alias} WHERE domain_id = :domain_id AND pattern = :pattern",
      array(':domain_id' => $domain['domain_id'], ':pattern' => $alias))->fetchField();
    if (empty($count)) {
      db_insert('domain_alias')
        ->fields(array(
          'domain_id' => $domain['domain_id'],
          'pattern' => $alias,
          'redirect' => 0
        ))
        ->execute();
    }
  }
}

/**
 * Generates lists of domain aliases for our test servers.
 *
 * @param $domain
 *  A domain record array.
 *
 * @return $aliases
 *  An array of alias patterns to save.
 */
function custom_domain_alias_list($domain) {
  // 'canonical' here is another nice trick for multiple servers.
  if (isset($domain['canonical'])) {
    $base = str_replace('.', '', $domain['canonical']);
  }
  else {
    $base = str_replace('.', '', $domain['subdomain']);
  }
  $aliases = array(
    $base . '.%.sandbox', // User directory
    $base . '.dev.example.com', // QA site
  );
  return $aliases;
}