Commit 97f35570 authored by Glenn Morris's avatar Glenn Morris
Browse files

(diary-sabbath-candles-minutes, diary-sabbath-candles): Move to cal-hebrew.

parent afe9998d
......@@ -149,13 +149,6 @@ delta. At present, delta = 0.01 degrees, so the value of the variable
:type 'number
:group 'calendar)
(defcustom diary-sabbath-candles-minutes 18
"Number of minutes before sunset for sabbath candle lighting."
:group 'diary
:type 'integer
:version "21.1")
;;; End of user options.
......@@ -883,27 +876,6 @@ Accurate to a few seconds."
(solar-setup))
(solar-sunrise-sunset-string date))
;; To be called from list-sexp-diary-entries, where DATE is bound.
;;;###diary-autoload
(defun diary-sabbath-candles (&optional mark)
"Local time of candle lighting diary entry--applies if date is a Friday.
No diary entry if there is no sunset on that date.
An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar."
(or (and calendar-latitude calendar-longitude calendar-time-zone)
(solar-setup))
(if (= (% (calendar-absolute-from-gregorian date) 7) 5) ; Friday
(let* ((sunset (cadr (solar-sunrise-sunset date)))
(light (if sunset
(cons (- (car sunset)
(/ diary-sabbath-candles-minutes 60.0))
(cdr sunset)))))
(if sunset
(cons mark
(format "%s Sabbath candle lighting"
(apply 'solar-time-string light)))))))
;; From Meeus, 1991, page 167.
(defconst solar-seasons-data
'((485 324.96 1934.136)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment