backup_paradise 1.3.5

data/lib/backup_paradise/gui/tk/backup.rb

@@ -0,0 +1,108 @@
+#!/usr/bin/ruby -w
+# Encoding: UTF-8
+# frozen_string_literal: true
+# =========================================================================== #
+# This file shall provide simple bindings for backup-related activity
+# on windows. On windows paths such as "E:/songs" will work.
+# =========================================================================== #
+# require 'backup_paradise/gui/tk/backup.rb'
+# =========================================================================== #
+require 'backup_paradise'
+
+@object_backup = BackupParadise::Backup.new { :do_not_run_yet }
+
+require 'tk_paradise/tk_paradise.rb'
+include Tk
+
+alias e puts
+require 'colours'
+
+# =========================================================================== #
+# === TITLE
+# =========================================================================== #
+TITLE = 'Backup data'
+
+# =========================================================================== #
+# === rev
+# =========================================================================== #
+def rev
+  ::Colours.rev
+end
+
+# =========================================================================== #
+# === do_start_to_backup
+# =========================================================================== #
+def do_start_to_backup(i = :usb1)
+  if i and i.is_a? String
+    i = i.dup
+    if i.include? 'onto '
+      i.sub!(/onto /) # 'onto F:'
+    end
+  end
+  unless i.end_with? '/'
+    i << '/'
+  end
+  e rev+'Starting to backup data.'
+  @object_backup = BackupParadise::Backup.new { :do_not_run_yet }
+#pp @object_backup.mountpoint?
+#  @object_backup.set_mountpoint(i)
+#pp @object_backup.mountpoint?
+end
+
+# =========================================================================== #
+# === Fonts
+# =========================================================================== #
+USE_THIS_FONT_FAMILY = 'DejaVu Sans'    
+larger_font = Font.new(family: USE_THIS_FONT_FAMILY, size: 28, weight: 'bold')
+font        = Font.new(family: USE_THIS_FONT_FAMILY, size: 20, weight: 'bold')
+
+root = Tk.root {{ geometry: '820x450+0+0', title: TITLE }}
+
+button_start_to_backup_onto_drive_letter_e = Button.new(
+  root,
+  text: 'Start to backup onto label E:',
+  bg: '#0052cc',
+  fg: '#ffffff'
+) {
+  command proc {
+    do_start_to_backup('onto E:')
+  }
+}.grid(row: 1, column: 3, columnspan: 3, padx: 2, pady: 2)
+
+button_start_to_backup_onto_drive_letter_e.set_font(larger_font)
+Grid.grid(button_start_to_backup_onto_drive_letter_e, columnspan: 2)
+
+button_start_to_backup_onto_drive_letter_f = Button.new(
+  root,
+  text: 'Start to backup onto label F:',
+  bg: '#0052cc',
+  fg: '#ffffff'
+) {
+  command proc {
+    do_start_to_backup('onto F:')
+  }
+}.grid(row: 2, column: 3, columnspan: 3, padx: 2, pady: 2)
+
+button_start_to_backup_onto_drive_letter_f.set_font(larger_font)
+Grid.grid(button_start_to_backup_onto_drive_letter_f, columnspan: 2)
+
+button_ad_hoc = Button.new(
+  root,
+  text: 'Auto-backup (easy debug mode for now onto E:)',
+  bg: '#0052cc',
+  fg: '#ffffff'
+) {
+  command proc {
+    @object_backup = BackupParadise::Backup.new { :do_not_run_yet }
+    @object_backup.set_mountpoint('E:/')
+    @object_backup.do_backup
+  }
+}.grid(row: 3, column: 3, columnspan: 3, padx: 2, pady: 2)
+
+button_ad_hoc.set_font(larger_font)
+Grid.grid(button_ad_hoc, columnspan: 2)
+
+
+Tk.run
+
+#TkLabel.new(root) { text 'Attention!'; font TkCaptionFont }