Miroirs/dklrt
1
0
Fork 0
mirror of https://github.com/davidkeegan/dklrt synced 2024-11-16 07:47:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP: Packaging done except manual.

Browse source
This commit is contained in:
David Keegan 2013-10-28 19:42:33 +00:00
parent 1f273a533a
commit 67bb17bf24
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Time.py
View file

@ -27,7 +27,7 @@ def DateTimeParse(DateTimeStr):
""" """
Dts = re.sub(ReDateTimeSep, '', DateTimeStr); Dts = re.sub(ReDateTimeSep, '', DateTimeStr);
if len(Dts) < 8: if len(Dts) < 8:
_Throw('Bad Date/Time string: "%s"!', DateTimeStr) _Throw('Bad Date/Time string: "%s"!' % DateTimeStr)
while len(Dts) < 14: Dts = Dts + "0"; while len(Dts) < 14: Dts = Dts + "0";
return mktime(strptime(Dts, DateTimeFormat)) return mktime(strptime(Dts, DateTimeFormat))
@ -41,9 +41,8 @@ def DateToday():
def DateAddPeriod(Seconds, Periodstr): def DateAddPeriod(Seconds, Periodstr):
"""Adds the period to the Seconds (a date).""" """Adds the period to the Seconds (a date)."""
Match = re.match(RePeriod, Periodstr) Match = re.match(RePeriod, Periodstr)
if not Match: _Throw("Bad Period String: %s!", Periodstr) if not Match: _Throw("Bad Period String: %s!" % Periodstr)
Count = int(Match.group(1)) Count = int(Match.group(1))
Unit = Match.group(2) Unit = Match.group(2)

4
dklrt.el
View file

@ -42,7 +42,7 @@ The default assumes python is on the PATH."
:tag "dklrt-PythonProgram" :tag "dklrt-PythonProgram"
:type '(string)) :type '(string))
(defcustom dklrt-AppendBefore "3d" (defcustom dklrt-AppendBefore "1d"
"Controls when a recurring transaction is actually appended. "Controls when a recurring transaction is actually appended.
The value is a period do list format: <integer><y|m|d|w|h>. A The value is a period do list format: <integer><y|m|d|w|h>. A
recurring transaction is appended when the current date/time is recurring transaction is appended when the current date/time is
@ -70,7 +70,7 @@ transaction date."
; Hard-coded alternative value for debug only. ; Hard-coded alternative value for debug only.
(or dklrt-PackageDirectory (or dklrt-PackageDirectory
(setq dklrt-PackageDirectory "/opt/dk/emacs/dklrt-20131028.1133/")) (setq dklrt-PackageDirectory (concat (getenv "rel"))))
;;;###autoload ;;;###autoload
(defun dklrt-SetCcKeys() (defun dklrt-SetCcKeys()