elisp - using date-time in emacs spreadsheets -



elisp - using date-time in emacs spreadsheets -

i'm starting utilize ses-mode in emacs, , plan utilize timestamps, not manage have them parsed in way can use.

i'm taking measurements on 3 days of week, distances between 1 measurement , other either 2 or 3 days. chose utilize ses-mode in emacs because runs on of computers, including phone.

my spreadsheet contains datestamp, conductivity, temperature, , gallon count, couple of subsequent lines this:

2014-10-03 2.95 33.4 4031070 2014-10-06 3.07 33.5 4086930 2014-10-08 2.97 33.6 4119590

i add together 2 more columns, first difference of days between readings, sec "gallon-per-day" value.

i not manage have string timestamp parsed format can computations, staying within simple emacs spreadsheet (ses).

i've tried date-to-time, returns same value (14445 17280).

parse-time-string gives me 9-tuple can't straight pass format-time-string.

the function encode-time helps:

class="lang-lisp prettyprint-override">(let ((l (parse-time-string "2014-09-12"))) (format-time-string "%d %m %y" (encode-time 0 0 0 (nth 3 l) (nth 4 l) (nth 5 l))))

the next version uses cl-flet avoid doubling of code if encoding needed multiple times. if need encoding in other functions can utilize defun instead of cl-flet.

class="lang-lisp prettyprint-override">(eval-when (compile) (require 'cl)) ;; cl-flet (let ((a2 "2014-10-08") ;; testing (a1 "2014-10-03")) ;; testing (cl-flet ((encode (str) (let ((l (parse-time-string str))) (encode-time 0 0 0 (nth 3 l) (nth 4 l) (nth 5 l))))) (let* ((t-prev (encode a1)) (t-this (encode a2))) (/ (time-to-seconds (time-subtract t-this t-prev)) (* 24 60 60)))))

as function:

class="lang-lisp prettyprint-override">(eval-when (compile) (require 'cl)) ;; cl-flet (defun day-diff (date1 date2) "calculate difference of dates in days between date1-str , date2-str." (interactive "sdate1:\nsdate2:") (cl-flet ((encode (str) (let ((l (parse-time-string str))) (encode-time 0 0 0 (nth 3 l) (nth 4 l) (nth 5 l))))) (setq date1 (encode date1) date2 (encode date2)) (let ((ret (/ (time-to-seconds (time-subtract date1 date2)) (* 24 60 60)))) (when (called-interactively-p 'any) (message "day difference: %s" ret)) ret))) (put 'day-diff 'safe-function t)

an alternative using calc be:

class="lang-lisp prettyprint-override">(require 'calc) (defun day-diff (date1 date2) "calculate difference of dates in days between date1-str , date2-str." (interactive "sdate1:\nsdate2:") (let ((ret (string-to-number (calc-eval (format "<%s>-<%s>" date1 date2))))) (when (called-interactively-p 'any) (message "day difference: %s" ret)) ret))

if omit nice-to-have features becomes simple cell formula: (string-to-number (calc-eval (format "<%s>-<%s>" a1 a2))).

if want save stuff in spreadsheet can set defun in table cell a1. more simple example:

class="lang-lisp prettyprint-override">(progn (defun day-diff (date1 date2) (string-to-number (calc-eval (format "<%s>-<%s>" date1 date2)))) (put 'day 'safe-function t) "actual header")

to have more convenient editing possibility can switch m-x lisp-mode. there find

^l (ses-cell a1 "actual header" (progn (defun day-diff (date1 date2) (string-to-number (calc-eval (format "<%s>-<%s>" date1 date2)))) (put 'day 'safe-function t) "actual header") nil nil)

which can edit. not insert linebreaks! ses identifies cell-positions line numbers in file!

another nice alternative set definition of function file-local variable list. switch lisp-interaction mode m-x lisp-interaction-mode. go end of file. there find lines:

class="lang-lisp prettyprint-override">;; local variables: ;; mode: ses ;; end:

add function definition eval list:

class="lang-lisp prettyprint-override">;; local variables: ;; mode: ses ;; eval: ;; (progn ;; (defun day-diff (date1 date2) ;; (string-to-number (calc-eval (format "<%s>-<%s>" date1 date2)))) ;; (put 'day-diff 'safe-function t)) ;; end:

you can add together progn without comment characters ;. in case indentation works. afterwards can phone call comment-region progn.

you can save file , run m-x normal-mode. afterwards function defined , can utilize in spreadsheet.

emacs elisp spreadsheet ses

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more