Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

removed ;;; -+ lines

darcs-hash:20080930023631-3cc5d-fbf205a6c13da34ae1c24096be4829b1ac069cbe.gz
  • Loading branch information...
commit 80eb78022da3cee5abb60e26fe7584817552ffe7 1 parent ff7fd14
@gwkkwg authored
View
4 dev/defclass-star.lisp
@@ -211,16 +211,13 @@ separator is the hypen, in which case the wrapping parentheses are optional."
(values ',name))))))
-;;; ---------------------------------------------------------------------------
(defparameter *defclass-copy-condition-function* #'warn)
(defvar *defclass-generate-make-load-form* nil)
-;;; ---------------------------------------------------------------------------
(defclass-property defclass*-superclasses)
-;;; ---------------------------------------------------------------------------
(defun class-copyable-p (class-name)
;; (spy class-name)
@@ -228,7 +225,6 @@ separator is the hypen, in which case the wrapping parentheses are optional."
(some #'class-copyable-p
(defclass*-superclasses class-name))))
-;;; ---------------------------------------------------------------------------
(defmacro defclass* (name superclasses slots &rest class-options)
"Like 'defclass-brief' but also provides the :MAKE-LOAD-FORM-P, :EXPORT-P,
View
74 dev/generic-interface.lisp
@@ -1,8 +1,6 @@
(in-package #:metatilities)
-;;; ---------------------------------------------------------------------------
;;; System variables
-;;; ---------------------------------------------------------------------------
(declaim (special *development-mode* *use-native-debugger*))
@@ -11,14 +9,11 @@
(defvar *use-native-debugger* nil)
-;;; ---------------------------------------------------------------------------
;;; progress bars
-;;; ---------------------------------------------------------------------------
(defvar *dummy-progress-variable*)
(defvar *progress-bar-count* 0)
-;;; ---------------------------------------------------------------------------
(defmacro with-progress-bar ((min max &rest args
&key (title "Progress")
@@ -56,7 +51,6 @@
(let ((*dummy-progress-variable* 0))
(progn ,@body)))))))
-;;; ---------------------------------------------------------------------------
(defmacro with-process-message ((&rest args &key (title "Please wait...")
&allow-other-keys)
@@ -66,9 +60,7 @@
,@body))
-;;; ---------------------------------------------------------------------------
;;; Error handling
-;;; ---------------------------------------------------------------------------
(defmacro handle-errors (standard-message &body body)
`(catch 'recover
@@ -85,55 +77,44 @@
,@body))))
-;;; ---------------------------------------------------------------------------
;;; beeping
-;;; ---------------------------------------------------------------------------
(defmethod interface-beep* (interface &rest args)
(declare (ignore interface args)))
-;;; ---------------------------------------------------------------------------
(defun interface-beep (&rest args)
(apply #'interface-beep* *default-interface* args))
-;;; ---------------------------------------------------------------------------
;;; no interface interface implementations
-;;; ---------------------------------------------------------------------------
-;;; ---------------------------------------------------------------------------
;;; Progress bars
(defmethod make-progress-bar (interface min max title &key &allow-other-keys)
(declare (ignore interface min max title))
(values nil))
-;;; ---------------------------------------------------------------------------
(defmethod progress-bar-value (interface bar)
(declare (ignore interface bar))
(values 0))
-;;; ---------------------------------------------------------------------------
(defmethod (setf progress-bar-value) (value interface bar)
(declare (ignore interface bar))
(values value))
-;;; ---------------------------------------------------------------------------
(defmethod close-progress-bar (interface bar)
(declare (ignore interface bar))
(values))
-;;; ---------------------------------------------------------------------------
#+Test
(with-progress-bar (0 20)
(loop repeat 20 do (incf (progress)) (sleep .1)))
-;;; ---------------------------------------------------------------------------
;;; Errors and warnings
#-(or digitool openmcl)
@@ -161,50 +142,41 @@
standard-message
condition)))))
-;;; ---------------------------------------------------------------------------
(defun gui-error (condition &optional (prefix "") (standard-message nil))
(gui-error* *default-interface* condition prefix standard-message))
-;;; ---------------------------------------------------------------------------
(defmethod gui-warn* (interface string &rest args)
(declare (ignore interface))
(apply #'warn string args))
-;;; ---------------------------------------------------------------------------
(defun gui-warn (string &rest args)
(apply #'gui-warn* *default-interface* string args))
-;;; ---------------------------------------------------------------------------
;;; Color
-;;; ---------------------------------------------------------------------------
(defmethod make-color** (interface red green blue)
(declare (ignore interface red green blue))
(values 0))
-;;; ---------------------------------------------------------------------------
(defmethod make-color* (red green blue)
;;; Make-color with sensible arguments
"given red, green, and blue, returns an encoded rgb value"
(make-color** (default-interface) red green blue))
-;;; ---------------------------------------------------------------------------
(defmethod make-gray* (interface level)
(make-color** interface level level level))
-;;; ---------------------------------------------------------------------------
(defmethod make-gray (level)
;;; These use a 0-255 scale for component levels
(make-gray* (default-interface) level))
-;;; ---------------------------------------------------------------------------
(defmethod make-scaled-color* (interface red green blue scale)
(make-color** interface
@@ -212,96 +184,76 @@
(round (* green scale))
(round (* blue scale))))
-;;; ---------------------------------------------------------------------------
(defmethod make-scaled-color (red green blue scale)
(make-scaled-color* (default-interface) red green blue scale))
-;;; ---------------------------------------------------------------------------
;;; y-or-n-dialog
-;;; ---------------------------------------------------------------------------
(defmethod y-or-n-question* (interface message &rest args)
(declare (ignore interface args))
(y-or-n-p message))
-;;; ---------------------------------------------------------------------------
(defun y-or-n-question (message &rest args)
(apply #'y-or-n-question* *default-interface* message args))
-;;; ---------------------------------------------------------------------------
;;; choose-file-question
-;;; ---------------------------------------------------------------------------
(defmethod choose-file-question* (interface &rest args)
(declare (ignore interface args))
(print "I would love to choose a file for you, but I'm not sure how?"))
-;;; ---------------------------------------------------------------------------
(defun choose-file-question (&rest args)
(apply #'choose-file-question* *default-interface* args))
-;;; ---------------------------------------------------------------------------
;;; choose-new-file-question
-;;; ---------------------------------------------------------------------------
(defmethod choose-new-file-question* (interface &rest args)
(declare (ignore interface args))
(print "I would love to choose a new file name for you, but I'm not sure how?"))
-;;; ---------------------------------------------------------------------------
(defun choose-new-file-question (&rest args)
(apply #'choose-new-file-question* *default-interface* args))
-;;; ---------------------------------------------------------------------------
;;; choose-directory-question
-;;; ---------------------------------------------------------------------------
(defmethod choose-directory-question* (interface &rest args)
(declare (ignore interface args))
(print "I would love to choose a directory name for you, but I'm not sure how?"))
-;;; ---------------------------------------------------------------------------
(defun choose-directory-question (&rest args)
(apply #'choose-directory-question* *default-interface* args))
-;;; ---------------------------------------------------------------------------
;;; choose-item-question
-;;; ---------------------------------------------------------------------------
(defmethod choose-item-question* (interface list &rest args &key &allow-other-keys)
(declare (ignore interface list args))
(print "I would love to choose an item for you, but I'm not sure how?"))
-;;; ---------------------------------------------------------------------------
(defun choose-item-question (list &rest args &key &allow-other-keys)
(apply #'choose-item-question* *default-interface* list args))
-;;; ---------------------------------------------------------------------------
;;; choose-item-from-pup
-;;; ---------------------------------------------------------------------------
;; defaults to choose-item-question:
(defmethod choose-item-from-pup* (interface the-list &rest args &key &allow-other-keys)
(apply #'choose-item-question* interface the-list args))
-;;; ---------------------------------------------------------------------------
(defun choose-item-from-pup (the-list &rest args &key &allow-other-keys)
"Present an interface to allow a choice from a list. Can throw :cancel."
(apply #'choose-item-from-pup* *default-interface* the-list args))
-;;; ---------------------------------------------------------------------------
(defun choose-item-from-pup-no-singletons (the-list-or-atom &rest args
&key &allow-other-keys)
@@ -311,64 +263,51 @@ is an atom or a singleton list."
((= (length the-list-or-atom) 1) (values (first the-list-or-atom)))
(t (apply #'choose-item-from-pup the-list-or-atom args))))
-;;; ---------------------------------------------------------------------------
;;; make-ui-point
-;;; ---------------------------------------------------------------------------
(defmethod make-ui-point* (interface x y)
(declare (ignore interface x y))
(values))
-;;; ---------------------------------------------------------------------------
(defun make-ui-point (x y)
(make-ui-point* *default-interface* x y))
-;;; ---------------------------------------------------------------------------
;;; process-parameters
-;;; ---------------------------------------------------------------------------
(defmethod process-parameters* (interface &rest args)
(declare (ignore interface args))
(values))
-;;; ---------------------------------------------------------------------------
(defmethod process-parameters (&rest args)
(apply #'process-parameters* *default-interface* args)
(values))
-;;; ---------------------------------------------------------------------------
;;; put-item-on-clipboard
-;;; ---------------------------------------------------------------------------
(defmethod put-item-on-clipboard* (interface thing)
(declare (ignore interface thing))
(error "I don't know anything about clipboards."))
-;;; ---------------------------------------------------------------------------
(defmethod put-item-on-clipboard (thing)
(put-item-on-clipboard* *default-interface* thing)
thing)
-;;; ---------------------------------------------------------------------------
;;; inspect-thing
-;;; ---------------------------------------------------------------------------
(defmethod inspect-thing* (interface thing &rest args)
(declare (ignore interface args))
(error "I don't know how toinspect ~S" thing))
-;;; ---------------------------------------------------------------------------
(defun inspect-thing (thing &rest args)
(apply #'inspect-thing* *default-interface* thing args)
(values thing))
-;;; ---------------------------------------------------------------------------
(defun inspect-things (&rest things)
(let ((result nil))
@@ -377,18 +316,15 @@ is an atom or a singleton list."
things)
(values result)))
-;;; ---------------------------------------------------------------------------
(defmethod sound-note* (interface pitch velocity &rest args)
(declare (ignore interface pitch velocity args))
(interface-beep))
-;;; ---------------------------------------------------------------------------
(defun sound-note (pitch velocity &rest args)
(apply #'sound-note* *default-interface* pitch velocity args))
-;;; ---------------------------------------------------------------------------
(defmethod stop-notes* (interface)
(declare (ignore interface))
@@ -397,26 +333,21 @@ is an atom or a singleton list."
(defun stop-notes ()
(stop-notes* *default-interface*))
-;;; ---------------------------------------------------------------------------
(defmethod select-instrument* (interface instrument &rest args)
(declare (ignore interface instrument args))
(error "I don't know how to select instruments."))
-;;; ---------------------------------------------------------------------------
(defmethod select-instrument (instrument &rest args)
(apply #'select-instrument* *default-interface* instrument args))
-;;; ---------------------------------------------------------------------------
;;; query-user-for-string
-;;; ---------------------------------------------------------------------------
(defun query-user-for-string (prompt &rest args &key &allow-other-keys)
(apply #'prompt-for 'string prompt args))
-;;; ---------------------------------------------------------------------------
(defun query-user-for-integer (prompt &optional minimum maximum)
(catch :cancel
@@ -432,15 +363,12 @@ is an atom or a singleton list."
(t
(return-from query-user-for-integer number)))))))
-;;; ---------------------------------------------------------------------------
;;; prompt-for
-;;; ---------------------------------------------------------------------------
(defmethod prompt-for* (interface type message &rest args)
(declare (ignore interface message args))
(warn "I don't know how to prompt for ~A" type))
-;;; ---------------------------------------------------------------------------
(defmethod prompt-for* (interface (type (eql 'string)) message &rest args)
(declare (ignore interface))
@@ -448,13 +376,11 @@ is an atom or a singleton list."
(finish-output *query-io*)
(read-line *query-io* nil :eof))
-;;; ---------------------------------------------------------------------------
(defmethod prompt-for* (interface (type (eql 'fixnum)) message &rest args)
(declare (ignore interface))
(apply #'query-user-for-integer message args))
-;;; ---------------------------------------------------------------------------
(defun prompt-for (type message &rest args)
(apply #'prompt-for* *default-interface* type message args))
View
8 dev/generic-lisp.lisp
@@ -1,8 +1,6 @@
(in-package #:metatilities)
-;;; ---------------------------------------------------------------------------
;;; Interface determination
-;;; ---------------------------------------------------------------------------
(defvar *default-interface* nil)
@@ -23,9 +21,7 @@
(is-interface-available-p *default-interface*))
-;;; ---------------------------------------------------------------------------
;;; quitting
-;;; ---------------------------------------------------------------------------
(defgeneric quit-lisp* (interface)
(:documentation "Quits Lisp"))
@@ -38,9 +34,7 @@
(quit-lisp* *default-interface*))
-;;; ---------------------------------------------------------------------------
;;; memory management stuff
-;;; ---------------------------------------------------------------------------
(defgeneric total-bytes-allocated* (interface)
(:documentation "")
@@ -70,9 +64,7 @@
(collect-garbage* *default-interface*))
-;;; ---------------------------------------------------------------------------
;;; other
-;;; ---------------------------------------------------------------------------
(defmacro make-load-form* (class-name)
#+(or openmcl (not mcl) ansi-make-load-form)
View
2  dev/l0-clos.lisp
@@ -26,9 +26,7 @@
(defmethod reset ((object t))
(values nil))
-;;; ---------------------------------------------------------------------------
;;; samep and nearly samep
-;;; ---------------------------------------------------------------------------
(declaim (special *samep-tolerance*))
(defvar *samep-tolerance* (coerce 1e-5 'double-float)
View
2  dev/l0-strings.lisp
@@ -1,8 +1,6 @@
(in-package #:metatilities)
-;;; ---------------------------------------------------------------------------
;;; whitespace-p
-;;; ---------------------------------------------------------------------------
(defparameter +whitespace-characters+
(list #\Space #\Newline #\Tab #\Page #\Null #\Linefeed)
View
2  dev/l0-time.lisp
@@ -61,9 +61,7 @@ is divisible by four but not by 100 or if it is divisible by 400."
(days-in-month month leap-year?))
(time-date date))))
-;;; ---------------------------------------------------------------------------
;;; format-date
-;;; ---------------------------------------------------------------------------
(defun format-date (format date &optional stream time-zone)
"Formats universal dates using the same format specifiers as NSDateFormatter. The format is:
View
18 dev/l0-utils.lisp
@@ -6,7 +6,6 @@
and it's easier to implement it than to change them all."
(typep arg 'fixnum))
-;;; ----------------------------------------------------------------------------
;;;
;;; MACROS
;;;
@@ -25,7 +24,6 @@ and it's easier to implement it than to change them all."
) ; eval-always
-;;; ----------------------------------------------------------------------------
;;;
;;; PREDICATES
;;;
@@ -41,7 +39,6 @@ and it's easier to implement it than to change them all."
(define-compiler-macro neq (left right)
`(not (eq ,left ,right)))
-;;; ----------------------------------------------------------------------------
;;;
;;; FORMING SYMBOLS
;;;
@@ -72,7 +69,6 @@ and it's easier to implement it than to change them all."
) ; eval-always
-;;; ---------------------------------------------------------------------------
(defun current-load-file ()
"Returns (if possible) the value of the file currently being loaded or from which
@@ -101,14 +97,12 @@ code is currently being evaluated."
(function thing)
(symbol (symbol-function thing))))
-;;; ---------------------------------------------------------------------------
;;; newsym
;;;
;;; Sometimes it's nice to have your gensyms mean something when
;;; you're reading the macroexpansion of some form. The problem
;;; is that if you give a prefix to GENSYM it remains the prefix
;;; until you change it.
-;;; ---------------------------------------------------------------------------
(eval-when (:compile-toplevel :load-toplevel :execute)
;; the eval-when is because the newsym function is used in expanding
@@ -125,7 +119,6 @@ not sticky."
(setf prefix (string prefix)))
(make-symbol (format nil "~a~4,'0d" prefix (incf *newsym-counter*)))))
-;;; ---------------------------------------------------------------------------
(defun export-exported-symbols (from-package to-package)
"Make the exported symbols in from-package be also exported from to-package."
@@ -133,17 +126,14 @@ not sticky."
(do-external-symbols (sym (find-package from-package))
(export sym to-package)))
-;;; ---------------------------------------------------------------------------
(defgeneric length-at-least-p (thing length)
(:documentation "Returns true if thing has no fewer than length elements in it."))
-;;; ---------------------------------------------------------------------------
(defmethod length-at-least-p ((thing sequence) length)
(>= (length thing) length))
-;;; ---------------------------------------------------------------------------
(defmethod length-at-least-p ((thing cons) length)
(let ((temp thing))
@@ -152,17 +142,14 @@ not sticky."
(setf temp (rest temp)))
(not (null temp))))
-;;; ---------------------------------------------------------------------------
(defgeneric length-at-most-p (thing length)
(:documentation "Returns true if thing has no more than length elements in it."))
-;;; ---------------------------------------------------------------------------
(defmethod length-at-most-p ((thing sequence) length)
(<= (length thing) length))
-;;; ---------------------------------------------------------------------------
(defmethod length-at-most-p ((thing cons) length)
;;?? cf. length-at-least-p, this seems similar
@@ -172,14 +159,12 @@ not sticky."
(setf temp (rest temp)))
(null temp)))
-;;; ---------------------------------------------------------------------------
(declaim (inline length-1-list-p))
(defun length-1-list-p (x)
"Is x a list of length 1? Note that this is better than the naive \(= \(length x\) 1\) because we don't need to traverse the entire list..."
(and (consp x) (null (cdr x))))
-;;; ---------------------------------------------------------------------------
(defun nearly-zero-p (x &optional (threshold 0.0001))
"Returns true if `x` is within threshold of 0d0."
@@ -197,7 +182,6 @@ not sticky."
(nearly-zero-p 0.00001)
(nearly-zero-p -0.00001)))
-;;; ---------------------------------------------------------------------------
(defun nearly-equal-p (x y threshold)
"Returns true if x and y are within threshold of each other."
@@ -220,9 +204,7 @@ not sticky."
(nearly-equal-p 10.1 10.2 0.0001)
(nearly-equal-p 10.2342345 10.234234 0.0001)))
-;;; ---------------------------------------------------------------------------
;;; dotted-pair-p
-;;; ---------------------------------------------------------------------------
(defun dotted-pair-p (putative-pair)
"Returns true if and only if `putative-pair` is a dotted-list. I.e., if `putative-pair` is a cons cell with a non-nil cdr."
View
22 dev/names.lisp
@@ -1,22 +1,18 @@
--- not loaded ---
-;;; ---------------------------------------------------------------------------
;;; numbered-instances-mixin
;;;
;;; a sort of light-weight named-object-mixin
-;;; ---------------------------------------------------------------------------
(defclass* numbered-instances-mixin (copyable-mixin)
((object-number :unbound i))
(:copy-set-slots (object-number (get-next-instance-number (class-name (class-of self)))))
(:export-slots object-number))
-;;; ---------------------------------------------------------------------------
(defmethod object-number ((object numbered-instances-mixin))
(set-object-number-if-necessary object))
-;;; ---------------------------------------------------------------------------
(defun set-object-number-if-necessary (object)
"Sets a numbered-instances-mixin's object number if it hasn't already been
@@ -26,18 +22,15 @@ set. Returns the object number."
(setf (slot-value object 'object-number)
(get-next-instance-number object))))
-;;; ---------------------------------------------------------------------------
(defmethod initialize-instance :after ((object numbered-instances-mixin) &key)
(set-object-number-if-necessary object))
-;;; ---------------------------------------------------------------------------
(defmethod update-instance-for-different-class :after ((previous numbered-instances-mixin) (target numbered-instances-mixin) &key)
(setf (slot-value target 'object-number)
(get-next-instance-number (class-name (class-of target)))))
-;;; ---------------------------------------------------------------------------
(defgeneric get-next-instance-number (thing)
(:documentation "")
@@ -49,33 +42,28 @@ set. Returns the object number."
(:method ((object standard-object))
(get-next-instance-number (class-name-of object))))
-;;; ---------------------------------------------------------------------------
(defmethod print-object ((object numbered-instances-mixin) stream)
(let ((number (object-number object)))
(print-unreadable-object (object stream :type t :identity t)
(format stream "~S" number))))
-;;; ---------------------------------------------------------------------------
(defun reset-symbol-numbering ()
(loop for name in (mapcar #'class-name
(subclasses* (find-class 'numbered-instances-mixin))) do
(reset-symbol-numbering-for-class name)))
-;;; ---------------------------------------------------------------------------
(defun reset-symbol-numbering-for-class (class-name)
(setf (get class-name 'object-number) 0))
-;;; ---------------------------------------------------------------------------
(defun numbered-symbols-count ()
(loop for name in (mapcar #'class-name
(subclasses* (find-class 'numbered-instances-mixin))) sum
(get name 'object-number 0)))
-;;; ---------------------------------------------------------------------------
(defun remove-numbered-symbols (&key (verbose? t))
(let ((grand-total 0))
@@ -94,7 +82,6 @@ set. Returns the object number."
(format t "~&~&~40A: ~A" "Grand Total" grand-total))
(reset-symbol-numbering))
-;;; ---------------------------------------------------------------------------
(defun remove-numbered-symbols* (&key (verbose? t) (gap-size 10))
(loop for name in (sort
@@ -114,12 +101,10 @@ set. Returns the object number."
(format t "~&~40A: ~A" name (- i (- gap-size extra)))))))
-;;; ---------------------------------------------------------------------------
;;; object-with-name
;;;
;;; An object-with-name has a name slot which gets filled in automatically
;;; unless a name is passed in as an initarg.
-;;; ---------------------------------------------------------------------------
(defclass* object-with-name (numbered-instances-mixin)
((name :type symbol ir))
@@ -127,14 +112,12 @@ set. Returns the object number."
for it if not provided. The name is always a symbol.")
:copy-slots)
-;;; ---------------------------------------------------------------------------
(defmethod print-object ((object object-with-name) stream)
(let ((name (and (slot-boundp object 'name) (slot-value object 'name))))
(print-unreadable-object (object stream :type t :identity t)
(format stream "~:[<unnamed>~;~s~]" name name))))
-;;; ---------------------------------------------------------------------------
(defmethod make-name ((object object-with-name) &optional new-name)
"Make a name for yourself if necessary. This version insures name is a symbol."
@@ -149,24 +132,20 @@ for it if not provided. The name is always a symbol.")
((stringp new-name) (form-name-symbol new-name))
(t (form-name-symbol (princ-to-string new-name)))))))
-;;; ---------------------------------------------------------------------------
(defmethod initialize-instance :around ((object object-with-name) &rest initargs &key name)
(if name
(apply #'call-next-method object :name (name->symbol name) initargs)
(apply #'call-next-method object :name (make-name object name) initargs)))
-;;; ---------------------------------------------------------------------------
(defmethod name->symbol ((name symbol))
name)
-;;; ---------------------------------------------------------------------------
(defmethod name->symbol ((name string))
(form-symbol name))
-;;; ---------------------------------------------------------------------------
(defmethod update-instance-for-different-class :after ((previous object-with-name)
(target object-with-name) &key)
@@ -174,7 +153,6 @@ for it if not provided. The name is always a symbol.")
(setf (slot-value target 'name)
(make-name target nil)))
-;;; ---------------------------------------------------------------------------
(defmethod (setf name) (new-name (object object-with-name))
(setf (slot-value object 'name)
View
26 website/website.tmproj
@@ -3,7 +3,7 @@
<plist version="1.0">
<dict>
<key>currentDocument</key>
- <string>source/index.md</string>
+ <string>source/resources/header.md</string>
<key>documents</key>
<array>
<dict>
@@ -20,9 +20,7 @@
<key>filename</key>
<string>source/index.md</string>
<key>lastUsed</key>
- <date>2008-09-28T15:04:03Z</date>
- <key>selected</key>
- <true/>
+ <date>2008-09-28T22:25:22Z</date>
</dict>
<dict>
<key>filename</key>
@@ -100,12 +98,28 @@
<key>column</key>
<integer>0</integer>
<key>line</key>
- <integer>17</integer>
+ <integer>10</integer>
</dict>
+ <key>columnSelection</key>
+ <false/>
<key>firstVisibleColumn</key>
<integer>0</integer>
<key>firstVisibleLine</key>
<integer>0</integer>
+ <key>selectFrom</key>
+ <dict>
+ <key>column</key>
+ <integer>0</integer>
+ <key>line</key>
+ <integer>7</integer>
+ </dict>
+ <key>selectTo</key>
+ <dict>
+ <key>column</key>
+ <integer>0</integer>
+ <key>line</key>
+ <integer>10</integer>
+ </dict>
</dict>
<key>source/resources/navigation.md</key>
<dict>
@@ -133,6 +147,6 @@
<key>showFileHierarchyDrawer</key>
<true/>
<key>windowFrame</key>
- <string>{{677, 105}, {688, 763}}</string>
+ <string>{{270, 92}, {688, 763}}</string>
</dict>
</plist>
Please sign in to comment.
Something went wrong with that request. Please try again.