/* See LICENSE file for copyright and license details. */

#include <alsa/asoundlib.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include <X11/Xlib.h>

#include "config.h"

char *smprintf(char *fmt, ...);

void *setstatus(char *str);

char *wifi_signal();
char *battery();
char *cpu_usage();
char *cpu_temperature();
char *ram_usage();
char *volume();
char *datetime();

static Display *dpy;

/* smprintf function */
char *
smprintf(char *fmt, ...)
{
	va_list fmtargs;
	char *ret;
	int len;

	va_start(fmtargs, fmt);
	len = vsnprintf(NULL, 0, fmt, fmtargs);
	va_end(fmtargs);

	ret = malloc(++len);
	if (ret == NULL) {
		fprintf(stderr, "Malloc error.");
		exit(1);
	}

	va_start(fmtargs, fmt);
	vsnprintf(ret, len, fmt, fmtargs);
	va_end(fmtargs);

	return ret;
}

/* set statusbar (WM_NAME) */
void
setstatus(char *str)
{
	XStoreName(dpy, DefaultRootWindow(dpy), str);
	XSync(dpy, False);
}

/* alsa volume percentage */
char *
volume()
{
        int mute = 0;
        long vol = 0, max = 0, min = 0;
        
        snd_mixer_t *handle;
        snd_mixer_elem_t *pcm_mixer, *mas_mixer;
        snd_mixer_selem_id_t *vol_info, *mute_info;
        snd_mixer_open(&handle, 0);
        snd_mixer_attach(handle, soundcard);
        snd_mixer_selem_register(handle, NULL, NULL);
        snd_mixer_load(handle);
        snd_mixer_selem_id_malloc(&vol_info);
        snd_mixer_selem_id_malloc(&mute_info);
        snd_mixer_selem_id_set_name(vol_info, channel);
        snd_mixer_selem_id_set_name(mute_info, channel);
        pcm_mixer = snd_mixer_find_selem(handle, vol_info);
        mas_mixer = snd_mixer_find_selem(handle, mute_info);
        snd_mixer_selem_get_playback_volume_range((snd_mixer_elem_t *)pcm_mixer,
                        &min, &max);
        snd_mixer_selem_get_playback_volume((snd_mixer_elem_t *)pcm_mixer,
                        SND_MIXER_SCHN_MONO, &vol);
        snd_mixer_selem_get_playback_switch(mas_mixer, SND_MIXER_SCHN_MONO,
                        &mute);

        if (vol_info)
                snd_mixer_selem_id_free(vol_info);
        if (mute_info)
                snd_mixer_selem_id_free(mute_info);
        if (handle)
                snd_mixer_close(handle);
        
        if (!mute)
            return "mute";
        else
            return smprintf("%d%%", (vol * 100) / max);
}

/* cpu temperature */
char *
cpu_temperature()
{
    int temperature;
    FILE *fp;

    /* open temperature file */
    if (!(fp = fopen(tempfile, "r"))) {
        fprintf(stderr, "Could not open temperature file.\n");
        exit(1);
    }

    /* extract temperature, close file */
    fscanf(fp, "%d", &temperature);
    fclose(fp);

    /* return temperature in degrees */
    return smprintf("%d°C", temperature / 1000);
}

/* wifi percentage */
char *
wifi_signal()
{
    int bufsize = 255;
	int strength;
	char buf[bufsize];
	char *datastart;
    char path_start[16] = "/sys/class/net/";
    char path_end[11] = "/operstate";
    char path[32];
	FILE *fp;

    /* generate the path name */
    strcat(path, path_start);
    strcat(path, wificard);
    strcat(path, path_end);

    /* open wifi file, extract status, close file */
    if(!(fp = fopen(path, "r"))) {
        fprintf(stderr, "Error opening wifi operstate file.");
        exit(1);
    }
    char status[5];
    fgets(status, 5, fp);
    fclose(fp);

    /* check if interface down */
    if(strcmp(status, "up\n") != 0){
        return "n/a";
    }

    /* open wifi file */
    if (!(fp = fopen("/proc/net/wireless", "r"))) {
        fprintf(stderr, "Error opening wireless file.");
        exit(1);
    }

    /* extract the signal strength and close the file */
	fgets(buf, bufsize, fp);
	fgets(buf, bufsize, fp);
	fgets(buf, bufsize, fp);
	if ((datastart = strstr(buf, "wlp3s0:")) != NULL) {
		datastart = strstr(buf, ":");
		sscanf(datastart + 1, " %*d   %d  %*d  %*d        %*d      %*d      %*d      %*d      %*d        %*d",
	           &strength);
	}
	fclose(fp);

    /* return strength in percent */
    return smprintf("%d%%", strength);
}

/* battery percentage */
char *
battery()
{
	int batt_now;
    int batt_full;
    int batt_perc;
	FILE *fp;

    /* open battery now file, extract and close */
	if (!(fp = fopen(batterynowfile, "r"))) {
        fprintf(stderr, "Error opening battery file.");
        exit(1);
    }
	fscanf(fp, "%i", &batt_now);
	fclose(fp);
	
    /* extract battery full file, extract and close */
	if (!(fp = fopen(batteryfullfile, "r"))) {
        fprintf(stderr, "Error opening battery file.");
        exit(1);
    }
	fscanf(fp, "%i", &batt_full);
	fclose(fp);

    /* calculate percent */
	batt_perc = batt_now / (batt_full / 100);

    /* return percent */
	return smprintf("%d%%", batt_perc);
}

/* date and time */
char *
datetime()
{
	time_t tm;
	size_t bufsize = 19;
	char *buf = malloc(bufsize);

    /* get time in format */
	time(&tm);
	if(!strftime(buf, bufsize, timeformat, localtime(&tm))) {
		fprintf(stderr, "Strftime failed.\n");
		exit(1);
	}

    /* return time */
	return buf;
}

/* cpu percentage */
char *
cpu_usage()
{
    FILE *fp;
    long double a[4], b[4], cpu_perc;

    /* open stat file, read and close, do same after 1 second */
	if (!(fp = fopen("/proc/stat","r"))) {
        fprintf(stderr, "Error opening stat file.");
        exit(1);
    }
    fscanf(fp,"%*s %Lf %Lf %Lf %Lf",&a[0],&a[1],&a[2],&a[3]);
    fclose(fp);
    sleep(1);
	if (!(fp = fopen("/proc/stat","r"))) {
        fprintf(stderr, "Error opening stat file.");
        exit(1);
    }
    fscanf(fp,"%*s %Lf %Lf %Lf %Lf",&b[0],&b[1],&b[2],&b[3]);
    fclose(fp);

    /* calculate average in 1 second */
    cpu_perc = 100 * ((b[0]+b[1]+b[2]) - (a[0]+a[1]+a[2])) / ((b[0]+b[1]+b[2]+b[3]) - (a[0]+a[1]+a[2]+a[3]));

    /* return avg cpu percentage */
    return smprintf("%d%%", (int)cpu_perc);
}

/* ram percentage */
char *
ram_usage()
{
    FILE *fp;
    long total, free, available;
    int ram_perc;

    /* read meminfo file, extract and close */
	if (!(fp = fopen("/proc/meminfo", "r"))) {
        fprintf(stderr, "Error opening meminfo file.");
        exit(1);
    }
    fscanf(fp, "MemTotal: %ld kB\n", &total);
    fscanf(fp, "MemFree: %ld kB\n", &free);
    fscanf(fp, "MemAvailable: %ld kB\n", &available);
    fclose(fp);

    /* calculate percentage */
    ram_perc = 100 * (total - available) / total;

    /* return in percent */
    return smprintf("%d%%",ram_perc);
}

int
main()
{
    char status[1024];

    /* open display */
    if (( dpy = XOpenDisplay(0x0)) == NULL ) {
        fprintf(stderr, "Cannot open display!\n");
        exit(1);
    }

    /* return status every second */	
	for (;;) {
		sprintf(status, FORMATSTRING, ARGUMENTS);
		setstatus(status);
	}

    /* close display */
    XCloseDisplay(dpy);

    /* exit successfully */
	return 0;
}