pwman-tools

Check-in [e3c3ae3637]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove outdated comment
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | master | trunk
Files: files | file ages | folders
SHA3-256: e3c3ae36372fa93eade5ae1a647f78aab6b62d9cc6c2d63166b1e62cda9e2fc6
User & Date: atomicules 2019-08-12 15:34:56
Context
2019-08-12
15:34
Remove outdated comment Leaf check-in: e3c3ae3637 user: atomicules tags: master, trunk
2019-08-09
17:13
Remove some of the unnecessary prints and comments check-in: 1baafd9e95 user: atomicules tags: master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pwman2op.lisp.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; CLisp script for SBCL to export PWman to 1password
; Converts items to 1pass using 1password cli to import rather than an intermediate format; assumes an existing authenticated session
; See README for usage instructions

; Load quicklisp
(load "~/.sbclrc")
; Load libraries
; Had parsing errors with xmls so use cxml instead
(ql:quickload "cxml")
(ql:quickload "cl-ppcre")

; "Escape" certain characters. Will replace back on cli call
(defun escape-quotes
	(text)
	(cl-ppcre:regex-replace-all "\"" (cl-ppcre:regex-replace-all "'" text "\\u0027" :preserve-case t) "\\u0022" :preserve-case t))

; Just assume two template types
; Obtained from `op get template <category>`
(defun template-secure-note











|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
; CLisp script for SBCL to export PWman to 1password
; Converts items to 1pass using 1password cli to import rather than an intermediate format; assumes an existing authenticated session
; See README for usage instructions

; Load quicklisp
(load "~/.sbclrc")
; Load libraries
; Had parsing errors with xmls so use cxml instead
(ql:quickload "cxml")
(ql:quickload "cl-ppcre")

; "Escape" certain characters.
(defun escape-quotes
	(text)
	(cl-ppcre:regex-replace-all "\"" (cl-ppcre:regex-replace-all "'" text "\\u0027" :preserve-case t) "\\u0022" :preserve-case t))

; Just assume two template types
; Obtained from `op get template <category>`
(defun template-secure-note