Lines Matching +refs:default +refs:value
65 :type '(integer :match (lambda (widget value) (> value 0))))
67 (defcustom ses-initial-default-printer "%.7g"
68 "Initial default printer for a new spreadsheet."
75 "Things to do after entering a value into a cell.
113 "\C-c\C-p" ses-read-default-printer
120 (define-key (1value newmap) (car keys) (cadr keys))
134 ["Set default printer" ses-read-default-printer t]
190 ;;These keys insert themselves as the beginning of a numeric value
234 "(ses-default-printer \"%.7g\")\n"
248 column printer or a global-default printer because they invoke the column or
249 default printer and then modify its output.")
259 ses--curcell-overlay ses--default-printer ses--deferred-narrow
275 '(ses--col-widths -5 ses--col-printers -4 ses--default-printer -3
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
321 "From a CELL or a pair (ROW,COL), get the symbol that names the local-variable holding its value. (0,0) => A1."
325 "From a CELL or a pair (ROW,COL), get the function that computes its value."
329 "From a CELL or a pair (ROW,COL), get the function that prints its value."
334 functions refer to its value."
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)))
346 "Return the default printer for column COL."
354 (defmacro ses-cell (sym value formula printer references)
372 (set sym value)
398 (defmacro ses-default-printer (def)
399 "Load the global default printer from the spreadsheet file and checks it
401 (setq ses--default-printer (ses-safe-printer def))
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))
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
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
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)))))
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
774 (value (ses-cell-value cell))
780 ((eq value '*skip*)
783 ((eq value '*error*)
790 ;;Print the value
793 ses--default-printer)
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)
884 printer signaled one (and \"%s\" is used as the default printer), else nil."
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*))
957 ses--default-printer, ses--numrows, or ses--numcols."
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.
982 ses--default-printer "(ses-default-printer %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))))
1029 (prin1-to-string (symbol-value sym))
1054 "Produce a list of symbols for cells that this formula's value
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."
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)
1408 (eq (car-safe def-printer) 'ses-default-printer)
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)))))
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*)
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))))))
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))))))
1817 ;;Placeholders for col-widths, col-printers, default-printer, header-row
1825 (ses-set-parameter 'ses--default-printer ses--default-printer)
1918 (1value (ses-clear-cell-backward (- count)))
1933 (1value (ses-clear-cell-forward (- count)))
1947 (defun ses-read-printer (prompt default)
1948 "Common code for `ses-read-cell-printer', `ses-read-column-printer', and `ses-read-default-printer'.
1951 (if (eq default t)
1952 (setq default "")
1955 default)))
1961 (prin1-to-string default))))
1962 (if (equal new default)
1983 (let ((default t)
1992 (if (eq default t)
1993 (setq default x)
1994 (unless (equal default x)
1996 (setq default t)
1999 default))))
2023 (defun ses-read-default-printer (newval)
2024 "Set the default printer function for cells that have no other. See
2027 (list (ses-read-printer "Default printer: " ses--default-printer)))
2030 (ses-set-parameter 'ses--default-printer newval)
2072 (global (ses-call-printer ses--default-printer)))
2077 (1value (ses-print-cell (+ x row) col))))))
2127 "Insert a new column before COL (default is the current one).
2154 (and (< (1+ col) ses--numcols) (eq (ses-cell-value row col) '*skip*)
2174 (> (length (ses-call-printer ses--default-printer)) 0))
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
2367 (1value (condition-case x
2440 ignored because the column widths, default printer, etc. at yank time might
2613 (ses-cell-value row col)))
2639 "Select the default header row."
2648 The top row is row 1. Selecting row 0 displays the default header row."
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)
2914 centering (default = space). SPAN indicates how many additional rightward
2915 columns to include in width (default = 0)."
2916 (let ((printer (or (ses-col-printer col) ses--default-printer))
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)
2934 character (default = space)."
2937 (memq (ses-cell-value row end) '(nil *skip*)))
2939 (ses-center value (- end col 1) fill)))
2941 (defun ses-dashfill (value &optional span)
2943 columns to include in width (default = 0)."
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)