<?php

/**
 * @file
 * Enables users to rename URLs.
 */

use Drupal\Core\Language\Language;
use Drupal\Core\Entity\EntityInterface;
use Drupal\Core\Entity\ContentEntityInterface;
use Drupal\Core\Field\FieldDefinition;

/**
 * Implements hook_help().
 */
function path_help($path, $arg) {
  switch ($path) {
    case 'admin/help#path':
      $output = '';
      $output .= '<h3>' . t('About') . '</h3>';
      $output .= '<p>' . t('The Path module allows you to specify an alias, or custom URL, for any existing internal system path. Aliases should not be confused with URL redirects, which allow you to forward a changed or inactive URL to a new URL. In addition to making URLs more readable, aliases also help search engines index content more effectively. Multiple aliases may be used for a single internal system path. To automate the aliasing of paths, you can install the contributed module <a href="@pathauto">Pathauto</a>. For more information, see the online handbook entry for the <a href="@path">Path module</a>.', array('@path' => 'http://drupal.org/documentation/modules/path', '@pathauto' => 'http://drupal.org/project/pathauto')) . '</p>';
      $output .= '<h3>' . t('Uses') . '</h3>';
      $output .= '<dl>';
      $output .= '<dt>' . t('Creating aliases') . '</dt>';
      $output .= '<dd>' . t('Users with sufficient <a href="@permissions">permissions</a> can create aliases under the <em>URL path settings</em> section when they create or edit content. Some examples of aliases are: ', array('@permissions' => url('admin/people/permissions', array('fragment' => 'module-path'))));
      $output .= '<ul><li>' . t('<em>member/jane-smith</em> aliased to internal path <em>user/123</em>') . '</li>';
      $output .= '<li>' . t('<em>about-us/team</em> aliased to internal path <em>node/456</em>') . '</li>';
      $output .= '</ul></dd>';
      $output .= '<dt>' . t('Managing aliases') . '</dt>';
      $output .= '<dd>' . t('The Path module provides a way to search and view a <a href="@aliases">list of all aliases</a> that are in use on your website. Aliases can be added, edited and deleted through this list.', array('@aliases' => url('admin/config/search/path'))) . '</dd>';
      $output .= '</dl>';
      return $output;

    case 'admin/config/search/path':
      return '<p>' . t("An alias defines a different name for an existing URL path - for example, the alias 'about' for the URL path 'node/1'. A URL path can have multiple aliases.") . '</p>';

    case 'admin/config/search/path/add':
      return '<p>' . t('Enter the path you wish to create the alias for, followed by the name of the new alias.') . '</p>';
  }
}

/**
 * Implements hook_permission().
 */
function path_permission() {
  return array(
    'administer url aliases' => array(
      'title' => t('Administer URL aliases'),
    ),
    'create url aliases' => array(
      'title' => t('Create and edit URL aliases'),
    ),
  );
}

/**
 * Implements hook_menu().
 */
function path_menu() {
  $items['admin/config/search/path'] = array(
    'title' => 'URL aliases',
    'description' => "Change your site's URL paths by aliasing them.",
    'route_name' => 'path.admin_overview',
    'weight' => -5,
  );
  $items['admin/config/search/path/edit/%path'] = array(
    'title' => 'Edit alias',
    'route_name' => 'path.admin_edit',
  );
  $items['admin/config/search/path/delete/%path'] = array(
    'title' => 'Delete alias',
    'route_name' => 'path.delete',
  );

  return $items;
}

/**
 * Implements hook_form_BASE_FORM_ID_alter() for node_form().
 *
 * @see path_form_element_validate()
 */
function path_form_node_form_alter(&$form, $form_state) {
  $node = $form_state['controller']->getEntity();
  $path = array();
  if (!$node->isNew()) {
    $conditions = array('source' => 'node/' . $node->id());
    if ($node->language()->id != Language::LANGCODE_NOT_SPECIFIED) {
      $conditions['langcode'] = $node->language()->id;
    }
    $path = \Drupal::service('path.crud')->load($conditions);
    if ($path === FALSE) {
      $path = array();
    }
  }
  $path += array(
    'pid' => NULL,
    'source' => $node->id() ? 'node/' . $node->id() : NULL,
    'alias' => '',
    'langcode' => $node->language()->id,
  );

  $account = \Drupal::currentUser();
  $form['path'] = array(
    '#type' => 'details',
    '#title' => t('URL path settings'),
    '#collapsed' => empty($path['alias']),
    '#group' => 'advanced',
    '#attributes' => array(
      'class' => array('path-form'),
    ),
    '#attached' => array(
      'library' => array(array('path', 'drupal.path')),
    ),
    '#access' => $account->hasPermission('create url aliases') || $account->hasPermission('administer url aliases'),
    '#weight' => 30,
    '#tree' => TRUE,
    '#element_validate' => array('path_form_element_validate'),
  );
  $form['path']['alias'] = array(
    '#type' => 'textfield',
    '#title' => t('URL alias'),
    '#default_value' => $path['alias'],
    '#maxlength' => 255,
    '#description' => t('The alternative URL for this content. Use a relative path without a trailing slash. For example, enter "about" for the about page.'),
  );
  $form['path']['pid'] = array('#type' => 'value', '#value' => $path['pid']);
  $form['path']['source'] = array('#type' => 'value', '#value' => $path['source']);
  $form['path']['langcode'] = array('#type' => 'value', '#value' => $path['langcode']);
}

/**
 * Form element validation handler for URL alias form element.
 *
 * @see path_form_node_form_alter()
 */
function path_form_element_validate($element, &$form_state, $complete_form) {
  if (!empty($form_state['values']['path']['alias'])) {
    // Trim the submitted value.
    $alias = trim($form_state['values']['path']['alias']);
    form_set_value($element['alias'], $alias, $form_state);
    // Node language needs special care. Since the language of the URL alias
    // depends on the node language, and the node language can be switched
    // right within the same form, we need to conditionally overload the
    // originally assigned URL alias language.
    // @todo Remove this after converting Path module to a field, and, after
    //   stopping Locale module from abusing the content language system.
    if (isset($form_state['values']['langcode'])) {
      form_set_value($element['langcode'], $form_state['values']['langcode'], $form_state);
    }

    $path = $form_state['values']['path'];

    // Ensure that the submitted alias does not exist yet.
    $query = db_select('url_alias')
      ->condition('alias', $path['alias'])
      ->condition('langcode', $path['langcode']);
    if (!empty($path['source'])) {
      $query->condition('source', $path['source'], '<>');
    }
    $query->addExpression('1');
    $query->range(0, 1);
    if ($query->execute()->fetchField()) {
      form_error($element, $form_state, t('The alias is already in use.'));
    }
  }
}

/**
 * Implements hook_form_FORM_ID_alter() for taxonomy_term_form().
 */
function path_form_taxonomy_term_form_alter(&$form, $form_state) {
  $account = \Drupal::currentUser();
  // Make sure this does not show up on the delete confirmation form.
  if (empty($form_state['confirm_delete'])) {
    $term = $form_state['controller']->getEntity();
    $path = ($term->id() ? \Drupal::service('path.crud')->load(array('source' => 'taxonomy/term/' . $term->id())) : array());
    if ($path === FALSE) {
      $path = array();
    }
    $path += array(
      'pid' => NULL,
      'source' => $term->id() ? 'taxonomy/term/' . $term->id() : NULL,
      'alias' => '',
      'langcode' => Language::LANGCODE_NOT_SPECIFIED,
    );
    $form['path'] = array(
      '#access' => $account->hasPermission('create url aliases') || $account->hasPermission('administer url aliases'),
      '#tree' => TRUE,
      '#element_validate' => array('path_form_element_validate'),
    );
    $form['path']['alias'] = array(
      '#type' => 'textfield',
      '#title' => t('URL alias'),
      '#default_value' => $path['alias'],
      '#maxlength' => 255,
      '#weight' => 0,
      '#description' => t("Optionally specify an alternative URL by which this term can be accessed. Use a relative path and don't add a trailing slash or the URL alias won't work."),
    );
    $form['path']['pid'] = array('#type' => 'value', '#value' => $path['pid']);
    $form['path']['source'] = array('#type' => 'value', '#value' => $path['source']);
    $form['path']['langcode'] = array('#type' => 'value', '#value' => $path['langcode']);
  }
}

/**
 * Implements hook_entity_field_info().
 */
function path_entity_field_info($entity_type) {
  if ($entity_type === 'taxonomy_term' || $entity_type === 'node') {
    $info['definitions']['path'] = FieldDefinition::create('path')
      ->setLabel(t('The path alias'))
      ->setComputed(TRUE);

    return $info;
  }
}

/**
 * Implements hook_entity_insert().
 *
 * @todo: Move this to methods on the FieldItem class.
 */
function path_entity_insert(EntityInterface $entity) {
  if ($entity instanceof ContentEntityInterface && $entity->hasField('path')) {
    $entity->path->alias = trim($entity->path->alias);
    // Only save a non-empty alias.
    if (!empty($entity->path->alias)) {
      // Ensure fields for programmatic executions.
      $uri = $entity->uri();
      $langcode = $entity->language()->id;
      \Drupal::service('path.crud')->save($uri['path'], $entity->path->alias, $langcode);
    }
  }
}

/**
 * Implements hook_entity_update().
 */
function path_entity_update(EntityInterface $entity) {
  if ($entity instanceof ContentEntityInterface && $entity->hasField('path')) {
    $entity->path->alias = trim($entity->path->alias);
    // Delete old alias if user erased it.
    if ($entity->path->pid && !$entity->path->alias) {
      \Drupal::service('path.crud')->delete(array('pid' => $entity->path->pid));
    }
    // Only save a non-empty alias.
    if ($entity->path->alias) {
      $pid = $entity->path->pid;
      // Ensure fields for programmatic executions.
      $uri = $entity->uri();
      $langcode = $entity->language()->id;
      \Drupal::service('path.crud')->save($uri['path'], $entity->path->alias, $langcode, $pid);
    }
  }
}

/**
 * Implements hook_entity_predelete().
 */
function path_entity_predelete(EntityInterface $entity) {
  if ($entity instanceof ContentEntityInterface && $entity->hasField('path')) {
    // Delete all aliases associated with this term.
    $uri = $entity->uri();
    \Drupal::service('path.crud')->delete(array('source' => $uri['path']));
  }
}

/**
 * Implements hook_library_info().
 */
function path_library_info() {
  $libraries['drupal.path'] = array(
    'title' => 'Path',
    'version' => \Drupal::VERSION,
    'js' => array(
      drupal_get_path('module', 'path') . '/path.js' => array(),
    ),
    'dependencies' => array(
      array('system', 'jquery'),
      array('system', 'drupal'),
      array('system', 'drupal.form'),
    ),
  );

  return $libraries;
}