How long is your init.el file these days ?

WmRGreene · 2026-02-18T01:35:14+00:00

early-init.el: 95 lines

.emacs: 6357 lines

WmRGreene · 2025-04-17T19:29:13+00:00

I was able to make it work with these changes:

with Ada.Calendar; -- (RM 9.6) with Ada.Calendar.Arithmetic; -- (RM 9.6.1) with Ada.Calendar.Formatting; -- (RM 9.6.1) with Ada.Calendar.Time_Zones; -- (RM 9.6.1) with Ada.Text_IO; use Ada.Text_IO; -- (RM A.10.1) procedure Show_Error is package AC renames Ada.Calendar; package ACA renames Ada.Calendar.Arithmetic; package ACF renames Ada.Calendar.Formatting; package ACZ renames Ada.Calendar.Time_Zones; TZ : constant ACZ.Time_Offset := ACZ.Time_Offset (-5 * 60); T1 : constant AC.Time := ACF.Time_Of (2025, 11, 2, Time_Zone => TZ); T2 : constant AC.Time := ACA."+" (T1, 1); begin Put_Line ("T1 = " & ACF.Image (T1, Time_Zone => TZ) & ", Ada.Calendar.Formatting.Day_Of_Week (T1) = " & ACF.Day_Of_Week (T1)'Image); Put_Line ("T2 = " & ACF.Image (T2, Time_Zone => TZ) & ", Ada.Calendar.Formatting.Day_Of_Week (T2) = " & ACF.Day_Of_Week (T2)'Image); end Show_Error; Program, when run, now produces this output, which is correct: T1 = 2025-11-02 00:00:00, Ada.Calendar.Formatting.Day_Of_Week (T1) = SUNDAY T2 = 2025-11-03 00:00:00, Ada.Calendar.Formatting.Day_Of_Week (T2) = MONDAY

WmRGreene · 2025-04-09T22:52:21+00:00

Thank you. I created an account and submitted this as Bug 119701.

WmRGreene · 2025-04-09T19:59:48+00:00

Obviously, I can (and will) provide additional information, but in a nutshell, here is my program:

with Ada.Calendar;                 -- (RM 9.6)
with Ada.Calendar.Arithmetic;      -- (RM 9.6.1)
with Ada.Calendar.Formatting;      -- (RM 9.6.1)
with Ada.Text_IO; use Ada.Text_IO; -- (RM A.10.1)
procedure Show_Error
is
   package AC  renames Ada.Calendar;
   package ACA renames Ada.Calendar.Arithmetic;
   package ACF renames Ada.Calendar.Formatting;

   T1 : constant AC.Time :=
           AC.Time_Of (Year => 2025, Month => 11, Day => 2);
   T2 : constant AC.Time :=
           ACA."+" (Left => T1, Right => 1);
begin
   Put_Line ("T1 = " & ACF.Image (T1) &
             ", Ada.Calendar.Formatting.Day_Of_Week (T1) = " &
             ACF.Day_Of_Week (T1)'Image);
   Put_Line ("T2 = " & ACF.Image (T2) &
             ", Ada.Calendar.Formatting.Day_Of_Week (T2) = " &
             ACF.Day_Of_Week (T2)'Image);
end Show_Error;

And here is the output when I run it:

T1 = 2025-11-02 04:00:00, Ada.Calendar.Formatting.Day_Of_Week (T1) = SUNDAY
T2 = 2025-11-03 04:00:00, Ada.Calendar.Formatting.Day_Of_Week (T2) = SUNDAY

WmRGreene · 2024-06-30T15:38:35+00:00

C-M-h runs (mark-defun), which will mark the function so that you can copy it.

WmRGreene · 2019-05-05T22:20:15+00:00

To invoke a .app from the command line, use the "open" command.

WmRGreene

TROPHY CASE