norcal 1.0.0 → 1.2.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: be5696e7434a165a2ef025c8152ddd359795d5cf6e1a42d6dae6a32c2f636e90
-  data.tar.gz: fd6398b5697251b1c28c1c0b20c8fb3d99bc6b08980004612d37c94ea00e3469
+  metadata.gz: 628317b98eb4536e13c1199961ce51f89f246add68275897845fa08654060de1
+  data.tar.gz: 23ef85bb70d9342b372fb443b6ab26a3664c7b39b69ec479bbc54fe7a10c6423
 SHA512:
-  metadata.gz: f8e7e3cf2c3e977ba03769fa6c215c18e2ff5fe13f7439b36ed18108f4db5d7ce6d12ef0cb9076ff88b70f923a30e2815b422d79a4da0de80a7de0d4a8192abb
-  data.tar.gz: d2f1258004cd2b3b3a0fbc0a501fd94ef6bd0b5df63145747c899d68916718ffa9fcdb181d3ea46b7355b4672df1c8056f053b5988d2c7632f81a71093c2e42a
+  metadata.gz: a23ac49843b37ed383b08d6215a5a9f4f24416471539654053abd2574c4d4f5aa46e714d56d6f78a50a14a9e43d17652d08173d2cb08ddb6a584e8d2a6515432
+  data.tar.gz: d4392d35c14eda23aebf58669e627c908c754cda781cdba6d61f72e4dc1a9b135ed56c8ff387683bf4f3e2c919c512ed44c839aae7d2c6901f773f611e5281f7

data/README.md

@@ -31,7 +31,7 @@ gem install norcal
 git clone https://github.com/baosen/norcal.git
 cd norcal
 gem build norcal.gemspec
-gem install norcal-1.0.0.gem
+gem install norcal-1.2.0.gem
 ```
 
 ## Usage
@@ -52,6 +52,9 @@ norcal --light 2026 # light mode, specific year
 - Notable dates: royal birthdays, Samefolkets dag, Morsdag, Farsdag, solverv, sommertid, and more
 - Today highlighted with yellow background
 - Dark mode (default) and light mode, with toggle button
+- Zoom in/out (`+`/`–` buttons, Ctrl+scroll, Ctrl++/Ctrl+-)
+- Auto-fit to screen height on startup, with `fit` button
+- Scrollbar for zoomed-in views
 
 ## License
 

data/bin/norcal

@@ -66,7 +66,7 @@ def red_days(year)
     e - 2                   => "Langfredag",
     e                       => "1. påskedag",
     e + 1                   => "2. påskedag",
-    Date.new(year, 5, 1)   => "Off. høgtidsdag",
+    Date.new(year, 5, 1)   => "Arbeidernes dag",
     e + 39                  => "Kr. Himmelfartsdag",
     Date.new(year, 5, 17)  => "Grunnlovsdag",
     e + 49                  => "1. pinsedag",
@@ -102,7 +102,7 @@ def notable_dates(year)
     [e - 2,                   "Langfredag",                                     true],
     [e,                       "1. påskedag",                                    true],
     [e + 1,                   "2. påskedag",                                    true],
-    [Date.new(year, 5, 1),   "Off. høgtidsdag",                                true],
+    [Date.new(year, 5, 1),   "Arbeidernes dag",                                true],
     [Date.new(year, 5, 8),   "Frigjøringsdag 1945",                            false],
     [e + 39,                  "Kr. Himmelfartsdag",                             true],
     [Date.new(year, 5, 17),  "Grunnlovsdag 1814",                              true],
@@ -148,72 +148,108 @@ THEME = {
 # Parse arguments: optional --light flag and optional year (dark is default)
 $dark = ARGV.delete('--light') ? false : true
 $year = (ARGV[0] || Date.today.year).to_i
+$zoom = 0
 
 def theme
   THEME[$dark ? :dark : :light]
 end
 
-root = TkRoot.new do
+FONT = 'Noto Serif'
+
+def make_fonts
+  z = $zoom
+  {
+    title:    TkFont.new(family: FONT, size: 22 + z, weight: 'bold'),
+    mheader:  TkFont.new(family: FONT, size: 13 + z, weight: 'bold'),
+    cal:      TkFont.new(family: FONT, size: 12 + z),
+    cal_bold: TkFont.new(family: FONT, size: 12 + z, weight: 'bold'),
+    note:     TkFont.new(family: FONT, size: 11 + z),
+    note_b:   TkFont.new(family: FONT, size: 11 + z, weight: 'bold'),
+    note_d:   TkFont.new(family: FONT, size: 11 + z),
+    btn:      TkFont.new(family: FONT, size: 9 + z),
+  }
+end
+
+$root = TkRoot.new do
   title "norcal"
 end
 
-# Fonts
-ft_title    = TkFont.new(family: 'Noto Serif', size: 22, weight: 'bold')
-ft_mheader  = TkFont.new(family: 'Noto Serif', size: 13, weight: 'bold')
-ft_cal      = TkFont.new(family: 'Noto Serif', size: 12)
-ft_cal_bold = TkFont.new(family: 'Noto Serif', size: 12, weight: 'bold')
-ft_note     = TkFont.new(family: 'Noto Serif', size: 11)
-ft_note_b   = TkFont.new(family: 'Noto Serif', size: 11, weight: 'bold')
-ft_note_d   = TkFont.new(family: 'Noto Serif', size: 11)
-ft_toggle   = TkFont.new(family: 'Noto Serif', size: 9)
+# -- Widget tracking for in-place updates --------------------------------------
 
-# -- Calendar content ----------------------------------------------------------
+# All trackable widgets, grouped by update type.
+# Labels store {w: widget, fg: theme_key, bg: theme_key, font: font_key}.
+# Buttons store {w: widget, fg: theme_key, text_key: theme_key or nil, text: static}.
+$w = { bg: [], border: [], sep: [], labels: [], texts: [], buttons: [] }
 
-def render_month(parent, year, month, holidays, fonts)
-  ft_mheader, ft_cal, ft_cal_bold = fonts
+# Apply current theme + zoom to all tracked widgets (no widget recreation).
+def restyle
   t = theme
+  f = make_fonts
+
+  $root.configure(background: t[:bg])
+  $canvas.configure(background: t[:bg])
+  $scrollbar.configure(background: t[:bg], troughcolor: t[:bg])
+  $root.title = "Kalender #{$year}"
 
+  $w[:bg].each     { |w| w.configure(background: t[:bg]) }
+  $w[:border].each { |w| w.configure(background: t[:bg], highlightbackground: t[:border]) }
+  $w[:sep].each    { |w| w.configure(background: t[:sep]) }
+
+  $w[:labels].each do |e|
+    e[:w].configure(foreground: t[e[:fg]], background: t[e[:bg]], font: f[e[:font]])
+  end
+
+  $w[:texts].each do |tw|
+    tab = [65 + $zoom * 4, 40].max
+    tw.configure(background: t[:bg], font: f[:note], tabs: tab.to_s)
+    tw.tag_configure('dt',   foreground: t[:fg],      font: f[:note_b])
+    tw.tag_configure('dtr',  foreground: t[:red],      font: f[:note_b])
+    tw.tag_configure('desc', foreground: t[:desc_fg], font: f[:note_d])
+  end
+
+  $w[:buttons].each do |e|
+    text = e[:text_key] ? t[e[:text_key]] : e[:text]
+    e[:w].configure(text: text, font: f[:btn], foreground: t[e[:fg]],
+                    background: t[:bg], activebackground: t[:bg], activeforeground: t[:fg])
+  end
+end
+
+# -- Build calendar (one-time per year) ----------------------------------------
+
+def build_month(parent, year, month, holidays)
   first    = Date.new(year, month, 1)
   last_day = Date.new(year, month, -1)
   monday   = first - (first.cwday - 1)
   today    = Date.today
 
-  outer = TkFrame.new(parent) {
-    borderwidth 1; relief 'solid'; background t[:bg]
-    highlightbackground t[:border]; highlightthickness 0
-  }
+  outer = TkFrame.new(parent) { borderwidth 1; relief 'solid'; highlightthickness 0 }
+  $w[:border] << outer
 
-  grid = TkFrame.new(outer) { background t[:bg]; padx 6; pady 4 }
+  grid = TkFrame.new(outer) { padx 6; pady 4 }
+  $w[:bg] << grid
   grid.pack
 
-  # Month name header
-  TkLabel.new(grid) {
-    text MONTHS_NO[month - 1]; font ft_mheader; foreground t[:fg]; background t[:bg]
-  }.grid(row: 0, column: 0, columnspan: 8, pady: [0, 2])
+  hdr = TkLabel.new(grid) { text MONTHS_NO[month - 1] }
+  $w[:labels] << { w: hdr, fg: :fg, bg: :bg, font: :mheader }
+  hdr.grid(row: 0, column: 0, columnspan: 8, pady: [0, 2])
 
-  # Day-name headers
-  TkLabel.new(grid) {
-    text 'Uke'; font ft_cal; foreground t[:dkgray]; background t[:bg]
-  }.grid(row: 1, column: 0, sticky: 'e', padx: [0, 4])
+  uke = TkLabel.new(grid) { text 'Uke' }
+  $w[:labels] << { w: uke, fg: :dkgray, bg: :bg, font: :cal }
+  uke.grid(row: 1, column: 0, sticky: 'e', padx: [0, 4])
 
   DAYS_NO.each_with_index do |d, i|
-    fg = case i
-         when 5 then t[:gray]
-         when 6 then t[:red]
-         else t[:fg]
-         end
-    TkLabel.new(grid) {
-      text d; font ft_cal_bold; foreground fg; background t[:bg]
-    }.grid(row: 1, column: i + 1, sticky: 'e')
+    fg_key = case i when 5 then :gray when 6 then :red else :fg end
+    lbl = TkLabel.new(grid) { text d }
+    $w[:labels] << { w: lbl, fg: fg_key, bg: :bg, font: :cal_bold }
+    lbl.grid(row: 1, column: i + 1, sticky: 'e')
   end
 
-  # Week rows
   row = 2
   cur = monday
   while cur <= last_day
-    TkLabel.new(grid) {
-      text cur.cweek.to_s; font ft_cal; foreground t[:dkgray]; background t[:bg]
-    }.grid(row: row, column: 0, sticky: 'e', padx: [0, 4])
+    wk = TkLabel.new(grid) { text cur.cweek.to_s }
+    $w[:labels] << { w: wk, fg: :dkgray, bg: :bg, font: :cal }
+    wk.grid(row: row, column: 0, sticky: 'e', padx: [0, 4])
 
     7.times do |i|
       day = cur + i
@@ -221,149 +257,207 @@ def render_month(parent, year, month, holidays, fonts)
         is_red   = day.cwday == 7 || holidays.key?(day)
         is_sat   = day.cwday == 6 && !holidays.key?(day)
         is_today = day == today
-        fg = if is_red then t[:red]
-             elsif is_sat then t[:gray]
-             else t[:fg]
-             end
-        TkLabel.new(grid) {
-          text day.day.to_s
-          font(is_today ? ft_cal_bold : ft_cal)
-          foreground fg
-          background(is_today ? t[:today_bg] : t[:bg])
-        }.grid(row: row, column: i + 1, sticky: 'e')
+        fg_key   = is_red ? :red : (is_sat ? :gray : :fg)
+        bg_key   = is_today ? :today_bg : :bg
+        font_key = is_today ? :cal_bold : :cal
+
+        lbl = TkLabel.new(grid) { text day.day.to_s }
+        $w[:labels] << { w: lbl, fg: fg_key, bg: bg_key, font: font_key }
+        lbl.grid(row: row, column: i + 1, sticky: 'e')
       end
     end
     row += 1
     cur += 7
   end
 
-  # Pad empty rows so all months have the same height (max 6 week rows)
   while row < 8
-    TkLabel.new(grid) { text ' '; font ft_cal; background t[:bg] }
-      .grid(row: row, column: 0)
+    pad = TkLabel.new(grid) { text ' ' }
+    $w[:labels] << { w: pad, fg: :fg, bg: :bg, font: :cal }
+    pad.grid(row: row, column: 0)
     row += 1
   end
 
-  # Uniform column widths
   (1..7).each { |c| grid.grid_columnconfigure(c, uniform: 'day', minsize: 22) }
-
   outer
 end
 
-def render_notable(parent, year, fonts)
-  ft_note, ft_note_b, ft_note_d = fonts
-  t = theme
+def build_notable(parent, year)
   dates = notable_dates(year)
-
-  # Split into 3 roughly-equal columns
   third = (dates.size / 3.0).ceil
-  cols = dates.each_slice(third).to_a
+  cols  = dates.each_slice(third).to_a
 
-  outer = TkFrame.new(parent) {
-    borderwidth 1; relief 'solid'; background t[:bg]
-    highlightbackground t[:border]; highlightthickness 0
-  }
+  outer = TkFrame.new(parent) { borderwidth 1; relief 'solid'; highlightthickness 0 }
+  $w[:border] << outer
 
-  inner = TkFrame.new(outer) { background t[:bg] }
+  inner = TkFrame.new(outer)
+  $w[:bg] << inner
   inner.pack(padx: 5, pady: 5, fill: 'both')
 
   cols.each_with_index do |entries, ci|
     tw = TkText.new(inner) {
       width 1; height(entries.size + 4)
-      font ft_note; borderwidth 0; highlightthickness 0
-      wrap 'word'; background t[:bg]; padx 3; pady 2
-      cursor ''; insertwidth 0
-      tabs '65'
+      borderwidth 0; highlightthickness 0
+      wrap 'word'; padx 3; pady 2; cursor ''; insertwidth 0
     }
-    tw.tag_configure('dt',  foreground: t[:fg],  font: ft_note_b)
-    tw.tag_configure('dtr', foreground: t[:red],  font: ft_note_b)
-    tw.tag_configure('desc', foreground: t[:desc_fg], font: ft_note_d)
+    $w[:texts] << tw
 
     entries.each_with_index do |(date, desc, is_red), i|
       dtag = is_red ? 'dtr' : 'dt'
-      date_str = "#{date.day}. #{MABBR_NO[date.month - 1]}"
-      tw.insert('end', date_str, dtag)
+      tw.insert('end', "#{date.day}. #{MABBR_NO[date.month - 1]}", dtag)
       tw.insert('end', "\t")
       tw.insert('end', desc, 'desc')
       tw.insert('end', "\n") unless i == entries.size - 1
     end
-
     tw.state 'disabled'
     tw.grid(row: 0, column: ci * 2, sticky: 'nsew', padx: [0, 2])
     inner.grid_columnconfigure(ci * 2, weight: 1, uniform: 'notecol')
     inner.grid_rowconfigure(0, weight: 1)
 
-    # vertical separator between columns (except after last)
     if ci < cols.size - 1
-      sep = TkFrame.new(inner) { background t[:sep]; width 1 }
+      sep = TkFrame.new(inner) { width 1 }
+      $w[:sep] << sep
       sep.grid(row: 0, column: ci * 2 + 1, sticky: 'ns', padx: 4)
     end
   end
-
   outer
 end
 
-def build_calendar(parent, year, fonts)
-  ft_mheader, ft_cal, ft_cal_bold, ft_note, ft_note_b, ft_note_d = fonts
-  t = theme
+def build_buttons(parent)
+  btn_bar = TkFrame.new(parent)
+  $w[:bg] << btn_bar
+  btn_bar.grid(row: 5, column: 0, columnspan: 3, pady: [4, 0])
+
+  b1 = TkButton.new(btn_bar) { relief 'flat'; borderwidth 0; command { $dark = !$dark; restyle } }
+  $w[:buttons] << { w: b1, fg: :dkgray, text_key: :toggle_label, text: nil }
+  b1.pack(side: 'left', padx: 4)
+
+  b2 = TkButton.new(btn_bar) { relief 'flat'; borderwidth 0; command { $zoom += 1; restyle } }
+  $w[:buttons] << { w: b2, fg: :dkgray, text_key: nil, text: '+' }
+  b2.pack(side: 'left', padx: 2)
+
+  b3 = TkButton.new(btn_bar) { relief 'flat'; borderwidth 0; command { $zoom -= 1 if $zoom > -8; restyle } }
+  $w[:buttons] << { w: b3, fg: :dkgray, text_key: nil, text: "\u2013" }
+  b3.pack(side: 'left', padx: 2)
+
+  b4 = TkButton.new(btn_bar) { relief 'flat'; borderwidth 0; command { $fit.call(false) } }
+  $w[:buttons] << { w: b4, fg: :dkgray, text_key: nil, text: 'fit' }
+  b4.pack(side: 'left', padx: 2)
+end
+
+def build_all(year)
+  $w.each_value(&:clear)
+  $inner_frame&.destroy
+
   holidays = red_days(year)
 
-  frame = TkFrame.new(parent) { background t[:bg] }
+  $inner_frame = TkFrame.new($canvas)
+  $w[:bg] << $inner_frame
+
+  title = TkLabel.new($inner_frame) { text year.to_s }
+  $w[:labels] << { w: title, fg: :title_fg, bg: :bg, font: :title }
+  title.pack(pady: [8, 2])
 
-  # Single grid for months and notable dates
-  grid_f = TkFrame.new(frame) { background t[:bg] }
-  grid_f.pack(padx: 10, pady: [2, 8])
+  frame = TkFrame.new($inner_frame)
+  $w[:bg] << frame
+  frame.pack(padx: 10, pady: [2, 8])
+
+  grid_f = TkFrame.new(frame)
+  $w[:bg] << grid_f
+  grid_f.pack
 
   12.times do |idx|
-    m_frame = render_month(grid_f, year, idx + 1, holidays,
-                           [ft_mheader, ft_cal, ft_cal_bold])
-    m_frame.grid(row: idx / 3, column: idx % 3, padx: 3, pady: 3, sticky: 'nsew')
+    build_month(grid_f, year, idx + 1, holidays)
+      .grid(row: idx / 3, column: idx % 3, padx: 3, pady: 3, sticky: 'nsew')
   end
 
-  # Notable dates in row 4, spanning all 3 month columns
-  note_f = render_notable(grid_f, year, [ft_note, ft_note_b, ft_note_d])
-  note_f.grid(row: 4, column: 0, columnspan: 3, padx: 3, pady: [4, 0], sticky: 'ew')
-
-  # Toggle button below notable dates
-  TkButton.new(grid_f) {
-    text t[:toggle_label]; font fonts[5]  # ft_note_d
-    relief 'flat'; borderwidth 0
-    foreground t[:dkgray]; background t[:bg]
-    activebackground t[:bg]; activeforeground t[:fg]
-    command { $dark = !$dark; $rebuild&.call }
-  }.grid(row: 5, column: 0, columnspan: 3, pady: [4, 0])
+  build_notable(grid_f, year)
+    .grid(row: 4, column: 0, columnspan: 3, padx: 3, pady: [4, 0], sticky: 'ew')
 
+  build_buttons(grid_f)
   3.times { |c| grid_f.grid_columnconfigure(c, weight: 1) }
 
-  frame
-end
+  # Embed in canvas
+  $canvas.delete('all')
+  $canvas_win = $canvas.create(:window, 0, 0, window: $inner_frame, anchor: 'nw')
 
-# -- Title ---------------------------------------------------------------------
+  center = proc {
+    cw = $canvas.winfo_width;  ch = $canvas.winfo_height
+    fw = $inner_frame.winfo_reqwidth; fh = $inner_frame.winfo_reqheight
+    $canvas.coords($canvas_win, [(cw - fw) / 2, 0].max, [(ch - fh) / 2, 0].max)
+    $canvas.configure(scrollregion: "0 0 #{[cw, fw].max} #{[ch, fh].max}")
+  }
+  $inner_frame.bind('Configure', center)
+  $canvas.bind('Configure', center)
 
-$top = TkFrame.new(root) { background theme[:bg] }
-$top.pack(fill: 'x', pady: [8, 2])
+  restyle
+end
 
-$title_lbl = TkLabel.new($top) {
-  text $year.to_s; font ft_title; foreground theme[:title_fg]; background theme[:bg]
+# -- Scrollable wrapper --------------------------------------------------------
+
+$scrollbar = TkScrollbar.new($root)
+$canvas = TkCanvas.new($root) { highlightthickness 0; borderwidth 0 }
+$canvas.configure(yscrollcommand: proc { |*a| $scrollbar.set(*a) })
+$scrollbar.command(proc { |*a| $canvas.yview(*a) })
+$scrollbar.pack(side: 'right', fill: 'y')
+$canvas.pack(side: 'left', fill: 'both', expand: true)
+
+# Scrolling
+$root.bind('MouseWheel') { |e| $canvas.yview_scroll(-e.delta / 120, 'units') }
+$root.bind('Button-4') { $canvas.yview_scroll(-3, 'units') }
+$root.bind('Button-5') { $canvas.yview_scroll(3, 'units') }
+
+# Keyboard zoom
+$root.bind('Control-plus')  { $zoom += 1; restyle }
+$root.bind('Control-equal') { $zoom += 1; restyle }
+$root.bind('Control-minus') { $zoom -= 1 if $zoom > -8; restyle }
+
+# Ctrl+mouse wheel zoom
+$root.bind('Control-MouseWheel') { |e|
+  if e.delta > 0 then $zoom += 1 else $zoom -= 1 if $zoom > -8 end
+  restyle
 }
-$title_lbl.pack
+$root.bind('Control-Button-4') { $zoom += 1; restyle }
+$root.bind('Control-Button-5') { $zoom -= 1 if $zoom > -8; restyle }
 
-# -- Build & rebuild -----------------------------------------------------------
+# -- Fit to window -------------------------------------------------------------
 
-all_fonts = [ft_mheader, ft_cal, ft_cal_bold, ft_note, ft_note_b, ft_note_d]
-$content = nil
-$rebuild = nil
+$fit = proc { |resize_window|
+  target_h = resize_window ? $root.winfo_screenheight - 80 : $root.winfo_height
+  cur_h    = $inner_frame.winfo_reqheight.to_f
+  base_avg = 13.0
 
-$rebuild = proc {
-  t = theme
-  $content&.destroy
-  root.configure(background: t[:bg])
-  $top.configure(background: t[:bg])
-  $title_lbl.configure(foreground: t[:title_fg], background: t[:bg])
-  root.title = "norcal - #{$year}"
-  $content = build_calendar(root, $year, all_fonts)
-  $content.pack(fill: 'both', expand: true)
+  if cur_h > 0 && target_h > 0
+    cur_font    = base_avg + $zoom
+    target_font = cur_font * (target_h / cur_h)
+    $zoom = (target_font - base_avg).floor
+    $zoom = [$zoom, -8].max
+  end
+
+  restyle
+  Tk.update_idletasks
+
+  if $inner_frame.winfo_reqheight > target_h
+    $zoom -= 1
+    restyle
+    Tk.update_idletasks
+  end
+
+  if resize_window
+    cw = $inner_frame.winfo_reqwidth + 20
+    ch = $inner_frame.winfo_reqheight
+    sw = $root.winfo_screenwidth
+    mh = $root.winfo_screenheight - 50
+    w = [cw, sw].min; h = [ch, mh].min
+    $root.geometry("#{w}x#{h}+#{(sw - w) / 2}+0")
+  end
 }
 
-$rebuild.call
+# -- Startup -------------------------------------------------------------------
+
+$root.withdraw
+build_all($year)
+Tk.update_idletasks
+$fit.call(true)
+$root.deiconify
+
 Tk.mainloop

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: norcal
 version: !ruby/object:Gem::Version
-  version: 1.0.0
+  version: 1.2.0
 platform: ruby
 authors:
 - baosen