norcal 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: be5696e7434a165a2ef025c8152ddd359795d5cf6e1a42d6dae6a32c2f636e90
+  data.tar.gz: fd6398b5697251b1c28c1c0b20c8fb3d99bc6b08980004612d37c94ea00e3469
+SHA512:
+  metadata.gz: f8e7e3cf2c3e977ba03769fa6c215c18e2ff5fe13f7439b36ed18108f4db5d7ce6d12ef0cb9076ff88b70f923a30e2815b422d79a4da0de80a7de0d4a8192abb
+  data.tar.gz: d2f1258004cd2b3b3a0fbc0a501fd94ef6bd0b5df63145747c899d68916718ffa9fcdb181d3ea46b7355b4672df1c8056f053b5988d2c7632f81a71093c2e42a

data/LICENSE

@@ -0,0 +1,15 @@
+ISC License
+
+Copyright (c) 2026 baosen <chibaosen@gmail.com>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

data/README.md

@@ -0,0 +1,58 @@
+# norcal
+
+A local Norwegian desktop calendar.
+
+![norcal screenshot](screenshot.png)
+
+## Install
+
+First, install the Tcl/Tk system libraries:
+
+```bash
+# Debian/Ubuntu
+sudo apt install libtk8.6 tk8.6-dev tcl8.6-dev
+
+# Fedora
+sudo dnf install tk-devel tcl-devel
+
+# macOS
+brew install tcl-tk
+```
+
+### From RubyGems
+
+```
+gem install norcal
+```
+
+### From source
+
+```bash
+git clone https://github.com/baosen/norcal.git
+cd norcal
+gem build norcal.gemspec
+gem install norcal-1.0.0.gem
+```
+
+## Usage
+
+```
+norcal              # current year, dark mode
+norcal 2026         # specific year
+norcal --light      # light mode
+norcal --light 2026 # light mode, specific year
+```
+
+## Features
+
+- 12-month grid (4x3) with Norwegian month and day names
+- ISO week numbers, Monday-first weeks
+- Sundays and public holidays in red, Saturdays in gray
+- Easter-based movable holidays (Computus algorithm)
+- 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
+
+## License
+
+[ISC](LICENSE)

data/bin/norcal

@@ -0,0 +1,369 @@
+#!/usr/bin/env ruby
+# norcal - Norwegian desktop calendar
+
+require 'date'
+require 'tk'
+
+# Ruby 4.0 froze all string literals by default, which breaks the tk gem's
+# internal _toUTF8/_fromUTF8 helpers (they call force_encoding on the return
+# value of the C-level converter).  Wrapping those C methods to dup frozen
+# return values is the least-invasive fix.
+class TclTkIp
+  %i[__toUTF8 __fromUTF8].each do |m|
+    orig = :"#{m}_orig"
+    alias_method orig, m
+    define_method(m) { |*a| (r = send(orig, *a)).frozen? ? +r : r }
+  end
+end
+
+# -- Norwegian locale constants ------------------------------------------------
+
+MONTHS_NO = %w[
+  Januar Februar Mars April Mai Juni
+  Juli August September Oktober November Desember
+].freeze
+
+DAYS_NO  = %w[Ma Ti On To Fr Lø Sø].freeze
+MABBR_NO = %w[jan feb mar apr mai jun jul aug sep okt nov des].freeze
+
+# -- Date helpers --------------------------------------------------------------
+
+# Easter Sunday via the Anonymous Gregorian algorithm (Computus)
+def easter(year)
+  a = year % 19
+  b, c = year.divmod(100)
+  d, e = b.divmod(4)
+  f = (b + 8) / 25
+  g = (b - f + 1) / 3
+  h = (19 * a + b - d - g + 15) % 30
+  i, k = c.divmod(4)
+  l = (32 + 2 * e + 2 * i - h - k) % 7
+  m = (a + 11 * h + 22 * l) / 451
+  month, day = (h + l - 7 * m + 114).divmod(31)
+  Date.new(year, month, day + 1)
+end
+
+# n-th occurrence of a weekday (cwday 1=Mon..7=Sun) in a given month
+def nth_wday(year, month, wday, n)
+  first = Date.new(year, month, 1)
+  first + ((wday - first.cwday) % 7) + (n - 1) * 7
+end
+
+# Last occurrence of a weekday in a given month
+def last_wday(year, month, wday)
+  last = Date.new(year, month, -1)
+  last - ((last.cwday - wday) % 7)
+end
+
+# -- Norwegian holidays --------------------------------------------------------
+
+# Public holidays (røde dager) - official days off
+def red_days(year)
+  e = easter(year)
+  {
+    Date.new(year, 1, 1)   => "Nyttårsdag",
+    e - 3                   => "Skjærtorsdag",
+    e - 2                   => "Langfredag",
+    e                       => "1. påskedag",
+    e + 1                   => "2. påskedag",
+    Date.new(year, 5, 1)   => "Off. høgtidsdag",
+    e + 39                  => "Kr. Himmelfartsdag",
+    Date.new(year, 5, 17)  => "Grunnlovsdag",
+    e + 49                  => "1. pinsedag",
+    e + 50                  => "2. pinsedag",
+    Date.new(year, 12, 25) => "1. juledag",
+    Date.new(year, 12, 26) => "2. juledag",
+  }
+end
+
+# Notable dates: [date, description, show_date_in_red?]
+def notable_dates(year)
+  e = easter(year)
+  morsdag       = nth_wday(year, 2, 7, 2)
+  farsdag       = nth_wday(year, 11, 7, 2)
+  sommer_start  = last_wday(year, 3, 7)
+  sommer_slutt  = last_wday(year, 10, 7)
+  fastelavn     = e - 49
+  nov27         = Date.new(year, 11, 27)
+  advent1       = nov27 + ((7 - nov27.cwday) % 7)
+
+  [
+    [Date.new(year, 1, 1),   "Nyttårsdag",                                    true],
+    [Date.new(year, 1, 21),  "Prinsesse Ingrid Alexandra, #{year - 2004} år", false],
+    [Date.new(year, 2, 6),   "Samefolkets dag",                               false],
+    [morsdag,                 "Morsdag",                                        false],
+    [Date.new(year, 2, 14),  "St. Valentines dag",                             false],
+    [fastelavn,               "Fastelavn",                                      false],
+    [Date.new(year, 2, 21),  "Kong Harald, #{year - 1937} år",                 false],
+    [Date.new(year, 3, 20),  "Vårjevndøgn",                                    false],
+    [sommer_start,            "Sommertid start",                                false],
+    [e - 7,                   "Palmesøndag",                                    true],
+    [e - 3,                   "Skjærtorsdag",                                   true],
+    [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, 8),   "Frigjøringsdag 1945",                            false],
+    [e + 39,                  "Kr. Himmelfartsdag",                             true],
+    [Date.new(year, 5, 17),  "Grunnlovsdag 1814",                              true],
+    [e + 49,                  "1. pinsedag",                                    true],
+    [e + 50,                  "2. pinsedag",                                    true],
+    [Date.new(year, 6, 7),   "Unionsoppløsning 1905",                          false],
+    [Date.new(year, 6, 21),  "Sommersolverv",                                   false],
+    [Date.new(year, 6, 23),  "Jonsokaften",                                    false],
+    [Date.new(year, 7, 4),   "Dronning Sonja, #{year - 1937} år",             false],
+    [Date.new(year, 7, 20),  "Kronprins Haakon, #{year - 1973} år",           false],
+    [Date.new(year, 7, 29),  "Olsokdagen",                                    false],
+    [Date.new(year, 8, 19),  "Kronprinsesse Mette-Marit, #{year - 1973} år",  false],
+    [Date.new(year, 9, 23),  "Høstjevndøgn",                                   false],
+    [sommer_slutt,            "Sommertid slutt",                                false],
+    [Date.new(year, 10, 31), "Halloween",                                      false],
+    [Date.new(year, 11, 1),  "Allehelgensdag",                                false],
+    [farsdag,                 "Farsdag",                                        false],
+    [advent1,                 "1. søndag i advent",                             false],
+    [Date.new(year, 12, 13), "Luciadagen",                                    false],
+    [Date.new(year, 12, 21), "Vintersolverv",                                  false],
+    [Date.new(year, 12, 25), "1. juledag",                                     true],
+    [Date.new(year, 12, 26), "2. juledag",                                     true],
+  ].sort_by { |d, _, _| d }
+end
+
+# -- GUI -----------------------------------------------------------------------
+
+THEME = {
+  light: {
+    bg: '#ffffff', fg: '#000000', title_fg: '#333333',
+    red: '#cc0000', gray: '#999999', dkgray: '#444444',
+    border: '#777777', today_bg: '#ffed6f', desc_fg: '#333333',
+    sep: '#777777', toggle_label: 'dark',
+  },
+  dark: {
+    bg: '#1e1e1e', fg: '#d4d4d4', title_fg: '#cccccc',
+    red: '#ff6b6b', gray: '#777777', dkgray: '#999999',
+    border: '#555555', today_bg: '#4a4400', desc_fg: '#aaaaaa',
+    sep: '#555555', toggle_label: 'light',
+  },
+}.freeze
+
+# 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
+
+def theme
+  THEME[$dark ? :dark : :light]
+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)
+
+# -- Calendar content ----------------------------------------------------------
+
+def render_month(parent, year, month, holidays, fonts)
+  ft_mheader, ft_cal, ft_cal_bold = fonts
+  t = theme
+
+  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
+  }
+
+  grid = TkFrame.new(outer) { background t[:bg]; padx 6; pady 4 }
+  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])
+
+  # 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])
+
+  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')
+  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])
+
+    7.times do |i|
+      day = cur + i
+      if day.month == month && day.year == year
+        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')
+      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)
+    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
+  dates = notable_dates(year)
+
+  # Split into 3 roughly-equal columns
+  third = (dates.size / 3.0).ceil
+  cols = dates.each_slice(third).to_a
+
+  outer = TkFrame.new(parent) {
+    borderwidth 1; relief 'solid'; background t[:bg]
+    highlightbackground t[:border]; highlightthickness 0
+  }
+
+  inner = TkFrame.new(outer) { background t[:bg] }
+  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'
+    }
+    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)
+
+    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', "\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.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
+  holidays = red_days(year)
+
+  frame = TkFrame.new(parent) { background t[:bg] }
+
+  # Single grid for months and notable dates
+  grid_f = TkFrame.new(frame) { background t[:bg] }
+  grid_f.pack(padx: 10, pady: [2, 8])
+
+  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')
+  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])
+
+  3.times { |c| grid_f.grid_columnconfigure(c, weight: 1) }
+
+  frame
+end
+
+# -- Title ---------------------------------------------------------------------
+
+$top = TkFrame.new(root) { background theme[:bg] }
+$top.pack(fill: 'x', pady: [8, 2])
+
+$title_lbl = TkLabel.new($top) {
+  text $year.to_s; font ft_title; foreground theme[:title_fg]; background theme[:bg]
+}
+$title_lbl.pack
+
+# -- Build & rebuild -----------------------------------------------------------
+
+all_fonts = [ft_mheader, ft_cal, ft_cal_bold, ft_note, ft_note_b, ft_note_d]
+$content = nil
+$rebuild = nil
+
+$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)
+}
+
+$rebuild.call
+Tk.mainloop

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification
+name: norcal
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- baosen
+bindir: bin
+cert_chain: []
+date: 1980-01-02 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: tk
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.6'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.6'
+description: A local Norwegian desktop calendar with Tk GUI
+email: chibaosen@gmail.com
+executables:
+- norcal
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- README.md
+- bin/norcal
+homepage: https://github.com/baosen/norcal
+licenses:
+- ISC
+metadata: {}
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '3.0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 4.0.3
+specification_version: 4
+summary: Norwegian desktop calendar
+test_files: []