diff --git a/sleepyhead/SleepLib/machine.cpp b/sleepyhead/SleepLib/machine.cpp
index cd67cb75..b07c7487 100644
--- a/sleepyhead/SleepLib/machine.cpp
+++ b/sleepyhead/SleepLib/machine.cpp
@@ -560,6 +560,37 @@ const QString Machine::getBackupPath()
     return p_profile->Get("{" + STR_GEN_DataFolder + "}/" + info.loadername + "_" + (info.serial.isEmpty() ? hexid() : info.serial)  + "/Backup/");
 }
 
+// dirSize lazily pinched from https://stackoverflow.com/questions/47854288/can-not-get-directory-size-in-qt-c, thank's "Mike"
+qint64 dirSize(QString dirPath) {
+    qint64 size = 0;
+
+    QDir dir(dirPath);
+    QDir::Filters fileFilters = QDir::Files | QDir::System | QDir::Hidden;
+    for(QString filePath : dir.entryList(fileFilters)) {
+        QFileInfo fi(dir, filePath);
+        size += fi.size();
+    }
+
+    QDir::Filters dirFilters = QDir::Dirs | QDir::NoDotAndDotDot | QDir::System | QDir::Hidden;
+    for(QString childDirPath : dir.entryList(dirFilters))
+        size += dirSize(dirPath + QDir::separator() + childDirPath);
+
+    return size;
+}
+
+qint64 Machine::diskSpaceSummaries()
+{
+    return dirSize(getSummariesPath());
+}
+qint64 Machine::diskSpaceEvents()
+{
+    return dirSize(getEventsPath());
+}
+qint64 Machine::diskSpaceBackups()
+{
+    return dirSize(getBackupPath());
+}
+
 bool Machine::Load()
 {
     QString path = getDataPath();
diff --git a/sleepyhead/SleepLib/machine.h b/sleepyhead/SleepLib/machine.h
index e1408df5..71e3f741 100644
--- a/sleepyhead/SleepLib/machine.h
+++ b/sleepyhead/SleepLib/machine.h
@@ -1,4 +1,4 @@
-/* SleepLib Machine Class Header
+/* SleepLib Machine Class Header
  *
  * Copyright (C) 2011-2018 Mark Watkins <mark@jedimark.net>
  *
@@ -137,6 +137,11 @@ class Machine
     const QString getSummariesPath();
     const QString getBackupPath();
 
+    qint64 diskSpaceSummaries();
+    qint64 diskSpaceEvents();
+    qint64 diskSpaceBackups();
+
+
     //! \brief Returns the machineID as a lower case hexadecimal string
     QString hexid() { return QString().sprintf("%08lx", m_id); }
 
diff --git a/sleepyhead/SleepLib/profiles.cpp b/sleepyhead/SleepLib/profiles.cpp
index 9629b90c..bb416d68 100644
--- a/sleepyhead/SleepLib/profiles.cpp
+++ b/sleepyhead/SleepLib/profiles.cpp
@@ -307,6 +307,36 @@ bool Profile::StoreMachines()
     return true;
 }
 
+qint64 Profile::diskSpaceSummaries()
+{
+    qint64 size = 0;
+    for (auto & mach : m_machlist) {
+        size += mach->diskSpaceSummaries();
+    }
+    return size;
+}
+qint64 Profile::diskSpaceEvents()
+{
+    qint64 size = 0;
+    for (auto & mach : m_machlist) {
+        size += mach->diskSpaceEvents();
+    }
+    return size;
+}
+qint64 Profile::diskSpaceBackups()
+{
+    qint64 size = 0;
+    for (auto & mach : m_machlist) {
+        size += mach->diskSpaceBackups();
+    }
+    return size;
+}
+qint64 Profile::diskSpace()
+{
+    return (diskSpaceSummaries()+diskSpaceEvents()+diskSpaceBackups());
+}
+
+
 
 #if defined(Q_OS_WIN)
 class Environment
diff --git a/sleepyhead/SleepLib/profiles.h b/sleepyhead/SleepLib/profiles.h
index dbb460be..29392c6e 100644
--- a/sleepyhead/SleepLib/profiles.h
+++ b/sleepyhead/SleepLib/profiles.h
@@ -51,6 +51,11 @@ class Profile : public Preferences
     bool OpenMachines();
     bool StoreMachines();
 
+    qint64 diskSpaceSummaries();
+    qint64 diskSpaceEvents();
+    qint64 diskSpaceBackups();
+    qint64 diskSpace();
+
     //! \brief Returns hostname that locked profile, or empty string if unlocked
     QString checkLock();
 
diff --git a/sleepyhead/profileselector.cpp b/sleepyhead/profileselector.cpp
index 2e2b31cb..24434aa4 100644
--- a/sleepyhead/profileselector.cpp
+++ b/sleepyhead/profileselector.cpp
@@ -51,7 +51,11 @@ ProfileSelector::ProfileSelector(QWidget *parent) :
     model = nullptr;
     proxy = nullptr;
 
+    showDiskUsage = false;
+    on_diskSpaceInfo_linkActivated(showDiskUsage ? "show" : "hide");
+
     ui->versionLabel->setText(VersionString);
+    ui->diskSpaceInfo->setVisible(false);
 }
 
 ProfileSelector::~ProfileSelector()
@@ -80,7 +84,7 @@ void ProfileSelector::updateProfileList()
     ui->profileView->setStyleSheet("QHeaderView::section { background-color:lightgrey }");
 
     int row = 0;
-    int sel = -1;
+//    int sel = -1;
 
     QFontMetrics fm(ui->profileView->font());
 
@@ -89,9 +93,9 @@ void ProfileSelector::updateProfileList()
         Profile *prof = pi.value();
         name = pi.key();
 
-        if (AppSetting->profileName() == name) {
-            sel = row;
-        }
+//        if (AppSetting->profileName() == name) {
+//            sel = row;
+//        }
 
         Machine * mach = prof->GetMachine(MT_CPAP);  // only interested in last cpap machine...
         if (!mach) {
@@ -140,7 +144,6 @@ void ProfileSelector::updateProfileList()
     proxy->setSourceModel(model);
     proxy->setSortCaseSensitivity(Qt::CaseInsensitive);
 
-
     ui->profileView->setModel(proxy);
     ui->profileView->setSelectionBehavior(QAbstractItemView::SelectRows);
     ui->profileView->setSelectionMode(QAbstractItemView::SingleSelection);
@@ -195,13 +198,15 @@ void ProfileSelector::updateProfileHighlight(QString name)
         }
 
         if (html.isEmpty()) {
-            html += tr("No profile information given");
+            html += tr("No profile information given")+"<br/>";
         }
-
+        ui->diskSpaceInfo->setVisible(true);
         ui->profileInfoGroupBox->setTitle(tr("Current Profile: %1").arg(name));
         ui->profileInfoLabel->setText(html);
-    } else {
 
+        on_diskSpaceInfo_linkActivated(showDiskUsage ? "show" : "hide"); // don't show disk info by default
+    } else {
+        ui->diskSpaceInfo->setVisible(false);
     }
 
 }
@@ -218,6 +223,7 @@ void ProfileSelector::SelectProfile(QString profname)
 
         mainwin->OpenProfile(profname);
         updateProfileHighlight(profname);
+
     }
 
 }
@@ -388,4 +394,38 @@ void ProfileSelector::on_buttonDestroyProfile_clicked()
     }
 }
 
+QString formatSize(qint64 size) {
+    QStringList units = { "Bytes", "KB", "MB", "GB", "TB", "PB" };
+    int i;
+    double outputSize = size;
+    for (i=0; i<units.size()-1; i++) {
+        if (outputSize < 1024) break;
+        outputSize = outputSize/1024;
+    }
+    return QString("%0 %1").arg(outputSize, 0, 'f', 2).arg(units[i]);
+}
 
+
+void ProfileSelector::on_diskSpaceInfo_linkActivated(const QString &link)
+{
+    QString html;
+
+    if (link == "show") {
+        html += "<a href='hide'>"+tr("Hide disk usage information")+"</a>";
+        if (p_profile) {
+            qint64 sizeSummaries = p_profile->diskSpaceSummaries();
+            qint64 sizeEvents = p_profile->diskSpaceEvents();
+            qint64 sizeBackups = p_profile->diskSpaceBackups();
+
+            html += "<table>"
+                    "<tr><td align=right>"+tr("Summaries:")+"</td><td>"+formatSize(sizeSummaries)+"</td></tr>"
+                    "<tr><td align=right>"+tr("Events:")+"</td><td>"+formatSize(sizeEvents)+"</td></tr>"
+                    "<tr><td align=right>"+tr("Backups:")+"</td><td>"+formatSize(sizeBackups)+"</td></tr></table>";
+        }
+        showDiskUsage = true;
+    } else {
+        html += "<a href='show'>"+tr("Show disk usage information")+"</a>";
+        showDiskUsage = false;
+    }
+    ui->diskSpaceInfo->setText(html);
+}
diff --git a/sleepyhead/profileselector.h b/sleepyhead/profileselector.h
index 0aaf0de9..15cf11ca 100644
--- a/sleepyhead/profileselector.h
+++ b/sleepyhead/profileselector.h
@@ -51,11 +51,14 @@ private slots:
 
     void on_buttonDestroyProfile_clicked();
 
+    void on_diskSpaceInfo_linkActivated(const QString &link);
+
 private:
     Ui::ProfileSelector *ui;
     QStandardItemModel *model;
     MySortFilterProxyModel2 *proxy;
 
+    bool showDiskUsage;
 };
 
 #endif // PROFILESELECTOR_H
diff --git a/sleepyhead/profileselector.ui b/sleepyhead/profileselector.ui
index 43966b78..1b667454 100644
--- a/sleepyhead/profileselector.ui
+++ b/sleepyhead/profileselector.ui
@@ -276,6 +276,22 @@
              <property name="wordWrap">
               <bool>true</bool>
              </property>
+             <property name="openExternalLinks">
+              <bool>false</bool>
+             </property>
+            </widget>
+           </item>
+           <item>
+            <widget class="QLabel" name="diskSpaceInfo">
+             <property name="font">
+              <font>
+               <weight>50</weight>
+               <bold>false</bold>
+              </font>
+             </property>
+             <property name="text">
+              <string notr="true"/>
+             </property>
             </widget>
            </item>
           </layout>