Lines Matching +defs:value +defs:get
65 :type '(integer :match (lambda (widget value) (> value 0))))
75 "Things to do after entering a value into a cell.
120 (define-key (1value newmap) (car keys) (cadr keys))
190 ;;These keys insert themselves as the beginning of a numeric value
285 ;; passing back more than one value. These declarations are just to make
294 `ses-range' was changed--so both the formula's value and list of dependents
311 (defmacro ses-get-cell (row col)
321 "From a CELL or a pair (ROW,COL), get the symbol that names the local-variable holding its value. (0,0) => A1."
322 `(aref ,(if col `(ses-get-cell ,row ,col) row) 0))
325 "From a CELL or a pair (ROW,COL), get the function that computes its value."
326 `(aref ,(if col `(ses-get-cell ,row ,col) row) 1))
329 "From a CELL or a pair (ROW,COL), get the function that prints its value."
330 `(aref ,(if col `(ses-get-cell ,row ,col) row) 2))
333 "From a CELL or a pair (ROW,COL), get the list of symbols for cells whose
334 functions refer to its value."
335 `(aref ,(if col `(ses-get-cell ,row ,col) row) 3))
337 (defmacro ses-cell-value (row &optional col)
338 "From a CELL or a pair (ROW,COL), get the current value for that cell."
339 `(symbol-value (ses-cell-symbol ,row ,col)))
352 `(and (symbolp ,sym) (get ,sym 'ses-cell)))
354 (defmacro ses-cell (sym value formula printer references)
372 (set sym value)
440 (defmacro 1value (form)
442 the same value."
467 starting at element IDX. ARRAY is either a vector or a symbol whose value
468 is a vector--if a symbol, the new vector is assigned as the symbol's value."
469 (let* ((a (if (arrayp array) array (symbol-value array)))
542 (push `(apply ses-set-with-undo ,sym ,(symbol-value sym))
572 (let ((cell (ses-get-cell row col))
573 (elt (plist-get '(value t symbol 0 formula 1 printer 2 references 3)
587 cells that this cell refers to. Does not update cell value or reprint the
590 (let* ((cell (ses-get-cell row col))
619 "Calculate and print the value for cell (ROW,COL) using the cell's formula
621 the error signal if the formula or print function failed. The old value is
622 left unchanged if it was *skip* and the new value is nil.
624 processing for the current keystroke, unless the new value is the same as
626 (let ((cell (ses-get-cell row col))
628 (let ((oldval (ses-cell-value cell))
643 (ses-set-cell row col 'value newval)
657 if the cell's value is unchanged and FORCE is nil."
701 (ses-set-cell (car rowcol) (cdr rowcol) 'value '*error*)
702 (1value (ses-print-cell (car rowcol) (cdr rowcol)))))
736 (setq ses--curcell (get-text-property (point) 'intangible))
738 (let ((bcell (get-text-property (region-beginning) 'intangible))
739 (ecell (get-text-property (1- (region-end)) 'intangible)))
765 "Format and print the value of cell (ROW,COL) to the print area.
770 with \"%s\". If the cell's value is *skip*, nothing is printed because the
773 (let* ((cell (ses-get-cell row col))
774 (value (ses-cell-value cell))
780 ((eq value '*skip*)
783 ((eq value '*error*)
790 ;;Print the value
794 value))
813 (or (not (setq x (ses-cell-value row maxcol)))
817 (ses-set-cell row maxcol 'value '*skip*))
827 ((stringp value)
829 ((and (numberp value)
872 (eq (ses-cell-value row maxcol) '*skip*))
873 (ses-set-cell row maxcol 'value nil)
879 (defun ses-call-printer (printer &optional value)
886 (unless value
887 (setq value ""))
891 (format printer value))
894 (format (car printer) value))
896 (setq value (funcall printer value))
897 (if (stringp value)
898 value
899 (or (stringp (car-safe value))
902 (car value))))
905 (prin1-to-string value t))))
916 (1value (ses-set-with-undo 'ses--blank-line
929 "Same as ses-print-cell, except if the cell's value is *skip*, the preceding
932 (if (not (eq (ses-cell-value row col) '*skip*))
937 (let ((rowcol (ses-sym-rowcol (get-text-property (point) 'intangible))))
966 (setq def (plist-get ses-paramlines-plist def))
971 (defun ses-set-parameter (def value &optional elem)
972 "Set parameter DEF to VALUE (with undo) and write the value to the data area.
980 (fmt (plist-get '(ses--col-widths "(ses-column-widths %S)"
991 (setq oldval (aref (symbol-value def) elem))
992 (aset (symbol-value def) elem value))
993 (setq oldval (symbol-value def))
994 (set def value))
998 (insert (format fmt (symbol-value def))))
1017 cell (ses-get-cell row col)
1029 (prin1-to-string (symbol-value sym))
1054 "Produce a list of symbols for cells that this formula's value
1056 or t to get a wrong-type-argument error when the first reference is found."
1222 mycell (ses-get-cell row col)
1255 (setq oldval (ses-cell-value xrow xcol))
1257 (setq oldval (symbol-value (ses-create-cell-symbol xrow xcol))))
1258 (ses-set-cell myrow mycol 'value oldval))))
1272 ;;Newly-inserted value
1274 ;;Transfer old value
1275 (setq oldval (ses-cell-value xrow xcol)))
1276 (ses-set-cell myrow mycol 'value oldval)))
1306 "Like set, but undoable. Result is t if value has changed."
1309 ;;no easy way to get the whole property list to see if it's different!
1311 (equal (symbol-value sym) newval)
1314 `(apply ses-set-with-undo ,sym ,(symbol-value sym))
1322 (when (1value (boundp sym)) ;;Always bound, except after a programming error
1323 (push `(apply ses-set-with-undo ,sym ,(symbol-value sym)) buffer-undo-list)
1413 (1value (eval widths))
1414 (1value (eval def-printer))
1415 (1value (eval printers))
1416 (1value (eval head-row)))
1457 (eq (ses-cell-value row (1+ col)) '*skip*))
1509 (1value (add-hook 'change-major-mode-hook 'ses-cleanup nil t))
1510 (1value (add-hook 'before-revert-hook 'ses-cleanup nil t))
1534 (unless (equal ses-initial-default-printer (1value ses--default-printer))
1535 (1value (ses-read-default-printer ses-initial-default-printer)))
1536 (unless (= ses-initial-column-width (1value (ses-col-width 0)))
1537 (1value (ses-set-column-width 0 ses-initial-column-width)))
1539 (if (> (car ses-initial-size) (1value ses--numrows))
1540 (1value (ses-insert-row (1- (car ses-initial-size)))))
1541 (if (> (cdr ses-initial-size) (1value ses--numcols))
1542 (1value (ses-insert-column (1- (cdr ses-initial-size)))))
1553 ;;For find-alternate-file, post-command-hook doesn't get run for some
1556 (1value (add-hook 'post-command-hook 'ses-command-hook nil t))
1652 (push (1value (propertize " " 'display `((space :align-to ,totwidth))))
1670 (if (eq (symbol-value sym) '*skip*)
1687 (let ((startcell (get-text-property (point) 'intangible))
1699 (if (eq (ses-cell-value row 0) '*skip*)
1701 (ses-set-cell row 0 'value nil))
1711 signals one, or otherwise shows the cell's complete value. For a range, the
1729 ;;If no references, the t will be the result value.
1730 (1value (ses-formula-references (ses-cell-formula row col) t))
1747 (princ (symbol-value ses--curcell))))))
1752 (let ((startcell (get-text-property (point) 'intangible))
1767 (eq (ses-cell-value row (1+ col)) '*skip*))
1773 (ses-set-cell row (1+ col) 'value nil)
1774 (1value (ses-print-cell row (1+ col))))))
1918 (1value (ses-clear-cell-backward (- count)))
1933 (1value (ses-clear-cell-forward (- count)))
2077 (1value (ses-print-cell (+ x row) col))))))
2129 If COL is specified, the new column(s) get the specified WIDTH and PRINTER
2154 (and (< (1+ col) ses--numcols) (eq (ses-cell-value row col) '*skip*)
2180 (1value (ses-print-cell-new-width x (+ y col))))))
2211 (if (or (eq (ses-cell-value row col) '*skip*)
2213 (eq (ses-cell-value row (+ col count)) '*skip*)))
2275 (prefix-numeric-value current-prefix-arg)
2284 (ses-col-width col))))))) ;Default value
2314 (eq (get-text-property beg 'read-only) 'ses)
2315 (eq (get-text-property (1- end) 'read-only) 'ses)))
2346 (setq sym (get-text-property pos 'intangible line)
2349 mycell (ses-get-cell (car rowcol) (cdr rowcol)))
2367 (1value (condition-case x
2400 (eq (get-text-property (point) 'keymap) 'ses-mode-print-map)))
2443 (let ((first (get-text-property 0 'ses text))
2444 (last (get-text-property (1- (length text)) 'ses text)))
2459 last (get-text-property pos 'ses text)
2493 (if (get-text-property pos 'ses text)
2613 (ses-cell-value row col)))
2684 (while (eq '*skip* (ses-cell-value row col))
2712 (while (eq (ses-cell-value row col) '*skip*)
2889 (if (equal test (symbol-value x))
2895 (dolist (x '(ses-cell-value ses-range ses-delete-blanks ses+ ses-average
2912 (defun ses-center (value &optional span fill)
2921 (setq value (ses-call-printer printer value))
2924 (setq width (- width (length value)))
2926 value ;Too large for field, anyway
2928 (concat half value half
2931 (defun ses-center-span (value &optional fill)
2937 (memq (ses-cell-value row end) '(nil *skip*)))
2939 (ses-center value (- end col 1) fill)))
2941 (defun ses-dashfill (value &optional span)
2944 (ses-center value span ?-))
2946 (defun ses-dashfill-span (value)
2949 (ses-center-span value ?-))
2951 (defun ses-tildefill-span (value)
2954 (ses-center-span value ?~))
2956 (defun ses-unsafe (value)