Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
odysseus
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Iterations
Wiki
Requirements
External wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Test cases
Artifacts
Deploy
Releases
Package Registry
Container Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Code review analytics
Issue analytics
Insights
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
elixir
pd2af
odysseus
Commits
4f9374c8
Commit
4f9374c8
authored
4 years ago
by
Denis Shirshov
Browse files
Options
Downloads
Patches
Plain Diff
93
parent
6df05289
No related branches found
Branches containing commit
No related tags found
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
scrap/vk-examples.rkt
+115
-0
115 additions, 0 deletions
scrap/vk-examples.rkt
scrap/vk.rkt
+40
-20
40 additions, 20 deletions
scrap/vk.rkt
with
155 additions
and
20 deletions
scrap/vk-examples.rkt
+
115
−
0
View file @
4f9374c8
...
...
@@ -499,3 +499,118 @@
(
count
.
0
)
(
user_reposted
.
0
)))
(
text
.
Найдена
карта
на
Гвардейском!
Обращаться
по
телефону
31200
ДК
Восход
)))
;;; API version 5.107
(
define
it_feed_post
#
hasheq
(
(
attachments
.
(
#hasheq
(
(
photo
.
#
hasheq
(
(
access_key
.
7
d7847c641c40f2722
)
(
album_id
.
-7
)
(
date
.
1582299940
)
(
has_tags
.
#f
)
(
id
.
457239344
)
(
owner_id
.
-129791859
)
(
post_id
.
441
)
(
sizes
.
(
#hasheq
(
(
height
.
77
)
(
type
.
m
)
(
url
.
https://sun9-28
.
userapi
.
com/c857128/v857128217/ed922/xkOcjFr2SWg
.
jpg
)
(
width
.
130
))
#
hasheq
(
(
height
.
87
)
(
type
.
o
)
(
url
.
https://sun9-41
.
userapi
.
com/c857128/v857128217/ed927/0xcT5JY3JFU
.
jpg
)
(
width
.
130
))
#
hasheq
(
(
height
.
133
)
(
type
.
p
)
(
url
.
https://sun9-8
.
userapi
.
com/c857128/v857128217/ed928/vNAHfXbGTio
.
jpg
)
(
width
.
200
))
#
hasheq
(
(
height
.
213
)
(
type
.
q
)
(
url
.
https://sun9-31
.
userapi
.
com/c857128/v857128217/ed929/VBcGX3relBc
.
jpg
)
(
width
.
320
))
#
hasheq
(
(
height
.
340
)
(
type
.
r
)
(
url
.
https://sun9-72
.
userapi
.
com/c857128/v857128217/ed92a/1QKJ87F8g0Y
.
jpg
)
(
width
.
510
))
#
hasheq
(
(
height
.
44
)
(
type
.
s
)
(
url
.
https://sun9-6
.
userapi
.
com/c857128/v857128217/ed921/cHUGMD_6CAs
.
jpg
)
(
width
.
75
))
#
hasheq
(
(
height
.
1527
)
(
type
.
w
)
(
url
.
https://sun9-4
.
userapi
.
com/c857128/v857128217/ed926/hdbLCTmA5_I
.
jpg
)
(
width
.
2560
))
#
hasheq
(
(
height
.
360
)
(
type
.
x
)
(
url
.
https://sun9-41
.
userapi
.
com/c857128/v857128217/ed923/0lVRv5VzG-U
.
jpg
)
(
width
.
604
))
#
hasheq
(
(
height
.
481
)
(
type
.
y
)
(
url
.
https://sun9-25
.
userapi
.
com/c857128/v857128217/ed924/fKRlCjPPQZw
.
jpg
)
(
width
.
807
))
#
hasheq
(
(
height
.
763
)
(
type
.
z
)
(
url
.
https://sun9-69
.
userapi
.
com/c857128/v857128217/ed925/6DwLU8oZv9A
.
jpg
)
(
width
.
1280
))))
(
text
.
)
(
user_id
.
100
)))
(
type
.
photo
))
#
hasheq
(
(
link
.
#
hasheq
(
(
description
.
"Mixed Reality conference for professionals by professionals. Place for knowledge and experience exchange for industry leaders and innovators."
)
(
is_favorite
.
#f
)
(
photo
.
#
hasheq
(
(
album_id
.
-26
)
(
date
.
1582299940
)
(
has_tags
.
#f
)
(
id
.
457294687
)
(
owner_id
.
2000058603
)
(
sizes
.
(
#hasheq
(
(
height
.
480
)
(
type
.
k
)
(
url
.
https://sun2-4
.
userapi
.
com/2nXoI1xeS0IvSBX1YMd726CUc1OQ2X1uMmOG3A/_p_8LiosZ0w
.
jpg
)
(
width
.
1074
))
#
hasheq
((
height
.
240
)
(
type
.
l
)
(
url
.
https://sun2-3
.
userapi
.
com/bOf35DOgTkbNZgSgAZ2iDOSm9T1tVPs_OQ0fwg/ZPiRGGmqEmM
.
jpg
)
(
width
.
537
))
#
hasheq
((
height
.
70
)
(
type
.
m
)
(
url
.
https://sun2-3
.
userapi
.
com/lLyFgzh6jUoAbKYNxXVZbej78N4uTE0T24OqjA/N-aW_wjuLB4
.
jpg
)
(
width
.
130
))
#
hasheq
((
height
.
140
)
(
type
.
p
)
(
url
.
https://sun2-4
.
userapi
.
com/iDBm6SQmyRb3W4NfZQPl4cvbjM98YyItR-fWZQ/hH0twvF7i7Q
.
jpg
)
(
width
.
260
))
#
hasheq
((
height
.
39
)
(
type
.
s
)
(
url
.
https://sun2-4
.
userapi
.
com/lJ46ytP6gVyUYFM2ePJUeml1uLCrL1YnWA2YYg/Ka-zALt1Kec
.
jpg
)
(
width
.
75
))
#
hasheq
((
height
.
80
)
(
type
.
x
)
(
url
.
https://sun2-4
.
userapi
.
com/Jkvek6-EOjd9C6NjauZlKm4F_0KoeFwy2jjYKQ/zoQ2YLqa2Z8
.
jpg
)
(
width
.
150
))))
(
text
.
)))
(
target
.
internal
)
(
title
.
"MIXR 2020 - Mixed Reality Conference"
)
(
url
.
https://mixrconf
.
ru/
)))
(
type
.
link
))))
(
comments
.
#
hasheq
(
(
can_post
.
1
)
(
count
.
0
)
(
groups_can_post
.
#t
)))
(
date
.
1582299940
)
(
from_id
.
-129791859
)
(
id
.
441
)
(
is_favorite
.
#f
)
(
likes
.
#
hasheq
(
(
can_like
.
1
)
(
can_publish
.
1
)
(
count
.
4
)
(
user_likes
.
0
)))
(
marked_as_ads
.
0
)
(
owner_id
.
-129791859
)
(
post_source
.
#
hasheq
(
(
type
.
vk
)))
(
post_type
.
post
)
(
reposts
.
#
hasheq
(
(
count
.
1
)
(
user_reposted
.
0
)))
(
text
.
"Требуются волонтеры на самую крупную конференцию по виртуальной реальности в России MIXR Conference 2020! ..."
)
(
views
.
#
hasheq
((
count
.
482
)))))
This diff is collapsed.
Click to expand it.
scrap/vk.rkt
+
40
−
20
View file @
4f9374c8
...
...
@@ -426,26 +426,6 @@
(
flush-output
))
response
))))
(
define-catch
(
get-img-urls
item
)
(
let*
((
copy_history
(
$
copy_history
item
))
(
copy_history
(
and
(
not-empty?
copy_history
)
(
first
copy_history
)))
(
attachments
(
or
(
and
copy_history
(
$
attachments
copy_history
))
(
$
attachments
item
)))
(
attachment
(
or
(
and
attachments
(
first
attachments
))
(
hash
)))
)
; (--- "photo" ($ photo attachment))
; (--- "photo.photo_604" ($ photo.photo_604 attachment))
(
hash
'1x
(
and
attachments
(
$
photo
.
photo_75
attachment
))
'2x
(
and
attachments
(
$
photo
.
photo_130
attachment
))
'3x
(
and
attachments
(
$
photo
.
photo_604
attachment
))
'4x
(
and
attachments
(
$
photo
.
photo_807
attachment
))
'5x
(
and
attachments
(
$
photo
.
photo_1280
attachment
))
'link_img
(
and
attachments
(
$
link
.
image_big
attachment
))
'doc_img
(
and
attachments
(
$
doc
.
url
attachment
))
)))
(
define-catch
(
get-attachments
item
)
(
let*
((
copy_history
(
$
copy_history
item
))
(
copy_history
(
and
(
not-empty?
copy_history
)
(
first
copy_history
)))
...
...
@@ -454,6 +434,45 @@
(
$
attachments
item
))))
attachments
))
(
define-catch
(
get-attachment-element
attachments
type
)
(
let*
(
(
elements
(
and
attachments
(
filter
(
λ
(
x
)
(
hash-ref*
x
type
))
attachments
)))
(
element
(
and
(
not-empty?
elements
)
(
first
elements
)))
(
sizes
(
and
element
(
$
photo
.
sizes
element
)))
(
urls
(
and
sizes
(
for/hash
((
size
sizes
))
(
values
(
$
width
size
)
(
$
url
size
))))))
(
if
urls
urls
(
hash
))))
(
define-catch
(
get-img-urls
item
)
(
let*
(
(
attachments
(
get-attachments
item
))
; attachment photo
(
photo_urls
(
get-attachment-element
attachments
'photo
))
(
photo_urls
(
hash
'1x
(
$
75
photo_urls
)
'2x
(
$
130
photo_urls
)
'3x
(
$
604
photo_urls
)
'4x
(
$
807
photo_urls
)
'5x
(
$
1280
photo_urls
)))
; attachment link
(
link_urls
(
get-attachment-element
attachments
'link
))
(
link_urls
(
hash
'1x-link
(
$
75
link_urls
)
'2x-link
(
$
130
link_urls
)
'3x-link
(
$
537
link_urls
)
'4x-link
#f
'5x-link
(
$
1074
link_urls
)))
; attachment doc (TODO: upgrade)
(
doc_urls
(
and
attachments
(
$
doc
.
url
attachments
)))
(
doc_urls
(
if
doc_urls
(
hash
'doc
doc_urls
)
(
hash
)))
)
; (--- "photo" ($ photo attachment))
; (--- "photo.photo_604" ($ photo.photo_604 attachment))
(
hash-union
photo_urls
link_urls
doc_urls
)
))
(
define-catch
(
get-video-img-urls
item
)
(
let*
(
(
attachments
(
get-attachments
item
))
...
...
@@ -536,6 +555,7 @@
photo_id
VK_API_VERSION
AT
))
(
_
(
---
reqstr
))
(
_
(
when
delay-time
(
sleep
delay-time
)))
(
res
(
string->jsexpr
(
get-url
reqstr
)))
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment