/* $OpenBSD$ */

/*
* Copyright (c) 2009 Nicholas Marriott <[email protected]>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
* IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/

#include <sys/types.h>

#include <ctype.h>
#include <libgen.h>
#include <stdlib.h>
#include <string.h>

#include "tmux.h"

static void      name_time_callback(int, short, void *);
static int       name_time_expired(struct window *, struct timeval *);

static char     *format_window_name(struct window *);

static void
name_time_callback(__unused int fd, __unused short events, void *arg)
{
       struct window   *w = arg;

       /* The event loop will call check_window_name for us on the way out. */
       log_debug("@%u name timer expired", w->id);
}

static int
name_time_expired(struct window *w, struct timeval *tv)
{
       struct timeval  offset;

       timersub(tv, &w->name_time, &offset);
       if (offset.tv_sec != 0 || offset.tv_usec > NAME_INTERVAL)
               return (0);
       return (NAME_INTERVAL - offset.tv_usec);
}

void
check_window_name(struct window *w)
{
       struct timeval   tv, next;
       char            *name;
       int              left;

       if (w->active == NULL)
               return;

       if (!options_get_number(w->options, "automatic-rename"))
               return;

       if (~w->active->flags & PANE_CHANGED) {
               log_debug("@%u active pane not changed", w->id);
               return;
       }
       log_debug("@%u active pane changed", w->id);

       gettimeofday(&tv, NULL);
       left = name_time_expired(w, &tv);
       if (left != 0) {
               if (!event_initialized(&w->name_event))
                       evtimer_set(&w->name_event, name_time_callback, w);
               if (!evtimer_pending(&w->name_event, NULL)) {
                       log_debug("@%u name timer queued (%d left)", w->id,
                           left);
                       timerclear(&next);
                       next.tv_usec = left;
                       event_add(&w->name_event, &next);
               } else {
                       log_debug("@%u name timer already queued (%d left)",
                           w->id, left);
               }
               return;
       }
       memcpy(&w->name_time, &tv, sizeof w->name_time);
       if (event_initialized(&w->name_event))
               evtimer_del(&w->name_event);

       w->active->flags &= ~PANE_CHANGED;

       name = format_window_name(w);
       if (strcmp(name, w->name) != 0) {
               log_debug("@%u new name %s (was %s)", w->id, name, w->name);
               window_set_name(w, name);
               server_redraw_window_borders(w);
               server_status_window(w);
       } else
               log_debug("@%u name not changed (still %s)", w->id, w->name);

       free(name);
}

char *
default_window_name(struct window *w)
{
       char    *cmd, *s;

       if (w->active == NULL)
               return (xstrdup(""));
       cmd = cmd_stringify_argv(w->active->argc, w->active->argv);
       if (cmd != NULL && *cmd != '\0')
               s = parse_window_name(cmd);
       else
               s = parse_window_name(w->active->shell);
       free(cmd);
       return (s);
}

static char *
format_window_name(struct window *w)
{
       struct format_tree      *ft;
       const char              *fmt;
       char                    *name;

       ft = format_create(NULL, NULL, FORMAT_WINDOW|w->id, 0);
       format_defaults_window(ft, w);
       format_defaults_pane(ft, w->active);

       fmt = options_get_string(w->options, "automatic-rename-format");
       name = format_expand(ft, fmt);

       format_free(ft);
       return (name);
}

char *
parse_window_name(const char *in)
{
       char    *copy, *name, *ptr;

       name = copy = xstrdup(in);
       if (*name == '"')
               name++;
       name[strcspn(name, "\"")] = '\0';

       if (strncmp(name, "exec ", (sizeof "exec ") - 1) == 0)
               name = name + (sizeof "exec ") - 1;

       while (*name == ' ' || *name == '-')
               name++;
       if ((ptr = strchr(name, ' ')) != NULL)
               *ptr = '\0';

       if (*name != '\0') {
               ptr = name + strlen(name) - 1;
               while (ptr > name &&
                   !isalnum((u_char)*ptr) &&
                   !ispunct((u_char)*ptr))
                       *ptr-- = '\0';
       }

       if (*name == '/')
               name = basename(name);
       name = xstrdup(name);
       free(copy);
       return (name);
}