path: root/src/screen_search.c

/* 
 * $Id$
 *
 * (c) 2004 by Kalle Wallin <kaw@linux.se>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

#include "config.h"

#ifndef DISABLE_SEARCH_SCREEN
#include "ncmpc.h"
#include "options.h"
#include "support.h"
#include "mpdclient.h"
#include "strfsong.h"
#include "command.h"
#include "screen.h"
#include "utils.h"
#include "screen_utils.h"
#include "screen_browse.h"
#include "gcc.h"

#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include <glib.h>
#include <ncurses.h>

/* new search stuff with qball's libmpdclient */
#define FUTURE


#ifdef FUTURE

extern gint mpdclient_finish_command(mpdclient_t *c);

typedef struct {
	int id;
	const char *name;
	const char *localname;
} search_tag_t;

static search_tag_t search_tag[] = {
  { MPD_TAG_ITEM_ARTIST,   "artist",    N_("artist") },
  { MPD_TAG_ITEM_ALBUM,    "album",     N_("album") },
  { MPD_TAG_ITEM_TITLE,    "title",     N_("title") },
  { MPD_TAG_ITEM_TRACK,    "track",     N_("track") },
  { MPD_TAG_ITEM_NAME,     "name",      N_("name") },
  { MPD_TAG_ITEM_GENRE,    "genre",     N_("genre") },
  { MPD_TAG_ITEM_DATE,     "date",      N_("date") },
  { MPD_TAG_ITEM_COMPOSER, "composer",  N_("composer") },
  { MPD_TAG_ITEM_PERFORMER,"performer", N_("performer") },
  { MPD_TAG_ITEM_COMMENT,  "comment",   N_("comment") },
  { MPD_TAG_ITEM_FILENAME, "filename",  N_("file") },
  { -1,                    NULL,        NULL }
};

static int
search_get_tag_id(char *name)
{
  int i;

  i=0;
  while( search_tag[i].name )
    {
      if( strcasecmp(search_tag[i].name, name)==0 || 
	  strcasecmp(search_tag[i].localname, name)==0 )
	return search_tag[i].id;
      i++;
    }
  return -1;
}

#endif


#define SEARCH_TITLE    0
#define SEARCH_ARTIST   1
#define SEARCH_ALBUM    2
#define SEARCH_FILE     3

#define SEARCH_ARTIST_TITLE 999

typedef struct {
	int table;
	const char *label;
} search_type_t;

static search_type_t mode[] = {
  { MPD_TABLE_TITLE,     N_("Title") },
  { MPD_TABLE_ARTIST,    N_("Artist") },
  { MPD_TABLE_ALBUM,     N_("Album") },
  { MPD_TABLE_FILENAME,  N_("Filename") },
  { SEARCH_ARTIST_TITLE, N_("Artist + Title") },
  { 0, NULL }
};

static list_window_t *lw = NULL;
static mpdclient_filelist_t *filelist = NULL;
static GList *search_history = NULL;
static gchar *pattern = NULL;
static gboolean advanced_search_mode = FALSE;


/* search info */
static const char *
lw_search_help_callback(unsigned idx, mpd_unused int *highlight,
			mpd_unused void *data)
{
	unsigned text_rows;
	static const char *text[] = {
		"Quick  - just enter a string and ncmpc will search according",
		"               to the current search mode (displayed above).",
		"",
		"Advanced  -  <tag>:<search term> [<tag>:<search term>...]",
		"			Example: artist:radiohead album:pablo honey",
		"",
		"		   avalible tags: artist, album, title, track,",
		"	           name, genre, date composer, performer, comment, file",
		"",
		NULL
	};

	text_rows=0;
	while (text[text_rows])
		text_rows++;

	if (idx < text_rows)
		return text[idx];
	return NULL;
}

/* the playlist have been updated -> fix highlights */
static void 
playlist_changed_callback(mpdclient_t *c, int event, mpd_unused gpointer data)
{
  if( filelist==NULL )
    return;
  D("screen_search.c> playlist_callback() [%d]\n", event);
  switch(event)
    {
    case PLAYLIST_EVENT_CLEAR:
      clear_highlights(filelist);
      break;
    default:
      sync_highlights(c, filelist);
      break;
    }
}

/* sanity check search mode value */
static void
search_check_mode(void)
{
  int max = 0;

  while( mode[max].label != NULL )
    max++;
  if( options.search_mode<0 )
    options.search_mode = 0;
  else if( options.search_mode>=max )
    options.search_mode = max-1;
}

static void
search_clear(mpd_unused screen_t *screen, mpdclient_t *c,
	     gboolean clear_pattern)
{
  if( filelist )
    {
      mpdclient_remove_playlist_callback(c, playlist_changed_callback);
      filelist = mpdclient_filelist_free(filelist);
    }
  if( clear_pattern && pattern )
    {
      g_free(pattern);
      pattern = NULL;
    }
}

#ifdef FUTURE
static mpdclient_filelist_t *
filelist_search(mpdclient_t *c, mpd_unused int exact_match, int table,
		gchar *local_pattern)
{
  mpdclient_filelist_t *list, *list2;

  if( table == SEARCH_ARTIST_TITLE )
    {
      list = mpdclient_filelist_search(c, FALSE, MPD_TABLE_ARTIST,
				       local_pattern);
      list2 = mpdclient_filelist_search(c, FALSE, MPD_TABLE_TITLE,
					local_pattern);

      list->length += list2->length;
      list->list = g_list_concat(list->list, list2->list);
      list->list = g_list_sort(list->list, compare_filelistentry_format);
      list->updated = TRUE;
    }
  else
    {
      list = mpdclient_filelist_search(c, FALSE, table, local_pattern);
    }

  return list;
}

/*-----------------------------------------------------------------------
 * NOTE: This code exists to test a new search ui,
 *       Its ugly and MUST be redesigned before the next release!
 *-----------------------------------------------------------------------
 */
static mpdclient_filelist_t *
search_advanced_query(char *query, mpdclient_t *c)
{
	int i,j;
	char **strv;
	int table[10];
	char *arg[10];
	mpdclient_filelist_t *fl = NULL;

	advanced_search_mode = FALSE;
	if( g_strrstr(query, ":") == NULL )
		return NULL;

	strv = g_strsplit_set(query, ": ", 0);

	i=0;
	while (strv[i]) {
		D("strv[%d] = \"%s\"\n", i, strv[i]);
		i++;
	}

	memset(table, 0, 10*sizeof(int));
	memset(arg, 0, 10*sizeof(char *));

	i=0;
	j=0;
	while (strv[i] && strlen(strv[i]) > 0 && i < 9) {
		int id = search_get_tag_id(strv[i]);
		if (id == -1) {
			if (table[j]) {
				char *tmp = arg[j];
				arg[j] = g_strdup_printf("%s %s", arg[j], strv[i]);
				g_free(tmp);
			} else {
				D("Bad search tag %s\n", strv[i]);
				screen_status_printf(_("Bad search tag %s"), strv[i]);
			}
			i++;
		} else if (strv[i+1] == NULL || strlen(strv[i+1]) == 0) {
			D("No argument for search tag %s\n", strv[i]);
			screen_status_printf(_("No argument for search tag %s"), strv[i]);
			i++;
			//	  j--;
			//table[j] = -1;
		} else {
			table[j] = id;
			arg[j] = locale_to_utf8(strv[i+1]); // FREE ME
			j++;
			table[j] = -1;
			arg[j] = NULL;
			i = i + 2;
			advanced_search_mode = TRUE;
		}
	}

	g_strfreev(strv);


	if (advanced_search_mode && j > 0) {
		int iter;
		mpd_InfoEntity *entity;

		/*-----------------------------------------------------------------------
		 * NOTE (again): This code exists to test a new search ui,
		 *               Its ugly and MUST be redesigned before the next release!
		 *             + the code below should live in mpdclient.c
		 *-----------------------------------------------------------------------
		 */
		/** stupid - but this is just a test...... (fulhack)  */
		mpd_startSearch(c->connection, FALSE);

		for(iter = 0; iter < 10; iter++) {
			mpd_addConstraintSearch(c->connection, table[iter], arg[iter]);
		}

		mpd_commitSearch(c->connection);

		fl = g_malloc0(sizeof(mpdclient_filelist_t));

		while ((entity=mpd_getNextInfoEntity(c->connection)))  {
			filelist_entry_t *entry = g_malloc0(sizeof(filelist_entry_t));

			entry->entity = entity;
			fl->list = g_list_append(fl->list, (gpointer) entry);
			fl->length++;
		}

		if (mpdclient_finish_command(c) && fl)
			fl = mpdclient_filelist_free(fl);

		fl->updated = TRUE;
	}

	i=0;
	while( arg[i] )
		g_free(arg[i++]);

	return fl;
}
#else
#define search_advanced_query(pattern,c) (NULL)
#endif

static void
search_new(screen_t *screen, mpdclient_t *c)
{
  search_clear(screen, c, TRUE);
  
  pattern = screen_readln(screen->status_window.w, 
			  _("Search: "),
			  NULL,
			  &search_history,
			  NULL);

  if( pattern && strcmp(pattern,"")==0 )
    {
      g_free(pattern);
      pattern=NULL;
    }
  
  if( pattern==NULL )
    {
      list_window_reset(lw);
      return;
    }

  if( !MPD_VERSION_LT(c, 0, 12, 0) )
    filelist = search_advanced_query(pattern, c);
  if( !advanced_search_mode && filelist==NULL )
    filelist = filelist_search(c, 
			       FALSE,
			       mode[options.search_mode].table,
			       pattern);
  sync_highlights(c, filelist);
  mpdclient_install_playlist_callback(c, playlist_changed_callback);
  list_window_check_selected(lw, filelist->length);
}



static void
init(WINDOW *w, int cols, int rows)
{
  lw = list_window_init(w, cols, rows);
}

static void
quit(void)
{
  if( search_history )
    string_list_free(search_history);
  if( filelist )
    filelist = mpdclient_filelist_free(filelist);
  list_window_free(lw);
  if( pattern )
    g_free(pattern);
  pattern = NULL;
}

static void
open(mpd_unused screen_t *screen, mpd_unused mpdclient_t *c)
{
  //  if( pattern==NULL )
  //    search_new(screen, c);
  // else
  screen_status_printf(_("Press %s for a new search"),
			 get_key_names(CMD_SCREEN_SEARCH,0));
  search_check_mode();
}

static void
resize(int cols, int rows)
{
  lw->cols = cols;
  lw->rows = rows;
}

static void
close(void)
{
}

static void 
paint(mpd_unused screen_t *screen, mpdclient_t *c)
{
  lw->clear = 1;
  
  if( filelist )
    {
      lw->flags = 0;
      list_window_paint(lw, browse_lw_callback, (void *) filelist);
      filelist->updated = FALSE;
    }
  else
    {
      lw->flags = LW_HIDE_CURSOR;
      list_window_paint(lw, lw_search_help_callback, NULL);
      if( !MPD_VERSION_LT(c, 0, 12, 0) )
	g_strdup_printf("Advanced search disabled (MPD version < 0.12.0"); 
      //      wmove(lw->w, 0, 0);
      //wclrtobot(lw->w);
    }
  wnoutrefresh(lw->w);
}

static void 
update(screen_t *screen, mpdclient_t *c)
{
  if( filelist==NULL || filelist->updated )
    {
      paint(screen, c);
      return;
    }
  list_window_paint(lw, browse_lw_callback, (void *) filelist);
  wnoutrefresh(lw->w);
}

static const char *
get_title(char *str, size_t size)
{
  if( advanced_search_mode && pattern )
    g_snprintf(str, size, _("Search: %s"), pattern);
  else if( pattern )
    g_snprintf(str, size, 
	       _("Search: Results for %s [%s]"), 
	       pattern,
	       _(mode[options.search_mode].label));
  else
    g_snprintf(str, size, _("Search: Press %s for a new search [%s]"),
	       get_key_names(CMD_SCREEN_SEARCH,0),
	       _(mode[options.search_mode].label));
	       
  return str;
}

static list_window_t *
get_filelist_window(void)
{
	return lw;
}

static int 
search_cmd(screen_t *screen, mpdclient_t *c, command_t cmd)
{
  switch(cmd)
    {
    case CMD_PLAY:
       browse_handle_enter(screen, c, lw, filelist);
      return 1;

    case CMD_SELECT:
      if( browse_handle_select(screen, c, lw, filelist) == 0 )
	{
	  /* continue and select next item... */
	  cmd = CMD_LIST_NEXT;
	}
      /* call list_window_cmd to go to the next item */
      return list_window_cmd(lw, filelist->length, cmd);

    case CMD_SELECT_ALL:
      browse_handle_select_all (screen, c, lw, filelist);
      paint (screen, c);
      return 0;

    case CMD_SEARCH_MODE:
      options.search_mode++;
      if( mode[options.search_mode].label == NULL )
	options.search_mode = 0;
      screen_status_printf(_("Search mode: %s"), 
			   _(mode[options.search_mode].label));
      /* continue and update... */
    case CMD_SCREEN_UPDATE:
      if( pattern )
	{
	  search_clear(screen, c, FALSE);
	  filelist = filelist_search(c, 
				     FALSE,
				     mode[options.search_mode].table,
				     pattern);
	  sync_highlights(c, filelist);
	}
      return 1;

    case CMD_SCREEN_SEARCH:
      search_new(screen, c);
      return 1;

    case CMD_CLEAR:
      search_clear(screen, c, TRUE);
      list_window_reset(lw);
      return 1;

    case CMD_LIST_FIND:
    case CMD_LIST_RFIND:
    case CMD_LIST_FIND_NEXT:
    case CMD_LIST_RFIND_NEXT:
      if( filelist )
	return screen_find(screen,
			   lw, filelist->length,
			   cmd, browse_lw_callback, (void *) filelist);
      else
	return 1;

    case CMD_MOUSE_EVENT:
      return browse_handle_mouse_event(screen,c,lw,filelist);

    default:
      if( filelist )
	return list_window_cmd(lw, filelist->length, cmd);
    }
  
  return 0;
}

screen_functions_t *
get_screen_search(void)
{
  static screen_functions_t functions;

  memset(&functions, 0, sizeof(screen_functions_t));
  functions.init   = init;
  functions.exit   = quit;
  functions.open   = open;
  functions.close  = close;
  functions.resize = resize;
  functions.paint  = paint;
  functions.update = update;
  functions.cmd    = search_cmd;
  functions.get_lw = get_filelist_window;
  functions.get_title = get_title;

  return &functions;
}


#endif /* ENABLE_SEARCH_SCREEN */